Minggu, 26 Februari 2012

Contoh Program Vb.Net

Membuat Tabel Pembelian Barang dgn Vb.Net

Tampilan Awal Form1.vb [Design]




Listing Program untuk Form1.vb [Design] 

Public Class Form1

    Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
        TxtTotal.Text = "Rp  " & (TxtJlh.Text * TxtHarga.Text)
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        CmbChoice.Text = ""
        TxtJlh.Text = ""
        TxtHarga.Text = ""
        TxtTotal.Text = ""
        BtnCancel.Enabled = True
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        End
    End Sub
End Class

Tampilan Program setelah di-RUN