TUGAS PROGRAM F
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt.SetFocus txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttp = "" End Sub Private Sub cmdproses_Click() txttp = Val(txtht) * Val(txtjt) End Sub Private Sub txtkt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtjt.SetFocus End If Dim k As String k = txtkt If k = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf k = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf k = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf k = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If End Sub
Komentar
Posting Komentar