Pembuatan Cash Register untuk Toko Klontong
PEMBUATAN CASH REGISTER UNTUK TOKO KLONTONG
Disusun Oleh:
Nama : Nur Aisyah
Kelas : 1A D3
NIM : 351 15 017
POLITEKNIK NEGERI UJUNG PANDANG
TAHUN 2015
KATA PENGANTAR
Puji syukur penulis panjatkan ke hadirat Allah Subhanahuwataala, atas limpahan rahmat-Nya sehingga Laporan Pembuatan Program Cash Register ini dapat diselesaikan sebagaimana mestinya. Laporan ini ditulis untuk memenuhi tugas mata kuliah Pengantar Kompter Bisnis serta sebagai laporan atas selesainya program kasir yang penulis buat.
Laporan ini menyajikan sedikit ilmu mengenai cara pembuatan kasir atau biasa disebut dengan cash register menggunakan software Microsoft Visual Basic 6.0 yang diharapkan nantinya dapat memberikan pengetahuan kepada pembaca langkah-langkah yang dilakukan dalam pembuatan program kasir ini serta memunculkan program-program pengembangan dari program yang penulis buat.
Akhirnya, penulis menyampaikan ucapan terima kasih kepada semua pihak khususnya dosen mata kuliah Pengantar Komputer Bisnis serta teman-teman yang telah memberikan bantuan yang sangat berharga dalam pembuatan program dan penyusunan laporan ini. Penulis juga menyadari bahwa program dan laporan yang penulis buat masih jauh dari kesempurnaan akan tetapi penulis berharap semoga laporan yang dibuat penulis dapat bermanfaat bagi para pembaca dan pihak-pihak yang membutuhkan program ini.
Makassar, 4 Januari 2016
Nur Aisyah
DAFTAR ISI
KATA PENGANTAR …………………………………………………………………………………………………………….. 1
DAFTAR ISI ………………………………………………………………………………………………………………………... 2
BAB I PENDAHULUAN
1.1 Latar Belakang …………………………………………………………………………………………………. 3
1.2 Rumusan Masalah …………………………………………………………………………………………… 4
1.3 Tujuan……………............................................................................................. 4
1.4 Manfaat…………………………………………………………………………………………………………… 4
BAB II PUSTAKA
2.1 Soft Buku Dasar Pemrograman Visual Basic……………………………………………………… 5
2.2 Website……………………………………………………………………………………………………………. 6
BAB III METODOLOGI
3.1 Alat dan Bahan………………………………………………………………………………………………... 8
3.2 Desain……………………………………………………………………………………………………………… 8
3.3 Penggunaan Rumus…………………………………………………………………………………………. 10
Bab IV HASIL
4.1 Tampilan Antarmuka………………………………………………………………………………………… 11
4.2 Prosesi Program……………………………………………………………………………………………….. 14
4.3 Output……………………………………………………………………………………………………………… 15
Bab V KESIMPULAN…………………………………………………………………………………………………………. 16
DAFTAR PUSTAKA………………………………………………………………………………………………………………. 17
LAMPIRAN…………………………………………………………………………………………………………………………. 18
BAB I
PENDAHULUAN
1.1 Latar Belakang
Maraknya penggunaan komputer di berbagai bidang kehidupan manusia, menuntut setiap orang untuk mengetahui dan mempelajari berbagai macam software pendukung yang dapat beroperasi pada komputer tersebut. Komputer merupakan salah satu penemuan tercanggih pada abad ini. Komputer merupakan cikal bakal lahirnya teknologi baru di bidang Ilmu Pengetahuan dan Teknologi.
Kemampuan komputer dalam melakukan penghitungan yang sangat cepat, dapat mempermudah manusia atau user dalam mengoperasikannya. Berbagai macam media pendukung untuk mengoptimalkan kinerja komputer banyak dibuat. Media tersebut berupa software atau program aplikasi yang hubungannya tidak dapat terpisahkan dari computer.
Software atau program aplikasi tersebut dibangun dengan menggunakan software lain. Banyak software yang digunakan untuk membangun software atau program aplikasi. Salah satunya bahasa pemrograman (programming language). Bahasa pemrograman pun memiliki beberapa tingkatan, disesuaikan dengan kemudahan akses yang dilakukan oleh komputer.
Dalam laporan kali ini, penulis telah membangun program aplikasi kecil dengan menggunakan salah satu bahasa pemrograman, yaitu Bahasa Pemrograman Visual Basic. Laporan ini disusun untuk memberikan sedikit gambaran kepada masyarakat tentang Bahasa Pemrograman Visual Basic khususnya dalam program Cash Register, mengingat bahasa pemrograman ini masih sangat jarang digunakan dan asing bagi kalangan awam. Penulis mencoba untuk membangun Program Aplikasi Pengasiran yang dapat diterapkan di berbagai perusahaan dan toko dengan menggunakan Bahasa Pemrograman Visual Basic.
1.2 Rumusan Masalah
Berdasarkan latar belakang diatas penulis dapat merumuskan masalah pembuatan program sebagai berikut:
1.2.1 Program apa yang akan dibuat oleh penulis.
1.2.2 Bagaimana membuat program yang dapat membantu penjual toko klontong dalam melayani pelanggannya.
1.2.3 Bagaimana desain program cash register visual basic 6.0.
1.2.4 Bagaimana penggunaan rumus untuk menjalankan program.
1.2.5 Bagaimana langkah – langkah yang harus dikerjakan agar program dapat berjalan.
1.3 Tujuan
1.3.1 Memenuhi tugas mata kuliah Pengantar Komputer Bisnis untuk Jurusan Administrasi Bisnis.
1.3.2 Mempermudah penjual toko klontong dalam menjalankan proses penjualan yang dilakukannya. Program ini diharap membantu penjual toko klontong sehingga dapat menggunakan waktu untuk melayani satu pelanggan secara efisien dan efektif.
1.4 Manfaat
1.4.1 Penulis memperoleh pengetahuan tentang penggunaan Software Visual Basic 6.0 secara mendetail mengenai penggunaan properties.
1.4.2 Penulis mampu membuat program Cash Register sederhana.
1.4.3 Penjual toko klontong dapat menggunakan program ini untuk mempermudah pekerjaannya.
BAB II
PUSTAKA
2 Qasa
Dalam pembuatan program cash register di visual basic, penulis mengacu kepada beberapa sumber diantaranya :
2.1 Soft Buku Dasar Pemrograman Visual Basic
Soft Buku berbentuk pdf oleh H.Ary Setiadi yang berjudul Dasar Pemrograman Visual Basic yang membahas mengenai dasar-dasar program visual basic. Di dalam buku ini penulis belajar mengenai cara:
2.1.1 Cara membuat project baru
Klik 2 kali pada program visual basic lalu pilih Open, maka project baru akan muncul bersama dengan form1. Form1 adalah tempat kita untuk membangun tampilan dari program aplikasi yang akan kita buat.
2.1.2 Untu memasukkan gambar pada form, klik icon pada toolbox kemudian tarik ke posisi dimana gambar itu akan diletakkan.
2.1.3 Untuk memasukkan label pada form, klik icon pada toolbox kemudian tarik ke posisi dimana label itu akan diletakkan.
Untuk mengubah isi text pada label maka pada kotak properties pilih Caption lalu isi text sesuai dengan yang diinginkan.
Untuk mengubah warna latar pada label maka pada kotak properties pilih BackColor lalu ubah warna label sesuai yang diinginkan.
Untuk mengubah warna text pada label maka pada kotak properties pilih ForeColor.
Untuk mengubah jenis tulisan dan font size dari label maka pada kotak properties pilih Font.
2.1.4 Untuk memasukkan TextBox pada form, klik icon pada toolbox kemudian tarik ke posisi dimana textbox itu akan diletakkan. Jika ingin mengubah isi text dari TextBox maka pada kotak properties pilih Text lalu isi text sesuai dengan yang diinginkan.
Untuk mengubah warna latar pada TextBox maka pada kotak properties pilih BackColor lalu ubah warna label sesuai yang diinginkan.
Untuk mengubah warna text pada TextBox maka pada kotak properties pilih ForeColor.
Untuk mengubah jenis tulisan dan font size dari TextBox maka pada kotak properties pilih Font.
2.1.5 Untuk memasukkan CommandButton pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana CommandButton itu akan diletakkan.
2.1.6 Untuk memasukkan Frame pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana Frame akan diletakkan.
2.1.7 Untuk memasukkan OptionButton pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana OptionButton akan diletakkan.
2.1.8 Untuk memasukkan ListBox pada form, maka klik icon pada toolbox kemudian tarik ke posis dimana ListBox akan diletakkan.
2.2 Website
2.2.1 Website resmi dari Club Computer Universitas Dipanegara dengan alamat website http://dcc-dp.org yang membahas mengenai cara membuatan Menu Bar pada form. Untuk membuat Menu Bar dapat dilakukan dengan cara :
Pada form yang aktif, klik Menu Tools lalu Pilih Menu Editor atau bisa juga dengan menekan ctrl + E.
Kemudian akan muncul tampilan seperti dibawah ini. Isilah Caption dan Name sesuai dengan yang diinginkan.
2.2.2 Blog dari Vivit Trianti dengan alamat web http://vivittrianti.blogspot.co.id yang menjelaskan cara pembuatan Form Transaksi. Dimana dalam form ini akan digunakan komponen-komponen pada pustaka 2.2.1 dengan tambahan ComboBox. Untuk memasukkan icon ini pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana ComboBox akan diletakkan.
2.2.3 Website dengan alamat website http://trikmudahvb6.blogspot.co.id yang berisi mengenai cara menampilkan data dari form 1 ke form lainnya yaitu dengan cara CommandButton diisi dengan perintah seperti contoh dibawah ini
BAB III
METODOLOGI
3
3.1 Alat dan Bahan
Alat :
o Komputer
o Software visual basic versi 6.0
Bahan :
o Bahan ajar “dasar pemrograman visual basic” oleh H. Ary Setiadi bentuk pdf
o Website dan situs mengenai Visual Basic 6.0
3.2 Desain
3.3 Penggunaan Rumus
Jumlah Harga = Harga Barang * Banyaknya Barang
Total Barang = Banyaknya Barang1 + Banyaknya Barang 2
Total Harga Barang = Jumlah Harga Barang1 + Jumlah Harga Barang2
Discount = Total Harga Barang * 0.01
Total Bayar = Total Harga Barang – Discount
Jumlah Uang Kembali = Jumlah Uang yang Dibayar – Total Bayar
BAB IV
HASIL
4
4.1 Tampilan Antarmuka
4.2 Prosesi Program
4.2.1 Tampilan Form1 berfungsi untuk melindungi program dari pihak-pihak yang tidak berkepentingan sehingga program hanya dapat dijalankan oleh pihak-pihak yang bertugas (kasir). Tampilan form1 menampilkan home yang berisi perintah untuk memasukkan nama user (nur aisyah) dan password (admniaga) seperti pada Gambar 4.1.
4.2.2 Tampilan Form2 berfungsi untuk memberikan informasi kepada kasir mengenai rincian barang dan harga barang toko klontong seperti pada Gambar 4.2.
Jika mengklik tombol Option1(Telkomsel )maka pada Listbox akan muncul barang dan harga barang dari produk Telkomsel
Jika mengklik tombol Option2(XL Axiata) maka pada Listbox pada akan muncul barang dan harga barang dari produk XL Axiata
Jika mengklik tombol Option3(Indosat) maka pada Listbox pada akan muncul barang dan harga barang dari produk Indosat
Jika mengklik tombol Option4(Three) maka pada Listbox pada akan muncul barang dan harga barang dari produk Three
Jika mengklik tombol Option5 (Smartfren)maka pada Listbox pada akan muncul barang dan harga barang dari produk Smartfren
4.2.3 Tampilan From3 berfungsi untuk menginput transaksi penjualan barang toko klontong seperti pada Gambar 4.3 dengan cara :
Langkah pertama yaitu dengan mengisi box Banyaknya Barang kemudian pilih barang dari ComboBox maka secara otomatis harga dari barang dan jumlah barang akan muncul.
Kemudian masukkan jumlah pembayaran dari pelanggan lalu klik Command Hitung, maka secara otomatis nilai dari Total Barang, Total Harga Barang, Discount, Total Bayar dan Jumlah Uang Kembali akan muncul.
Kemudian klik Command (Refresh) untuk mengulang kegiatan transaksi.
Setelah menjalankan proses diatas maka akan tampil seperti pada Gambar 4.4.
4.2.4 Tampilan Form4 berfungsi untuk menampilkan Data Penjualan dari Toko Klontong. Pada form ini akan tampilan Rincian data penjualan kepada pelanggan seperti yang terlihat pada Gambar 4.5.
4.3 Output Program
Ketika program berjalan dan kita memasukkan data yang kita punya maka hasil dari program Cash Register ini akan memunculkan seperti gambar dibawah ini.
BAB V
KESIMPULAN
5
5.1 Kesimpulan
Program ini dirancang oleh penulis agar program ini dapat digunakan dan bermanfaat bagi masyarakat. Adapun kendala yang penulis alami selama membuat program ini yakni diskon yang diberikan sama kepada semua pelanggan. Penulis belum mampu menemukan rumus yang menentukan batas pembayaran untuk mendapatkan diskon. Kendala lain yang penulis alami adalah penulis belum mampu membuat data penjualan yang merupakan salah satu indikator penilian dari tugas ini. Masalah lain yang penulis hadapi yakni perpindahan antarform belum begitu transparan sehingga terkadang akan nampak perpindahan antar form satu ke form berikutnya. Penulis juga berharap dengan adanya laporan ini, maka nantinya akan ada program kasir yang lebih berkembang dari program yang dibuat penulis.
DAFTAR PUSTAKA
http://vittrianti.blogspot.co.id/2013/01/visual-basic-program-penjualan-barang.html
http://www.vbforums.com/showthread.php?736679-Cash-Register-Class
http://dcc-dp.org/berita503-membuat-menu-bar-dan-toolbar-di-visual-basic-6-0.html
Soft Buku karangan H.Ary Setiadi Dasar Pemrograman Visual Basic
LAMPIRAN
Lampiran 1 untuk Form1.
Private Sub Command1_Click()
If Text1 = "nur aisyah" And Text2 = "admniaga" Then
Form2.Show 'Perintah Menampilkan Form 2
Form1.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Lampiran 2 untuk From2.
Private Sub Home_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub dbarangdanharga_Click()
Form1.Hide
Form2.Show
Form3.Hide
Form4.Hide
End Sub
Private Sub transaksi_Click()
Form1.Hide
Form2.Hide
Form3.Show
Form4.Hide
End Sub
Private Sub struk_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Show
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Private Sub Option1_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Simpati/AS 5K 7.000"
List1.AddItem "Simpati/AS 10K 12.000"
List1.AddItem "Simpati/AS 20K 22.000"
List1.AddItem "Simpati/AS 50K 52.000"
List1.AddItem "Telkomsel Kuota 55.000"
End Sub
Private Sub Option2_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "XL 5K 7.000"
List1.AddItem "XL 10K 12.000"
List1.AddItem "XL 25K 27.000"
List1.AddItem "XL 50K 53.000"
List1.AddItem "XL Kuota 35.000"
End Sub
Private Sub Option3_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Indosat 5K 7.000"
List1.AddItem "Indosat 10K 12.000"
List1.AddItem "Indosat 25K 26.000"
List1.AddItem "Indosat 50K 52.000"
List1.AddItem "Indosat Kuota 55.000"
End Sub
Private Sub Option4_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Three 1K 2.000"
List1.AddItem "Three 2K 4.000"
List1.AddItem "Three 5K 7.000"
List1.AddItem "Three 10K 12.000"
List1.AddItem "Three 20K 22.000"
List1.AddItem "Three 50K 52.000"
List1.AddItem "Three Kuota 1GB 20.000"
List1.AddItem "Three Kuota 2GB 35.000"
List1.AddItem "Three Kuota 3GB 47.000"
List1.AddItem "Three Kuota 4GB 55.000"
List1.AddItem "Three Kuota 8GB 100.000"
List1.AddItem "Three Kuota 10GB 125.000"
List1.AddItem "Three Blackberry 120.000"
End Sub
Private Sub Option5_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Smartfren 10K 12.000"
List1.AddItem "Smartfren 20K 22.000"
List1.AddItem "Smartfren 50K 54.000"
List1.AddItem "Smartfren 60K 65.000"
End Sub
Lampiran 3 untuk Form 3
Private Sub Home_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub dbarangdanharga_Click()
Form1.Hide
Form2.Show
Form3.Hide
Form4.Hide
End Sub
Private Sub transaksi_Click()
Form1.Hide
Form2.Hide
Form3.Show
Form4.Hide
End Sub
Private Sub struk_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Show
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "Telkomsel 5" Then
harga = "7000"
ElseIf Combo1.Text = "Telkomsel 10" Then
harga = "12000"
ElseIf Combo1.Text = "Telkomsel 20" Then
harga = "22000"
ElseIf Combo1.Text = "Telkomsel 50" Then
harga = "52000"
ElseIf Combo1.Text = "Telkomsel Kuota" Then
harga = "55000"
ElseIf Combo1.Text = "XL 5" Then
harga = "7000"
ElseIf Combo1.Text = "XL 10" Then
harga = "12000"
ElseIf Combo1.Text = "XL 25" Then
harga = "27000"
ElseIf Combo1.Text = "XL 50" Then
harga = "53000"
ElseIf Combo1.Text = "XL Kuota" Then
harga = "35000"
ElseIf Combo1.Text = "Indosat 5" Then
harga = "7000"
ElseIf Combo1.Text = "Indosat 10" Then
harga = "12000"
ElseIf Combo1.Text = "Indosat 25" Then
harga = "26000"
ElseIf Combo1.Text = "Indosat 50" Then
harga = "52000"
ElseIf Combo1.Text = "Indosat Kuota" Then
harga = "55000"
ElseIf Combo1.Text = "Three 1" Then
harga = "2000"
ElseIf Combo1.Text = "Three 2" Then
harga = "4000"
ElseIf Combo1.Text = "Three 5" Then
harga = "7000"
ElseIf Combo1.Text = "Three 10" Then
harga = "12000"
ElseIf Combo1.Text = "Three 20" Then
harga = "22000"
ElseIf Combo1.Text = "Three 50" Then
harga = "52000"
ElseIf Combo1.Text = "Three Kuota 1GB" Then
harga = "20000"
ElseIf Combo1.Text = "Three Kuota 2GB" Then
harga = "35000"
ElseIf Combo1.Text = "Three Kuota 3GB" Then
harga = "47000"
ElseIf Combo1.Text = "Three Kuota 4GB" Then
harga = "55000"
ElseIf Combo1.Text = "Three Kuota 8GB" Then
harga = "100000"
ElseIf Combo1.Text = "Three Kuota 10GB" Then
harga = "125000"
ElseIf Combo1.Text = "Three Blackberry" Then
harga = "120000"
ElseIf Combo1.Text = "Smartfren 10" Then
harga = "12000"
ElseIf Combo1.Text = "Smartfren 20" Then
harga = "22000"
ElseIf Combo1.Text = "Smartfren 50" Then
harga = "54000"
ElseIf Combo1.Text = "Smartfren 60" Then
harga = "65000"
End If
Text1.Text = Format(harga, "###,###")
Text10.Text = harga * Val(Text2.Text)
End Sub
Private Sub Combo2_Click()
Dim nama As String
Dim harga As Currency
If Combo2.Text = "Telkomsel 5" Then
harga = "7000"
ElseIf Combo2.Text = "Telkomsel 10" Then
harga = "12000"
ElseIf Combo2.Text = "Telkomsel 20" Then
harga = "22000"
ElseIf Combo2.Text = "Telkomsel 50" Then
harga = "57000"
ElseIf Combo2.Text = "XL 5" Then
harga = "7000"
ElseIf Combo2.Text = "XL 10" Then
harga = "12000"
ElseIf Combo2.Text = "XL 25" Then
harga = "27000"
ElseIf Combo2.Text = "XL 50" Then
harga = "53000"
ElseIf Combo2.Text = "XL Kuota" Then
harga = "35000"
ElseIf Combo2.Text = "Indosat 5" Then
harga = "7000"
ElseIf Combo2.Text = "Indosat 10" Then
harga = "12000"
ElseIf Combo2.Text = "Indosat 25" Then
harga = "26000"
ElseIf Combo2.Text = "Indosat 50" Then
harga = "52000"
ElseIf Combo2.Text = "Indosat Kuota" Then
harga = "55000"
ElseIf Combo2.Text = "Three 1" Then
harga = "2000"
ElseIf Combo2.Text = "Three 2" Then
harga = "4000"
ElseIf Combo2.Text = "Three 5" Then
harga = "7000"
ElseIf Combo2.Text = "Three 10" Then
harga = "12000"
ElseIf Combo2.Text = "Three 20" Then
harga = "22000"
ElseIf Combo2.Text = "Three 50" Then
harga = "52000"
ElseIf Combo2.Text = "Three Kuota 1GB" Then
harga = "20000"
ElseIf Combo2.Text = "Three Kuota 2GB" Then
harga = "35000"
ElseIf Combo2.Text = "Three Kuota 3GB" Then
harga = "47000"
ElseIf Combo2.Text = "Three Kuota 4GB" Then
harga = "55000"
ElseIf Combo2.Text = "Three Kuota 8GB" Then
harga = "100000"
ElseIf Combo2.Text = "Three Kuota 10GB" Then
harga = "125000"
ElseIf Combo2.Text = "Three Blackberry" Then
harga = "120000"
ElseIf Combo2.Text = "Smartfren 10" Then
harga = "12000"
ElseIf Combo2.Text = "Smartfren 20" Then
harga = "22000"
ElseIf Combo2.Text = "Smartfren 50" Then
harga = "54000"
ElseIf Combo2.Text = "Smartfren 60" Then
harga = "65000"
End If
TextC3.Text = Format(harga, "###,###")
Text11.Text = harga * Val(TextQC2.Text)
End Sub
Private Sub form_load()
Combo1.Text = "-Pilih-"
Combo1.AddItem "Telkomsel 5"
Combo1.AddItem "Telkomsel 10"
Combo1.AddItem "Telkomsel 20"
Combo1.AddItem "Telkomsel 50"
Combo1.AddItem "Telkomsel Kuota"
Combo1.AddItem "XL 5"
Combo1.AddItem "XL 10"
Combo1.AddItem "XL 25"
Combo1.AddItem "XL 50"
Combo1.AddItem "XL 100"
Combo1.AddItem "Indosat 5"
Combo1.AddItem "Indosat 10"
Combo1.AddItem "Indosat 25"
Combo1.AddItem "Indosat 50"
Combo1.AddItem "Indosat Kuota"
Combo1.AddItem "XL Kuota"
Combo1.AddItem "Three 1"
Combo1.AddItem "Three 2 "
Combo1.AddItem "Three 5"
Combo1.AddItem "Three 10"
Combo1.AddItem "Three 20"
Combo1.AddItem "Three 50"
Combo1.AddItem "Three Kuota 1GB"
Combo1.AddItem "Three Kuota 2GB"
Combo1.AddItem "Three Kuota 3GB"
Combo1.AddItem "Three Kuota 4GB"
Combo1.AddItem "Three Kuota 8GB"
Combo1.AddItem "Three Kuota 10GB"
Combo1.AddItem "Three Blackberry"
Combo1.AddItem "Smartfren 10"
Combo1.AddItem "Smartfren 20"
Combo1.AddItem "Smartfren 50"
Combo1.AddItem "Smartfren 60"
Combo2.Text = "-Pilih-"
Combo2.AddItem "Telkomsel 5"
Combo2.AddItem "Telkomsel 10"
Combo2.AddItem "Telkomsel 20"
Combo2.AddItem "Telkomsel 50"
Combo2.AddItem "XL 5"
Combo2.AddItem "XL 10"
Combo2.AddItem "XL 25"
Combo2.AddItem "XL 50"
Combo2.AddItem "Indosat 5"
Combo2.AddItem "Indosat 10"
Combo2.AddItem "Indosat 25"
Combo2.AddItem "Indosat 50"
Combo2.AddItem "Indosat Kuota"
Combo2.AddItem "XL Kuota"
Combo2.AddItem "Three 1"
Combo2.AddItem "Three 2 "
Combo2.AddItem "Three 5"
Combo2.AddItem "Three 10"
Combo2.AddItem "Three 20"
Combo2.AddItem "Three 50"
Combo2.AddItem "Three Kuota 1GB"
Combo2.AddItem "Three Kuota 2GB"
Combo2.AddItem "Three Kuota 3GB"
Combo2.AddItem "Three Kuota 4GB"
Combo2.AddItem "Three Kuota 8GB"
Combo2.AddItem "Three Kuota 10GB"
Combo2.AddItem "Three Blackberry"
Combo2.AddItem "Smartfren 10"
Combo2.AddItem "Smartfren 20"
Combo2.AddItem "Smartfren 50"
Combo2.AddItem "Smartfren 60"
End Sub
Private Sub Command2_Click()
Dim totalhrg As Currency
Dim discount As Currency
Dim kembali As Currency
Dim jumlahbayar As Currency
Dim totalbayar As Currency
Dim a, b, c, d, e, f As Long
a = Text10.Text
b = Text11.Text
c = Text2.Text
d = TextQC2.Text
totalhrg = Val(a) + Val(b)
totalbarang = Val(c) + Val(d)
discount = totalhrg * 0.01
totalbayar = totalhrg - discount
Text3.Text = Format(totalbarang, "")
Text4.Text = Format(totalhrg, "Rp ,###,###")
Text5(0).Text = Format(discount, "Rp ###,###")
total = totalhrg - discount
Text6.Text = Format(totalbayar, "Rp ###,###")
Text8.Text = Format(kembali, "Rp ###,###")
e = Text7.Text
f = totalbayar
Text8.Text = Val(e) - Val(f)
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5(0).Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text10.Text = ""
Text11.Text = ""
TextQC2.Text = ""
TextC3.Text = ""
Combo1.Text = "- Pilih-"
Combo1.SetFocus
Combo2.Text = "-Pilih-"
Combo2.SetFocus
End Sub
Private Sub Command4_Click()
Form4.Label12 = Combo1.Text
Form4.Label13 = Combo2.Text
Form4.Label14 = Text1.Text
Form4.Label15 = TextC3.Text
Form4.Label16 = Text2.Text + " item"
Form4.Label17 = TextQC2.Text + " item"
Form4.Label18 = "Rp " + Text10.Text
Form4.Label19 = "Rp " + Text11.Text
Form4.Label20 = Text3.Text + " item"
Form4.Label21 = Text4.Text
Form4.Label22 = Text5.Text
Form4.Label23 = Text6.Text
Form4.Label24 = "Rp " + Text7.Text
Form4.Label25 = "Rp " + Text8.Text
'Label Form4 akan menampilkan isi combobox,Textbox Form3
Form4.Show
'Menampilkan Form4 ketika Command Button diklik.
End Sub
Lampiran 4 untuk Form4
Private Sub Home_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub dbarangdanharga_Click()
Form1.Hide
Form2.Show
Form3.Hide
Form4.Hide
End Sub
Private Sub transaksi_Click()
Form1.Hide
Form2.Hide
Form3.Show
Form4.Hide
End Sub
Private Sub struk_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Show
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Disusun Oleh:
Nama : Nur Aisyah
Kelas : 1A D3
NIM : 351 15 017
POLITEKNIK NEGERI UJUNG PANDANG
TAHUN 2015
KATA PENGANTAR
Puji syukur penulis panjatkan ke hadirat Allah Subhanahuwataala, atas limpahan rahmat-Nya sehingga Laporan Pembuatan Program Cash Register ini dapat diselesaikan sebagaimana mestinya. Laporan ini ditulis untuk memenuhi tugas mata kuliah Pengantar Kompter Bisnis serta sebagai laporan atas selesainya program kasir yang penulis buat.
Laporan ini menyajikan sedikit ilmu mengenai cara pembuatan kasir atau biasa disebut dengan cash register menggunakan software Microsoft Visual Basic 6.0 yang diharapkan nantinya dapat memberikan pengetahuan kepada pembaca langkah-langkah yang dilakukan dalam pembuatan program kasir ini serta memunculkan program-program pengembangan dari program yang penulis buat.
Akhirnya, penulis menyampaikan ucapan terima kasih kepada semua pihak khususnya dosen mata kuliah Pengantar Komputer Bisnis serta teman-teman yang telah memberikan bantuan yang sangat berharga dalam pembuatan program dan penyusunan laporan ini. Penulis juga menyadari bahwa program dan laporan yang penulis buat masih jauh dari kesempurnaan akan tetapi penulis berharap semoga laporan yang dibuat penulis dapat bermanfaat bagi para pembaca dan pihak-pihak yang membutuhkan program ini.
Makassar, 4 Januari 2016
Nur Aisyah
DAFTAR ISI
KATA PENGANTAR …………………………………………………………………………………………………………….. 1
DAFTAR ISI ………………………………………………………………………………………………………………………... 2
BAB I PENDAHULUAN
1.1 Latar Belakang …………………………………………………………………………………………………. 3
1.2 Rumusan Masalah …………………………………………………………………………………………… 4
1.3 Tujuan……………............................................................................................. 4
1.4 Manfaat…………………………………………………………………………………………………………… 4
BAB II PUSTAKA
2.1 Soft Buku Dasar Pemrograman Visual Basic……………………………………………………… 5
2.2 Website……………………………………………………………………………………………………………. 6
BAB III METODOLOGI
3.1 Alat dan Bahan………………………………………………………………………………………………... 8
3.2 Desain……………………………………………………………………………………………………………… 8
3.3 Penggunaan Rumus…………………………………………………………………………………………. 10
Bab IV HASIL
4.1 Tampilan Antarmuka………………………………………………………………………………………… 11
4.2 Prosesi Program……………………………………………………………………………………………….. 14
4.3 Output……………………………………………………………………………………………………………… 15
Bab V KESIMPULAN…………………………………………………………………………………………………………. 16
DAFTAR PUSTAKA………………………………………………………………………………………………………………. 17
LAMPIRAN…………………………………………………………………………………………………………………………. 18
BAB I
PENDAHULUAN
1.1 Latar Belakang
Maraknya penggunaan komputer di berbagai bidang kehidupan manusia, menuntut setiap orang untuk mengetahui dan mempelajari berbagai macam software pendukung yang dapat beroperasi pada komputer tersebut. Komputer merupakan salah satu penemuan tercanggih pada abad ini. Komputer merupakan cikal bakal lahirnya teknologi baru di bidang Ilmu Pengetahuan dan Teknologi.
Kemampuan komputer dalam melakukan penghitungan yang sangat cepat, dapat mempermudah manusia atau user dalam mengoperasikannya. Berbagai macam media pendukung untuk mengoptimalkan kinerja komputer banyak dibuat. Media tersebut berupa software atau program aplikasi yang hubungannya tidak dapat terpisahkan dari computer.
Software atau program aplikasi tersebut dibangun dengan menggunakan software lain. Banyak software yang digunakan untuk membangun software atau program aplikasi. Salah satunya bahasa pemrograman (programming language). Bahasa pemrograman pun memiliki beberapa tingkatan, disesuaikan dengan kemudahan akses yang dilakukan oleh komputer.
Dalam laporan kali ini, penulis telah membangun program aplikasi kecil dengan menggunakan salah satu bahasa pemrograman, yaitu Bahasa Pemrograman Visual Basic. Laporan ini disusun untuk memberikan sedikit gambaran kepada masyarakat tentang Bahasa Pemrograman Visual Basic khususnya dalam program Cash Register, mengingat bahasa pemrograman ini masih sangat jarang digunakan dan asing bagi kalangan awam. Penulis mencoba untuk membangun Program Aplikasi Pengasiran yang dapat diterapkan di berbagai perusahaan dan toko dengan menggunakan Bahasa Pemrograman Visual Basic.
1.2 Rumusan Masalah
Berdasarkan latar belakang diatas penulis dapat merumuskan masalah pembuatan program sebagai berikut:
1.2.1 Program apa yang akan dibuat oleh penulis.
1.2.2 Bagaimana membuat program yang dapat membantu penjual toko klontong dalam melayani pelanggannya.
1.2.3 Bagaimana desain program cash register visual basic 6.0.
1.2.4 Bagaimana penggunaan rumus untuk menjalankan program.
1.2.5 Bagaimana langkah – langkah yang harus dikerjakan agar program dapat berjalan.
1.3 Tujuan
1.3.1 Memenuhi tugas mata kuliah Pengantar Komputer Bisnis untuk Jurusan Administrasi Bisnis.
1.3.2 Mempermudah penjual toko klontong dalam menjalankan proses penjualan yang dilakukannya. Program ini diharap membantu penjual toko klontong sehingga dapat menggunakan waktu untuk melayani satu pelanggan secara efisien dan efektif.
1.4 Manfaat
1.4.1 Penulis memperoleh pengetahuan tentang penggunaan Software Visual Basic 6.0 secara mendetail mengenai penggunaan properties.
1.4.2 Penulis mampu membuat program Cash Register sederhana.
1.4.3 Penjual toko klontong dapat menggunakan program ini untuk mempermudah pekerjaannya.
BAB II
PUSTAKA
2 Qasa
Dalam pembuatan program cash register di visual basic, penulis mengacu kepada beberapa sumber diantaranya :
2.1 Soft Buku Dasar Pemrograman Visual Basic
Soft Buku berbentuk pdf oleh H.Ary Setiadi yang berjudul Dasar Pemrograman Visual Basic yang membahas mengenai dasar-dasar program visual basic. Di dalam buku ini penulis belajar mengenai cara:
2.1.1 Cara membuat project baru
Klik 2 kali pada program visual basic lalu pilih Open, maka project baru akan muncul bersama dengan form1. Form1 adalah tempat kita untuk membangun tampilan dari program aplikasi yang akan kita buat.
2.1.2 Untu memasukkan gambar pada form, klik icon pada toolbox kemudian tarik ke posisi dimana gambar itu akan diletakkan.
2.1.3 Untuk memasukkan label pada form, klik icon pada toolbox kemudian tarik ke posisi dimana label itu akan diletakkan.
Untuk mengubah isi text pada label maka pada kotak properties pilih Caption lalu isi text sesuai dengan yang diinginkan.
Untuk mengubah warna latar pada label maka pada kotak properties pilih BackColor lalu ubah warna label sesuai yang diinginkan.
Untuk mengubah warna text pada label maka pada kotak properties pilih ForeColor.
Untuk mengubah jenis tulisan dan font size dari label maka pada kotak properties pilih Font.
2.1.4 Untuk memasukkan TextBox pada form, klik icon pada toolbox kemudian tarik ke posisi dimana textbox itu akan diletakkan. Jika ingin mengubah isi text dari TextBox maka pada kotak properties pilih Text lalu isi text sesuai dengan yang diinginkan.
Untuk mengubah warna latar pada TextBox maka pada kotak properties pilih BackColor lalu ubah warna label sesuai yang diinginkan.
Untuk mengubah warna text pada TextBox maka pada kotak properties pilih ForeColor.
Untuk mengubah jenis tulisan dan font size dari TextBox maka pada kotak properties pilih Font.
2.1.5 Untuk memasukkan CommandButton pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana CommandButton itu akan diletakkan.
2.1.6 Untuk memasukkan Frame pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana Frame akan diletakkan.
2.1.7 Untuk memasukkan OptionButton pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana OptionButton akan diletakkan.
2.1.8 Untuk memasukkan ListBox pada form, maka klik icon pada toolbox kemudian tarik ke posis dimana ListBox akan diletakkan.
2.2 Website
2.2.1 Website resmi dari Club Computer Universitas Dipanegara dengan alamat website http://dcc-dp.org yang membahas mengenai cara membuatan Menu Bar pada form. Untuk membuat Menu Bar dapat dilakukan dengan cara :
Pada form yang aktif, klik Menu Tools lalu Pilih Menu Editor atau bisa juga dengan menekan ctrl + E.
Kemudian akan muncul tampilan seperti dibawah ini. Isilah Caption dan Name sesuai dengan yang diinginkan.
2.2.2 Blog dari Vivit Trianti dengan alamat web http://vivittrianti.blogspot.co.id yang menjelaskan cara pembuatan Form Transaksi. Dimana dalam form ini akan digunakan komponen-komponen pada pustaka 2.2.1 dengan tambahan ComboBox. Untuk memasukkan icon ini pada form, maka klik icon pada toolbox kemudian tarik ke posisi dimana ComboBox akan diletakkan.
2.2.3 Website dengan alamat website http://trikmudahvb6.blogspot.co.id yang berisi mengenai cara menampilkan data dari form 1 ke form lainnya yaitu dengan cara CommandButton diisi dengan perintah seperti contoh dibawah ini
BAB III
METODOLOGI
3
3.1 Alat dan Bahan
Alat :
o Komputer
o Software visual basic versi 6.0
Bahan :
o Bahan ajar “dasar pemrograman visual basic” oleh H. Ary Setiadi bentuk pdf
o Website dan situs mengenai Visual Basic 6.0
3.2 Desain
3.3 Penggunaan Rumus
Jumlah Harga = Harga Barang * Banyaknya Barang
Total Barang = Banyaknya Barang1 + Banyaknya Barang 2
Total Harga Barang = Jumlah Harga Barang1 + Jumlah Harga Barang2
Discount = Total Harga Barang * 0.01
Total Bayar = Total Harga Barang – Discount
Jumlah Uang Kembali = Jumlah Uang yang Dibayar – Total Bayar
BAB IV
HASIL
4
4.1 Tampilan Antarmuka
4.2 Prosesi Program
4.2.1 Tampilan Form1 berfungsi untuk melindungi program dari pihak-pihak yang tidak berkepentingan sehingga program hanya dapat dijalankan oleh pihak-pihak yang bertugas (kasir). Tampilan form1 menampilkan home yang berisi perintah untuk memasukkan nama user (nur aisyah) dan password (admniaga) seperti pada Gambar 4.1.
4.2.2 Tampilan Form2 berfungsi untuk memberikan informasi kepada kasir mengenai rincian barang dan harga barang toko klontong seperti pada Gambar 4.2.
Jika mengklik tombol Option1(Telkomsel )maka pada Listbox akan muncul barang dan harga barang dari produk Telkomsel
Jika mengklik tombol Option2(XL Axiata) maka pada Listbox pada akan muncul barang dan harga barang dari produk XL Axiata
Jika mengklik tombol Option3(Indosat) maka pada Listbox pada akan muncul barang dan harga barang dari produk Indosat
Jika mengklik tombol Option4(Three) maka pada Listbox pada akan muncul barang dan harga barang dari produk Three
Jika mengklik tombol Option5 (Smartfren)maka pada Listbox pada akan muncul barang dan harga barang dari produk Smartfren
4.2.3 Tampilan From3 berfungsi untuk menginput transaksi penjualan barang toko klontong seperti pada Gambar 4.3 dengan cara :
Langkah pertama yaitu dengan mengisi box Banyaknya Barang kemudian pilih barang dari ComboBox maka secara otomatis harga dari barang dan jumlah barang akan muncul.
Kemudian masukkan jumlah pembayaran dari pelanggan lalu klik Command Hitung, maka secara otomatis nilai dari Total Barang, Total Harga Barang, Discount, Total Bayar dan Jumlah Uang Kembali akan muncul.
Kemudian klik Command (Refresh) untuk mengulang kegiatan transaksi.
Setelah menjalankan proses diatas maka akan tampil seperti pada Gambar 4.4.
4.2.4 Tampilan Form4 berfungsi untuk menampilkan Data Penjualan dari Toko Klontong. Pada form ini akan tampilan Rincian data penjualan kepada pelanggan seperti yang terlihat pada Gambar 4.5.
4.3 Output Program
Ketika program berjalan dan kita memasukkan data yang kita punya maka hasil dari program Cash Register ini akan memunculkan seperti gambar dibawah ini.
BAB V
KESIMPULAN
5
5.1 Kesimpulan
Program ini dirancang oleh penulis agar program ini dapat digunakan dan bermanfaat bagi masyarakat. Adapun kendala yang penulis alami selama membuat program ini yakni diskon yang diberikan sama kepada semua pelanggan. Penulis belum mampu menemukan rumus yang menentukan batas pembayaran untuk mendapatkan diskon. Kendala lain yang penulis alami adalah penulis belum mampu membuat data penjualan yang merupakan salah satu indikator penilian dari tugas ini. Masalah lain yang penulis hadapi yakni perpindahan antarform belum begitu transparan sehingga terkadang akan nampak perpindahan antar form satu ke form berikutnya. Penulis juga berharap dengan adanya laporan ini, maka nantinya akan ada program kasir yang lebih berkembang dari program yang dibuat penulis.
DAFTAR PUSTAKA
http://vittrianti.blogspot.co.id/2013/01/visual-basic-program-penjualan-barang.html
http://www.vbforums.com/showthread.php?736679-Cash-Register-Class
http://dcc-dp.org/berita503-membuat-menu-bar-dan-toolbar-di-visual-basic-6-0.html
Soft Buku karangan H.Ary Setiadi Dasar Pemrograman Visual Basic
LAMPIRAN
Lampiran 1 untuk Form1.
Private Sub Command1_Click()
If Text1 = "nur aisyah" And Text2 = "admniaga" Then
Form2.Show 'Perintah Menampilkan Form 2
Form1.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Lampiran 2 untuk From2.
Private Sub Home_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub dbarangdanharga_Click()
Form1.Hide
Form2.Show
Form3.Hide
Form4.Hide
End Sub
Private Sub transaksi_Click()
Form1.Hide
Form2.Hide
Form3.Show
Form4.Hide
End Sub
Private Sub struk_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Show
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Private Sub Option1_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Simpati/AS 5K 7.000"
List1.AddItem "Simpati/AS 10K 12.000"
List1.AddItem "Simpati/AS 20K 22.000"
List1.AddItem "Simpati/AS 50K 52.000"
List1.AddItem "Telkomsel Kuota 55.000"
End Sub
Private Sub Option2_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "XL 5K 7.000"
List1.AddItem "XL 10K 12.000"
List1.AddItem "XL 25K 27.000"
List1.AddItem "XL 50K 53.000"
List1.AddItem "XL Kuota 35.000"
End Sub
Private Sub Option3_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Indosat 5K 7.000"
List1.AddItem "Indosat 10K 12.000"
List1.AddItem "Indosat 25K 26.000"
List1.AddItem "Indosat 50K 52.000"
List1.AddItem "Indosat Kuota 55.000"
End Sub
Private Sub Option4_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Three 1K 2.000"
List1.AddItem "Three 2K 4.000"
List1.AddItem "Three 5K 7.000"
List1.AddItem "Three 10K 12.000"
List1.AddItem "Three 20K 22.000"
List1.AddItem "Three 50K 52.000"
List1.AddItem "Three Kuota 1GB 20.000"
List1.AddItem "Three Kuota 2GB 35.000"
List1.AddItem "Three Kuota 3GB 47.000"
List1.AddItem "Three Kuota 4GB 55.000"
List1.AddItem "Three Kuota 8GB 100.000"
List1.AddItem "Three Kuota 10GB 125.000"
List1.AddItem "Three Blackberry 120.000"
End Sub
Private Sub Option5_Click()
List1.Clear
List1.AddItem "Nama Barang Harga"
List1.AddItem "Smartfren 10K 12.000"
List1.AddItem "Smartfren 20K 22.000"
List1.AddItem "Smartfren 50K 54.000"
List1.AddItem "Smartfren 60K 65.000"
End Sub
Lampiran 3 untuk Form 3
Private Sub Home_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub dbarangdanharga_Click()
Form1.Hide
Form2.Show
Form3.Hide
Form4.Hide
End Sub
Private Sub transaksi_Click()
Form1.Hide
Form2.Hide
Form3.Show
Form4.Hide
End Sub
Private Sub struk_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Show
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "Telkomsel 5" Then
harga = "7000"
ElseIf Combo1.Text = "Telkomsel 10" Then
harga = "12000"
ElseIf Combo1.Text = "Telkomsel 20" Then
harga = "22000"
ElseIf Combo1.Text = "Telkomsel 50" Then
harga = "52000"
ElseIf Combo1.Text = "Telkomsel Kuota" Then
harga = "55000"
ElseIf Combo1.Text = "XL 5" Then
harga = "7000"
ElseIf Combo1.Text = "XL 10" Then
harga = "12000"
ElseIf Combo1.Text = "XL 25" Then
harga = "27000"
ElseIf Combo1.Text = "XL 50" Then
harga = "53000"
ElseIf Combo1.Text = "XL Kuota" Then
harga = "35000"
ElseIf Combo1.Text = "Indosat 5" Then
harga = "7000"
ElseIf Combo1.Text = "Indosat 10" Then
harga = "12000"
ElseIf Combo1.Text = "Indosat 25" Then
harga = "26000"
ElseIf Combo1.Text = "Indosat 50" Then
harga = "52000"
ElseIf Combo1.Text = "Indosat Kuota" Then
harga = "55000"
ElseIf Combo1.Text = "Three 1" Then
harga = "2000"
ElseIf Combo1.Text = "Three 2" Then
harga = "4000"
ElseIf Combo1.Text = "Three 5" Then
harga = "7000"
ElseIf Combo1.Text = "Three 10" Then
harga = "12000"
ElseIf Combo1.Text = "Three 20" Then
harga = "22000"
ElseIf Combo1.Text = "Three 50" Then
harga = "52000"
ElseIf Combo1.Text = "Three Kuota 1GB" Then
harga = "20000"
ElseIf Combo1.Text = "Three Kuota 2GB" Then
harga = "35000"
ElseIf Combo1.Text = "Three Kuota 3GB" Then
harga = "47000"
ElseIf Combo1.Text = "Three Kuota 4GB" Then
harga = "55000"
ElseIf Combo1.Text = "Three Kuota 8GB" Then
harga = "100000"
ElseIf Combo1.Text = "Three Kuota 10GB" Then
harga = "125000"
ElseIf Combo1.Text = "Three Blackberry" Then
harga = "120000"
ElseIf Combo1.Text = "Smartfren 10" Then
harga = "12000"
ElseIf Combo1.Text = "Smartfren 20" Then
harga = "22000"
ElseIf Combo1.Text = "Smartfren 50" Then
harga = "54000"
ElseIf Combo1.Text = "Smartfren 60" Then
harga = "65000"
End If
Text1.Text = Format(harga, "###,###")
Text10.Text = harga * Val(Text2.Text)
End Sub
Private Sub Combo2_Click()
Dim nama As String
Dim harga As Currency
If Combo2.Text = "Telkomsel 5" Then
harga = "7000"
ElseIf Combo2.Text = "Telkomsel 10" Then
harga = "12000"
ElseIf Combo2.Text = "Telkomsel 20" Then
harga = "22000"
ElseIf Combo2.Text = "Telkomsel 50" Then
harga = "57000"
ElseIf Combo2.Text = "XL 5" Then
harga = "7000"
ElseIf Combo2.Text = "XL 10" Then
harga = "12000"
ElseIf Combo2.Text = "XL 25" Then
harga = "27000"
ElseIf Combo2.Text = "XL 50" Then
harga = "53000"
ElseIf Combo2.Text = "XL Kuota" Then
harga = "35000"
ElseIf Combo2.Text = "Indosat 5" Then
harga = "7000"
ElseIf Combo2.Text = "Indosat 10" Then
harga = "12000"
ElseIf Combo2.Text = "Indosat 25" Then
harga = "26000"
ElseIf Combo2.Text = "Indosat 50" Then
harga = "52000"
ElseIf Combo2.Text = "Indosat Kuota" Then
harga = "55000"
ElseIf Combo2.Text = "Three 1" Then
harga = "2000"
ElseIf Combo2.Text = "Three 2" Then
harga = "4000"
ElseIf Combo2.Text = "Three 5" Then
harga = "7000"
ElseIf Combo2.Text = "Three 10" Then
harga = "12000"
ElseIf Combo2.Text = "Three 20" Then
harga = "22000"
ElseIf Combo2.Text = "Three 50" Then
harga = "52000"
ElseIf Combo2.Text = "Three Kuota 1GB" Then
harga = "20000"
ElseIf Combo2.Text = "Three Kuota 2GB" Then
harga = "35000"
ElseIf Combo2.Text = "Three Kuota 3GB" Then
harga = "47000"
ElseIf Combo2.Text = "Three Kuota 4GB" Then
harga = "55000"
ElseIf Combo2.Text = "Three Kuota 8GB" Then
harga = "100000"
ElseIf Combo2.Text = "Three Kuota 10GB" Then
harga = "125000"
ElseIf Combo2.Text = "Three Blackberry" Then
harga = "120000"
ElseIf Combo2.Text = "Smartfren 10" Then
harga = "12000"
ElseIf Combo2.Text = "Smartfren 20" Then
harga = "22000"
ElseIf Combo2.Text = "Smartfren 50" Then
harga = "54000"
ElseIf Combo2.Text = "Smartfren 60" Then
harga = "65000"
End If
TextC3.Text = Format(harga, "###,###")
Text11.Text = harga * Val(TextQC2.Text)
End Sub
Private Sub form_load()
Combo1.Text = "-Pilih-"
Combo1.AddItem "Telkomsel 5"
Combo1.AddItem "Telkomsel 10"
Combo1.AddItem "Telkomsel 20"
Combo1.AddItem "Telkomsel 50"
Combo1.AddItem "Telkomsel Kuota"
Combo1.AddItem "XL 5"
Combo1.AddItem "XL 10"
Combo1.AddItem "XL 25"
Combo1.AddItem "XL 50"
Combo1.AddItem "XL 100"
Combo1.AddItem "Indosat 5"
Combo1.AddItem "Indosat 10"
Combo1.AddItem "Indosat 25"
Combo1.AddItem "Indosat 50"
Combo1.AddItem "Indosat Kuota"
Combo1.AddItem "XL Kuota"
Combo1.AddItem "Three 1"
Combo1.AddItem "Three 2 "
Combo1.AddItem "Three 5"
Combo1.AddItem "Three 10"
Combo1.AddItem "Three 20"
Combo1.AddItem "Three 50"
Combo1.AddItem "Three Kuota 1GB"
Combo1.AddItem "Three Kuota 2GB"
Combo1.AddItem "Three Kuota 3GB"
Combo1.AddItem "Three Kuota 4GB"
Combo1.AddItem "Three Kuota 8GB"
Combo1.AddItem "Three Kuota 10GB"
Combo1.AddItem "Three Blackberry"
Combo1.AddItem "Smartfren 10"
Combo1.AddItem "Smartfren 20"
Combo1.AddItem "Smartfren 50"
Combo1.AddItem "Smartfren 60"
Combo2.Text = "-Pilih-"
Combo2.AddItem "Telkomsel 5"
Combo2.AddItem "Telkomsel 10"
Combo2.AddItem "Telkomsel 20"
Combo2.AddItem "Telkomsel 50"
Combo2.AddItem "XL 5"
Combo2.AddItem "XL 10"
Combo2.AddItem "XL 25"
Combo2.AddItem "XL 50"
Combo2.AddItem "Indosat 5"
Combo2.AddItem "Indosat 10"
Combo2.AddItem "Indosat 25"
Combo2.AddItem "Indosat 50"
Combo2.AddItem "Indosat Kuota"
Combo2.AddItem "XL Kuota"
Combo2.AddItem "Three 1"
Combo2.AddItem "Three 2 "
Combo2.AddItem "Three 5"
Combo2.AddItem "Three 10"
Combo2.AddItem "Three 20"
Combo2.AddItem "Three 50"
Combo2.AddItem "Three Kuota 1GB"
Combo2.AddItem "Three Kuota 2GB"
Combo2.AddItem "Three Kuota 3GB"
Combo2.AddItem "Three Kuota 4GB"
Combo2.AddItem "Three Kuota 8GB"
Combo2.AddItem "Three Kuota 10GB"
Combo2.AddItem "Three Blackberry"
Combo2.AddItem "Smartfren 10"
Combo2.AddItem "Smartfren 20"
Combo2.AddItem "Smartfren 50"
Combo2.AddItem "Smartfren 60"
End Sub
Private Sub Command2_Click()
Dim totalhrg As Currency
Dim discount As Currency
Dim kembali As Currency
Dim jumlahbayar As Currency
Dim totalbayar As Currency
Dim a, b, c, d, e, f As Long
a = Text10.Text
b = Text11.Text
c = Text2.Text
d = TextQC2.Text
totalhrg = Val(a) + Val(b)
totalbarang = Val(c) + Val(d)
discount = totalhrg * 0.01
totalbayar = totalhrg - discount
Text3.Text = Format(totalbarang, "")
Text4.Text = Format(totalhrg, "Rp ,###,###")
Text5(0).Text = Format(discount, "Rp ###,###")
total = totalhrg - discount
Text6.Text = Format(totalbayar, "Rp ###,###")
Text8.Text = Format(kembali, "Rp ###,###")
e = Text7.Text
f = totalbayar
Text8.Text = Val(e) - Val(f)
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5(0).Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text10.Text = ""
Text11.Text = ""
TextQC2.Text = ""
TextC3.Text = ""
Combo1.Text = "- Pilih-"
Combo1.SetFocus
Combo2.Text = "-Pilih-"
Combo2.SetFocus
End Sub
Private Sub Command4_Click()
Form4.Label12 = Combo1.Text
Form4.Label13 = Combo2.Text
Form4.Label14 = Text1.Text
Form4.Label15 = TextC3.Text
Form4.Label16 = Text2.Text + " item"
Form4.Label17 = TextQC2.Text + " item"
Form4.Label18 = "Rp " + Text10.Text
Form4.Label19 = "Rp " + Text11.Text
Form4.Label20 = Text3.Text + " item"
Form4.Label21 = Text4.Text
Form4.Label22 = Text5.Text
Form4.Label23 = Text6.Text
Form4.Label24 = "Rp " + Text7.Text
Form4.Label25 = "Rp " + Text8.Text
'Label Form4 akan menampilkan isi combobox,Textbox Form3
Form4.Show
'Menampilkan Form4 ketika Command Button diklik.
End Sub
Lampiran 4 untuk Form4
Private Sub Home_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub dbarangdanharga_Click()
Form1.Hide
Form2.Show
Form3.Hide
Form4.Hide
End Sub
Private Sub transaksi_Click()
Form1.Hide
Form2.Hide
Form3.Show
Form4.Hide
End Sub
Private Sub struk_Click()
Form1.Hide
Form2.Hide
Form3.Hide
Form4.Show
End Sub
Private Sub Tutup_Click()
Unload Me
End Sub
Komentar
Posting Komentar