Halaman
Selasa, 12 Desember 2017
tugas 3_5
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
textkode = ""
textharga = ""
textjenis = ""
textjb = ""
textjumlah = ""
texttotal = ""
textkode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim B As String
B = Left(textkode, 3)
If B = "BIM" Then
textharga = "50000"
textjenis = "BIMA"
textjb = "16.00"
ElseIf B = "EKO" Then
textharga = "35000"
textjenis = "EKONOMI"
textjb = "19.00"
ElseIf B = "MUT" Then
textharga = "23000"
textjenis = "MUTIARA"
textjb = "17.00"
ElseIf B = "SEN" Then
textharga = "15000"
textjenis = "SENJA"
textjb = "20.00"
End If
textjumlah.SetFocus
End Sub
Private Sub textjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texttotal = Val(textharga) * Val(textjumlah)
End If
End Sub
Langganan:
Posting Komentar (Atom)
Tugas 3_7
Private Sub cmdbatal_Click() textnama = "" textnik = "" textgolongan = "" textkode = "" texts...
-
Private Sub cmdbatal_Click() textnama = "" textnik = "" textgolongan = "" textkode = "" texts...
-
Private Sub cmdbatal_Click() textcode = "" textjudul = "" textpengarang = "" textterbit = "" ...
-
Private Sub cmdbatal_Click() textnama = "" textnpm = "" textjurusan = "" textps = "" textmasuk ...
Tidak ada komentar:
Posting Komentar