ANALISIS LISTING PROGRAM PENGHITUNGAN TOTAL BIAYA

Public Class Form1

    Sub harga(ByVal angka As Integer)

        'menunjukkan prosedur dari harga

        Dim hasil As Integer

        'menujukkan tipe data yang digunakan

        hasil = (angka * 10000)

        'menunjukkan perhitungan untuk hasil

        ListBox1.Items.Add("Jika membeli" & " " & angka & " " & "barang maka" & " " & "Rp" & " " & hasil)

        'menunjukkan text dan hasil untuk setiap item pada listbox1

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x As Integer = 1

        'menunjukkan tipe data yang digunakan adakah integer dan perhitungan data dimulai dari 1

        Do

            Call harga(x)

            'pemanggilan prosedur harga

            x = x + 1

        Loop Until x - 1 = Int(TextBox1.Text)

        'jika mengklik button2 atau total bayar maka secara otomatis akan memanggil prosedur dari harga dan perhitungan dimulai dari penjualan pertama sampai penjualan tertentu yang diinputka

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        ListBox1.Items.Clear()

        'mengosongkan isi inputan pada textbox1 dan hasil perhitungan untuk setiap item pada listbox1

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Close()

        'jika mengklik button4 atau keluar maka form akan ditutup

    End Sub

End Class