RIKA STMIK PRINGSEWU
Kamis, 23 November 2017
PROGRAM 1 TUGAS 2 BP1
Private Sub Cmd1_Click()
Txt2 = Val(Txt1) * 0.15
Txt3 = Val(Txt1) - Val(Txt2)
End Sub
Private Sub Cmd2_Click()
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub
Private Sub Cmd3_Click()
Unload Me
End Sub
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar