Program G
Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdproses_Click() Dim X As String txttt = "20" & Mid(txtkb, 5, 2) X = Left(txtkb, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpeng = "Fadiya Ulfa" txth = "75900" ElseIf X = "EDP" Then txtjb = "Electronik Data Processing" txtpeng = "Nurul Agustina" txth = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtpeng = "Rian Hidayat" txth = "42000" ElseIf X = ...
Komentar
Posting Komentar