Tugas 3.4 Data Buku Stmik Pringsewu

Tugas 3.4 Data Buku Stmik Pringsewu

Berikut Source Codenya:

Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Public Sub kosong()
cbokb.SetFocus
cbokb.Text = ""
txtjb.Text = ""
txtpeng.Text = ""
txtt.Text = ""
txtpen.Text = ""
txthar.Text = ""
End Sub

Private Sub Form_Load()
cbokb.AddItem "A-SIM-01"
cbokb.AddItem "I-EDP-02"
cbokb.AddItem "S-MNJ-03"
cbokb.AddItem "E-CDR-04"
cbokb.AddItem "M-RPL-05"
End Sub

Private Sub cmdproses_Click()
Dim re As String
txtt.Text = "20" & Right(cbokb.Text, 2)
re = Mid(cbokb.Text, 3, 3)
If re = "SIM" Then
txtjb.Text = "Sistem Informasi Manajemen"
ElseIf re = "EDP" Then
txtjb.Text = "Elektronik Data Processing"
ElseIf re = "MNJ" Then
txtjb.Text = "Manajemen"
ElseIf re = "CDR" Then
txtjb.Text = "Corel Draw"
ElseIf re = "RPL" Then
txtjb.Text = "Rekayasa Perangkat Lunak"
End If

re = Left(cbokb.Text, 1)
If re = "A" Then
txtpeng.Text = "Yati Nur Oktavia"
txthar.Text = "75900"
txtpen.Text = "Andi Offset Yogyakarta"
ElseIf re = "I" Then
txtpeng.Text = "Imam Tarmizi"
txthar.Text = "620000"
txtpen.Text = "Indah Surabaya"
ElseIf re = "S" Then
txtpeng.Text = "Valentina Mariana adiwinanti"
txthar.Text = "42000"
txtpen.Text = "Salemba Empat"
ElseIf re = "E" Then
txtpeng.Text = "Ryan Suhandi"
txthar.Text = "53000"
txtpen.Text = "Elek Media Komputindo"
ElseIf re = "M" Then
txtpen.Text = "Sinta Umpu Singa"
txthar.Text = "83000"
txtpen.Text = "Maxicom"
End If
txthar.SetFocus
End Sub