Visual Basic 2010 Express

About

Links
Owner

Visual Basic 2010 Express
June 15, 2014 · Public

#1. open visual basic 2008 or visual basic 2010
#2. create a new project
#3. windows form/console application
#4. change your form size to 223, 274
#5. go to form1 properties and text name it whatever you want (calculator)
#6. add 18 buttons from the tool box
#7. add a textbox
#8. click textbox then properties and multiline and make it true
#9. click text box and properties and click font and make the font little bigger
#10. make the text box little bigger
#11. now change the button text to look like this
#12. now double click the form and delete everything
#13. then copy and paste this bunch of code

Option Explicit On
Public Class Form1


Dim FirstNumber As Single
Dim SecondNumber As Single
Dim AnswerNumber As Single
Dim ArithmeticProcess As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & 1
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & 2
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & 3
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & 4
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & 5
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & 6
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & 7
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & 8
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & 9
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & 0
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & "."
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
FirstNumber = Val(TextBox1.Text)
TextBox1.Text = "0"
ArithmeticProcess = "+"
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click


FirstNumber = Val(TextBox1.Text)
TextBox1.Text = "0"
ArithmeticProcess = "-"
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
FirstNumber = Val(TextBox1.Text)
TextBox1.Text = "0"
ArithmeticProcess = "X"
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
FirstNumber = Val(TextBox1.Text)
TextBox1.Text = "0"
ArithmeticProcess = "/"
End Sub


Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
SecondNumber = Val(TextBox1.Text)
If ArithmeticProcess = "+" Then
AnswerNumber = FirstNumber + SecondNumber
End If
If ArithmeticProcess = "-" Then
AnswerNumber = FirstNumber - SecondNumber
End If
If ArithmeticProcess = "X" Then
AnswerNumber = FirstNumber * SecondNumber
End If
If ArithmeticProcess = "/" Then
AnswerNumber = FirstNumber / SecondNumber
End If
TextBox1.Text = AnswerNumber
End Sub

End Class

Visual Basic 2010 Express
June 15, 2014 · Public

Page Logo


Visual Basic 2010 Express
June 15, 2014 · Public

#1 Basic Hello World Program

1 Button
1 Form 296 x 210
(Button Code)

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Hello World")
End Sub
End Class