Membuat Program Penjualan Sederhana vb 2010

TAMPILAN PROGRAM UTAMA
MEMBUAT PROGRAM PENJUALAN SEDERHANA YANG TERDIRI DARI INPUTAN, PROSES DAN OUTPUT.
Pertama kita buat sebuah Form dan kita isi dengan tiga buah Label dan kita beri nama masing-masing label kode barang, nama barang, jumlah barang. Langkah selanjutnya kita buat tiga buah text box secara berurutan. kemudian kita buat 3 buah button dan kita beri nama Hitung: berfungsi untuk Proses, Ulang: untuk proses pembersihan, Keluar: untuk proses penutupan.

DENGAN CODINGNYA SEBAGAI BERIKUT:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Coding Pemesanan Variable
Dim vbrg, vnmb, vjml As String

Proses
vbrg = Val(txtkb.Text)
vnmb = Val(txtnmbrg.Text)
vjml = Val(txtjmlbrg.Text)

Tampilan Output
MsgBox("Kode Barang : " & (txtkb.Text) & vbNewLine & ("Nama Barang : " & (txtnmbrg.Text) & vbNewLine & ("Jumlah Barang : " & vjml * 15000)))
End Sub

Proses Pembersihan
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btUlang.Click
txtkb.Clear()
txtnmbrg.Clear()
txtjmlbrg.Clear()
txtkb.Focus()
End Sub

Coding Proses Keluar dari Program
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
If MsgBox("Anda ingin Keluar ? ", vbYesNo + vbQuestion + vbDefaultButton2, "KELUAR") = vbYes Then Me.Close()
End Sub
End Class
------------------------------------------------------------------------------ PREVIEW TAMPILAN PROGRAM UTAMA

TAMPILAN PROSES PROGRAM

TAMPILAN PERINTAH KELUAR

ALHAMDULILA....HH
Terima Kasih Sudah Mampir Sobat....