tugas 3.6
Private Sub cmdbatal_Click()
txtkode = ""
txtjd = ""
txtpg = ""
txttb = ""
txtpn = ""
txtha = ""
txtkode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode = ""
txtjd = ""
txtpg = ""
txttb = ""
txtpn = ""
txtha = ""
txtkode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim X, JB, PG, HA, PN As String
txttb.Text = "20" & Mid(txtkode.Text, 5, 2)
X = Left(txtkode.Text, 3)
If X = "SIM" Then
JB = "Sistem Informasi Manajemen"
PG = "Fadiya Ulfa"
HA = "75900"
ElseIf X = "EDP" Then
JB = "Elektronik Data Processing"
PG = "Nurul Agustina"
HA = "62000"
ElseIf X = "MNJ" Then
JB = "Manajemen"
PG = "Rian Hidayat"
HA = "42000"
ElseIf X = "CDR" Then
JB = "Corel Draw"
PG = "Siti Nur Khotimah"
HA = "53000"
ElseIf X = "RPL" Then
JB = "Rekayasa Perangkat Lunak"
PG = "Winda Erlanti"
HA = "83000"
End If
txtjd.Text = JB
txtpg.Text = PG
txtha.Text = HA
X = Right(txtkode.Text, 1)
If X = "A" Then
PN = "Andi Offset Yogyakarta"
ElseIf X = "I" Then
PN = "Indah Surabaya"
ElseIf X = "S" Then
PN = "Salemba Empat"
ElseIf X = "E" Then
PN = "Elek Media Komputindo"
ElseIf X = "M" Then
PN = "Maxicom"
End If
txtpn.Text = PN
End Sub
Private Sub Form_Active()
txtkod = ""
txtjd = ""
txtpg = ""
txttb = ""
txtpn = ""
txtha = ""
txtkode.SetFocus
End Sub
txtkode = ""
txtjd = ""
txtpg = ""
txttb = ""
txtpn = ""
txtha = ""
txtkode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtkode = ""
txtjd = ""
txtpg = ""
txttb = ""
txtpn = ""
txtha = ""
txtkode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim X, JB, PG, HA, PN As String
txttb.Text = "20" & Mid(txtkode.Text, 5, 2)
X = Left(txtkode.Text, 3)
If X = "SIM" Then
JB = "Sistem Informasi Manajemen"
PG = "Fadiya Ulfa"
HA = "75900"
ElseIf X = "EDP" Then
JB = "Elektronik Data Processing"
PG = "Nurul Agustina"
HA = "62000"
ElseIf X = "MNJ" Then
JB = "Manajemen"
PG = "Rian Hidayat"
HA = "42000"
ElseIf X = "CDR" Then
JB = "Corel Draw"
PG = "Siti Nur Khotimah"
HA = "53000"
ElseIf X = "RPL" Then
JB = "Rekayasa Perangkat Lunak"
PG = "Winda Erlanti"
HA = "83000"
End If
txtjd.Text = JB
txtpg.Text = PG
txtha.Text = HA
X = Right(txtkode.Text, 1)
If X = "A" Then
PN = "Andi Offset Yogyakarta"
ElseIf X = "I" Then
PN = "Indah Surabaya"
ElseIf X = "S" Then
PN = "Salemba Empat"
ElseIf X = "E" Then
PN = "Elek Media Komputindo"
ElseIf X = "M" Then
PN = "Maxicom"
End If
txtpn.Text = PN
End Sub
Private Sub Form_Active()
txtkod = ""
txtjd = ""
txtpg = ""
txttb = ""
txtpn = ""
txtha = ""
txtkode.SetFocus
End Sub
Komentar
Posting Komentar