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

Postingan populer dari blog ini

Apple akhirnya sediakan jack earphone lewat dongle khusus iPhone 7

PROGRAM 6 TUGAS 2 BP1

HOME TEKNOLOGI Kemenkominfo akan Panggil Google dan Telegram Terkait GIF WhatsApp