Selasa, 28 Mei 2013

VISUAL BASIC (Data Penjualan Komputer)


VISUAL BASIC  (Data Penjualan Komputer)

                Nah,,,,! Buat teman Semua Yang Mau Belajar Visual Basic  Menggunakan Data Penjualan Komputer Sekarang  Saya  Ada Nii…!!!
Untuk Mengetahui Lebih Lanjut Silahkan Ketikkan Saja Program Berikut Di Visual Basic Anda Dan Lihat hasilnya… 

Private Sub CmdClose_Click()
    Unload Me
End Sub

Private Sub CmdHitungLagi_Click()
    kode.Text = ""
    jenis.Text = ""
    harga_S.Text = ""
    jumlah.Text = ""
    harga_P.Text = ""
    dis.Text = ""
    harga_B.Text = ""
End Sub

Private Sub CmdProses_Click()
    harga_P = jumlah * harga_S
    If harga_P.Text > 20000000 Then
    dis.Text = 0.5 * harga_P
    ElseIf harga_P.Text > 18000000 Then
    dis.Text = 0.35 * harga_P
    ElseIf harga_P.Text > 14000000 Then
    dis.Text = 0.2 * harga_P
    ElseIf harga_P.Text > 10000000 Then
    dis.Text = 0.15 * harga_P
    Else: dis = 0
    End If
        harga_B = harga_P - dis
       
End Sub

Private Sub Form_Load()
    kode.AddItem "P205"
    kode.AddItem "P308"
    kode.AddItem "P310"
    kode.AddItem "P415"
    kode.AddItem "P417"
    Call CmdHitungLagi_Click
   
End Sub

Private Sub kode_Click()
    Select Case kode.Text
        Case "P205"
        jenis.Text = "Pentium II 500 Mega Hz"
        harga_S.Text = "3500000"
        Case "P308"
        jenis.Text = "Pentium III 800 Mega Hz"
        harga_S.Text = "4100000"
        Case "P310"
        jenis.Text = "Pentium IV 1.0 Giga Hz"
        harga_S.Text = "4500000"
        Case "P415"
        jenis.Text = "Pentium IV 1.5 Giga Hz"
        harga_S.Text = "5900000"
        Case "P417"
        jenis.Text = "Pentium IV 1.7 Mega Hz"
        harga_S.Text = "7000000"
        Case "P419"
        jenis.Text = "Pentium IV 1.9 Giga Hz"
        harga_S.Text = "7500000"
        End Select
        jumlah.SetFocus
End Sub

Untuk Hasil Akhir Mungkin Tidak Jauh Beda Dengan Yang Di bawakh Ini, tapi saya Sudah Menambah beberapa Icon Seperti Background dan lain-lain,Itu semua tergantaung selera masing-masing,

SELAMAT MENCOBA…




Terkait

Description: VISUAL BASIC (Data Penjualan Komputer) Rating: 4.5 Reviewer: annajmin zega ItemReviewed: VISUAL BASIC (Data Penjualan Komputer)
Al
Mbah Qopet Updated at: 5/28/2013 09:44:00 PM

0 komentar :

Poskan Komentar