ANALISIS
LISTING
PublicClassFORM2
DimdiskonAsInteger = 0
(Dim
ituberartimenyatakandan integer ituberartibilanganbulat)
PrivateSub Form1_Load(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) HandlesMyBase.Load
BackColor = Color.Bisque
EndSub
(MEMBERI WARNA PADA BACKGROUND)
PrivateSub ComboBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = ("1")
Then
TextBox1.Text = ("FANTA")
TextBox3.Text = ("5000")
EndIf
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisi fanta dan 3 terisi 5000)
If ComboBox1.Text = ("2")
Then
TextBox1.Text = ("BIG COLA")
TextBox3.Text = ("6000")
EndIf
(perintahjika combobox1 dipilih2otomatis textbox1
terisi big cola dan 3 terisi6000)
If ComboBox1.Text = ("3")
Then
TextBox1.Text = ("CITATO")
TextBox3.Text = ("3000")
EndIf
(perintahjika combobox1 dipilih3otomatis textbox1
terisicitatodan 3 terisi 3000)
If ComboBox1.Text = ("4")
Then
TextBox1.Text = ("POTATO")
TextBox3.Text = ("3000")
EndIf
(perintahjika combobox1 dipilih 4otomatis textbox1
terisipotatodan 3 terisi 3000)
If ComboBox1.Text = ("5")
Then
TextBox1.Text = ("TIM-TAM")
TextBox3.Text = ("7000")
EndIf
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisiTIM-TAMdan 3 terisi 7000)
If ComboBox1.Text = ("6")
Then
TextBox1.Text = ("LAYS")
TextBox3.Text = ("4000")
EndIf
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisiLAYSdan 3 terisi 4000)
If ComboBox1.Text = ("7")
Then
TextBox1.Text = ("MIZONE")
TextBox3.Text = ("3500")
EndIf
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisiMIZONEdan 3 terisi 3500)
If ComboBox1.Text = ("8")
Then
TextBox1.Text = ("KACANG GARUDA")
TextBox3.Text = ("20000")
EndIf
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisiKACANG GARUDAdan 3 terisi 20000)
If ComboBox1.Text = ("9")
Then
TextBox1.Text = ("C1000")
TextBox3.Text = ("6000")
EndIf
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisiC1000dan 3 terisi 6000)
If ComboBox1.Text = ("0")
Then
TextBox1.Text = ("MENTOS")
TextBox3.Text = ("12000")
EndIf
EndSub
(perintahjika combobox1 dipilih 1 otomatis textbox1
terisiMENTOSdan 3 terisi 12000)
PrivateSub Button1_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button1.Click
ComboBox1.Text
= ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
EndSub
(UNTUK MERESET ULANG DATA KEMBALI
KOSONG)
PrivateSub Button3_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button3.Click
MsgBox("TERIMA
KASIH ATAS KEDATANGAN ANDA")
Me.Close()
EndSub
(memberipesankarenasetelahmenggunakan program
tersebut)
PrivateSub Button2_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button2.Click
Dim POTONGAN AsDouble
Dim TOTAL AsDouble
Dim HARGA AsInteger
Dim JUMLAH AsInteger
(INTEGER BIL BULAT SEDANGKAN DOUBLE
BILANGAN PECAHAN)
HARGA
= Val(TextBox3.Text)
JUMLAH = Val(TextBox2.Text)
POTONGAN = (HARGA * JUMLAH * diskon) / 100
TOTAL
= ((HARGA * JUMLAH) - POTONGAN)
TextBox4.Text = TOTAL
EndSub
(menghitung total daripembelianbarang yang
sudahdibeli)
PrivateSub Button4_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button4.Click
Me.DataGridView1.Show()
WithMe.DataGridView1
.Rows.Add(Me.ComboBox1.Text, Me.TextBox1.Text, Me.TextBox3.Text,
Me.TextBox2.Text, Me.TextBox4.Text,
Me.TextBox5.Text, Me.TextBox6.Text)
EndWith
EndSub
(memasukan data-data yang
sudahdiisidenganlengkapkedalamdatagridataudisebutjugadenganmerekap data)
PrivateSub Button5_Click(ByVal
sender AsSystem.Object,
ByVal e AsSystem.EventArgs) Handles
Button5.Click
DimbayarAsInteger
DimkembalianAsInteger
Dim total AsInteger
(INTEGER DATA BILANGAN BULAT)
total = Val(TextBox4.Text)
bayar = Val(TextBox5.Text)
kembalian = bayar - total
TextBox6.Text = kembalian
Ifbayar< total ThenMsgBox("MaafUangAndaTidakMencukupi")
Ifbayar< total Then
TextBox6.Text = ""
Ifbayar< total Then
TextBox5.Text = ""
(menghitungkembaliandaripembayarantersebut,
dengandilengkapisemisalpembayarankurangdari total
makaakanmunculpesanuanguntukpembayarankurang)
EndSub
PrivateSub TextBox3_keypress(ByVal
sender AsSystem.Object,
ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles
TextBox3.KeyPress
DimmasukanAsBoolean = Char.IsDigit(e.KeyChar)
IfNotmasukanThene.Handled = True
EndSub
(untuk
mengatur supaya textbox dapat diisi hanya dengan angka)
PrivateSub TextBox2_keypress(ByVal
sender AsSystem.Object,
ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles
TextBox2.KeyPress
DimmasukanAsBoolean = Char.IsDigit(e.KeyChar)
IfNotmasukanThene.Handled = True
EndSub
(untuk
mengatur supaya textbox dapat diisi hanya dengan angka)
PrivateSub TextBox4_keypress(ByVal
sender AsSystem.Object,
ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles
TextBox4.KeyPress
DimmasukanAsBoolean = Char.IsDigit(e.KeyChar)
IfNotmasukanThene.Handled = True
EndSub
(untuk
mengatur supaya textbox dapat diisi hanya dengan angka)
PrivateSub TextBox5_keypress(ByVal
sender AsSystem.Object,
ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles
TextBox5.KeyPress
DimmasukanAsBoolean = Char.IsDigit(e.KeyChar)
IfNotmasukanThene.Handled = True
EndSub
(untuk
mengatur supaya textbox dapat diisi hanya dengan angka)
PrivateSub TextBox6_keypress(ByVal
sender AsSystem.Object,
ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles
TextBox6.KeyPress
DimmasukanAsBoolean = Char.IsDigit(e.KeyChar)
IfNotmasukanThene.Handled = True
ENDSUB
(untuk
mengatur supaya textbox dapat diisi hanya dengan angka)
PrivateSub TextBox7_keypress(ByVal
sender AsSystem.Object,
ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles
TextBox7.KeyPress
DimmasukanAsBoolean = Char.IsDigit(e.KeyChar)
IfNotmasukanThene.Handled = True
diskon = TextBox7.Text
EndSub
EndClass
(perintahuntukmembuatdiskon)
TUTORIAL PROGRAM KASIR
KOMPONEN TOOLBOX:
|
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
|
FORM1
|
NAME
TEXT
|
FORM1
KASIR
|
|
LABEL1
|
NAME
TEXT
|
LABEL1
CIRCLE
L
|
|
LABEL2
|
NAME
TEXT
|
LABEL2
KODE
|
|
LABEL3
|
NAME
TEXT
|
LABEL3
NAMA
BARANG
|
|
LABEL4
|
NAME
TEXT
|
LABEL4
HARGA
|
|
LABEL5
|
NAME
TEXT
|
LABEL5
JUMLAH
|
|
LABEL6
|
NAME
TEXT
|
LABEL6
POTONGAN
|
|
LABEL7
|
NAME
TEXT
|
LABEL7
TOTAL
|
|
LABEL8
|
NAME
TEXT
|
LABEL8
PEMBAYARAN
|
|
LABEL9
|
NAME
TEXT
|
LABEL1
KEMBALIAN
|
|
COMBOBOX1
|
NAME
TEXT
|
COMBOBOX1
|
|
TEXTBOX1
|
NAME
TEXT
|
TEXTBOX1
|
|
TEXTBOX2
|
NAME
TEXT
|
TEXTBOX2
|
|
TEXTBOX3
|
NAME
TEXT
|
TEXTBOX3
|
|
TEXTBOX4
|
NAME
TEXT
|
TEXTBOX4
|
|
TEXTBOX5
|
NAME
TEXT
|
TEXTBOX5
|
|
TEXTBOX6
|
NAME
TEXT
|
TEXTBOX6
|
|
TEXTBOX7
|
NAME
TEXT
|
TEXTBOX7
|
|
DATAGRIDVIEW1
|
NAME
TEXT
|
DATAGRIDVIEW1
|
Tidak ada komentar:
Posting Komentar