Membuat Aplikasi Penjualan Sepatu Dengan Output ke Word dan Excel

salam...
   kali ini saya akan membuat tutorial tentang program aplikasi penjualan sepatu menggunakan aplikasi visual studio (saya menggunakan visual studio 2013) dan bahasa pemrograman yaitu VB net,dalam program kali ini,Output Struk bukti Transaksi akan tercetak pada ms.word atau ms.excel.
langsung saja kita mulai.

pertama jika sudah menginstal visual studio nya maka kita perlu membuat project baru terlebih dahulu,yaitu dengan cara :

 

- klik new pada file

- klik new project

- pilih Windows Form Application dan berikan nama Project nya lalu klik ok

jika sudah maka akan muncul form kosong,maka tambahkan item pada toolbox seperti ini :

dan buat lah seperti ini :

- membutuhkan 8 label.

- membutuhkan 7 textbox dan 1 combobox lalu ubah name menjadi :

• tbxcari untuk bagian cari sepatu
• tbxsize untuk bagian ukuran sepatu
• tbxharga untuk bagian harga
• cbjumlah untuk bagian jumlah beli
• tbxdiskon untuk bagian diskon
• tbxtotal untuk bagian harga total
• tbxbayar untuk bagian bayar
• tbxkembalian untuk bagian kembalian

- membutuhkan 7 button dan ubah name menjadi :

• btncari untuk bagian cari
• btntotal untuk bagian hitung total
• btnhitung untuk bagian hitung
• btnword untuk bagian cetak word
• btnexcel untuk bagian  cetak excel
• btnalertdiskon untuk bagian button tanda ? pada diskon
• btnalertcari untuk bagian button tanda ? pada cari model

- membutuhkan 1 picturebox.
- membutuhkan 4 radio button dan ganti name menjadi :

• rbnike untuk bagian nike 
• rbquik untuk bagian quiksilver
• rbadidas untuk bagian adidas
• rbconverse untuk bagian converse

lalu buat file excel dan word untuk menampung data transaksi seperti :
jika sudah mengetik nama nama nya lalu di bookmars.

 buat seperti gambar di bawah.

lalu aktifkan dulu koneksi ke word dan excel dengan cara :

klik project lalu klik add reference lalu ceklis ms word dan excel lalu klik ok.

kita masuk bagian coding.

masukan script ini dengan cara klik bagian form nya 2x,fungsi nya untuk memunculkan jumlah tiket pada combobox.

Dim jumlah As Integer For jumlah = 1 To 10
 cbjumlah.Items.Add(jumlah) Next.

masukan script di bagian paling atas,di atas public class form1.
untuk mengkoneksikan ke word dan excel.

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

masukan script ini pada button cetak word.
untuk mencetak hasil dari inputan ke output pada word.

Dim aplikasi As New word.Application
        Dim file As New word.Document
        file = aplikasi.Documents.Open("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\Data Transaksi\transaksi1.docx")
        file.Bookmarks("Merek_Spatu").Select()
        If rbadidas.Checked = True Then
            aplikasi.Selection.TypeText(rbadidas.Text)
        ElseIf rbnike.Checked = True Then
            aplikasi.Selection.TypeText(rbnike.Text)
        ElseIf rbquik.Checked = True Then
            aplikasi.Selection.TypeText(rbquik.Text)
        ElseIf rbconverse.Checked = True Then
            aplikasi.Selection.TypeText(rbconverse.Text)
        End If

        file.Bookmarks("Model_Sepatu").Select()
        aplikasi.Selection.TypeText(tbxcari.Text)

        file.Bookmarks("Ukuran_Spatu").Select()
        aplikasi.Selection.TypeText(tbxsize.Text)

        file.Bookmarks("Harga").Select()
        aplikasi.Selection.TypeText(tbxharga.Text)

        file.Bookmarks("Jumlah_Beli").Select()
        aplikasi.Selection.TypeText(cbjumlah.Text)

        file.Bookmarks("Diskon").Select()
        aplikasi.Selection.TypeText(tbxdiskon.Text)

        file.Bookmarks("Harga_Total").Select()
        aplikasi.Selection.TypeText(tbxtotal.Text)

        file.Bookmarks("Bayar").Select()
        aplikasi.Selection.TypeText(tbxbayar.Text)

        file.Bookmarks("Kembalian").Select()
        aplikasi.Selection.TypeText(tbxkembalian.Text)

        file.SaveAs2("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\Data Transaksi\transaksi4.docx")
        MsgBox("Sukses")
        aplikasi.Visible = True

masukan script ini pada button cetak excel.
untuk mencetak hasil dari inputan ke output pada word.
 

 Dim aplikasiexcel As New excel.Application
        Dim fileexcel As excel.Workbook
        fileexcel = aplikasiexcel.Workbooks.Open("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\Data Transaksi\transaksi.xlsx")
        If rbadidas.Checked = True Then
            aplikasiexcel.Range("A3").Value = rbadidas.Text
        ElseIf rbnike.Checked = True Then
            aplikasiexcel.Range("A3").Value = rbnike.Text
        ElseIf rbquik.Checked = True Then
            aplikasiexcel.Selection.TypeText = rbquik.Text
        ElseIf rbconverse.Checked = True Then
            aplikasiexcel.Range("A3").Value = rbconverse.Text
        End If

        aplikasiexcel.Range("B3").Value = tbxcari.Text
        aplikasiexcel.Range("C3").Value = tbxsize.Text
        aplikasiexcel.Range("D3").Value = tbxharga.Text
        aplikasiexcel.Range("E3").Value = cbjumlah.Text
        aplikasiexcel.Range("F3").Value = tbxdiskon.Text
        aplikasiexcel.Range("G3").Value = tbxtotal.Text
        aplikasiexcel.Range("H3").Value = tbxbayar.Text
        aplikasiexcel.Range("I3").Value = tbxkembalian.Text
        fileexcel.SaveAs("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\Data Transaksi\transaksi1.xlsx")
        MsgBox("sukses")
        aplikasiexcel.Visible = True
    End Sub

masukan script ini pada setiap radio button nike,quiksilver,adidas,converse,hanya di ganti nama lokasi penyimpanan gambar dan nama gambar nya saja pada script nya.
untuk menampilkan gambar jika radio button tersebut di klik.

 Select Case tbxcari.Text
            Case 1
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q1.jpg")
            Case 2
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q2.jpg")
            Case 3
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q3.jpg")
            Case 4
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q4.jpg")
            Case 5
                pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q5.jpg")
        End Select

masukan script ini pada btncari.
untuk mencari model sepatu yang di inginkan,terdapat alert di sini,jika memilih model sepatu yang akan di pilih melebihi jumlah batas stok maka akan muncul alert.

If tbxcari.Text > 5 Then
            MsgBox("Model Sepatu Hanya Tersedia Sampai 5 Saat ini")

        ElseIf rbnike.Checked = True Then
            Select Case tbxcari.Text
                Case 1
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\1.jpg")
                    tbxharga.Text = "1000000"
                Case 2
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\2.jpg")
                    tbxharga.Text = "1100000"
                Case 3
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\n3.jpg")
                    tbxharga.Text = "1200000"
                Case 4
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\n4.jpg")
                    tbxharga.Text = "1300000"
                Case 5
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\n5.jpg")
                    tbxharga.Text = "1400000"
            End Select

        ElseIf rbquik.Checked = True Then
            Select Case tbxcari.Text
                Case 1
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q1.jpg")
                    tbxharga.Text = "1500000"
                Case 2
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q2.jpg")
                    tbxharga.Text = "1600000"
                Case 3
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q3.jpg")
                    tbxharga.Text = "1700000"
                Case 4
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q4.jpg")
                    tbxharga.Text = "1800000"
                Case 5
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\q5.jpg")
                    tbxharga.Text = "1900000"
            End Select

        ElseIf rbadidas.Checked = True Then
            Select Case tbxcari.Text
                Case 1
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\a1.jpg")
                    tbxharga.Text = "2000000"
                Case 2
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\a2.jpg")
                    tbxharga.Text = "2100000"
                Case 3
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\a3.jpg")
                    tbxharga.Text = "2200000"
                Case 4
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\a4.jpg")
                    tbxharga.Text = "2300000"
                Case 5
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\a5.jpg")
                    tbxharga.Text = "2400000"
            End Select

        ElseIf rbconverse.Checked = True Then
            Select Case tbxcari.Text
                Case 1
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\c1.jpg")
                    tbxharga.Text = "2500000"
                Case 2
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\c2.jpg")
                    tbxharga.Text = "2600000"
                Case 3
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\c3.jpg")
                    tbxharga.Text = "2700000"
                Case 4
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\c4.jpg")
                    tbxharga.Text = "2800000"
                Case 5
                    pb1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\coba_tugas\spatu\c5.jpg")
                    tbxharga.Text = "2900000"
            End Select

        End If

masukan script ini pada button total,untuk menghitung jumlah total harga:
ukuran sepatu maksimal 43,jika memasukan lebih dari maksimal ukuran maka akan muncul alert maksimal ukuran sepatu yang tersedia.

Dim abc As Integer
        abc = tbxharga.Text * cbjumlah.Text

        If cbjumlah.Text > 5 Then
            tbxdiskon.Text = abc * 0.1
        Else
            tbxdiskon.Text = 0
        End If
        tbxtotal.Text = abc - tbxdiskon.Text

        If tbxsize.Text > 43 Then
            MsgBox("Ukuran sepatu yang tersedia hanya sampai 43")
            tbxsize.Text = ""
        End If

masukan script inipada button Hitung untuk menghitung total harga di kurang bayar dan menghitung kembalian.

tbxkembalian.Text = tbxbayar.Text - tbxtotal.Text

masukan script ini ke dalam button ? diskon.
untuk memberikan informasi bahwa jika membeli lebih dari 5 maka akan mendapat diskon 10%.

 MsgBox("Beli lebih dari 5 dapat diskon 10%")

masukan script ini ke dalam button ? cari button sepatu.
untuk memberikan informasi cara mencari model sepatu dengan memasukan angka 1 dan seterus nya.

MsgBox("Cari Model Sepatu Yang di inginkan,ketik angka 1 dan seterus nya")

dan hasil jadi nya maka akan seperti ini :

jika ukuran sepatu mengisi lebih dari batas ukuran yang tersedia maka akan muncul alert.

model sepatu hanya tersedia sampai 5,jika memasukan lebih dari 5 maka akan muncul alert.

jika sudah sesuai semua maka cetak struk ke word atau excel,maka hasil nya seperti ini:

- Hasil cetak ke word.

- Hasil cetak ke excel

Ya sekian dari Tutorial kali ini,kurang lebih nya mohon maaf,karna saya juga masih belajar :v saya rafid annurrifa mengucapkan terimakasih atas perhatian nya semoga bermanfaat untuk semua.

Wassalam.....