Buatlah program untuk mencari total pembayaran tv
PENJUALAN TV. SONY
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga =  Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

 listing viewnya :

Public Class Form1

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nama.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        dis.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Items.Add("TV Sony 14 Inch")
        nama.Items.Add("TV Sony 21 Inch")
        nama.Items.Add("TV Sony 32 Inch")
        nama.Items.Add("TV Sony 40 Inch")
        nama.Items.Add("TV Sony 80 Inch")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        Select Case nama.Text
            Case "TV Sony 14 Inch"
                harga.Text = "1200000"
            Case "TV Sony 21 Inch"
                harga.Text = "2300000"
            Case "TV Sony 32 Inch"
                harga.Text = "3300000"
            Case "TV Sony 40 Inch"
                harga.Text = "5000000"
            Case "TV Sony 80 Inch"
                harga.Text = "10000000"

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = harga.Text * jumlah.Text
    End Sub
End Class

program vb

Buatlah program untuk mencari total pembayaran Handpond
hanpond SAMSUNG
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga =  Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

 listing viewnya :

Public Class Form1

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        nama.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        dis.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Items.Add("hp samsung GT-s5360")
        nama.Items.Add("hp samsung SGH-370")
        nama.Items.Add("hp samsung S50")
        nama.Items.Add("hp samsung 772")
        nama.Items.Add("hp samsung G55")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        Select Case nama.Text
            Case"hp samsung GT-s5360"
                harga.Text = "1200000"
            Case "hp samsung SGH-370"
                harga.Text = "2300000"
            Case "hp samsung S50"
                harga.Text = "3300000"
            Case "hp samsung 772"
                harga.Text = "5000000"
            Case "hp samsung G55"
                harga.Text = "10000000"

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = harga.Text * jumlah.Text
    End Sub
End Class
mesran.net

Latihan Listview Perhitungan Penjualan Barang

Ketentuan :
-    Kode barang menentukan nama barang dan merk
-    2 digit karakter dari sebelah kiri menentukan merk barang.
-    3 digit karakter dari sebelah kanan adalah menentukan nama barang.
-    Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
-    Total Harga = Harga * Jumlah Beli

Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :

Kode Barang	001	002
TS	105000	75000
VG	90000	60000

NB : Agar tampilan program diatas lebih keren bisa anda memasukkan image ke button pada vb net.

Created By : Tutorial Program VB Net
mesran.net

^_^

Di saat cinta itu mulai timbul dalam hati kecil mengapa yg d cintai mulai taq menghirau kan cinta itu lgi dan d saat tu pula timbul rasa kecewa yg mendalam..

 

Kini cinta yg d bina dengan ksih syang yg tulus pergi begitu saya tanpa meninggalkan bekas kebahgian melaikan kepedihan yg mendalam..

         Harapan demi harapan yg di inginkan mulai sirna berlahan demi berlahan,Apakah sebuah harapan hanya sekedar omong kosong sja ..!

Kini smua hrpan yg d tanamkan dalam hati kecil telah hancur taq ada lgi yg tertinggal dan kini hanya khayalan yg taq berguna ...!