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

Komentar

Postingan populer dari blog ini

PERINGATI HARI KARTINI SELURUH PETUGAS UPACARA STMIK PRINGSEWU ADALAH PEREMPUAN

STMIK PRINGSEWU – Sebagai wujud rasa penghormatan kepada perjuangan pahlawan kita, Ibu Kartini, Sabtu, 21 April 2018 – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan Upacara Bendera Peringatan Hari Kartini ke-139 dihalaman Kampus STMIK Pringsewu. Upacara Hari Kartini di halaman kampus ini dihadiri bapak/ibu dosen dan mahasiswa. Menariknya, dalam upacara ini, seluruh petugasnya adalah perempuan. Bertindak sebagai inspektur upacara Wakil Ketua I Elisabet Yunaeti A, M.T.I. Dalam amanatnya, Elisabet meminta agar momen hari Kartini jadi tonggak kebangkitan para perempuan, perempuan bisa meraih prestasi seperti kaum laki-laki. Jadi, mari kita jadikan momen ini untuk bangkit sekaligus instrospeksi diri, ucapnya. Setelah upacara selesai, akan dilaksanakan lomba membuat nasi goreng antar mahasiswa bertempat di halaman kampus.( *na ) Filed in: BEM , Info Kampus , Umum

Baca selengkapnya

Tren Mode Gelap, Microsoft Malah Siapkan Tema Cerah Windows 10

KOMPAS.com - Jika Google akhir-akhir ini tengah gencar merilis tema gelap untuk aplikasinya, berbeda halnya dengan Microsoft. Raksasa teknologi ini justru menyiapkan sebuah tema cerah dengan warna terang yang dominan untuk sistem operasi Windows 10. Tema cerah atau "light theme" diumumkan Microsoft lewat blog resminya. Tema ini dijanjikan akan hadir pada pembaruan besar Windows 10 berikutnya yakni sekitar bulan April 2019 mendatang. Kendati demikian tema cerah ini sudah dapat dinikmati pengguna lewat Windows Insider. "Sejak kami perkenalkan fitur untuk memilih warna terang dan gelap di Windows 10, kami telah mendengar banyak masukan yang meminta agar dua opsi ini dipisahkan," tulis Microsoft di blog resminya. "Saat Anda memperbarui Windows 10 ke build ini, sistem tidak akan berubah secara otomatis ke tema cerah. Ini karena kami ingin Anda sendiri yang menentukan. Kami meninggalkan pilihan di tangan Anda," imbuh Microsoft. Sesuai dengan namanya, ketika li...

Baca selengkapnya

Ini Konten yang Dikonsumsi Anak-Anak saat Mengakses Internet

JAKARTA - Perkembangan digital sekarang ini mampu membuat masyarakat tidak lepas dari internet, tak terkecuali anak-anak. Belum lama ini Kapersky Lab mengungkapkan laporan terbaru mengenai aktivitas online anak-anak saat liburan. Penelitian tersebut menunjukkan apa saja konten yang ditonton, didengarkan, dan dibeli oleh anak-anak serta penelusuran secara online saat mereka tidak di sekolah. Lengkapnya, laporan ini menunjukkan statistik anonim yang tidak mengungkap nama, mengenai situs web yang dikunjungi menggunakan PC Windows dan Mac, dan aktivitas pencarian pada perangkat PC Windows, Mac, Android dan iOS dari Juni hingga pertengahan Agustus 2018. "Statistik diambil dari produk unggulan Kaspersky Lab yang memiliki fitur aktif modul Parental Control dan Kaspersky Safe Kids, sebuah layanan mandiri yang dipasang untuk perlindungan online anak-anak. Anak-anak lebih cenderung menonton konten video dan mendengarkan musik, daripada menghabiskan waktu di media sosial saat liburan...

Baca selengkapnya

Benyandriansyah

Cari Blog Ini