Source Code Aplikasi Entri Data Penjualan Laptop - Hallo sahabat Tutorial, Pada sharing Tutorial kali ini yang berjudul Source Code Aplikasi Entri Data Penjualan Laptop, saya telah menyediakan Kumpulan Tutorial lengkap dari awal sampai akhir. mudah-mudahan isi postingan Tutorial yang saya tulis ini dapat anda pahami. okelah, ini dia Tutornya.

Judul : Source Code Aplikasi Entri Data Penjualan Laptop

Source Code Aplikasi Entri Data Penjualan Laptop

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini

Private Sub CboKode_Click()
    Dim Merk, Harga, Kode As Variant
   
    Kode = Mid(CboKode.Text, 7, 5)
    Select Case Kode
    Case "MC965"
        Merk = "Apple MC965 MacBook Air"
        Harga = 12800000
    Case "MC966"
        Merk = "Apple MC966 MacBook Air"
        Harga = 15800000
    Case "MC968"
        Merk = "Apple MC968 MacBook Air"
        Harga = 9900000
    Case "MC969"
        Merk = "Apple MC969 MacBook Air"
        Harga = 11900000
    Case "MC700"
        Merk = "Apple MC700 MacBook Pro"
        Harga = 10800000
    Case "MC721"
        Merk = "Apple MC721 MacBook Pro"
        Harga = 15900000
    Case "MC723"
        Merk = "Apple MC723 MacBook Pro"
        Harga = 19300000
    Case "MC724"
        Merk = "Apple MC724 MacBook Pro"
        Harga = 13700000
    Case "MC311"
        Merk = "Apple MC311 MacBook Pro"
        Harga = 24200000
    Case "MC313"
        Merk = "Apple MC313 MacBook Pro"
        Harga = 11900000
    Case "MC314"
        Merk = "Apple MC314 MacBook Pro"
        Harga = 14700000
    Case "MC318"
        Merk = "Apple MC318 MacBook Pro"
        Harga = 17600000
    Case "MC322"
        Merk = "Apple MC322 MacBook Pro"
        Harga = 21300000
    End Select
    TxtMerk = Merk
    TxtHarga = Harga
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    CboKode.SetFocus
    CboKode.Text = "Pilih Kode Laptop"
    TxtMerk.Text = ""
    TxtHarga.Text = ""
    TxtJual.Text = ""
    TxtHargaJual.Text = ""
    TxtDiskon.Text = ""
    TxtTotal.Text = ""
End Sub

Private Sub CmdProses_Click()
    Dim HS, Jual, Jumlah, Diskon, Total As Variant
    HS = Val(TxtHarga)
    Jual = Val(TxtJual)
    Jumlah = HS * Jual
    TxtHargaJual = Jumlah
   
    Select Case Jumlah
        Case Is > 140000000
            Diskon = Jumlah * 0.15
        Case Is > 135000000
            Diskon = Jumlah * 0.1
        Case Is > 130000000
            Diskon = Jumlah * 0.05
        Case Is > 125000000
            Diskon = Jumlah * 0.02
        Case Is <= 125000000
            Diskon = Jumlah * 0
    End Select
    TxtDiskon = Diskon
   
    Total = Jumlah - Diskon
    TxtTotal = Total
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 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

Demikianlah Artikel Source Code Aplikasi Entri Data Penjualan Laptop

Sekian Tutorial Source Code Aplikasi Entri Data Penjualan Laptop, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sekian postingan Tutorial kali ini.

Anda sedang membaca artikel Source Code Aplikasi Entri Data Penjualan Laptop dan artikel ini url permalinknya adalah https://tutoria-satu.blogspot.com/2015/12/source-code-aplikasi-entri-data.html Semoga artikel ini bisa bermanfaat.

Tweet

Sign up here with your email address to receive updates from this blog in your inbox.