rosistmikpringsewu

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = "" txthati = "" txtjeke = "" txtjambe = "" txtjuti = "" txttotal = "" End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkode, 3) If B = "BIM" Then txthati = "50000" txtjeke = "BIMA" txtjambe = "16.00" ElseIf B = "EKO" Then txthati = "35000" txtjeke = "EKONOMI" txtjambe = "19.00" ElseIf B = "SEN" Then txthati = "15000" txtjeke = "SENJA" txtjambe = "20.00" End If txtjuti.SetFocus End Sub Private Sub txtjuti_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(txthati) * Val(txtjuti) End If End Sub