PROGRAM 3 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
Komentar
Posting Komentar