Private Sub Cmdlagi _Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi = “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = ”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Txtnama _KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim K, J, P As String
K = Mid(Txtnpm.Text, 3, 1)
If K = “1” Then
J = ” Sistem Informasi ”
ElseIf K = “2” Then
J = “Manajemen Informatika”
ElseIf K = “3” Then
J = “Teknik Informatika”
ElseIf K = “4” Then
J = “Kompter Akuntansi”
End If
Txtjurusan.Text = J
K = Mid(Txtnpm.Text, 4, 2)
If K = “01” Then
P = “Strata Sa”
ElseIf K = “02” Then
P = ” Diploma Tiga ”
ElseIf K = “03” Then
P = ” Dipola Dua UA”
ElseIf K = “04” Then
P = ” Diploma Empat ”
End If
Txtprodi.Text = P
Txtnpm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 3)
End If
End Sub
Private Sub Cmdproses_Click()
Dim K, J, P As String
K = Mid(Txtnpm.Text, 3, 1)
If K = “1” Then
J = ” Sistem Informasi ”
ElseIf K = “2” Then
J = ” Manajemen Informatika ”
ElseIf K = “3” Then
J = ” Teknik Informatika ”
ElseIf K = “4” Then
J = ” Komputer Akuntansi ”
End If
Txtjurusan.Text = J
K = Mid(Txtnpm.Text, 4, 2)
If K = “01” Then
P = ” Strata Satu TU”
ElseIf K = “02” Then
P = ” Diploma Tiga”
ElseIf K = “03” Then
P = ” Dipola Dua ”
ElseIf K = “04” Then
P = ” Diploma Empat ”
End If
Txtprodi.Text = P
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Cmdlagi _Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi = “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = ”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Cmdproses_Click()
Dim K, J, P As String
K = Mid(Txtnpm.Text, 3, 1)
If K = “1” Then
J = ” Sistem Informasi ”
ElseIf K = “2” Then
J = ” Manajemen Informatika ”
ElseIf K = “3” Then
J = ” Teknik Informatika ”
ElseIf K = “4” Then
J = ” Komputer Akuntansi ”
End If
Txtjurusan.Text = J
K = Mid(Txtnpm.Text, 4, 2)
If K = “01” Then
P = ” Strata Satu TU”
ElseIf K = “02” Then
P = ” Diploma Tiga”
ElseIf K = “03” Then
P = ” Dipola Dua ”
ElseIf K = “04” Then
P = ” Diploma Empat ”
End If
Txtprodi.Text = P
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Cmdlagi _Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi = “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = ”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Txtnama _KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim K, J, P As String
K = Mid(Txtnpm.Text, 3, 1)
If K = “1” Then
J = ” Sistem Informasi ”
ElseIf K = “2” Then
J = “Manajemen Informatika”
ElseIf K = “3” Then
J = “Teknik Informatika”
ElseIf K = “4” Then
J = “Kompter Akuntansi”
End If
Txtjurusan.Text = J
K = Mid(Txtnpm.Text, 4, 2)
If K = “01” Then
P = “Strata Sa”
ElseIf K = “02” Then
P = ” Diploma Tiga ”
ElseIf K = “03” Then
P = ” Dipola Dua UA”
ElseIf K = “04” Then
P = ” Diploma Empat ”
End If
Txtprodi.Text = P
Txtnpm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 3)
End If
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim K, J, P As String
K = Mid(Txtnpm.Text, 2, 1)
If K = “1” Then
J = “Sistem Informasi”
P = “Strata Satu”
ElseIf K = “2” Then
J = “Manajemen Informatika”
P = “Diploma Tiga”
ElseIf K = “3” Then
J = “Teknik Informatika”
P = “Diploma Tiga”
ElseIf K = “4” Then
J = “Kompter Akuntansi”
P = “Dipolma Empat”
End If
Txtjurusan.Text = J
Txtprodi.Text = P
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 5)
End If
End Sub
Private Sub Cmdproses_Click()
Dim K, J, P As String
K = Mid(Txtnpm.Text, 2, 1)
If K = “1” Then
J = “Sistem Informasi”
P = “Strata Satu”
ElseIf K = “2” Then
J = “Manajemen Informatika”
P = “Diploma Tiga”
ElseIf K = “3” Then
J = “Teknik Informatika”
P = “Dipola Dua”
ElseIf K = “4” Then
J = Komputer Akuntansi”
P = “Diploma Empat”
End If
Txtjurusan.Text = J
Txtprodi.Text = P
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 5)
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdproses_Click()
Dim K, J, P As String
K = Mid(Txtnpm.Text, 2, 1)
If K = “1” Then
J = “Sistem Informasi”
P = “Strata Satu”
ElseIf K = “2” Then
J = “Manajemen Informatika”
P = “Diploma Tiga”
ElseIf K = “3” Then
J = “Teknik Informatika”
P = “Dipola Dua”
ElseIf K = “4” Then
J = “Komputer Akuntansi”
P = “Diploma Empat”
End If
Txtjurusan.Text = J
Txtprodi.Text = P
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 5)
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtprodi= “”
Txttm = “”
Txturut = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim K, J, P As String
K = Mid(Txtnpm.Text, 2, 1)
If K = “1” Then
J = “Sistem Informasi”
P = “Strata Satu”
ElseIf K = “2” Then
J = “Manajemen Informatika”
P = “Diploma Tiga”
ElseIf K = “3” Then
J = “Teknik Informatika”
P = “Diploma Tiga”
ElseIf K = “4” Then
J = “Kompter Akuntansi”
P = “Dipolma Empat”
End If
Txtjurusan.Text = J
Txtprodi.Text = P
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
Txturut.Text = Right(Txtnpm.Text, 5)
End If
End Sub
Private Sub Cmdbatal_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub Cmdproses_Click()
Dim k, j, p, h As String
kode = Left(Txtkode.Text, 3)
If kode = “SIM” Then
Txtjudul.Text = “Sistem Informasi Manajemen”
Txtpengarang.Text = “Fadiya Ulfa”
Txtharga.Text = “79500”
ElseIf kode = “EDP” Then
Txtjudul.Text = “Elektronik Data Procesing”
Txtpengarang.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf kode = “MNJ” Then
Txtjudul.Text = “Manajemen”
Txtpengarang.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf kode = “CDR” Then
Txtjudul.Text = “Corel Draw”
Txtpengarang.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf kode = “RPL” Then
Txtjudul.Text = “Rekayasa Perngkat Lunak”
Txtpengarang.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
kode = Mid(Txtkode.Text, 8, 1)
If kode = “A” Then
Txtpenerbit.Text = “Andi Offest Yogyakarta”
ElseIf kode = “I” Then
Txtpenerbit.Text = “Indah Surabaya”
ElseIf kode = “S” Then
Txtpenerbit.Text = “Salemba Empat”
ElseIf kode = “E” Then
Txtpenerbit.Text = “Elek Media Kompotindo”
ElseIf kode = “M” Then
Txtpenerbit.Text = “Maxicom”
End If
Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)
End Sub
Private Sub Txtkode_Change()
If KeyAscii = 13 Then
Cmdproses.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub Txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim k, j, p, h As String
kode = Left(Txtkode.Text, 3)
If kode = “SIM” Then
Txtjudul.Text = “Sistem Informasi Manajemen”
Txtpengarang.Text = “Fadiya Ulfa”
Txtharga.Text = “79500”
ElseIf kode = “EDP” Then
Txtjudul.Text = “Elektronik Data Procesing”
Txtpengarang.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf kode = “MNJ” Then
Txtjudul.Text = “Manajemen”
Txtpengarang.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf kode = “CDR” Then
Txtjudul.Text = “Corel Draw”
Txtpengarang.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf kode = “RPL” Then
Txtjudul.Text = “Rekayasa Perngkat Lunak”
Txtpengarang.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
kode = Mid(Txtkode.Text, 8, 1)
If kode = “A” Then
Txtpenerbit.Text = “Andi Offest Yogyakarta”
ElseIf kode = “I” Then
Txtpenerbit.Text = “Indah Surabaya”
ElseIf kode = “S” Then
Txtpenerbit.Text = “Salemba Empat”
ElseIf kode = “E” Then
Txtpenerbit.Text = “Elek Media Kompotindo”
ElseIf kode = “M” Then
Txtpenerbit.Text = “Maxicom”
End If
Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)
End If
End Sub
Private Sub Cmdbatal_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtkode.SetFocus
Txtkode = “”
Txtjudul = “”
Txtpengarang = “”
Txttahun = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub Cmdproses_Click()
Dim k, j, p, h As String
kode = Left(Txtkode.Text, 3)
If kode = “SIM” Then
Txtjudul.Text = “Sistem Informasi Manajemen”
Txtpengarang.Text = “Fadiya Ulfa”
Txtharga.Text = “79500”
ElseIf kode = “EDP” Then
Txtjudul.Text = “Elektronik Data Procesing”
Txtpengarang.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf kode = “MNJ” Then
Txtjudul.Text = “Manajemen”
Txtpengarang.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf kode = “CDR” Then
Txtjudul.Text = “Corel Draw”
Txtpengarang.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf kode = “RPL” Then
Txtjudul.Text = “Rekayasa Perngkat Lunak”
Txtpengarang.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
kode = Mid(Txtkode.Text, 8, 1)
If kode = “A” Then
Txtpenerbit.Text = “Andi Offest Yogyakarta”
ElseIf kode = “I” Then
Txtpenerbit.Text = “Indah Surabaya”
ElseIf kode = “S” Then
Txtpenerbit.Text = “Salemba Empat”
ElseIf kode = “E” Then
Txtpenerbit.Text = “Elek Media Kompotindo”
ElseIf kode = “M” Then
Txtpenerbit.Text = “Maxicom”
End If
Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)
End Sub
Private Sub Txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim k, j, p, h As String
kode = Left(Txtkode.Text, 3)
If kode = “SIM” Then
Txtjudul.Text = “Sistem Informasi Manajemen”
Txtpengarang.Text = “Fadiya Ulfa”
Txtharga.Text = “79500”
ElseIf kode = “EDP” Then
Txtjudul.Text = “Elektronik Data Procesing”
Txtpengarang.Text = “Nurul Agustina”
Txtharga.Text = “62000”
ElseIf kode = “MNJ” Then
Txtjudul.Text = “Manajemen”
Txtpengarang.Text = “Rian Hidayat”
Txtharga.Text = “42000”
ElseIf kode = “CDR” Then
Txtjudul.Text = “Corel Draw”
Txtpengarang.Text = “Siti Nur Khotimah”
Txtharga.Text = “53000”
ElseIf kode = “RPL” Then
Txtjudul.Text = “Rekayasa Perngkat Lunak”
Txtpengarang.Text = “Winda Erlianti”
Txtharga.Text = “83000”
End If
kode = Mid(Txtkode.Text, 8, 1)
If kode = “A” Then
Txtpenerbit.Text = “Andi Offest Yogyakarta”
ElseIf kode = “I” Then
Txtpenerbit.Text = “Indah Surabaya”
ElseIf kode = “S” Then
Txtpenerbit.Text = “Salemba Empat”
ElseIf kode = “E” Then
Txtpenerbit.Text = “Elek Media Kompotindo”
ElseIf kode = “M” Then
Txtpenerbit.Text = “Maxicom”
End If
Txttahun.Text = “20” & Mid(Txtkode.Text, 5, 2)
End If
End Sub