TUGAS 2 PROGRAM 2 BP1



Private Sub Command1_Click()
Text2 = Val(Text1) * 0.15
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""

End Sub

Private Sub Command3_Click()
Unload Me
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2 = Val(Text1) * 0.15
Text3 = Val(Text1) - Val(Text2)
End If

End Sub

Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU DAN PEMDA PRINGSEWU MEMBERIKAN PEMBEKALAN KEPADA MAHASISWA KKN

Layar Fleksibel Sudah Dibuat, Kini Lihat Nih Kamera Fleksibel!

YUDISIUM PERIODE I TAHUN 2017