UTS VB 2 VOKASI AKUNTANSI TSI 2013 SEMESTER 3

Kali ini saya akan menjelaskan bagaimana cara membua form "Data Pembelian Barang" yang dapat dihubungkan dari VB.NET ke Microsoft Word.

Hal pertama yang harus Anda lakukan adalah membuat New Project pada VB.NET. Setelah itu, isi form dengan TextBox, ComboBox, Label, RadioButton, Button, susun seperti gambar dibawah ini:

Setelah itu, pada Button "Hitung", masukkan source code seperti berikut ini:

Private Sub HitungButton_Click(sender As Object, e As EventArgs) Handles HitungButton.Click

        TotalHargaLabel.Text = System.Convert.ToInt32(HargaTxtBox.Text) * System.Convert.ToInt32(JumlahComboBox.Text)

        If (MemberRadioButton.Checked) Then
            PotonganLabel.Text = System.Convert.ToInt32(TotalHargaLabel.Text) * 20 / 100
        Else
            PotonganLabel.Text = "0"
        End If

        TotalBayarLabel.Text = System.Convert.ToInt32(TotalHargaLabel.Text) - System.Convert.ToInt32(PotonganLabel.Text)

        PotonganLabel.Visible = True
        TotalBayarLabel.Visible = True
        TotalHargaLabel.Visible = True

        ProsesButton.Visible = True
        UangBayarLabel.Visible = True
        UangBayarTxtBox.Visible = True
        KembalianLabel1.Visible = True
    End Sub

Berikut adalah source code untuk Button "Proses":

Private Sub ProsesButton_Click(sender As Object, e As EventArgs) Handles ProsesButton.Click
        CetakButton.Visible = True
        KembalianLabel2.Visible = True
        KembalianLabel2.Text = System.Convert.ToInt32(UangBayarTxtBox.Text) - System.Convert.ToInt32(TotalBayarLabel.Text)
    End Sub

Ini adalah source code untuk Button "Cetak":

Dim myapp As New Microsoft.Office.Interop.Word.Application
        Dim mydoc As New Microsoft.Office.Interop.Word.Document

        mydoc = myapp.Documents.Open("D:\Shabrina Ghassani\Lab VB2\UTS VB - Shabrina Ghassani 1306470110\Butik1.docx")

        mydoc.Bookmarks("namapembeli").Select()
        myapp.Selection.TypeText(NamaPembeliTxtBox.Text)

        mydoc.Bookmarks("notelepon").Select()
        myapp.Selection.TypeText(NoTlpTxtBox.Text)

        mydoc.Bookmarks("email").Select()
        myapp.Selection.TypeText(EmailTxtBox.Text)

        mydoc.Bookmarks("namabarang").Select()
        myapp.Selection.TypeText(NamaBarangTxtBox.Text)

        mydoc.Bookmarks("ukuran").Select()
        myapp.Selection.TypeText(UkuranComboBox.Text)

        mydoc.Bookmarks("hargabarang").Select()
        myapp.Selection.TypeText(System.Convert.ToInt32(HargaTxtBox.Text))

        mydoc.Bookmarks("jumlahbeli").Select()
        myapp.Selection.TypeText(JumlahComboBox.Text)

        mydoc.Bookmarks("totalharga").Select()
        myapp.Selection.TypeText(System.Convert.ToInt32(TotalHargaLabel.Text))

        mydoc.Bookmarks("totalbayar").Select()
        myapp.Selection.TypeText(System.Convert.ToInt32(TotalBayarLabel.Text))

        mydoc.Bookmarks("uangbayar").Select()
        myapp.Selection.TypeText(System.Convert.ToInt32(UangBayarTxtBox.Text))

        mydoc.Bookmarks("kembalian").Select()
        myapp.Selection.TypeText(System.Convert.ToInt32(KembalianLabel2.Text))

        If MemberRadioButton.Checked Then
            mydoc.Bookmarks("member").Select()
            myapp.Selection.TypeText("Member")
            mydoc.Bookmarks("potonganharga").Select()
            myapp.Selection.TypeText(System.Convert.ToInt32(PotonganLabel.Text))
        End If
        If BknMemberRadioButton.Checked Then
            mydoc.Bookmarks("member").Select()
            myapp.Selection.TypeText("Bukan Member")
            mydoc.Bookmarks("potonganharga").Select()
            myapp.Selection.TypeText(System.Convert.ToInt32(PotonganLabel.Text))
        End If

        If TunaiRadioButton.Checked Then
            mydoc.Bookmarks("carapembelian").Select()
            myapp.Selection.TypeText("Tunai")
        End If

        If KreditRadioButton.Checked Then
            mydoc.Bookmarks("carapembelian").Select()
            myapp.Selection.TypeText("Kredit")
        End If

        mydoc.SaveAs("D:\Shabrina Ghassani\Lab VB2\UTS VB - Shabrina Ghassani 1306470110\Butik2.docx")

    End Sub

Lalu pada project kita, klik Project > Add Reference > Pilih Microsoft Word 12.0 Object Library > klik OK

Setelah itu kita haris membuat dokumen baru pada Ms.Word yang isinya adalah seperti berikut:

Pada dokumen kita tersebut, klik Insert > Bookmark > tulis nama bookmark yang diinginkan > klik Add

Selain menyimpan dokumen diatas, kita juga harus menyimpan 1 dokumen Ms.Word lagi, tetapi biarkan dokumen yang satu ini kosong. Simpan kedua dokumen di folder yang sama dengan project VB.NET kita.

Berikut ini adalah hasil dari coding-coding diatas:

Jika Button "Hitung" di klik maka hasil yang akan keluar adalah sebagai berikut:

Jika kita memasukkan nominal uang bayar lalu meng-klik Button Proses, maka nominal kembalian akan muncul. Setelah itu kita klik Button Cetak, maka hasil yang akan keluar adalah dokumen Ms.Word sebagai berikut:

Sekian penjelasan kali ini, semoga bermanfaat :D