Tugas Visual 1

PROGAM PENJUALAN BUAH

Gui Sebelum dirun 

                                Output

Skrip

Public Class Form1

    Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click

    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txtbuah.Text = ""

        txtberat.Text = ""

        txtdiskon.Text = ""

        txtharga.Text = ""

        txttotal.Text = ""

        txtbuah.Focus()

    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click

        End

    End Sub

    Private Sub bthitung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles bthitung.LostFocus

        txttotal.Text = (Val(txtberat.Text) * Val(txtharga.Text)) - ((Val(txtberat.Text) * Val(txtharga.Text)) * Val(txtdiskon.Text) / 100)

    End Sub

    Private Sub txtbuah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbuah.TextChanged

    End Sub

    Private Sub txttotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotal.TextChanged

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

End Class

                                                                                                                                                             

Progam  Penjualan Buah

                   Progam transaksi sederhana, namun lumayan bermafaat sebagai pengganti kalkulaktor. Penguna dapat menghitung diharga dengan diskon dengan mudah.