PROGRAM SEDERHANA STRUK KASIR RESTORAN MENGGUNAKAN MS.VISUAL STUDIO DAN MS.WORD

PROGRAM SEDERHANA KASIR RESTORAN MENGGUNAKAN VISUAL STUDIO

Deskripsi  program :

Menghitung  pesanan makanan, minuman dan mencetak hasil hitungan menjadi struk yang tampil di Microsoft Word (Output).

Pembahasan :

1. 1.       Syarat sudah terinstal Microsoft Visual Studio Premium 2013.

1. 2.       Buat Project di Microsoft Visual Studio Premium 2013.

1. 3.       Pada gambar diatas adalah contoh design project rogram sederhana, bahan yang diperlukan sebagai berikut :

-                      Label

-                      Check Box

-                      Picture Box

-                      Text Box

-                      Button

1. 4.       Check Box dan Picture Box ( ketika klik 1 Checkbox maka akan tampil foto ), cara menaruh foto sesuai dengan letak foto yang akan di pakai.

Source Code :

Private Sub CheckBox3_MouseClick(sender As Object, e As MouseEventArgs) Handles CheckBox3.MouseClick

PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\hp\Pictures\Resep-Nasi-Liwet-rice-cooker.jpg")

                     TextBox1.Text = "20000"

                     CheckBox3.Checked = True

                     CheckBox2.Checked = False

                     CheckBox1.Checked = False

                     CheckBox4.Checked = False

End Sub

1. 5.       Soucre Code untuk menghitung jumlah makanan atau minuman yg di pesan yaitu menaruh code di button, gambar diatas Button (=) dan hasil akan tampil di Total.

Source Code :

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

                     TextBox3.Text = TextBox1.Text * TextBox2.Text

       End Sub

1. 6.       Menghitung semua total yang harus dibayar, gambar diatas Button (TOTAL PEMBAYARAN).

Source Code :

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

                     TextBox7.Text = Val(TextBox3.Text) + Val(TextBox6.Text)

       End Sub

1. 7.       Cetak Struk, ketika kita klik Cetak Struk otomatis akan masuk Ms.Word data yang sudah kita cetak tadi. (Jangan lua untuk buat Bookmarks dahulu sesuai kebutuhan di  Ms.Word)

Source Code :

Dim aplikasi As New word.Application

      Dim file As New word.Document

file = aplikasi.Documents.Open("C:\Users\hp\Documents\Custom Office Templates\Struk 2.docx")

        If CheckBox1.Checked Then

            file.Bookmarks("NAMA").Select()

            aplikasi.Selection.TypeText(CheckBox1.Text)

        ElseIf CheckBox2.Checked Then

            file.Bookmarks("NAMA").Select()

            aplikasi.Selection.TypeText(CheckBox2.Text)

        ElseIf CheckBox3.Checked Then

            file.Bookmarks("NAMA").Select()

            aplikasi.Selection.TypeText(CheckBox3.Text)

        ElseIf CheckBox4.Checked Then

            file.Bookmarks("NAMA").Select()

            aplikasi.Selection.TypeText(CheckBox4.Text)

        End If

        If CheckBox5.Checked Then

            file.Bookmarks("NAMA1").Select()

            aplikasi.Selection.TypeText(CheckBox5.Text)

        ElseIf CheckBox6.Checked Then

            file.Bookmarks("NAMA1").Select()

            aplikasi.Selection.TypeText(CheckBox6.Text)

        ElseIf CheckBox7.Checked Then

            file.Bookmarks("NAMA1").Select()

            aplikasi.Selection.TypeText(CheckBox7.Text)

        ElseIf CheckBox8.Checked Then

            file.Bookmarks("NAMA1").Select()

            aplikasi.Selection.TypeText(CheckBox8.Text)

        End If

        file.Bookmarks("HARGA").Select()

        aplikasi.Selection.TypeText(TextBox1.Text)

        file.Bookmarks("HARGA1").Select()

        aplikasi.Selection.TypeText(TextBox4.Text)

        file.Bookmarks("TOTAL").Select()

        aplikasi.Selection.TypeText(TextBox7.Text)

file.SaveAs2("C:\Users\hp\Documents\Custom Office Templates\Hasil Struk\Struk 2.docx")

        aplikasi.Visible = True

End Sub

1. 8.       Hasil Akhir