vb

Gambar

ENTRI PENJUALAN LAPTOP APPLE
  • Kode untuk Cmd Proses
Private Sub cmdproses_Click()
Dim penjualan, discount, kode, merk, bayar, a, b As String
Dim harga As Variant
kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965” Then
merk = “Apple MacBook Air MC965”
harga = “12800000”
ElseIf kode = “MC966” Then
merk = “Apple MacBook Air MC966”
harga = “15800000”
ElseIf kode = “MC968” Then
merk = “Apple MacBook Air MC968”
harga = “9900000”
ElseIf kode = “MC969” Then
merk = “Apple MacBook Air MC969”
harga = “11900000”
ElseIf kode = “MC700” Then
merk = “Apple MacBook Air MC700”
harga = “10800000”
ElseIf kode = “MC721” Then
merk = “Apple MacBook Air MC721?”
harga = “15900000”
ElseIf kode = “MC723” Then
merk = “Apple MacBook Air MC723?”
harga = “19300000”
ElseIf kode = “MC724” Then
merk = “Apple MacBook Air MC724?”
harga = “13700000”
ElseIf kode = “MC311” Then
merk = “Apple MacBook Air MC311”
harga = “24200000”
ElseIf kode = “MC313” Then
merk = “Apple MacBook Air MC313”
harga = “11900000”
ElseIf kode = “MC314” Then
merk = “Apple MacBook Air MC314”
harga = “14700000”
ElseIf kode = “MC318” Then
merk = “Apple MacBook Air MC318”
harga = “17600000”
ElseIf kode = “MC322” Then
merk = “Apple MacBook Air MC322”
harga = “21300000”
ElseIf kode = “MC965” Then
merk = “Apple MacBook Air MC965”
harga = “12800000”
ElseIf kode = “MC966” Then
merk = “Apple MacBook Air MC966”
harga = “15800000”
End If
txtmerk.Text = merk
txths.Text = harga
a = Val(txtjj.Text)
b = Val(txths.Text)
penjualan = a * b
txthp.Text = penjualan
Select Case txthp.Text
Case Is > 140000000
discount = 0.15 * penjualan
Case Is > 135000000
discount = 0.1 * penjualan
Case Is > 130000000
discount = 0.05 * penjualan
Case Is > 125000000
discount = 0.02 * penjualan
End Select
penjualan = Val(txthp.Text)
txtdis.Text = discount
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub
  • Kode untuk Cmd Lagi
Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txtdis.Text = “”
txttb.Text = “”
txthp.Text = “”
End Sub

  • Kode untuk Cmd Keluar
Private Sub cmdkeluar_Click()
End
End Sub
  • Kode untuk Form Load
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

Konversi Bilangan desimal Konversi bilangan adalah suatu proses dimana satu system bilangan dengan basis tertentu akan dijadikan bilangan dengan basis yang lain. 1. Konversi dari bilangan Desimal ke biner. Yaitu dengan cara membagi bilangan desimal dengan dua kemudian diambil sisa pembagiannya. 2. Konversi bilangan Desimal ke Oktal Yaitu dengan cara membagi bilangan desimal dengan 8 kemudian diambil sisa pembagiannya 3. Konversi bilangan Desimal ke Hexadesimal Yaitu dengan cara membagi bilangan desimal dengan 16 kemudian diambil sisa pembagiannya

Gambar
Konversi Bilangan desimal Konversi bilangan adalah suatu proses dimana satu system bilangan dengan basis  tertentu akan dijadikan  bilangan dengan basis yang lain. 1.    Konversi dari bilangan  Desimal ke biner. Yaitu dengan cara membagi bilangan desimal dengan dua kemudian diambil sisa pembagiannya.   2. Konversi bilangan Desimal ke Oktal Yaitu dengan cara membagi bilangan desimal dengan 8 kemudian diambil sisa pembagiannya 3. Konversi bilangan Desimal ke Hexadesimal Yaitu dengan cara membagi bilangan desimal dengan 16 kemudian diambil sisa pembagiannya
Baca selengkapnya

Contoh Proposal Penelitian

Contoh Proposal Penelitian A. HALAMAN JUDUL Halaman judul  memuat : judul, jenis laporan, lambang Perguruan Tinggi, nama dan NIM, nama jurusan, nama program studi, nama perguruan tinggi dan tahun pengajuan. Judul Usulan Penelitian : Judul hendaknya dibuat singkat dan jelas, menggambarkan konsep dan topik dari penelitian dan menggambarkan adanya keterkaitan antara variable, lokasi penelitian dan tahun penelitian. Diketik dengan menggunakan huruf kapital, tidak boleh disingkat dan format ketikan dalam bentuk piramida terbalik ( V ). Jenis Laporan : Jenis laporan adalah usulan penelitian. Lambang Institusi Perguruan Tinggi Nama mahasiswa dan NIM Nama Jurusan Nama Program Studi Nama Perguruan Tinggi Tahun Pengajuan : Tahun pengajuan adalah tahun dimana usulan penelitian tersebut diajukan B.   HALAMAN PERSETUJUAN Halaman persetujuan  memuat : judul usulan penelitian, persetujuan dosen pembimbing beserta tanda tangan dan waktu persetujuan ...
Baca selengkapnya

Manfaat Pete Atau Petai

Gambar
Ada yang suka sama petai? Petai atau pete biasa dinikmati sebagai lalapan, sambal, atau pelengkap masakan, karena ra sanya memang enak. Sayangnya, dibalik rasanya yang nikmat, pete memiliki bau khas yang membuat sebagian orang menghindarinya. Bagaimana tidak, mengonsumsi pete tidak hanya membuat nafas jadi bau, tapi bau kencing juga jauh lebih menyengat. Meskipun pete dianggap tidak terlalu penting bagi sebagian orang, namun didalamnya terdapat banyak manfaat untuk kesehatan. Nah, agar Anda tidak meremehkan pete, simak beberapa manfaatnya untuk kesehatan berikut ini : Kandungan Gizi Pete Jangan remehkan pete, karena didalamnya mengandung banyak gizi, antara lain : protein, karbohidrat, forfor, vitamin A, Vitamin C, serat, zat besi, kalium, dan gula alami (sukrosa, fruktosa dan glukosa) Manfaat Petai bagi Kesehatan Dari beragam kandungan gizi didalam pete, tentulah menyimpan manfaat yang luar biasa untuk kesehatan, diantaranya : Mengatasi depresi Kandungan tryptopan ...
Baca selengkapnya