Membuat Kalkulator di VB 6.0

Games Program Sport Tools VB 6.0 Software Other

Hello ,Guys!!

Kali inji ane akan ngepost cara membuat kalkulator di VB 6.0

1) Edit Forms sesuai kesukaan anda .. mau di tambah backround, dikasih Icon, dll
Lalu, di Form1, Captionnya ubah menjadi "Kalkulator"

2) Setelah itu, Buat 3 Label, 3 Textbox, dan 4 Command Button, lalu, setting menjadi ini :

Label1 ~> ubah Caption menjadi "Bilangan Pertama"
Label2 ~> ubah Caption Menjadi "Bilangan Kedua"

Commond button1 ~> ubah Caption Menjadi +
Commond button2 ~> Ubah Caption Menjadi -
Commond button3 ~> Ubah Caption Menjadi x
Commond button4 ~> Ubah Caption Menjadi /

untuk Text 1, Text2, dan Text3, Hapus Captionnya / Kosongkan

3) Setelah itu, Pada Form, Klik kanan dan pilih View Code .. Lalu, masukan ini :

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

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

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Bye :)