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

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
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU GELAR SARASEHAN KEBANGSAAN

STMIK PRINGSEWU  – Sabtu (28/4), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan sarasehan kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” bertempat di Aula Lt. II Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Sarasehan Kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” menghadirkan narasumber Kombes Pol Yosi Hariyoso (Kepala Biro Operasi Polda Lampung), Ken Setiawan (Mantan Komandan Negara Islam Indonesia) dihadiri Kepala Kesbangpol Pringsewu Sukarman, Wakil Ketua I Bidang Akademik Elisabet Y. A, M.T.I, Wakil Ketua III Bidang Kemahasiswaan Nur Aminudin, M.T.I, Ka. LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I serta bapak ibu dosen STMIK Pringsewu. Sarasehan Kebangsaan dibuka Wakil Ketua III Bidang Kemahasiswaan STMIK Pringsewu,
Posting Komentar
Baca selengkapnya

Kacamata Google Glass 2 Meluncur 2019?

KOMPAS.com - Setelah sempat “mati suri”, kacamata pintar Google Glass akhirnya lahir kembali pada pertengahan 2017 lalu. Bedanya, perangkat tersebut kini ditambahi embel-embel “Enterprise Edition”. Sesuai namanya, Google Glass Enterprise Edition menyasar perusahaan, khususnya para pekerja di industri manufaktur. Ada teknologi Augmented Reality (AR) yang tersemat pada kacamata pintar tersebut untuk menampilkan animasi berisi intruksi manual dan panduan perakitan. Agaknya strategi ini berhasil, sehingga Google kembali menghadirkan Glass Enterprise Edition generasi kedua. Informasinya terendus dari situs sertifikasi FCC, dengan nomor model A4R-GG2. Sekilas, desainnya masih identik dengan generasi pertama. Letak tombolnya masih sama, dengan mekanisme engsel yang membuat perangkat bisa dilipat. Ada tombol daya di bagai belakang, lengkap dengan logo “Glass”. Menurut sumber dalam, peningkatan akan lebih terasa pada pengalaman penggunaan dan spesifikasi. Prosesornya bakal lebih mumpuni, begi
Posting Komentar
Baca selengkapnya