Tugas BP1 (Program H)

-


Private Sub cbokode_Click()
Dim A, M As String
Select Case cbokode
Case "P205"
A = "Pentium II 500 Mega Hz"
M = "1500000"
Case "P308"
A = "Pentium III 800 Mega Hz"
M = "2100000"
Case "P310"
A = "Pentium III 1.0 Giga Hz"
M = "3500000"
Case "P415"
A = "Pentium IV 1.5 Giga Hz"
M = "4000000"
Case "P417"
A = "Pentium IV 1.7 Giga Hz"
M = "4200000"
Case "P419"
A = "Pentium IV 1.9 Giga Hz "
M = "5500000"
End Select
txtjk = A
txths = M
txtjj.SetFocus
End Sub
Private Sub cmdproses_Click()
txthp = Val(txtjj) * Val(txths)
If txthp >= 30000000 Then
txtdis = 0.15 * Val(txthp)
ElseIf txthp >= 25000000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 20000000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 15000000 Then
txtdis = 0.02 * Val(txthp)
End If
txthb = Val(txthp) - Val(txtdis)
End Sub
Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode = "Pilih Kode Komputer"
txtjk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txthb = ""
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
cbokode.AddItem "P205"
cbokode.AddItem "P308"
cbokode.AddItem "P310"
cbokode.AddItem "P415"
cbokode.AddItem "P417"
cbokode.AddItem "P419"
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU LAKSANAKAN UPACARA HARI PAHLAWAN

-
Gambar
PRINGSEWU  – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu laksanakan upacara dalam rangka memperingati Hari Pahwalan yang bertepatan pada hari Jumat 10 November 2017. Upacara yang diikuti oleh Wakil Ketua I Elisabet Y. A, M.T.I, Wakil Ketua II Kasmi, M.M., Wakil Ketua III  Nur Aminudin, M.T.I , Ketua LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I, Kepala Career Center Miswan Gumantri, MBA, dosen, staf dan mahasiswa STMIK Pringsewu tersebut dilaksanakan di halaman Kampus setempat. Wakil Ketua III STMIK Pringsewu  Nur Aminudin, M.T.I bertindak sebagai inspektur upacara menyampaikan sejumlah hal terkait dengan peringatan Hari Pahlawan dan Komandan upacara Resimen Mahasiswa STMIK Pringsewu (Ahmad Yudi). Upacara peringatan Hari Pahlawan yang dimulai pukul 08.00 WIB dengan urutan upacara bendera sebagai berikut : a. Penghormatan umum kepada Inspektur Upacara dipimpin Oleh Komandan U
Baca selengkapnya

IGNITION ROAD TO CAMPUS

-
Gambar
STMIK PRINGSEWU  – Acara “ Ignition Road To Campus ” kerjasama Krakatau Digital Movement dengan Badan Ekonomi Kreatif (BEKRAF). Kegiatan tersebut bertujuan untuk membangun kesadaran peserta tentang ekonomi kreatif dan starup digital dalam upaya menyelesaikan problem bangsa dan daerah serta mendorong pertumbuhan ekonomi negara. Kegiatan tersebut dibuka Wakil Ketua III STMIK Pringsewu  Nur Aminudin, M.T.I , Sabtu (18/11). Acara “ Ignition Road To Campus  berlangsung di Aula STMIK PRINGSEWU dihadiri Wakil Ketua I  Elisabet YA, M.T.I , Wakil Ketua III  Nur Aminudin, M.T.I , Ketua LPPM  M. Muslihudin, M.T.I , Kaprodi Sistem Informasi  Tri Susilowati, M.T.I , Kaprodi Manajemen Informatika  Oktafianto, M.T.I , Bapak/Ibu Dosen serta mahasiswa/i STMIK Pringsewu. Dalam sambutannya  Nur Aminudin mengatakan, perkembangan teknologi di Indonesia menjadi perhatian penting dalam pemerintahan saat ini. Pentingnya pengembangan teknologi mengantarkan masyarakat Indonesia untuk melek teknologi. P
Baca selengkapnya

Tugas BP1 (Program C)

-
Gambar
Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtp = "" txttahun = "" txtpenerbit = "" txthg = "" End Sub Private Sub cmdproses_Click() Dim X As String txttahun = "20" & Right(txtkb, 2) X = Mid(txtkb, 3, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtp = "Andra Setiawan" txthg = "75900" ElseIf X = "EDP" Then txtjb = "Electronic Data Processing" txtp = "Desi Istiqomah" txthg = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtp = "Sandy Fitrajaya" txthg = "42000" ElseIf X = "CDR" Then txtjb = "Corel Draw" txtp = "Tri Indah Sari" txthg = "53000" ElseIf X = "RPL" Then txtjb = "Rekayasa Perangkat Lunak" txtp = "Ernita Sari" txthg = "83000&
Baca selengkapnya