tugas 2

Untitled

Private Sub Cmdbt_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnpm = ” ”

Textnp = ” ”

Texttt = ” ”

End Sub

 

Private Sub Cmdkr_Click()

End

End Sub

 

Private Sub Cmdlg_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnpm = ” ”

Textnp = ” ”

Texttt = ” ”

End Sub

 

Private Sub Textkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnb.SetFocus

End If

End Sub

Private Sub Textnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

Private Sub Textnp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttt.SetFocus

End If

End Sub

 

Untitled b

Private Sub Cmdbh_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

 

End Sub

 

Private Sub Cmdht_Click()

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

 

End Sub

 

Private Sub Cmdkr_Click()

Unload Me

End Sub

 

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

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End If

 

End Sub

 

 

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s