Contoh Project Visual Basic 2010 Membuat Data dari Penjualan Mobil

membuat tabel Penjualan mobil dengan menggunakan array multi dimensi Tidak menggunakan menu utama.

• Form project

 

 

• Atur Propertis form sesuai dengan data berikut ;

• Coding project

Public Class FrmLat_16

    Dim tipe(100) As String

    Dim banyak(100) As Integer

    Dim hargasat(100), jumlah(100), Total As Double

    Dim nomor = 0

    'Badan fungsi/misalkan pembuatan pentol"pentol = daging*tepung

    Private Function jumlahjual(ByVal byk As Integer, ByVal hrg As Double) As Double

        jumlahjual = byk * hrg

        'pengiriman pentol

        Return jumlahjual

    End Function

    Private Function Totaljual(ByVal banyaktrx As Integer) As Double

        Dim ulang As Integer

        Totaljual = 0

        For ulang = 0 To banyaktrx

            Totaljual = Totaljual + jumlah(ulang)

        Next

        Return Totaljual

    End Function

    Sub aturlvtransaksi()

        Lvtransaksi.View = View.Details

        Lvtransaksi.FullRowSelect = True

        Lvtransaksi.GridLines = True

        Lvtransaksi.Columns.Add("No.", 35, HorizontalAlignment.Center)

        Lvtransaksi.Columns.Add("Tipe Kendaraan", 250, HorizontalAlignment.Center)

        Lvtransaksi.Columns.Add("harga @", 120, HorizontalAlignment.Center)

        Lvtransaksi.Columns.Add("Banyak", 60, HorizontalAlignment.Center)

        Lvtransaksi.Columns.Add("Jumlah", 160, HorizontalAlignment.Center)

    End Sub

    Sub isitransaksi()

        Dim isi As New ListViewItem

        hargasat(nomor) = Val(Me.Txtharga.Text)

        banyak(nomor) = Val(Me.txtbanyak.Text)

        'proses pemngilan fugsi jumlahjual/pemakan pentol dengan syarat bhannya sama

        jumlah(nomor) = jumlahjual(banyak(nomor), hargasat(nomor))

        isi.Text = nomor + 1.ToString

        isi.subitems.add(Me.Txttipe.Text)

        isi.subItems.add(Me.Txtharga.Text)

        isi.subitems.add(Me.txtbanyak.Text)

        isi.SubItems.Add(jumlah(nomor).ToString)

        Lvtransaksi.Items.Add(isi)

        nomor += 1

    End Sub

    Sub baru()

        Me.Txttipe.Clear()

        Me.Txtharga.Clear()

        Me.txtbanyak.Clear()

        Me.Txttipe.Focus()

        Me.Btambah.Enabled = False

    End Sub

    Private Sub Btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btambah.Click

        Call isitransaksi()

        Total = Totaljual(nomor)

        Me.Txttotal.Text = Total.ToString

        Call baru()

    End Sub

    Private Sub txtbanyak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbanyak.TextChanged

        Me.Btambah.Enabled = True

    End Sub

    Private Sub FrmLat_16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call aturlvtransaksi()

    End Sub

 

End Class