Panduan Membuat Kakulator Lengkap dengan VB 6.0 & VBnet

Langkah langkah membuat kakulator dengan Ms. Visual Basic 6.0 dan MS Visual Basic 2010

1. Cari aplikasi Microsoft Visual Basic,jika di desktop sudah ada maka klik 2x seperti 
2. Lalu ,pilih standar exe lalu klik open
3. Kemudian.klik frame,ganti nama nya dengan kalkulator lengkap, 
4. Setelah itu,klik kembali frame,dan buat kembali frame 
5. Setelah itu, jika ingin merubah backgroundnya,di properties,klik backcolor,kemudian di samping kanan klik kotak kecil, lalu pilih palette dan pilih warna yang kalian pilih,
6.  Kemudian klik text box dan klik command button, buat 17 command button button.
7. Setelah itu ganti caption nya .. 
8.  Kemudian sekarang kita akan memasukan kode nya,yaitu dengan cara,bisa dengan double klik di command button nya,bisa juga dengan cara di menu view, kemudian klik code. di bawah ini.

Tuliskan Koding 

Dim op As String

Dim num1 As Integer

Dim num2 As Integer

Private Sub Command1_Click()

Text1.Text = Text1.Text & 1

End Sub

Private Sub Command10_Click()

Text1.Text = Text1.Text & 0

End Sub

Private Sub Command11_Click()

Unload Me

End Sub

Private Sub Command12_Click()

num1 = Text1.Text

Text1.Text = ""

op = "*"

End Sub

Private Sub Command13_Click()

num1 = Text1.Text

Text1.Text = ""

op = "-"

End Sub

Private Sub Command14_Click()

num1 = Text1.Text

Text.Text = ""

op = "/"

End Sub

Private Sub Command15_Click()

num1 = Text1.Text

Text1.Text = ""

op = "+"

End Sub

Private Sub Command16_Click()

num1 = Text.Text

Text1.Text = ""

End Sub

Private Sub Command17_Click()

num2 = Text1.Text

If op = "+" Then

Text1.Text = num1 + num2

ElseIf op = "-" The

Text1.Text = num1 - num2

ElseIf op = "*" Then

Text1.Text = num1 * num2

ElseIf op = "/" Then

Text1.Text = num1 / num2

End If

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text & 2

End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text & 3

End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text & 4

End Sub

Private Sub Command5_Click()

Text1.Text = Text1.Text & 5

End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text & 6

End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text & 7

End Sub

Private Sub Command8_Click()

Text1.Text = Text1.Text & 8

End Sub

Private Sub Command9_Click()

Text1.Text = Text1.Text & 9

End Sub

Setelah selesai,kita akan menjalankan program nya,yaitu dengan cara klik menu start di menubar.

selamat mencoba!!