Tugas 3.3 ENTRI PENJUALAN LAPTOP APPLE


Private Sub cbokode_Click()
Dim Penjualan, discount, kode, merk, bayar As String
Dim Harga As Variant
merk = Mid(cbokode.Text, 7, 5)
If merk = "MC965" Then
txtmerk = "Apple MacBook Air MC965?"
Harga = "12800000"
ElseIf merk = "MC966" Then
txtmerk = "Apple MacBook Air MC966?"
Harga = "15800000"
ElseIf merk = "MC968" Then
txtmerk = "Apple MacBook Air MC968"
Harga = "9900000"
ElseIf merk = "MC969" Then
txtmerk = "Apple MacBook Air MC969?"
Harga = "11900000?"
ElseIf merk = "MC700" Then
txtmerk = "Apple MacBook Air MC700"
Harga = "10800000"
ElseIf merk = "MC721" Then
txtmerk = "Apple MacBook Air MC721?"
Harga = "15900000?"
ElseIf merk = "MC723" Then
txtmerk = "Apple MacBook Air MC723"
Harga = "19300000"
ElseIf merk = "MC724" Then
txtmerk = "Apple MacBook Air MC724"
Harga = "13700000"
ElseIf merk = "MC311" Then
txtmerk = "Apple MacBook Air MC311"
Harga = "24200000"
ElseIf merk = "MC313" Then
txtmerk = "Apple MacBook Air MC313"
Harga = "11900000"
ElseIf merk = "MC314" Then
txtmerk = "Apple MacBook Air MC314?"
Harga = "14700000"
ElseIf merk = "MC318" Then
txtmerk = "Apple MacBook Air MC318"
Harga = "17600000"
ElseIf merk = "MC322" Then
txtmerk = "Apple MacBook Air MC322"
Harga = "21300000"
ElseIf merk = "MC965" Then
txtmerk = "Apple MacBook Air MC965"
Harga = "12800000"
ElseIf merk = "MC966" Then
txtmerk = "Apple MacBook Air MC966"
Harga = "15800000"
End If
txtmerk.Text = merk
txths.Text = Harga
txtjj.SetFocus

End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = ""
txths.Text = ""
txtdis.Text = ""
txttotal.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 140000000 Then
txtdis.Text = 0.15 * txthp.Text
ElseIf txthp.Text > 135000000 Then
txtdis.Text = 0.1 * txthp.Text
ElseIf txthp.Text > 130000000 Then
txtdis.Text = 0.05 * txthp.Text
ElseIf txthp.Text > 125000000 Then
txtdis.Text = 0.02 * txthp.Text
Else
txtdis.Text = 0
End If
txttotal.Text = Val(txthp.Text) - Val(txtdis.Text)

End Sub

Private Sub Form_Load()
cbokode.AddItem "Apple MC965 MasBook Air"
cbokode.AddItem "Apple MC966 MasBook Air"
cbokode.AddItem "Apple MC968 MasBook Air"
cbokode.AddItem "Apple MC969 MasBook Air"
cbokode.AddItem "Apple MC700 MasBook Pro"
cbokode.AddItem "Apple MC721 MasBook Pro"
cbokode.AddItem "Apple MC723 MasBook Pro"
cbokode.AddItem "Apple MC724 MasBook Pro"
cbokode.AddItem "Apple MC311 MasBook Pro"
cbokode.AddItem "Apple MC313 MasBook Pro"
cbokode.AddItem "Apple MC314 MasBook Pro"
cbokode.AddItem "Apple MC318 MasBook Pro"
cbokode.AddItem "Apple MC322 MasBook Pro"
cbokode.AddItem "Apple MC965 MasBook Air"
cbokode.AddItem "Apple MC966 MasBook Air"

End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Awas!! WhatsApp Palsu Banyak Beredar di PlayStore

Gambar
WhatsApp menjadi salah satu aplikasi kirim pesan instan favorit di dunia. Banyaknya pengguna WhatsApp ini tak hanya membuat platform ini menjadi platform terbaik untuk aplikasi kirim pesan instan. Namun rupanya ada sejumlah pihak yang tidak bertanggung jawab dengan memalsukannya di PlayStore. Bahkan, bukan main-main tampilannya di PlayStore sangat mirip dengan versi aslinya. Tak heran hal tersebut membuat jutaan pengguna tertipu karena memang sangat sulit membedakannya. Meskipun jika kita lebih jeli, kita bisa dengan mudah membedakan yang asli dan palsu. Pasalnya, seperti diketahui pada WhatsApp asli di bagian bawah nama pengembang ada tanda centang yang menandakan bahwa aplikasi tersebut telah diverifikasi. Hal tersebut tidak terjadi pada WhatsApp palsu. Berbeda dengan versi aslinya, WhatsApp palsu ini justru tidak menyediakan fitur chat sama sekali. Di mana, aplikasi tiruan WhatsApp tersebut memang dibuat murni hanya untuk keuntungan si pembuat dengan hanya menampilk
Baca selengkapnya

PELANTIKAN BUPATI DAN WAKIL BUPATI PRINGSEWU 2017

Gambar
PRINGSEWU – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan. sumber : http://stmikpringsewu.ac.id/pelantikan-bupati-dan-wakil-bupati-pringsewu-2017/
Baca selengkapnya

SERAH TERIMA MAHASISWA KKN STMIK & STIT PRINGSEWU

Gambar
STMIK PRINGSEWU – Sehubungan dengan pelaksanaan kegiatan Kuliah Kerja nyata (KKN) STMIK & STIT Pringsewu yang menempati lokasi di 40 pekon di wilayah Kabupaten Pringsewu, Pada hari senin 25 Juli 2016 telah diadakan serah terima mahasiswa Kuliah Kerja Nyata (KKN) STMIK & STIT Pringsewu Tahun Akademik 2015/2016 yang dilaksanakan di Pendopo Pringsewu. Acara tersebut dihadiri oleh Bupati Pringsewu H. Sujadi beserta jajaran SKPD di Kabupaten Pringsewu, Ketua DPRD Pringsewu (Ilyasa), unsur-unsur Muspida, camat, dan kepala pekon, Ketua Yayasan Dr. H. Fauzi, S.E., M.Kom., Akt., CA., adapun perwakilan dari STMIK & STIT Pringsewu yang juga hadir dalam kesempatan tersebut antara lain Ketua STMIK Pringsewu Hj. Rita Irviani, M.M. Ketua STIT Pringsewu Sri Hartati, M.T.I., Ketua Palaksana KKN, Seluruh DPL KKN T.A 2015/2016; serta 423 mahasiswa/i peserta KKN STMIK & STIT Pringsewu. Dalam sambutannya, Ketua pelaksana Kuliah Kerja Nyata (Sudewi, M.M) mengatakan,
Baca selengkapnya