'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
Tidak ada komentar:
Posting Komentar