PROGRAM 4 TUGAS 2 BP1

Private Sub Cmdproses_click()

Txtgk = Val(Txtgp) + Val(Txtt) - Val(Txtpo)

txtpa = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) - Val(Txtpa)

End Sub

Private Sub Cmdulang_Click()

Txtgp = ""

Txtt = ""

Txtpo = ""

Txtgk= ""

Txtpa= ""

Txtgd = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtt2.SetFocus

End If

End Sub

Private Sub Txtt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpo.SetFocus

End If

End Sub

Private Sub Txtpo_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txtt) - Val(Txtpo)

txtpa = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) - Val(Txtpa)

End If

End Sub