Aplikasi penjualan gak pake database

aku mau posting tentang tugas pembuatan aplikasi dengan visual basic...aku pake aplikasi Microsoft Visual Studio 2010 tapi karena Harddiskku gak nyukup buat nginstal tu aplikasi ada beberapa fitur yg gak di instal.hehehehe
aplikasi yang aku buat ini sangat jauh dari sempurna,,jauh banget. gak pke database codingnya jg acak2an..hehehe maklumlah newbie :D

okeh langsung saja saya jelaskan :D
aku iseng2 bkin 2 form (padahal newbie) hehe

1.ini form yg pertama

aku akan menjelaskan form yang pertama dulu
form yg pertama cm buat iseng2 aja sih ada 2 button
button yg pertama tulisannya "klik di sini mau masuk aplikasi"
button yg kedua tulisannya "keluar"
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        form2.ShowDialog()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("mau keluar nih ?", vbYesNo + vbQuestion + vbDefaultButton3, "keluar aplikasi") = vbYes Then Me.Close()
    End Sub
End Class

yang button pertama cuma buat manggil form kedua
yang button kedua buat dialog keluar
 

2.ini form yg kedua

Untuk yang form kedua ada beberapa toolbox yg aku pake..
1.dari atas ada label “Penjualan alat tulis”
2.dibawahnya ada button “klik untuk keterangan”
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("A01 Pensil = 1500,A02 Pulpen = 2000, A03 Penghapus = 500, A04 Serutan= 1000, A05 buku = 2500")
    End Sub


3.ada label yg tulisannya “kode barang” trus disebelahnya ada combo box
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "A01" Then
            TextBox4.Text = "Pensil"
            TextBox3.Text = 1500
        ElseIf ComboBox1.Text = "A02" Then
            TextBox4.Text = "Pulpen"
            TextBox3.Text = 2000
        ElseIf ComboBox1.Text = "A03" Then
            TextBox4.Text = "Penghapus"
            TextBox3.Text = 500
        ElseIf ComboBox1.Text = "A04" Then
            TextBox4.Text = "Serutan"
            TextBox3.Text = 1000
        ElseIf ComboBox1.Text = "A05" Then
            TextBox4.Text = "buku"
            TextBox3.Text = 2500
        End If
        TextBox2.Focus()
    End Sub
 

Karena aku bikin textboxnya acak2an takut bingung nih aku kasih keterangannya
Nama barang Textbox4
Harga barang Textbox3
Jumlah barang Textbox2
Total harga Textbox1
Diskon Textbox5
Total bayar Textbox6
Maksudnya aku pake combobox biar gak ribet trus ntar setelah kita milih kode barang akan langsung otomatis nama barang dan harga barang terisi karena pake Then(liat codingnya)

4.untuk label yang jumlah barang itu biasa kalo yg textboxnya ada codingnya
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox1.Text = Val(TextBox3.Text) * Val(TextBox2.Text)
        If Val(TextBox2.Text) > 2 Then
            TextBox5.Text = 0.2 * Val(TextBox1.Text)
        Else
            TextBox5.Text = 0
        End If
        TextBox6.Text = Val(TextBox1.Text) - Val(TextBox5.Text)
    End Sub

Jadi maksudnya kalo beli lebih dari 2 barang akan dapet diskon 20% yang otomatis akan terisi langsung di total harga textbox1, diskon textbox5, total bayar textbox6

5.lanjut untuk button ulangi itu untuk mengulang..ntar ngulang dari pemilihan kode barang
  Private Sub btulangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btulangi.Click
        ComboBox1.Text = "pilih kode barang"
        TextBox1.Text = "0"
        TextBox2.Text = "0"
        TextBox3.Text = "0"
        TextBox4.Text = "nama barang"
        TextBox5.Text = "0"
        TextBox6.Text = "0"
        ComboBox1.Focus()

    End Sub
6.untuk yang button “balik ke menu utama” itu nanti kalo di klik akan kembali ke form1
  Private Sub btbalik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbalik.Click
        If MsgBox("bener nih mau udahan ?", vbYesNo + vbQuestion + vbDefaultButton1, "keluar") = vbYes Then Me.Close()
    End Sub

 

CUKUP SEKIAN DEH :D
MAAP BANGET YAH KALO BAHASANYA BELEPOTAN ;D