Kalkulator Sederhana Visual Basic 6

Tak terasa udah 2tahun belum pernah posting :D

karena ada seseorang yang Memberikan komentar untuk Tutorial kalkulator Vb6, jadi Posting ini dibuat ;)

Let's Begin...
Buatlah Form Seperti Gambar dibawah ini..

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) + Val(b)
Text3.Text = c

End Sub

Private Sub Command2_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) - Val(b)
Text3.Text = c
End Sub

Private Sub Command3_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) * Val(b)
Text3.Text = c
End Sub

Private Sub Command4_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) / Val(b)
Text3.Text = c
End Sub

Private Sub Command5_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) ^ Val(b)
Text3.Text = c
End Sub

Private Sub Command6_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) Mod Val(b)
Text3.Text = c
End Sub

Private Sub Command7_Click()
a = Text1.Text
b = Text2.Text
c = Val(a) \ Val(b)
Text3.Text = c
End Sub

* Keterangan

- Command1 = +

- Command2 = -

- Command3 = x

- Command4 = /

- Command5 = ^

- Command6 = mod

- Command7 = \

Untuk Source Code Full Klik Disini