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 PENGOLAHAN DATA STATISTIK MENGGUNAKAN PROGRAM SPSS

Pringsewu, Senin (19/3).- STMIK Pringsewu kembali mengadakan seminar, kali ini bertajuk “Pengolahan Data Statistik Menggunakan Program SPSS”. Seminar ini merupakan yang terakhir dari rangkaian seminar dalam rangka peringatan HUT Kabupaten Pringsewu yang kesembilan. Seminar ini menghadirkan narasumber dosen STMIK Pringsewu, Budi Usmanto, S.Si., M.TI. dan Bernadhita Herindri Samodera Utami, S.Si., M.Sc. Seminar dimulai pada pukul 09.00 WIB yang dibuka secara resmi oleh Nur Aminudin, M.T.I selaku Wakil Ketua III STMIK Pringsewu mewakili Ketua STMIK Pringsewu Hj. Rita Irviani, M.M. Dalam sambutannya, Nur demikian disapa menyampaikan bahwa statistika dibutuhkan dalam pengambilan kebijakan bagi pihak-pihak berkepentingan. “Dengan demikian statistika sebagai ilmu penting untuk dipelajari dan diharapkan seminar ini menambah pengetahuan bagi mahasiswa-mahasiswi STMIK Pringsewu”,  Seminar yang diikuti oleh 160 mahasiswa STMIK Pringsewu mendapat antusiasme dari peserta. Materi terbagi me...
Posting Komentar
Baca selengkapnya

Macam-macam hacker

A. Grey Hat Hacker Jenis hacker ini merupakan jenis hacker yang sifatnya berada di antara white hat hacker dan black hat hacker. Hacker yang satu ini tidak memiliki ketetapan dalam memegang prinsipnya. Oleh sebab itu, jenis hacker yang satu ini biasanya memegang standar etika yang sifatnya ganda pada setiap kegiatan hacking-nya. Jadi, bisa dalam beberapa saat hacker ini memegang teguh prinsip hacker namun pada keadaan yang lain hacker yang satu ini dapat melanggar batas-batas hukum yang telah ditetapkan. B. Script Kiddie Hacker Hacker ini merupakan jenis hacker yang tidak begitu menguasai mengenai sistem komputer. Namun bukan berarti hacker ini tidak dapat menembus suatu sistem komputer, hacker jenis ini masih dapat menembus sistem komputer dengan cara memanfaat software buatan orang lain. C. Hacktivist Hacker Kemampuan jenis hacker ini digunaka untuk menebar pesan-pesan yang sifatnya bersinggungan dengan politik, ideology beserta agama. Biasanya jenis hacker ini melak...
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU SELENGGARAKAN LOMBA DA’I

STMIK PRINGSEWU  – Badan Eksekutif Mahasiswa Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu, Ahad (22/4) mengelar lomba dai cilik dan remaja yang dilaksanakan di halaman kampus setempat. Lomba tersebut dibuka Wakil Ketua III Bidang Kemahasiswaan Nur Aminudin. Dalam sambutannya Nur mengatakan, sangat mengapresiasi kegiatan tersebut, bahwa lomba dai ini untuk meningkatkan peran dai cilik dan remaja dalam siar Agama Islam, meningkatkan ilmu pengetahuan dai cilik dan remaja tentang dakwah, nilai-nilai agama kepada anak-anak dan remaja sejak dini serta memberikan kesempatan kepada anak-anak untuk mengeluarkan ide-ide dan ekspresi mereka. Nur Aminudin menambahkan, dari lomba dai cilik dan remaja ini tentu saja akan melahirkan regenerasi sehingga bisa menggantikan dai-dai yang sudah sepuh, ucapnya. Sementara Presiden Mahasiswa STMIK Pringsewu Prianti mengatakan, lomba dai cilik dan remaja ini diikuti sebanyak 35 peserta, dari 35 peserta akan menampilkan ...
Posting Komentar
Baca selengkapnya