Tugas 3 BP5


Private Sub Cmdproses_Click()
Dim A As String
A = Mid(Cbokode, 1, 1)
If A = "A" Then
Textpn = "Abdi Offsyet Yogyakarta"
End If
A = Mid(Cbokode, 3, 3)
If A = "SIM" Then
Textjb = "Sistem Informasi Manajemen"
Textpg = "Yati Nur Oktavia"
Textrp = "75900"
End If
A = Mid(Cbokode, 7, 2)
If A = "01" Then
Texttt = "2001"
End If
A = Mid(Cbokode, 1, 1)
If A = "I" Then
Textpn = "Indah Surabaya"
End If
A = Mid(Cbokode, 3, 3)
If A = "EDP" Then
Textjb = "Electronik Data Processing"
Textpg = "Imam Tarmizi"
Textrp = "62000"
End If
A = Mid(Cbokode, 7, 2)
If A = "02" Then
Texttt = "2002"
End If
A = Mid(Cbokode, 1, 1)
If A = "S" Then
Textpn = "HELMIYANTO"
End If
A = Mid(Cbokode, 3, 3)
If A = "MNJ" Then
Textjb = "MANAJEMEN"
Textpg = "NUZUL RAMADHANI"
Textrp = "79000"
End If
A = Mid(Cbokode, 7, 2)
If A = "03" Then
Texttt = "2003"
End If
End Sub

Private Sub Cmdlagi_Click()
Cbokode = ""
Textjb = ""
Textpg = ""
Texttt = ""
Textpn = ""
Textrp = ""
Textjb.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbokode = ""
Textjb = ""
Textpg = ""
Texttt = ""
Textpn = ""
Textrp = ""
Textjb.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub


Private Sub Form_Load()
Cbokode.AddItem "A-SIM-01"
Cbokode.AddItem "I-EDP-02"
Cbokode.AddItem "S-MNJ-03"

End Sub

Komentar

Postingan populer dari blog ini

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone