Buat Kalkulator Sederhana Dengan Visual Basic

Advertisemen

Tutorial Ini Hanya Di peruntukan Buat Yang BAru Belajar VB
hehehehe

Oke Buka VB 6.0 Lalu Pilih Standart.exe pada Form New Project

Buat Form dengan Penampakan Kira-kira seperti ini

Pada Project Ini
saia menggunakan
-5 Buah COmmand Button
-3 Buah Text Box
-3 Buah Label
-1 Buah Frame

Masukan source codenya

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
Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

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


Ketika Command1 diklik atau tombol (+) diklik Maka text3 atau hasil akan menghasilkan Angka berupa penjumlahan yang diinput dari Text1 atau angka pertama dengan angka kedua









Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

Saat Command5 Atau Tombol "lagi" diklik maka isi dari text1,text2 dan text3 akan dikosongkan dan secara otomatis akan berada di text1

Advertisemen