Rabu, 15 Juli 2015

1. Design form dibawah ini dengan nama form kalkulator, gunakan label, textbox, dan button pada toolbox

Listing Code :
Private Sub bagi_Click()
txthasil.Text = Val(txtnilai1.Text) / Val(txtnilai2.Text)
End Sub

Private Sub kali_Click()
txthasil.Text = Val(txtnilai1.Text) * Val(txtnilai2.Text)
End Sub

Private Sub keluar_Click()
p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If p = vbOK Then
End
End If
End Sub

Private Sub tambah_Click()
txthasil.Text = Val(txtnilai1.Text) + Val(txtnilai2.Text)
End Sub

Private Sub kurang_Click()
txthasil.Text = Val(txtnilai1.Text) - Val(txtnilai2.Text)
End Sub
15 Jul 2015

0 komentar:

Posting Komentar

:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Click to see the code!
To insert emoticon you must added at least one space before the code.