Aplikasi Penjualan Menggunakan Microsoft Visual Studio 2012

Assalammualaikum wr. wrb.

  Untuk memenuhi kelengkapan nilai mata kuliah pemograman1 di STMIK ERESHA, sebelumnya saya sudah membuat perancangannya di pekan uts lalu.  Progam yang telah saya buat adalah Aplikasi penjualan alat - alat olahraga, mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula.
oke lanjutt, untuk pengoprasiannya ;
- User hanya memilih kode barang yang sudah dibuat, kode yang dipilih sudah mengautomatiskan nama dan harga
- Harga yang dibeli oleh user , di kalikan dengan jumlah yang akan dibeli
- Setiap total bayar akan dikenakan pajak sekitar 5%
- Nah, Jumlah uang tunai user yang diberikan akan dikurangi dengan, jumlah total bayar yang sudah dikenai pajak tadi.(Uang kembalian)
- Data yang sudah di hitung tadi, user bisa menyimpannya di Ms.Word atau Ms.Excel


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


Contoh Design

















  




Source code

Source code di form :
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox.Items.Add("B101")
        ComboBox.Items.Add("B102")
        ComboBox.Items.Add("B103")
        ComboBox.Items.Add("B104")
        ComboBox.Items.Add("B105")
    End Sub 


Source code di ComboCox :
Private Sub ComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox.SelectedIndexChanged
        If ComboBox.Text = "B101" Then
            txtnama.Text = "Jersey Sepak Bola"
            TxtHarga.Text = "150000"

        ElseIf ComboBox.Text = "B102" Then
            txtnama.Text = "Sepatu Sepak Bola"
            TxtHarga.Text = "300000"

        ElseIf ComboBox.Text = "B103" Then
            txtnama.Text = "Bola Voli"
            TxtHarga.Text = "75000"
        ElseIf ComboBox.Text = "B104" Then
            txtnama.Text = "kaca mata renang"
            TxtHarga.Text = "15000"

        ElseIf ComboBox.Text = "B105" Then
            txtnama.Text = "Baju Karate"
            TxtHarga.Text = "95000"


        End If
    End Sub  
 
Source code di Button Hitung :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles buttonhitung.Click
        Dim Harga = TxtHarga.Text
        Dim Jumlah = txtjumlah.Text
        Dim Total = txttotal.Text

        Total = Harga * Jumlah
        txttotal.Text = Total

    End Sub


Source code di Button Hapus :
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox.ResetText()
        txtnama.Text = ""
        txtjumlah.Text = ""
        TxtHarga.Text = ""
        txttotal.Text = ""
        txtkembalian.Text = ""
        txttunai.Text = ""
        txtTB.Text = ""
        Txtppn.Text = ""
    End Sub

Source code di CheckBox :

Dim Pajak = Txtppn.Text
        Dim Total = txttotal.Text
        Dim bayar = txtTB.Text
        If CheckBox1.Checked = True Then
            Pajak = Total * 0.05
            Txtppn.Text = Pajak
       Else
            Txtppn.Text = 0
        End If
       
        bil1 = txttotal.Text
        bil2 = Txtppn.Text
        hasil = txtTB.Text

        hasil = bil1 + bil2
        txtTB.Text = hasil
    End Sub 


Source code di Button Bayar :

Private Sub BtnBayar_Click(sender As Object, e As EventArgs) Handles BtnBayar.Click
        Dim K = txtkembalian.Text
        Dim T = txttunai.Text
        Dim Total = txtTB.Text
             
        K = T - Total
        txtkembalian.Text = K
    End Sub 



Source code di Button Ms.Word :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Aplikasi As New word.Application
        Dim Filenya As New word.Document
        Filenya = Aplikasi.Documents.Open("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\Kode Barang.docx")

        Filenya.Bookmarks("KodeBarang").Select()
        Aplikasi.Selection.TypeText(ComboBox.Text)

        Filenya.Bookmarks("NamaBarang").Select()
        Aplikasi.Selection.TypeText(txtnama.Text)

        Filenya.Bookmarks("Harga").Select()
        Aplikasi.Selection.TypeText(TxtHarga.Text)

        Filenya.Bookmarks("Jumlah").Select()
        Aplikasi.Selection.TypeText(txtjumlah.Text)

        Filenya.Bookmarks("Pembayaran").Select()
        Aplikasi.Selection.TypeText(txttotal.Text)

        Filenya.SaveAs("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\Kode Barang2.docx")
        MsgBox("Sukses")

        Aplikasi.Visible = True
    End Sub

 Source code di Button Ms.Excel :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim appex As New excel.Application
        Dim savexcl As excel.Workbook

        savexcl = appex.Workbooks.Open("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\kode.xlsx")
        appex.Range("A2").Value = ComboBox.Text
        appex.Range("B2").Value = txtnama.Text
        appex.Range("C2").Value = TxtHarga.Text
        appex.Range("D2").Value = txtjumlah.Text
        appex.Range("E2").Value = txttotal.Text
        savexcl.SaveAs("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\kodexclxxx.xlsx")
        appex.Visible = True

    End Sub


 Hasil Run :





Hasil Data di Ms.Word :



Hasil Data di Ms.Excel :