Aplikasi Tabel Dengan Array Multidemensi Visual Basic 2010

• Form Design 

 

• Code

 Public Class Latihan_16
    Dim Tipe(100) As String
    Dim Banyak(100) As Integer
    Dim HargaSatuan(100), Jumlah(100), total As Double
    Dim Nomor = 0
    'badan fungsi
    Private Function JumlahJual(ByVal Bnyk As Integer, ByVal Hrg As Double) As Double
        JumlahJual = Bnyk * Hrg
        Return JumlahJual
    End Function

    Private Function TotalJual(ByVal BnykTrx As Integer) As Double
        Dim i As Integer
        TotalJual = 0
        For i = 0 To BnykTrx
            TotalJual = TotalJual + Jumlah(i)
        Next
        Return (TotalJual)
    End Function

    Sub AturLVTransaksi()
        ListView_Transaksi.View = View.Details
        ListView_Transaksi.FullRowSelect = True
        ListView_Transaksi.GridLines = True

        ListView_Transaksi.Columns.Add("No.", 40, HorizontalAlignment.Center)
        ListView_Transaksi.Columns.Add("Tipe Kendaraan", 150, HorizontalAlignment.Center)
        ListView_Transaksi.Columns.Add("Harga @", 125, HorizontalAlignment.Center)
        ListView_Transaksi.Columns.Add("Banyak", 75, HorizontalAlignment.Center)
        ListView_Transaksi.Columns.Add("Jumlah", 160, HorizontalAlignment.Center)

        'ListView_Transaksi.Columns(0).Width = "No"
        'ListView_Transaksi.Columns(1).Width = "Tipe Kendaraan"
        'ListView_Transaksi.Columns(2).Width = "Harga @"
        'ListView_Transaksi.Columns(3).Width = "Banyak"
        'ListView_Transaksi.Columns(4).Width = "Jumlah"
    End Sub
    Sub IsiLVTransaksi()
        Dim isi As New ListViewItem


        HargaSatuan(Nomor) = Val(Me.txt_HargaSatuan.Text)
        Banyak(Nomor) = Val(Me.txt_Banyak.Text)

        'Proses Pemanggilan Fungsi JumlahJual
        Jumlah(Nomor) = JumlahJual(Banyak(Nomor), HargaSatuan(Nomor))

        isi.Text = Nomor + 1.ToString
        isi.SubItems.Add(Me.txt_TipeMobil.Text)
        isi.SubItems.Add(Me.txt_HargaSatuan.Text)
        isi.SubItems.Add(Me.txt_Banyak.Text)
        isi.SubItems.Add(Jumlah(Nomor).ToString)
        ListView_Transaksi.Items.Add(isi)

        Nomor += 1
    End Sub
    Sub baru()
        Me.txt_TipeMobil.Clear()
        Me.txt_HargaSatuan.Clear()
        Me.txt_Banyak.Clear()
        Me.txt_TipeMobil.Focus()
        Me.Button_TambahData.Enabled = False
    End Sub


 

    Private Sub Button_TambahData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_TambahData.Click
        Call IsiLVTransaksi()
        total = TotalJual(Nomor)
        Me.txtTotal.Text = total.ToString
        Call baru()

    End Sub

    Private Sub Latihan_16_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call AturLVTransaksi()
    End Sub

    Private Sub txt_Banyak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Banyak.TextChanged
        Me.Button_TambahData.Enabled = True
    End Sub

• Start Debugging