Senin, 17 Oktober 2016

Tugas UTS Pengantar Pemrograman Bisnis 2

Assalamu 'alaikum wa rahmatullaahi wa barakaatuh... 
Saya akan menjelaskan aplikasi sederhana untuk penjualan, berikut cara menggunakannya :

1.      Pertama masukkan data berupa Tanggal transaksi dan Nama Pelanggan.

2.      Pilih barang yang sudah tersedia yang akan dibeli dengan cara klik panah berbentuk segitiga terbalik.

3.      Saat barang sudah dipilih, maka akan sekaligus keluar harga barang. Jadi kita hanya perlu memasukkan jumlah barang yang diinginkan (pcs).

4.      Klik button “Hitung” untuk menghitung jumlah pembayaran. Misalnya kita memilih Dress. Maka akan keluar Jumlah dari harga barang dikali pcs nya.


6.      Klik “Save Data” untuk menyimpan data ke Ms. Word (sebagai bukti pembelian) pelanggan dan sekaligus ke Ms. Excel sebagai (arsip penjualan ) pihak toko.

ini adalah hasil dari save data di Ms. Excel :



dan ini adalah hasil dari save data di Ms. Word :



Keterangan :
  • Button Save Data berfungsi untuk mensave data ke Microsoft Excel dan juga Microsoft Word yang telah disiapkan sebelumnya yaitu dengan nama dokumen “Barang.xlsx” dan “Barang.docx”
  • Dalam file Microsoft word dengan nama dokumen “Barang” telah di bookmark NamaPelanggan, tanggal, NamaBarang, HargaBarang, Pcs, dan Jumlah agar dapat terhubung pada Visual Studio yang akan di Add Reference.
  • Sedangkan dalam file Microsoft excel dengan nama dokumen “Barang” telah disiapkan cell Nama Pelanggan, Tanggal transaksi, Nama Barang, Harga Barang, Pcs, dan Jumlah sehingga saat di Add Reference dapat terhubung sesuai dimana cell berada.
  • Pada source code bagian "D:\1506761173__YOLA FITRIANA\Barang.xlsx" silahkan sesuaikan dengan tempat penyimpanan dikomputer anda...


Ini adalah Soure Code dari aplikasi diatas :
Public Class Form1

    Dim ExcelApp As New Microsoft.Office.Interop.Excel.Application
    Dim ExcelBook As Microsoft.Office.Interop.Excel.Workbook

    Dim WordApp As New Microsoft.Office.Interop.Word.Application
    Dim DocWord As Microsoft.Office.Interop.Word.Document

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ExcelBook = ExcelApp.Workbooks.Open("D:\1506761173__YOLA FITRIANA\Barang.xlsx")

        ExcelApp.Range("A8").Value = Txtnamabrg.Text
        ExcelApp.Range("E5").Value = Txtpelanggan.Text
        ExcelApp.Range("B8").Value = Txthargabrg.Text
        ExcelApp.Range("C8").Value = Txtpcs.Text
        ExcelApp.Range("E4").Value = Txttanggal.Text


        ExcelBook.Save()
        ExcelApp.Visible = True


        DocWord = WordApp.Documents.Open("D:\1506761173__YOLA FITRIANA\Barang.docx")
        DocWord.Bookmarks("NamaBarang").Select()
        WordApp.Selection.TypeText(Txtnamabrg.Text)

        DocWord.Bookmarks("HargaBarang").Select()
        WordApp.Selection.TypeText(Txthargabrg.Text)

        DocWord.Bookmarks("Jumlah").Select()
        WordApp.Selection.TypeText(Txtjumlah.Text)

        DocWord.Bookmarks("Pcs").Select()
        WordApp.Selection.TypeText(Txtpcs.Text)

        DocWord.Bookmarks("NamaPelanggan").Select()
        WordApp.Selection.TypeText(Txtpelanggan.Text)

        DocWord.Bookmarks("tanggal").Select()
        WordApp.Selection.TypeText(Txttanggal.Text)

        DocWord.Save()


        WordApp.Visible = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Txtjumlah.Text = Val(Txtpcs.Text) * Val(Txthargabrg.Text)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Txtnamabrg.SelectedIndexChanged
        Select Case Txtnamabrg.Text
            Case "T-Shirt"
                Txthargabrg.Text = 100000
            Case "Jaket"
                Txthargabrg.Text = 200000
            Case "Dress"
                Txthargabrg.Text = 240000
            Case "Jeans"
                Txthargabrg.Text = 180000
            Case "Rok"
                Txthargabrg.Text = 120000
            Case "Kemeja"
                Txthargabrg.Text = 220000
        End Select
    End Sub

End Class



Yola Fitriana - 1506761173


Tidak ada komentar:

Posting Komentar