This document contains the names of eight group members who are creating a cash register program. It also includes Visual Basic code for a cash register user interface that allows a user to select drink options, quantities, view totals and make payments. The code handles calculations for totals, discounts, and change returned. It also includes validation to confirm the user wants to exit the program.
This document contains the names of eight group members who are creating a cash register program. It also includes Visual Basic code for a cash register user interface that allows a user to select drink options, quantities, view totals and make payments. The code handles calculations for totals, discounts, and change returned. It also includes validation to confirm the user wants to exit the program.
This document contains the names of eight group members who are creating a cash register program. It also includes Visual Basic code for a cash register user interface that allows a user to select drink options, quantities, view totals and make payments. The code handles calculations for totals, discounts, and change returned. It also includes validation to confirm the user wants to exit the program.
This document contains the names of eight group members who are creating a cash register program. It also includes Visual Basic code for a cash register user interface that allows a user to select drink options, quantities, view totals and make payments. The code handles calculations for totals, discounts, and change returned. It also includes validation to confirm the user wants to exit the program.
Download as DOCX, PDF, TXT or read online from Scribd
Download as docx, pdf, or txt
You are on page 1of 5
MEMBUAT PROGRAM KASIR
PKT1 B KELOMPOK 3 KELAS 1EA08
Nama Anggota Kelompok : Ananda Kurnia Herlambang ( 10220141 )
Berlian Rizkia Dyna Ramadani ( 10220313 ) Dhea Amelia Rahmah ( 10220438 ) Jasmine Anindya Khairunnisa ( 10220776 ) Mohammad Yudha Aprianto ( 10220952 ) Navika Shelda Dwimulyani ( 11220160 ) Sofia Khoirunnisa ( 11220570 ) Umi Siti Naimah ( 11220667 ) Private Sub Bersi_Click() Option1 = 0 Option2 = 0 Option3 = 0 Option4 = 0 Option5 = 0 JumlahTagihan.Text = "" Bayar.Text = "" jm1.Text = "" jm2.Text = "" jm3.Text = "" jm4.Text = "" jm5.Text = "" Kembali.Text = "" Diskon.Text = "" TextHarga.Text = "" TextJumlah.Text = "" Combo.Text = "Pilih Minuman" Harga.Text = "" End Sub Private Sub cb2_Click() Harga.Text = "15000" End Sub Private Sub cb3_Click() Harga.Text = "18000" End Sub Private Sub cb4_Click() Harga.Text = "14000" End Sub Private Sub cb5_Click() Harga.Text = "20000" End Sub Private Sub Combo_Click() If Combo.Text = "Jus Alpukat" Then TextHarga.Text = "10000"
ElseIf Combo.Text = "Es Teh" Then
TextHarga.Text = "5000"
ElseIf Combo.Text = "Lemon Tea" Then
TextHarga.Text = "8000"
ElseIf Combo.Text = "Green Tea" Then
TextHarga.Text = "12000"
ElseIf Combo.Text = "Es Jeruk" Then
TextHarga.Text = "7000" End If End Sub
Private Sub Command1_Click()
Kembali.Text = Val(Bayar) - Val(JumlahTagihan) + Val(Diskon) End Sub Private Sub Command2_Click() JumlahTagihan = Val(TextHarga) * Val(TextJumlah) + Val(Harga) * (Val(jm1) + Val(jm2) + Val(jm3) + Val(jm4) + Val(jm5)) If (JumlahTagihan.Text > 100000) Then Diskon.Text = JumlahTagihan.Text * 0.1 End If End Sub
Private Sub Command3_Click()
a = MsgBox("Yakin Keluar?", vbYesNo + vbInformation, "PESAN") If a = vbYes Then End End Sub