Tugas 2.3
Private Sub cmdHitung_Click()
txtBayar = Val(TxtBeli) * 70000
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdLagi_Click()
TxtBeli.SetFocus
TxtBeli = ""
txtBayar = ""
End Sub
Tugas 1.4
Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) - Val(Text5) Text9 = Val(Text7) / Val(Text8) Text12 = Val(Text10) * Val(Text11) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetF...
Komentar
Posting Komentar