Tugas 1 Pemprograman Visual

Sintak Program :

Public Class Form1

    Private Sub BtProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtProses.Click
        Dim A, B, C, D, F, T As Integer
        A = Val(TxtHrg.Text)
        B = Val(TxtJml.Text)
        C = Val(TxtDsk.Text)
        D = (A * B)
        F = (D * C) / 100
        T = (D - F)

        MsgBox("Hasil Output" & vbNewLine & _
               "Kode Barang : " & TxtKd.Text & vbNewLine & _
               "Nama Barang : " & TxtNama.Text & vbNewLine & _
               "Harga Barang : " & TxtHrg.Text & vbNewLine & _
               "Jumlah Barang : " & TxtJml.Text & vbNewLine & _
               "Total Harga : " & D & vbNewLine & _
               "Diskon : " & F & vbNewLine & _
               "Total Bayar : " & T & vbNewLine)

    End Sub

    Private Sub BtBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBersih.Click
        TxtKd.Clear()
        TxtNama.Clear()
        TxtHrg.Clear()
        TxtJml.Clear()
        TxtDsk.Clear()
        TxtKd.Focus()

    End Sub

    Private Sub BtKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKeluar.Click
        Me.Close()

    End Sub
End Class


Penjelasan Program :

Pernyataan Dim Untuk mendeklarasikan variabel A, B, C dimana variabel tersebut untuk mewakili atau menampung nilai yang di ketikkan pada TxtHrg, TxtJml, TxtDsk dengan tipe data integer atau angka. sedangkan variable D,F,T sebagai proses hitung. Jika tombol BtnProses di klik maka akan menampilkan hasil perhitungan dengan output berupa MessageBox.