Membuat Aplikasi Penjualan Toko Olahraga | Menggunakan Vb.net

Assalamualaikum

Kali ini saya memposting tugas pemprograman 1 , yaitu membuat aplikasi penjualan toko olahraga "SPORT STATION" , menggunakan Visual Basic 2013 , dan Vb.net , dalam Aplikasi ini kita dapat memasukan kode barang untuk memunculkan gambar dan informasi barang yang kita inginkan , dan akan mendapat diskon jika member sebesar 10% , lalu juga akan memprint di microsoft word dan laporan di microsoft excel .

Berikut adalah screenshoot dari aplikasi yang saya buat

Ini adalah program sebelum di Run

Lalu tekan tombol F5 untuk menjalankan program

Masukan nama customer dan kode barang lalu klik cari

Setelah di klikk cari maka akan muncul gambar dan infomasi produk seperti diatas

Jika mempunyai member klik check box dan masukan no member dan akan memdapatkan diskon 10 % , lalu masukan jumlah yang ingin di beli , lalu masukan metode pembayaran dan masukan jumlah bayar , lalu klik hitung maka akan muncul kembalian nya , lalu klik PRINT

Ini hasil klik print dan menjadi berupa struk

Ini adalah tampilan laporan penjualan di excel

Sekian dari saya lebih kurang nya mohon maaf  , Terima kasih
Wassalamualikum

Berikut source code nya

Imports word = Microsoft.Office.Interop.Word Imports excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim jumlah As Integer For jumlah = 1 To 10 Step +1 TbJumlah.Items.Add(jumlah) Next End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click End Sub Private Sub BtPrint_Click(sender As Object, e As EventArgs) Handles BtPrint.Click Dim appword As New word.Application Dim fileword As New word.Document fileword = appword.Documents.Open("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation.docx") fileword.Bookmarks("Nama").Select() appword.Selection.TypeText(TbNama.Text) fileword.Bookmarks("NoMember").Select() appword.Selection.TypeText(TbMember.Text) fileword.Bookmarks("KodeBarang").Select() appword.Selection.TypeText(TbKodeBarang.Text) fileword.Bookmarks("NamaBarang").Select() appword.Selection.TypeText(TbNamaBarang.Text) fileword.Bookmarks("Harga").Select() appword.Selection.TypeText(TbHarga.Text) fileword.Bookmarks("Jumlah").Select() appword.Selection.TypeText(TbJumlah.Text) fileword.Bookmarks("Diskon").Select() appword.Selection.TypeText(TbDiskon.Text) fileword.Bookmarks("Total").Select() appword.Selection.TypeText(TbTotal.Text) fileword.Bookmarks("MetodePembayaran").Select() If RbCash.Checked = True Then appword.Selection.TypeText(RbCash.Text) ElseIf RbCard.Checked = True Then appword.Selection.TypeText(RbCard.Text) End If fileword.Bookmarks("Bayar").Select() appword.Selection.TypeText(TbBayar.Text) fileword.Bookmarks("Kembalian").Select() appword.Selection.TypeText(TbKembalian.Text) fileword.SaveAs2("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation1.docx") MsgBox("Thanks For Shoping") appword.Visible = True Dim appexcel As New excel.Application Dim fileexcel As excel.Workbook fileexcel = appexcel.Workbooks.Open("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation.xlsx") appexcel.Range("A4").Value = TbNama.Text appexcel.Range("B4").Value = TbMember.Text appexcel.Range("C4").Value = TbNamaBarang.Text appexcel.Range("D4").Value = TbKodeBarang.Text appexcel.Range("E4").Value = TbHarga.Text appexcel.Range("F4").Value = TbJumlah.Text appexcel.Range("G4").Value = TbDiskon.Text appexcel.Range("H4").Value = TbTotal.Text If RbCash.Checked = True Then appexcel.Range("I4").Value = RbCash.Text ElseIf RbCard.Checked = True Then appexcel.Range("I4").Value = RbCard.Text End If appexcel.Range("J4").Value = TbBayar.Text appexcel.Range("K4").Value = TbKembalian.Text fileexcel.SaveAs("D:\Tugas Kuliah\SEMESTER 4\UTSVB\SportStation1.xlsx") MsgBox("Thanks For Shoping") appexcel.Visible = True End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = False Then TbMember.Text = "0" TbMember.ReadOnly = True ElseIf CheckBox1.Checked = True Then MsgBox("Diskon 10% Untuk Member") TbMember.Text = "" TbMember.ReadOnly = False End If End Sub Private Sub TbMember_TextChanged(sender As Object, e As EventArgs) Handles TbMember.TextChanged End Sub Private Sub BtCari_Click(sender As Object, e As EventArgs) Handles BtCari.Click Select Case TbKodeBarang.Text Case 1 PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\1.png") TbNamaBarang.Text = "Nike Free" TbBahan.Text = "Nylon" TbJenis.Text = "Sepatu Lari" TbGender.Text = "Laki-Laki" TbHarga.Text = "999000" TbHarga1.Text = "999000" Case 2 PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\2.png") TbNamaBarang.Text = "Adidas Samba" TbBahan.Text = "Suede" TbJenis.Text = "Sepatu Casual" TbGender.Text = "Laki-Laki" TbHarga.Text = "899000" TbHarga1.Text = "899000" Case 3 PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\3.png") TbNamaBarang.Text = "Reebok MeshRun" TbBahan.Text = "Nylon Mesh" TbJenis.Text = "Sepatu Lari" TbGender.Text = "Perempuan" TbHarga.Text = "859000" TbHarga1.Text = "859000" Case 4 PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\4.png") TbNamaBarang.Text = "Converse Tee" TbBahan.Text = "Katun" TbJenis.Text = "Kaus Kasual" TbGender.Text = "Unisex" TbHarga.Text = "299000" TbHarga1.Text = "299000" Case 5 PictureBox1.Image = System.Drawing.Image.FromFile("D:\Tugas Kuliah\SEMESTER 4\UTSVB\Images\5.png") TbNamaBarang.Text = "Asics Pants" TbBahan.Text = "Polyster" TbJenis.Text = "Celana Olahraga" TbGender.Text = "Unisex" TbHarga.Text = "359000" TbHarga1.Text = "359000" Case Else MsgBox(" Kode Barang Tidak Ada ") End Select End Sub Private Sub BtHitung_Click(sender As Object, e As EventArgs) Handles BtHitung.Click If RbCash.Checked = True Then TbKembalian.Text = TbTotal.Text - TbBayar.Text ElseIf RbCard.Checked = True Then TbBayar.Text = TbTotal.Text TbKembalian.Text = "0" End If End Sub Private Sub RbCash_CheckedChanged(sender As Object, e As EventArgs) Handles RbCash.CheckedChanged Dim total As Integer total = TbHarga.Text * TbJumlah.Text If CheckBox1.Checked = True Then TbDiskon.Text = total * 0.1 ElseIf CheckBox1.Checked = False Then TbDiskon.Text = "0" End If TbTotal.Text = total - TbDiskon.Text If RbCash.Checked = True Then TbBayar.Text = "" TbKembalian.Text = "" TbBayar.ReadOnly = False End If End Sub Private Sub RbCard_CheckedChanged(sender As Object, e As EventArgs) Handles RbCard.CheckedChanged Dim total As Integer total = TbHarga.Text * TbJumlah.Text If CheckBox1.Checked = True Then TbDiskon.Text = total * 0.1 ElseIf CheckBox1.Checked = False Then TbDiskon.Text = "0" End If TbTotal.Text = total - TbDiskon.Text If RbCard.Checked = True Then TbBayar.Text = "" TbKembalian.Text = "" TbBayar.ReadOnly = True End If End Sub End Class