Tugas UTS Pengantar Pemrograman Bisnis 2
Assalamu 'alaikum wa rahmatullaahi wa barakaatuh...
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
Yola Fitriana - 1506761173
Tidak ada komentar:
Posting Komentar