Langsung ke konten utama

TUGAS MK BP1 TUGAS 3.1


Private Sub Cbokode_Click()
Dim merk, harga As String

Select Case Cbokode.Text
Case "Apple MC965 MacBook Air"
merk = "Apple MacBook Air MC965"
harga = "12800000"

Case "Apple MC966 MacBook Air"
merk = "Apple MacBook Air MC966"
harga = "15800000"

Case "Apple MC968 MacBook Air"
merk = "Apple MacBook Air MC968"
harga = "9900000"

Case "Apple MC969 MacBook Air"
merk = "Apple MacBook Air MC969"
harga = "11900000"

Case "Apple MC700 MacBook Pro"
merk = "Apple MacBook Pro MC700"
harga = "10800000"

Case "Apple MC721 MacBook Pro"
merk = "Apple MacBook Pro MC721"
harga = "15900000"

Case "Apple MC723 MacBook Pro"
merk = "Apple MacBook Pro MC723"
harga = "19300000"

Case "Apple MC724 MacBook Pro"
merk = "Apple MacBook Pro MC724"
harga = "13700000"

Case "Apple MC311 MacBook Pro"
merk = "Apple MacBook Pro MC311"
harga = "24200000"

Case "Apple MC313 MacBook Pro"
merk = "Apple MacBook Pro MC313"
harga = "11900000"

Case "Apple MC314 MacBook Pro"
merk = "Apple MacBook Pro MC314"
harga = "14700000"

Case "Apple MC318 MacBook Pro"
merk = "Apple MacBook Pro MC318"
harga = "17600000"

Case "Apple MC322 MacBook Pro"
merk = "Apple MacBook Pro MC322"
harga = "21300000"


End Select
Txtmerk.Text = merk
Txths.Text = harga
Txtjj.SetFocus
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttotal = ""
End Sub

Private Sub cmdProses_Click()
Dim dis As String
Txthp = Val(Txtjj) * Val(Txths)

Select Case Txthp.Text
Case Is > 140000000
dis = Val(Txthp) * 0.15
Case Is > 135000000
dis = Val(Txthp) * 0.1
Case Is > 130000000
dis = Val(Txthp) * 0.05
Case Is > 120000000
dis = Val(Txthp) * 0.02
End Select
Txtdis.Text = dis

Txttotal = Val(Txthp) - Val(Txtdis)
End Sub

Private Sub Form_Load()
Txtmerk.Enabled = False
Txths.Enabled = False
Txthp.Enabled = False
Txtdis.Enabled = False
Txttotal.Enabled = False

Cbokode.AddItem "Apple MC965 MacBook Air"
Cbokode.AddItem "Apple MC966 MacBook Air"
Cbokode.AddItem "Apple MC968 MacBook Air"
Cbokode.AddItem "Apple MC969 MacBook Air"
Cbokode.AddItem "Apple MC700 MacBook Pro"
Cbokode.AddItem "Apple MC721 MacBook Pro"
Cbokode.AddItem "Apple MC723 MacBook Pro"
Cbokode.AddItem "Apple MC724 MacBook Pro"
Cbokode.AddItem "Apple MC311 MacBook Pro"
Cbokode.AddItem "Apple MC313 MacBook Pro"
Cbokode.AddItem "Apple MC314 MacBook Pro"
Cbokode.AddItem "Apple MC318 MacBook Pro"
Cbokode.AddItem "Apple MC322 MacBook Pro"

End Sub
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

SEMINAR PENERAPAN ILMU PENGETAHUAN DAN TEKNOLOGI DALAM BIDANG PENDIDIKAN DAN PENELITIAN

STMIK PRINGSEWU  – Rabu (14/3), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan SEMINAR “Seminar Penerapan Ilmu Pengetahuan dan Teknologi dalam Bidang Pendidikan dan Penelitian” yang dihadiri bapak/ibu dosen STMIK Pringsewu dan mahasiswa/i STMIK Pringsewu. Sebagai narasumber STMIK Pringsewu mendatangkan  Dr. Ribhan, S.E., M.Si.  Seminar tersebut merupakan rangkaian kegiatan yang diselenggarakan STMIK Pringsewu dalam rangka HUT Kabupaten Pringsewu ke-9. Seminar Penerapan Ilmu Pengetahuan dan Teknologi dalam Bidang Pendidikan dan Penelitian tersebut dibuka oleh Elisabet Yunaeti A, M.T.I Wakil Ketua I mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M didampingi Bapak/Ibu Dosen dan jajaran Badan Eksekutif Mahasiswa STMIK Pringsewu. Elisabet Yunaeti A, M.T.I Wakil Ketua I mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M dalam pembukaan seminar tersebut mengatakan, seminar ini dimaksudkan untuk berbagi hasil serta berdisku...
Posting Komentar
Baca selengkapnya

Izin Frekuensi 4G Bolt Terancam Dicabut, Ini Alasannya

JAKARTA, KOMPAS.com - Kondisi operator penyedia layanan internet berbasis 4G LTE, Bolt, tengah berada di ujung tanduk. Izin penggunaan frekuensi di spektrum 2,3 GHz yang digunakan Bolt untuk menggelar 4G LTE besutannya terancam dicabut oleh pemerintah. Hal ini dikemukakan secara langsung oleh Menteri Komunikasi dan Informatika (Kominfo), Rudiantara. Menurut Rudiantara, Kominfo telah melakukan evaluasi terkait kinerja dan kewajiban operator broadband di Indonesia secara berkala. Dari hasil evaluasi inilah pemerintah menyatakan akan bertindak tegas pada PT First Media Tbk. dan PT Internux selaku penyelenggara layanan internet Broadband Wireless Access (BWA) bermerek Bolt. Apa alasannya? Dari evaluasi tersebut diketahui kedua pihak memiliki utang Biaya Hak Penggunaan (BHP) frekuensi pada pemerintah yang harus segera dilunasi sebelum tenggal tanggal 17 November 2018. Baca juga: Menkominfo Tegaskan Bakal Cabut Izin Bolt dan Firstmedia 17 November Tunggakan tersebut mencapai angka keseluru...
Posting Komentar
Baca selengkapnya

Online Training, Cara Bijak untuk Meningkatkan Kompetensi Tanpa Harus Beranjak

Liputan6.com, Jakarta  Saat ini banyak organisasi yang ‘melirik’  online training  sebagai  alternative  pembelajaran yang dapat digunakan untuk meningkatkan kompetensi karyawan mereka, hal ini dibuktikan dengan pertumbuhan jumlah pembelajar aktif yang mengikuti  online training  yang kian meningkat. Program  online training  PPM Manajemen saja telah diikuti oleh ribuan pembelajar mandiri yang tidak hanya tersebar di seantero nusantara, bahkan hingga ke Inggris, Yaman, dan Dubai. Pagi itu di ballroom sebuah hotel di bilangan Jakarta Pusat, sederatan meja telah tersusun rapih, satu-persatu peserta pelatihan memasuki ruangan yang telah ditata sedemikian rupa sehingga  diharapkan menumbuhkan rasa nyaman untuk belajar. Folder tebal yang bersisi materi pelatihan pun telah siap di atas meja. Sejurus kemudian seluruh kursi telah terisi. Sebagian besar dari peserta berasal dari luar Jakarta, uniknya walaupun pelatihan tersebut tentang pen...
Posting Komentar
Baca selengkapnya