TUTORIAL MEMBUAT APLIKASI PEMESANAN RESTORAN DENGAN OUTPUT STRUK KE MICROSOFT WORD MENGGUNAKAN VB.NET

Halo ini adalah postingan pertama saya, saya akan memberikan tutorial tentang membuat aplikasi pemesanan restoran dengan output struk ke microsoft word mengunakan visual studio 2013.
langsung saja kita mulai,pertama-tama buka aplikasi visual studio 2013 yang sudah terinstal dan buat new project.

- klik new pada file

- klik new project

- pilih Windows Form Application dan berikan nama Project nya lalu klik ok

akan muncul form kosong seperti ini

kemudian tambahkan tools dari toolbox dan ganti namanya sampai seperti ini

membutuhkan :

- 11 textbox

- 3 combo box (untuk tanggal)

- 5 button

- 2 picturebox

- 18 label

- 2 groupbox

lalu buat file word untuk menampung data transaksi,buat seperti gambar dibawah dan beri bookmar di setiap barisnya.

lalu aktifkan dulu koneksi ke word dengan cara :

klik project lalu klik add reference lalu ceklis ms word lalu klik ok.

lalu kita masuk bagian coding.

masukkan semua codingan

Imports Word = Microsoft.Office.Interop.Word

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim tahun As Integer

        For tahun = 2009 To 2019

            ComboBox3.Items.Add(tahun)

        Next

        Dim bulan As Integer

        For bulan = 1 To 12

            ComboBox2.Items.Add(bulan)

        Next

        Dim tanggal As Integer

        For tanggal = 1 To 31

            ComboBox1.Items.Add(tanggal)

        Next

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox3.Text = Val(TextBox10.Text * TextBox8.Text) + Val(TextBox9.Text * TextBox11.Text)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox5.Text = TextBox4.Text - TextBox3.Text

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Select Case TextBox6.Text

            Case 1

                PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\LENOVO\Downloads\gambar\mieayam.jpg")

                TextBox8.Text = "10000"

            Case 2

                PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\LENOVO\Downloads\gambar\baso.jpg")

                TextBox8.Text = "11000"

            Case 3

                PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\LENOVO\Downloads\gambar\nasigoreng.jpg")

                TextBox8.Text = "12000"

            Case 4

                PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\gamefor\2.jpg")

                TextBox8.Text = "13000"

            Case 5

                PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\gamefor\4.jpg")

                TextBox8.Text = "14000"

        End Select

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Select Case TextBox7.Text

            Case 1

                PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\LENOVO\Downloads\gambar\estehmanis.jpg")

                TextBox9.Text = "10000"

            Case 2

                PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\LENOVO\Downloads\gambar\esjeruk.jpg")

                TextBox9.Text = "11000"

            Case 3

                PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\LENOVO\Downloads\gambar\kopi.jpg")

                TextBox9.Text = "12000"

            Case 4

                PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\gamefor\2.jpg")

                TextBox9.Text = "13000"

            Case 5

                PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\Rafid\Documents\Visual Studio 2013\Projects\gamefor\4.jpg")

                TextBox9.Text = "14000"

        End Select

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

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

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

        filenya = Aplikasi.Documents.Open("C:\Users\LENOVO\Desktop\Struk.docx")

        filenya.Bookmarks("tanggal").Select()

        Aplikasi.Selection.TypeText(ComboBox1.Text)

        Aplikasi.Selection.TypeText(ComboBox2.Text)

        Aplikasi.Selection.TypeText(ComboBox3.Text)

        filenya.Bookmarks("pemesan").Select()

        Aplikasi.Selection.TypeText(TextBox1.Text)

        filenya.Bookmarks("meja").Select()

        Aplikasi.Selection.TypeText(TextBox2.Text)

        filenya.Bookmarks("makanan").Select()

        Select Case TextBox6.Text

            Case 1

                Aplikasi.Selection.TypeText(Label11.Text)

            Case 2

                Aplikasi.Selection.TypeText(Label10.Text)

            Case 3

                Aplikasi.Selection.TypeText(Label9.Text)

                filenya.Bookmarks("jumlah1").Select()

                Aplikasi.Selection.TypeText(TextBox10.Text)

                filenya.Bookmarks("jumlah2").Select()

                Aplikasi.Selection.TypeText(TextBox11.Text)

        End Select

        filenya.Bookmarks("minuman").Select()

        Select Case TextBox7.Text

            Case 1

                Aplikasi.Selection.TypeText(Label17.Text)

            Case 2

                Aplikasi.Selection.TypeText(Label16.Text)

            Case 3

                Aplikasi.Selection.TypeText(Label5.Text)

        End Select

        filenya.Bookmarks("total").Select()

        Aplikasi.Selection.TypeText(TextBox3.Text)

        filenya.Bookmarks("dibayar").Select()

        Aplikasi.Selection.TypeText(TextBox4.Text)

        filenya.Bookmarks("kembali").Select()

        Aplikasi.Selection.TypeText(TextBox5.Text)

        

        filenya.SaveAs2("C:\Users\LENOVO\Desktop\Struk2.docx")

        MsgBox("Sukses")

        Aplikasi.Visible = True

    End Sub

End Class

Maka hasilnya akan seperti ini saat di Run/Start

kemudian kita coba isi form pemesanannya.

lalu tekan Cetak Struk,maka akan keluar struk pada microsoft word seperti gambar dibawah ini.

sekian tutorial yang bisa saya berikan di post pertama saya,maf jika banyak salah.