Program Penjualan Product Olahraga

untuk memenuhi kelengkapan nilai mata kuliah pemograman1 di STMIK ERESHA, sebelumnya saya sudah membuat perancangannya dipekan uts lalu. Program yg saya buat adalah aplikasi penjualan macam-macam product olahraga , mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula.
oke lanjut , untuk pengoprasianya :
-User hhanya memilih kode barang yang sudah dibuat, kode yg dipilih sudah mengautomatiskan nama dan harga .
-Harga yg dibeli oleh user dikalihkan dengan jumlah yg akan dibeli.
-Setiap total bayar akan dikenakan pajak
Nah jumlah uang tunai user yg dibelikan akan dikurangi dengan , jumlah total bayar yang sudah dikenakan pajak tadi.
-Data yg sudah dihitung tadi ,user bisa  menyimpan nya di Ms.Word atau Ms.Excel.


Yang akan saya berikan di Blog ini :
-Contoh Design
-Source code
-Hasil Run

Contoh Design

Source  code di ComboBox :

 If ComboBox1.Text = "NIKE" Then

            TextBox2.Text = "100.000"

            PictureBox1.Image = Image.FromFile("C:\picture program\nike.jpg")

        End If

        If ComboBox1.Text = "ADIDAS" Then

            TextBox2.Text = "150.000"

            PictureBox1.Image = Image.FromFile("C:\picture program\adidas.jpg")

        End If

        If ComboBox1.Text = "SPECS" Then

            TextBox2.Text = "200.000"

            PictureBox1.Image = Image.FromFile("C:\picture program\specs.jpg")

        End If

    End Sub

Source code Button Hitung :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox4.Text = TextBox3.Text * TextBox2.Text

    End Sub

Source Button Keluar :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.Close()

    End Sub

Source Button Bayar:
 Private Sub Btnbayar_Click(sender As Object, e As EventArgs) Handles Btnbayar.Click
        TextBox5.Text = TextBox1.Text - TextBox4.Text

    End Sub

Source code Ms.Word :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Appnya As New Word.Application
        Dim Dokumennya As Word.Document

        Dokumennya = Appnya.Documents.Open("D:\toko\sport.docx")
        Dokumennya.Bookmarks("Barang").Select()
        Appnya.Selection.TypeText(ComboBox1.Text)

        Dokumennya.Bookmarks("Harga").Select()
        Appnya.Selection.TypeText(TextBox2.Text)

        Dokumennya.Bookmarks("Jumlah").Select()
        Appnya.Selection.TypeText(TextBox3.Text)

        Dokumennya.Bookmarks("totalharga").Select()
        Appnya.Selection.TypeText(TextBox4.Text)

        Dokumennya.Bookmarks("Pembayaran").Select()
        Appnya.Selection.TypeText(TextBox1.Text)

        Dokumennya.Bookmarks("kembalian").Select()
        Appnya.Selection.TypeText(TextBox5.Text)
        Dokumennya.SaveAs("D:\toko\sportNew.docx")

        Appnya.Visible = True


    End Sub

Source code Ms.Excel :

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim AppExcelnya As New Excel.Application
        Dim ExcelWB As Excel.Workbook
        ExcelWB = AppExcelnya.Workbooks.Open("D:\toko\sport.xlsx")
        AppExcelnya.Range("A2").Value = ComboBox1.Text
        AppExcelnya.Range("B2").Value = TextBox2.Text
        AppExcelnya.Range("C2").Value = TextBox3.Text
        AppExcelnya.Range("D2").Value = TextBox4.Text
        AppExcelnya.Range("E2").Value = TextBox4.Text
        AppExcelnya.Range("F2").Value = TextBox4.Text
        ExcelWB.SaveAs("D:\toko\sportNew.xlsx")

        AppExcelnya.Visible = True

    End Sub

Hasil Run :

Hasil Data di Ms.Word:

Hasil Data di Ms.Excel:

Sekian dan mohon maaf apabila ada kata yang salah
Wassalamualaikum Wr.Wb