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

KAPOLSEK PRINGSEWU “ANJAU SILAU” DENGAN MAHASISWA STMIK PRINGSEWU

Menyempurnakan Desain, PlayStation Memperbarui Desain Perangkat VR Mereka PSVR

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT