Program Membuat Form Data Barang dalam Visual Basic



1. Desain awal program





2. Atur Properties Masing-masing Objek sebagai berikut:
NO.
OBJEK
PROPERTIES
PENGATURAN
1
Form1
Text
-
2
Label1
Text
Form Data Barang


Bold
True


FontSize
10
3
Label2
Text
No. Transaksi
4
Label3
Text
Kode Barang
5
Label4
Text
Merk
   5
Label5
Text
Type
6
Label6
Text
Harga Satuan
7
Label7
Text
Jumlah
8
Label8
Text
Total Harga
9
Label9
Text
Diskon
10
Label10
Text
Total Bayar
11
Button1
Text
Cari


Name
Btncari
12
Button2
Text
Simpan


Name
BtnSimpan
13
Button3
Text
Bersih


Name
BtnBersih
13
Button4
Text
Selesai


Name
Btnselesai
14
Button5
Text
Hitung


Name
BtnHitung
16
CheckBox1
Name
CboKode
17
Textbox1
Name
Txttransaksi
18
Textbox2
Name
TxtMerk
19
Textbox3
Name
TxtType
20
Textbox4
Name
TxtSatuan
21
Textbox5
Name
TxtJumlah
22
Textbox6
Name
TxtTotal
23
Textbox7
Name
TxtDiskon
24
Textbox8
Name
TxtBayar
25
ListView1
Name
ListView1

3. Tampilan program setelah pengaturan properties sebagai berikut:





4. Pemberian Perintah/Instruksi pada Program
     Alur Program:
a.    Masukkan No Transaksi Data Barang di label1 (No Transaksi) pada Textbox1(Txttransaksi)
b.    Pilih Kode Barang yang ingin kita cari di label2 (Kode Barang) pada Checkbox1 (Cbokode) , setelah itu klik tombol di Button1 (Cari) maka akan menampilkan hasil data dari kode yang kita cari tersebut berdasarkan sesuai dari Perintah Program.
c.    Masukkan jumlah barang dan Total Harga Barang yang kita beli pada label7 (Jumlah) pada Textbox5 (TxtJumlah) dan di label8 (Total Harga) pada Textbox6 (TxtTotal), setelah itu klik Button5 (Hitung) untuk menghitung Jumlah Barang dan Total Barang yang kita beli, jika pembeli ingin mendapatkan diskon dari barang yang ia beli, maka pembeli harus mengikuti syarat dan ketentuan untuk mendapatkan diskon sesuai dari Perintah Program yang telah di buat, dan hasil hitung akan keluar di label10 (Total Bayar) pada Textbox8 (TxtBayar).
d.    Setelah diketahui Form Data Barang tersebut, maka klik Button2 (Simpan) untuk menyimpan data tersebut ke dalam List View yang sudah tersedia.
e.    Jika diklik tombol Button3 (Bersih), maka:
Ø  Nilai yang terdapat pada CheckBox1 (CboKode) akan hilang.
Ø  Nilai yang terdapat pada Textbox1 (Txttransaksi) akan hilang.
Ø  Nilai yang terdapat pada Textbox2 (TxtMerk) akan hilang.
Ø  Nilai yang terdapat pada Textbox3 (TxtType) akan hilang.
Ø  Nilai yang terdapat pada Textbox4 (TxtSatuan) akan hilang.
Ø  Nilai yang terdapat pada Textbox5 (TxtJumlah) akan hilang.
Ø  Nilai yang terdapat pada Textbox6 (TxtHarga) akan hilang.
Ø  Nilai yang terdapat pada Textbox7 (TxtDiskon) akan hilang.
Ø  Nilai yang terdapat pada Textbox8 (TxtBayar) akan hilang.
     f. Jika diklik tombol Button4(Selesai), maka program akan ditutup (keluar dari program)

Perintah Program
PrivateSub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
        CboKode.Items.Add("H001")
        CboKode.Items.Add("H002")
        CboKode.Items.Add("Y001")
        CboKode.Items.Add("Y002")

EndSub

PrivateSub Btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncari.Click
If CboKode.Text = "H001"Then
            TxtMerk.Text = "Honda"
            TxtType.Text = "Supra Fit"
            TxtSatuan.Text = 9000000
ElseIf CboKode.Text = "H002"Then
            TxtMerk.Text = "Honda"
            TxtType.Text = "Supra X"
            TxtSatuan.Text = 11000000
ElseIf CboKode.Text = "Y001"Then
            TxtMerk.Text = "Yamaha"
            TxtType.Text = "Mio"
            TxtSatuan.Text = 13000000
Else
            TxtMerk.Text = "Yamaha"
            TxtType.Text = "Jupiter"
            TxtSatuan.Text = 12000000

EndIf

EndSub

PrivateSub Btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
        TxtTotal.Text = TxtJumlah.Text * TxtSatuan.Text
If TxtType.Text = "Supra Fit"And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 5 / 100 * TxtTotal.Text
ElseIf TxtType.Text = "Mio"And TxtJumlah.Text > 5 Then
            TxtDiskon.Text = 10 / 100 * TxtTotal.Text
Else
            TxtDiskon.Text = 0
EndIf
        TxtBayar.Text = TxtTotal.Text - TxtDiskon.Text

EndSub

PrivateSub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        ListView1.Items.Add(TxtTransaksi.Text)
        ListView1.Items(A).SubItems.Add(CboKode.Text)
        ListView1.Items(A).SubItems.Add(TxtMerk.Text)
        ListView1.Items(A).SubItems.Add(TxtType.Text)
        ListView1.Items(A).SubItems.Add(TxtSatuan.Text)
        ListView1.Items(A).SubItems.Add(TxtJumlah.Text)
        ListView1.Items(A).SubItems.Add(TxtTotal.Text)
        ListView1.Items(A).SubItems.Add(TxtDiskon.Text)
        ListView1.Items(A).SubItems.Add(TxtBayar.Text)
        A = A + 1

EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        TxtBayar.Text = " "
        TxtDiskon.Text = " "
        TxtJumlah.Text = " "
        TxtMerk.Text = " "
        TxtSatuan.Text = " "
        TxtTotal.Text = " "
        TxtTransaksi.Text = " "
        TxtType.Text = " "
        CboKode.Text = " "

EndSub

PrivateSub Btnselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnselesai.Click
End

EndSub

Tampilan Program setelah dijalankan berdasarkan kode dan syarat serta ketentuan sebagai berikut :





Untuk menjalankan program, klik tombol Start Debugging    

  atau tekan tombol F5 pada keyboard.
Untuk menutup program, klik tombol Stop Debugging    

  
















Komentar

Posting Komentar

Postingan populer dari blog ini

Pengertian PROCEDURE,FUNCTION, dan MODUL

A.     TUJUAN -        Memahami dan mengenal Procedure, Function dan Modul -        Dapat membuat aplikasi sederhana dengan menggunakan Procedure, Function dan Modul B.      PERANGKAT LUNAK (SOFTWARE) -        Microsoft Visual Basic 2008 C.     DASAR TEORI 1.       Procedure (Prosedur) Sejauh ini, anda telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan. Bentuk Umum : [Private|Public] Sub subname [(argumentlist)]       Statements End sub Sub Procedure dapat dipanggil dengan perintah : [call] subname [(argumentlist)] Ket...
Baca selengkapnya

Pengertian Exception Handling

A.     TUJUAN -        Memahami dan mengenal Exception Handling -        Dapat membuat aplikasi sederhana dengan menggunakan Exception Handling B.      PERANGKAT LUNAK (SOFTWARE) -        Microsoft Visual Basic 2008 C.     DASAR TEORI EXCEPTION HANDLING Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan. Struktur Exception Handling Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008 antara lain : Try … Catch … Finally … End Try Merupakan perintah penanganan kesalahan yang berfungsi untuk...
Baca selengkapnya

Cara membuat project mencari volume tabung dengan menggunakan Visual Basic

Gambar
1. Desain awal program 2. Atur Properties Masing-masing Objek sebagai berikut: NO. OBJEK PROPERTIES PENGATURAN 1 Form1 Text Project Volume Tabung BackColor ActiveCaption 2 Label1 Text Operasi Matematika Bold True FontSize 10 3 Label2 Text Radius : 4 Label3 Text Tinggi : 5 Label4 Text Hasil :    6 Textbox1 Name Txtradius 7 Textbox2 Name Txttinggi 8 Textbox3 Name Txthasil 9 Button1 Text Proses Name Btnproses 10 Button2 Text Bersih ...
Baca selengkapnya