PENJUMLAHAN TANPA KEYPRESS TUGAS 3
Private Sub Cmdhitung_Click()
Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3)
End Sub
Private Sub Cmdbatal_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txtnilai3 = ""
Txtjumlah = ""
Txtnilai1.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txtnilai3 = ""
Txtjumlah = ""
Txtnilai1.SetFocus
End Sub
Widih
BalasHapusHahahahaa kya gini aja bikin pusing yo
BalasHapus