Selasa, 12 Desember 2017
tugas 3.5
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim M As String
M = Left(txtkt, 3)
If M = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf M = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf M = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf M = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * (txtjt)
End If
End Sub
Langganan:
Posting Komentar (Atom)
tugas 6 pengolahan citra
Nama : Ayunda Mugiarsih Kelas : Line 1 TKJ NPM : 17100024 Tugas 6 Gamabar hasil Penjelasan Cgreyscale adalah suatu ci...
-
Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = &...
-
Private Sub chkb_Click() If chkb.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub chki_Click() ...
Tidak ada komentar:
Posting Komentar