TUGAS 2 PROGRAM 4 BP1



Private Sub Cmdkeluar_Click()
Unload Me

End Sub
Private Sub cmdProses_Click()
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * (0.1)
Text6 = Val(Text4) - Val(Text5)
End Sub

Private Sub cmdUlang_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub


Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * (0.1)
Text6 = Val(Text4) - Val(Text5)
End If

End Sub

Komentar

Postingan populer dari blog ini

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone