Private Sub Cmdbatal_Click()
Textha = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Textkb.SetFocus
Textkb = “”
Textjb = “”
Textpg = “”
Texttt = “”
Textpn = “”
Textha = “”
End Sub
Private Sub Cmdproses_Click()
Dim s As String
Texttt.Text = “20” & Mid(Textkb.Text, 5, 2)
s = Left(Textkb.Text, 3)
If s = “SIM” Then
Textjb.Text = “Sistem Informasi Manajemen”
Textpg.Text = “Fadiya Ulfa”
Textha.Text = “75900”
s = Left(Textkb.Text, 3)
ElseIf s = “EDP” Then
Textjb.Text = “Elektronik Data Processing”
Textpg.Text = “Nurul Agustina”
Textha.Text = “62000”
ElseIf s = “MNJ” Then
Textjb.Text = “Manajemen”
Textpg.Text = “Rian Hidayat”
Textha.Text = “42000”
ElseIf s = “CDR” Then
Textjb.Text = “Corel Draw”
Textpg.Text = “Siti Nur Khotimah”
Textha.Text = “53000”
ElseIf s = “RPL” Then
Textjb.Text = “Rekayasa Perangkat Lunak”
Textpg.Text = “Winda Erlianti”
Textha.Text = “83000”
End If
s = Right(Textkb.Text, 1)
If s = “A” Then
Textpn.Text = “Andi Offset Yogyakarta”
s = Right(Textkb.Text, 1)
ElseIf s = “I” Then
Textpn.Text = “Indah Surabaya”
s = Right(Textkb.Text, 1)
ElseIf s = “S” Then
Textpn.Text = “Salemba Empat”
s = Right(Textkb.Text, 1)
ElseIf s = “E” Then
Textpn.Text = “Elek Media Komputindo”
s = Right(Textkb.Text, 1)
ElseIf s = “M” Then
Textpn.Text = “Maxicom”
End If
End Sub
Textkb.SetFocus
Textkb = “”
Textjb = “”
Textpg = “”
Texttt = “”
Textpn = “”
END SUB
Blog IT 