Volume videonya agak kecil, harap di maklum hehehe
Listingan Code Kalkulator sederhana Ms. Visual Basic
Private Sub kali_Click()
hasil.Text = Val(bil1.Text) * Val(bil2.Text)
End Sub
Private Sub bagi_Click()
hasil.Text = Val(bil1.Text) / Val(bil2.Text)
End Sub
Private Sub tambah_Click()
hasil.Text = Val(bil1.Text) + Val(bil2.Text)
End Sub
Private Sub kurang_Click()
hasil.Text = Val(bil1.Text) - Val(bil2.Text)
End Sub
Private Sub bersih_Click()
bil1.Text = ""
bil2.Text = ""
hasil.Text = ""
End Sub
Private Sub keluar_Click()
Unload Me
End Sub
Semoga bermanfaat !!!
Tidak ada komentar:
Posting Komentar