Membuat data transaksi laundry dengan VB (UTS)

Halo..
Saya akan memberitahu bagaimana membuat aplikasi untuk data transaksi dari sebuah perusahaan jasa laundry dengan menggunakan Visual Basic

Buat Design sesuai apa yang anda inginkan terlebih dahulu, misalnya seperti ini

Lalu buatlah data transaksis yang sama dalam word untuk menyimpan data, bisa dijadikan sebagai bukti nota misalnya seperti ini

Dalam Word jangan lupa untuk melakukan bookmark di setiap data yang akan di masukkan.

Untuk menyimpan data transaksi bagi data perusahaan pribadi anda sendiri, buatlah tabel data dalam excel seperti ini

Setelah itu simpan semua dan sambungkan kepada visual basic anda dengan cara add refence microsoft word dan microsoft excel

Berikut adalah source code yang saya gunakan dala aplikasi ini

Public Class Form1

    Dim ExcelAPP As New Microsoft.Office.Interop.Excel.Application

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

    Dim WordAPP As New Microsoft.Office.Interop.Word.Application

    Dim WordDoc As New Microsoft.Office.Interop.Word.Document

    Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click

        If ComboBoxJasa1.Text = "Biasa" Then

            TxtSatuan1.Text = "Kg" And TxtHarga1.Text = TxtBerat1.Text * 8000

        ElseIf ComboBoxJasa1.Text = "Cepat" Then

            TxtSatuan1.Text = "Kg" And TxtHarga1.Text = TxtBerat2.Text * 12000

        ElseIf ComboBoxJasa1.Text = "Dry Cleaning" Then

            TxtSatuan1.Text = "Pieces" And TxtHarga1.Text = TxtBerat2.Text * 16000

        ElseIf ComboBoxJasa2.Text = "Biasa" Then

            TxtSatuan2.Text = "Kg" And TxtHarga2.Text = TxtBerat2.Text * 8000

        ElseIf ComboBoxJasa2.Text = "Cepat" Then

            TxtSatuan2.Text = "Kg" And TxtHarga2.Text = TxtBerat2.Text * 12000

        ElseIf ComboBoxJasa2.Text = "Dry Cleaning" Then

            TxtSatuan2.Text = "Pieces" And TxtHarga2.Text = TxtBerat2.Text * 16000

        End If

        TxtTotal.Text = TxtHarga1.Text + TxtHarga2.Text

    End Sub

    Private Sub BtnCetak_Click(sender As Object, e As EventArgs) Handles BtnCetak.Click

        WordDoc = WordAPP.Docements.Open("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.docx")

        WordDoc.Bookmarks("nama").Select()

        WordAPP.Selection.TypeText(TxtNama.Text)

        WordDoc.Bookmarks("kode").Select()

        WordAPP.Selection.TypeText(TxtKode.Text)

        WordDoc.Bookmarks("nomor").Select()

        WordAPP.Selection.TypeText(TxtNomor.Text)

        WordDoc.Bookmarks("status").Select()

        WordAPP.Selection.TypeText(ComboBoxStatus.Text)

        WordDoc.Bookmarks("masuk").Select()

        WordAPP.Selection.TypeText(TxtMasuk.Text)

        WordDoc.Bookmarks("selesai").Select()

        WordAPP.Selection.TypeText(TxtSelesai.Text)

        WordDoc.Bookmarks("barang1").Select()

        WordAPP.Selection.TypeText(TxtBarang1.Text)

        WordDoc.Bookmarks("jasa1").Select()

        WordAPP.Selection.TypeText(ComboBoxJasa1.Text)

        WordDoc.Bookmarks("satuan1").Select()

        WordAPP.Selection.TypeText(TxtSatuan1.Text)

        WordDoc.Bookmarks("berat1").Select()

        WordAPP.Selection.TypeText(TxtBerat1.Text)

        WordDoc.Bookmarks("harga1").Select()

        WordAPP.Selection.TypeText(TxtHarga1.Text)

        WordDoc.Bookmarks("barang2").Select()

        WordAPP.Selection.TypeText(TxtBarang2.Text)

        WordDoc.Bookmarks("jasa2").Select()

        WordAPP.Selection.TypeText(ComboBoxJasa2.Text)

        WordDoc.Bookmarks("satuan2").Select()

        WordAPP.Selection.TypeText(TxtSatuan2.Text)

        WordDoc.Bookmarks("berat2").Select()

        WordAPP.Selection.TypeText(TxtBerat2.Text)

        WordDoc.Bookmarks("harga2").Select()

        WordAPP.Selection.TypeText(TxtHarga2.Text)

        WordDoc.Bookmarks("pewangi").Select()

        WordAPP.Selection.TypeText(ComboBoxWangi.Text)

        WordDoc.Bookmarks("catatan").Select()

        WordAPP.Selection.TypeText(RichTextBox1.Text)

        WordDoc.Bookmarks("total").Select()

        WordAPP.Selection.TypeText(TxtTotal.Text)

        WordDoc.SaveAs("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.docx")

        WordAPP.Visible = True

    End Sub

    Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click

        ExcelBook = ExcelAPP.Workbooks.Open("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.xlsx")

        ExcelAPP.Range("A4").Value = TxtNama.Text

        ExcelAPP.Range("B4").Value = TxtKode.Text

        ExcelAPP.Range("C4").Value = TxtNomor.Text

        ExcelAPP.Range("D4").Value = ComboBoxStatus.Text

        ExcelAPP.Range("E4").Value = TxtMasuk.Text

        ExcelAPP.Range("F4").Value = TxtSelesai.Text

        ExcelAPP.Range("G4").Value = TxtBarang1.Text

        ExcelAPP.Range("H4").Value = ComboBoxJasa1.Text

        ExcelAPP.Range("I4").Value = TxtSatuan1.Text

        ExcelAPP.Range("J4").Value = TxtBerat1.Text

        ExcelAPP.Range("K4").Value = TxtHarga1.Text

        ExcelAPP.Range("L4").Value = TxtBarang2.Text

        ExcelAPP.Range("M4").Value = ComboBoxJasa2.Text

        ExcelAPP.Range("N4").Value = TxtSatuan2.Text

        ExcelAPP.Range("O4").Value = TxtBerat2.Text

        ExcelAPP.Range("P4").Value = TxtHarga2.Text

        ExcelAPP.Range("Q4").Value = TxtTotal.Text

        ExcelBook.SaveAs("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.xlsx")

    End Sub

End Class

Anda akan menginput semua informasi atau data yang diperlukan.

Output pertama jika anda klik button Hitung, akan menghitung total harga keseluruhan yang harus dibayar oleh pelanggan

Output kedua jika anda klik button simpan, data akan otomatis berpindah atau masuk kedalam data transaksi dalam excel yang sudah anda buat.

Output kedua jika anda klik button cetak, data akan otomatis berpindah atau masuk kedalam data transaksi dalam word yang sudah anda buat.