Langsung ke konten utama

TUGAS 3.6



Private Sub cmdbatal_Click()
txtkb = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
txtkb.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkb = ""
txtjb = ""
txtpengarang = ""
txttt = ""
txtpenerbit = ""
txtharga = ""
txtkb.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(txtkb, 3)
If B = "SIM" Then
txtjb = "Sistem Informasi Manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = "75900"
ElseIf B = "EDP" Then
txtjb = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf B = "MNJ" Then
txtjb = "Manajemen"
txtpengarang = "Rian Hidayat"
txtharga = "42000"
ElseIf B = "CDR" Then
txtjb = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf B = "RPL" Then
txtjb = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
txttt = "20" & Mid(txtkb, 5, 2)
B = Right(txtkb, 1)
If B = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf B = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf B = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf B = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf B = "M" Then
txtpenerbit = "Maxicom"
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

STMIK PRINGSEWU – Sabtu (7/10), mahasiswa jurusan sistem informasi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan kegiatan table manner di hotel bukit randu lampung. Pengetahuan table manner bagi mahasiswa sangat penting untuk menambah pengetahuan dan pengalaman, hal ini juga merupakan proses pengembangan diri mahasiswa yang diintegrasikan dalam Mata Kuliah Character Building. Program table manner tersebut, agar para mahasiswa dapat mengetahui praktek dan pengalaman tata cara makan yang baik secara langsung, mahasiswa yang telah mengikuti program tersebut, nantinya dapat dipraktekan dengan baik dalam jamuan makan. Sudewi, M.M selaku dosen mata kuliah Character Building dan selaku dosen pendamping mengatakan, program studi sistem informasi kelas line 6 Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu mengasah skill mahasiswanya melalui tabel manner. Tabel manner itu adalah aturan etika yang dipergunakan pada ...
Posting Komentar
Baca selengkapnya

TUGAS 2.8

 Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100001" nama = "Mardalena" jurusan = "Sistem Informasi" Case "17100002" nama = "Bahadi Rhamadani" jurusan = "Sistem Informasi" Case "17100003" nama = "Renaldi Zainal Arifin" jurusan = "Sistem Informasi" Case "17100004" nama = "Eka Kartika" jurusan = "Sistem Informasi" Case "17100006" nama = "Rosi elvia" jurusan = "Sistem Informasi" Case "17100008" nama = "M.Galih algofur" jurusan = "Sistem Informasi" ...
Posting Komentar
Baca selengkapnya

WISUDA BERSAMA STMIK & STIT PRINGSEWU 2017

STMIK PRINGSEWU – Ahad (15/10), penyelenggaraan acara wisuda STMIK Pringsewu dan STIT Pringsewu berjalan lancar dan sukses. Wisuda tersebut merupakan wisuda ke-18 yang dilaksanakan oleh STMIK Pringsewu dan wisuda ke-3 STIT Pringsewu. Acara wisuda STMIK Pringsewu program studi S1 Sistem Informasi diikuti oleh 349 orang wisudawan/i, D3 Manajemen Informatika diikuti 24 orang wisudawan/i, sedangkan jumlah wisudawan dari STIT Pringsewu sebanyak 39 orang wisudawan/i, mereka merupakan Sarjana Pendidikan Islam dari Program Studi Manajemen Pendidikan Islam. Perhelatan tersebut dilaksanakan secara bersamaan di GOR Kabupaten Pringsewu. Perhelatan tersebut dihadiri Bupati Pringsewu H. Sujadi, Ketua MUI, Polres, Kodim, dan APTISI. Acara wisuda bersama STMIK Pringsewu dan STIT Pringsewu dimulai pada pukul 09.00 WIB sampai selesai, dibuka secara langsung oleh ketua Yayasan Lembaga Pendidika Startech Pringsewu Dr. H. Fauzi. Bupati Pringsewu H. Sujadi dalam sambutannya me...
Posting Komentar
Baca selengkapnya