Tugas 5
Private Sub cmdhitung_Click()
txtjumlah1 = Val(txt1) + (txt2)
txtjumlah2 = Val(Txt3) / (txt4)
txtjumlah3 = Val(txt5) - (txt6)
txtjumlah4 = Val(txt7) * (txt8)
End Sub
Private Sub cmdbatal_click()
txt1 = ""
txt2 = ""
Txt3 = ""
txt4 = ""
txt5 = ""
txt6 = ""
txt7 = ""
txt8 = ""
txtjumlah1 = ""
txtjumlah2 = ""
txtjumlah3 = ""
txtjumlah4 = ""
txt1.SetFocus
End Sub
Private Sub cmdlagi_Click()
txt1 = ""
txt2 = ""
Txt3 = ""
txt4 = ""
txt5 = ""
txt6 = ""
txt7 = ""
txt8 = ""
txtjumlah1 = ""
txtjumlah2 = ""
txtjumlah3 = ""
txtjumlah4 = ""
txt1.SetFocus
End Sub
Private Sub cmdkeluar_click()
Unload Me
End Sub
Tidak ada komentar:
Posting Komentar