PROGRAM D



Private Sub cbokode_Click()
Dim m, h As String
Select Case cbokode
Case "Asus A43SA"
m = "Asus A43SA - VX090D"
h = "5500000"
Case "Asus A43SD"
m = "Asus A43SD - VX052D"
h = "4500000"
Case "Asus A43SJ"
m = "Asus A43SJ - VX792D"
h = "4300000"
Case "Asus A43TA"
m = "Asus A43TA - VX034D"
h = "4900000"
Case "Asus N43SL"
m = "Asus N43SL - VX264D"
h = "4300000"
Case "Apple MD311"
m = "Apple MacBook Pro MD311"
h = "19300000"
Case "Apple MD313"
m = "Apple MacBook Pro MD313"
h = "24200000"
Case "Apple MD314"
m = "Apple MacBook Pro MD314"
h = "11900000"
Case "Apple MD322"
m = "Apple MacBook Pro MD322"
h = "14700000"
Case "Apple MC965"
m = "Apple MacBook Pro MC965"
h = "21300000"
End Select
txtmerk = m
txths = h
txtjj.SetFocus
End Sub
Private Sub Command1_Click()
txthp = Val(txtjj) * Val(txths)
If txthp >= 140000000 Then
txtdis = 0.15 * Val(txthp)
ElseIf txthp >= 135000000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 130000000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 125000000 Then
txtdis = 0.02 * Val(txthp)
End If
txttb = Val(txthp) - Val(txtdis)
End Sub
Private Sub Command2_Click()
cbokode.SetFocus
cbokode = "Pilih Kode Laptop"
txtmerk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
cbokode.AddItem "Asus A43SA"
cbokode.AddItem "Asus A43SD"
cbokode.AddItem "Asus A43SJ"
cbokode.AddItem "Asus A43TA"
cbokode.AddItem "Asus N43SL"
cbokode.AddItem "Apple MD311"
cbokode.AddItem "Apple MD313"
cbokode.AddItem "Apple MD314"
cbokode.AddItem "Apple MD322"
cbokode.AddItem "Apple MC965"
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

ERY FOTO KEMAHASISWAAN MAHASISWA ORGANISASI PROFIL Web Blog Info Kampus Info Penting Resources Umum Info Nilai BEM Teknologi PELANTIKAN BUPATI DAN WAKIL BUPATI PRINGSEWU 2017 Written by admin | May 22, 2017 | 0 ABAH BAPAK PRINGSEWU – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan.PELANTIKAN BUPATI PRINGSEWU-2 Filed in: Info Kampus, Info Penting, Umum admin View all posts by admin → Leave a Reply Name (Required) Mail (will not be published) (Required) Website Submit Comment

Gambar
PRINGSEWU  – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan. Filed in:   Info Kampus ,  Info Penting ,  Umum
Baca selengkapnya

STMIK PRINGSEWU GELAR PERLOMBAAN HUT RI KE-72

Gambar
STMIK PRINGSEWU  – Dalam rangka memperingati HUT ke-72 Negara Kesatuan Republik Indonesia, Badan Eksekutif Mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melaksanakan kemeriahan Hut Kemerdekaan Ke 72 RI di Kampus STMIK Pringsewu, mahasiswa merayakan HUT Kemerdekaan ke 72 RI dengan cara menggelar bermacam lomba yang diikuti oleh mahasiswa STMIK Pringsewu dari prodi Sistem Informasi dan Manajemen Informatika, Senin (21/8) Perlombaan yang digelar di halaman kampus, merupakan tahap dari serangkaian kegiatan yang sudah direncanakan oleh Badan Eksekutif Mahasiswa, kegiatan perlombaan ini diharapakan dapat menjadi ajang silahturahmi antar mahasiswa. Acara berlangsung penuh keakraban dan keceriaan. Tidak ada batas dan pembeda antara mahasiswa. Semua larut dalam suasana kemeriahan HUT RI. Selain itu juga agar perlombaan ini lebih menjaga kebersamaan dan juga diharapkan lomba ini menjadi refresing dan manfaatkan untuk bergembira bersama. Filed in:  
Baca selengkapnya

DATA PESERTA KI 2017 GEL. II

Gambar
STMIK Pringsewu kembali mengadakan kegiatan kunjungan industri yang dilaksanakan pada tanggal 10 sampai dengan 15 September 2017. Kunjungan industri adalah kegiatan tahunan yang diadakan oleh Perguruan Tinggi STMIK Pringsewu jurusan sistem informasi dan manajemen informatika sebagai salah satu cara untuk menambah ilmu dan pengalaman yang dibutuhkan dunia kerja yang belum didapatkan dalam perkuliahan. Dengan kunjungan industri mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika akan lebih mengetahui permasalahan-permasalahan yang ada secara langsung, sehingga mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika dapat menganalisis dan membandingkan ilmu-ilmu yang sudah dipelajari dalam perkuliahan dengan praktek yang ada dalam dunia kerja. Rombongan dosen pendamping dan mahasiswa mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika yang akan bertolak ke Jogja – Bandung pada tanggal 10 s/d 15 September 2017.
Baca selengkapnya