entri penjualan laptop apple



Private Sub cbokode_Click()
Dim mt, hs As String
Select Case Mid(cbokode, 7, 5)
Case "MC965"
mt = "Apple MC965 Macbook Air"
hs = "12800000"
Case "MC966"
mt = "Apple MC966 Macbook Air"
hs = "15800000"
Case "MC968"
mt = "Apple MC968 Macbook Air"
hs = "9900000"
Case "MC969"
mt = "Apple MC969 Macbook Air"
hs = "11900000"
Case "MC700"
mt = "Apple MC700 Macbook Air"
hs = "10800000"
Case "MC721"
mt = "Apple MC721 Macbook Air"
hs = "15900000"
Case "MC723"
mt = "Apple MC723 Macbook Air"
hs = "19300000"
Case "MC724"
mt = "Apple MC724 Macbook Air"
hs = "13700000"
Case "MC7311"
mt = "Apple MC7311 Macbook Air"
hs = "24200000"
Case "MC313"
mt = "Apple MC313 Macbook Air"
hs = "11900000"
Case "MC314"
mt = "Apple MC314 Macbook Air"
hs = "14700000"
Case "MC318"
mt = "Apple MC318 Macbook Air"
hs = "17600000"
Case "MC322"
mt = "Apple MC322 Macbook Air"
hs = "21300000"
Case "MC965"
mt = "Apple MC965 Macbook Air"
hs = "12800000"
Case "MC966"
mt = "Apple MC966 Macbook Air"
hs = "15800000"
End Select
txtmerk = mt
txths = hs
txtjj.SetFocus

End Sub

Private Sub cmdhitung_Click()
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = "'"
txthp.Text = ""
txtdis.Text = ""
txttb.Text = ""

End Sub



Private Sub cmdkeluar_Click()
Unload Me

End Sub




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

txttb.Text = Val(txthp.Text) - Val(txtdis.Text)
End Sub

Private Sub Form_Load()
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 Air"
cbokode.AddItem "Apple MC721 Macbook Air"
cbokode.AddItem "Apple MC723 Macbook Air"
cbokode.AddItem "Apple MC311 Macbook Air"
cbokode.AddItem "Apple MC313 Macbook Air"
cbokode.AddItem "Apple MC318 Macbook Air"
cbokode.AddItem "Apple MC322 Macbook Air"
cbokode.AddItem "Apple MC965 Macbook Air"
cbokode.AddItem "Apple MC66 Macbook Air"

End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

Gambar
PRINGSEWU  –  STMIK Pringsewu  mengirimkan 8 mahasiswa dalam ajang pemilihan muli mekhanai tahun 2016 yang diselenggarakan oleh Dinas Pendidikan Kebudayaan dan Pariwisata (Disdikbudpar) Pringsewu pada tanggal 16 s/d 19 Maret 2015. 8 Mahasisiwa STMIK Pringsewu yang akan mengikuti ajang pemilihan muli mekhanai tahun 2016 sebagai berikut : Sebanyak 12 pasang finalis berhasil lulus terpilih dalam mengikuti seleksi pemilihan muli mekhanai 2016 yang digelar Dinas Pendidikan, Kebudayaan dan Pariwisata (Disdikbudpar) Kabupaten Pringsewu di Aula Kampus STMIK Pringsewu, Rabu (16/3) kemarin. Dari 12 Pasang finali muli mekhanai 2016,  LING LING SAPUTRI – NPM. 15201048 Mahasiswi   STMIK Pringsewu  semester 2,  mohon do’a dan dukungannya, Insya’Allah berjalan lancar dan sukses untuk mengikuti babak selanjutnya. Amin yra Pemilihan muli mekhanai 2016 yang dibuka langsung oleh Kepala Disdikbudpar Kabupaten Pringsewu, Heri Iswayudi ditandai secara simbolis dengan penyematan nomor peserta dan
Baca selengkapnya

STMIK PRINGSEWU GELAR POSDIKTI 2017 GELOMBANG 1

Gambar
Jum’at, (11/8) merupakan hari bersejarah bagi semua calon mahasiswa baru, karena hari ini merupakan hari dimulainya acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 untuk STMIK Pringsewu yang ada di Yayasan Pendidikan Startech. Tepat pada pukul 08.00 WIB dimulainya upacara pembukaan POSDIKTI. Calon mahasiswa-mahasiswi  STMIK Pringsewu  mengikuti acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 di kampus Jalan Wisma Rini No. 09 Pringsewu. Acara Program Orientasi Studi Pendidikan Tinggi (POSDIKTI) 2017 gelombang 1 dibuka oleh Wakil Ketua III Bidang Kemahasiswaan,  Nur Aminudin, M.T.I  mewakili Ketua  STMIK Pringsewu , Hj. Rita Irviani, M.M. alam sambutannya  Nur Aminudin  mengatakan, POSDIKTI STMIK Pringsewu merupakan kelengkapan non-struktural pada kampus, posdikti berfungsi sebagai orientasi bagi mahasiswa baru untuk memasuki dunia perguruan tinggi yang berbeda dengan belajar di sekolah lanjutan, Mahasiswa baru dapat berkomu
Baca selengkapnya

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)

Gambar
STMIK PRINGSEWU  – Jum’at, 30 Oktober 2015, Ketua Yayasan Lembaga Pendidikan Startech Pringsewu Lampung, H. Fauzi, S.E., M.Kom., Akt., CA., membuka Pra Pendidikan Dasar Militer (Pradiksarmil) Resimen Mahasiswa (Menwa) Batalyon 208 Pringsewu angkatan XXXVI di halaman kampus Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Dalam laporannya, Komandan Satuan Pendidikan Safrizal Ramadhan mengatakan, dasar pelaksanaan pembentukan Resimen Mahasiswa ini, Surat Keputusan Bersama (SKB) Empat Menteri. Empat kementerian yang mengeluarkan SKB itu, yakni Menteri Pertahanan, Menteri Dalam Negeri, Menteri Riset Teknologi dan Dikti, Menteri Pemuda dan Olah Raga nomor : KB/11/XII/2014, 421.73/6660A/SJ, 6/M/MoU/XII/2014, 1175 Tahun 2014 tanggal 19 Desember 2014 tentang Pembinaan dan Pemberdayaan Resimen Mahasiswa Indonesia dalam Bela Negara. Pra Pendidikan Dasar Militer (Pradiksarmil) Resimen Mahasiswa (Menwa) Batalyon 208 Pringsewu angkatan XXXVI ini akan berlangsung selama 3
Baca selengkapnya