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

Komentar

Postingan populer dari blog ini

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...

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...

China Sudah Sudah Bersiap Gelar Internet 6G

KOMPAS.com - Standardisasi jaringan internet generasi kelima ( 5G) telah rampung pada pertengahan 2018 ini. Implementasinya sendiri diramalkan baru mulai masif tahun depan. Beberapa vendor dan operator telekomunikasi masih dalam proses mematangkan diri mengadopsi teknologi 5G. Namun, China agaknya sudah tak sabar beranjak ke 6G. Saat ini, tim khusus yang menggodok 5G di bawah Kementerian Industri dan Teknologi Informasi China dalam tahap persiapan untuk menghadapi era 6G. Hal ini dikemukakan sang kepala tim, Su Xin. "Penelitian dan pengembangan awal jaringan 6G dimulai 2020," kata dia. Jika semua proses lancar, jaringan 6G ditargetkan mulai komersil pada 2030 mendatang. Menurut Su Xin, kecepatan jaringan internet 6G bisa 10 kali lebih andal ketimbang 5G. Padahal, jaringan 5G saja sudah membawa peradaban baru bagi masyarakat modern dengan memunculkan tren "Internet of Things". Kecepatan rata-ratanya 300 Mbps, tergantung lokasi. Dengan begitu, data 1GB bisa diunduh ...