Tugas 1.2

Private Sub cmdbersih_Click()
Txtn1.SetFocus
Txtn1 = ""
Txtn2 = ""
Txtn3 = ""
End Sub

Private Sub Cmdhitung_Click()
Txtn3 = Val(Txtn1) * Val(Txtn2)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Txtn1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Txtn2.SetFocus
End If
End Sub

Private Sub Txtn2_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Txtn3.SetFocus
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Tugas 1.5

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text4) * Val(Text6) Text11 = Val(Text3) - Val(Text7) Text12 = Val(Text2) / Val(Text8) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text5.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text8.SetFocus End If End Sub Private Sub Text3_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text7.SetFocus End If End Sub Private Sub Text4_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text6.SetFocus ...
Baca selengkapnya

Tugas 1.1

Gambar
Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text3.SetFocus End If End Sub Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub
Baca selengkapnya