Contoh Program Visual Basic 2010 : Latihan 16

'Latihan 16 (Tabel Penjualan)

         'Tampilan Form

'Coding

Public Class frmLat_16

    Dim Tipe(100) As String

    Dim Banyak(100) As Integer

    Dim Hargasat(100), jumlah(100), Total, Nomor As Double

    'Badan Fungsi

    Private Function JumlahJual(ByVal Byk As Integer, ByVal Hrg As Double) As Double

        JumlahJual = Byk * Hrg

        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.", 25, HorizontalAlignment.Center)

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

        lvTransaksi.Columns.Add("Harga @", 150, HorizontalAlignment.Center)

        lvTransaksi.Columns.Add("Banyak", 50, HorizontalAlignment.Center)

        lvTransaksi.Columns.Add("Jumlah", 200, HorizontalAlignment.Center)

    End Sub

    Sub IsiLVTransaksi()

        Dim isi As New ListViewItem

        Dim Nomor = 1

        Hargasat(Nomor) = Val(Me.txtHarga.Text)

        Banyak(Nomor) = Val(Me.txtBanyak.Text)

        'Proses pemanggilan fungsi JumlahJual

        jumlah(Nomor) = JumlahJual(Hargasat(Nomor), Banyak(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

    Private Sub frmLat_16_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_16_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub frmLat_16_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Call AturLVTransaksi()

    End Sub

    Private Sub bTambah_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTambah.Click

        Call IsiLVTransaksi()

        Total = TotalJual(Nomor)

        Me.txtTotal.Text = Total.ToString

        Call baru()

    End Sub

    Sub baru()

        Me.txtTipe.Clear()

        Me.txtHarga.Clear()

        Me.txtBanyak.Clear()

        Me.txtTipe.Focus()

        Me.bTambah.Enabled = False

    End Sub

    Private Sub txtBanyak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBanyak.TextChanged

        Me.bTambah.Enabled = True

    End Sub

End Class