program aplikasi sederhana untuk pemesanan makanan dengan visual studion 2012

1. Deskripsi program:

  program ntuk ini di buat untuk memudahkan pelanggan atau pembeli dalam memesan makanan
dengan aplikasi atau program ini pengunjung atau pembeli dapat memesan sendiri makanan yang di inginkan.

2. Contoh program

gambar tampilan program

tampilan program akan seperti ini saat di luncurkan

pengunjung dapat memilih menu yang tersedia di sini

sat pengunjung melilih beberapa item yang ingin di pesan

makan akan muncul pesanan di sebelah kanan bawah untuk memastikan kembali pesanan pembeli 

kemudia saat pengunjung klik pesan maka otomastis data pesanan pengunjung akan di input kedalam word kemudian di simpan dan di siapkan pesanannya 

3.  Source Code

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

 Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckNasi.CheckedChanged
        If CheckNasi.Checked = True Then
            LabelNasi.Text = CheckNasi.Text
        ElseIf CheckNasi.Checked = False Then
            LabelNasi.Text = ""
        End If
    End Sub

    Private Sub CheckRendang_CheckedChanged(sender As Object, e As EventArgs) Handles CheckRendang.CheckedChanged
        If CheckRendang.Checked = True Then
            LabelLauk.Text = CheckRendang.Text
        ElseIf CheckRendang.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckNasiUduk_CheckedChanged(sender As Object, e As EventArgs) Handles CheckNasiUduk.CheckedChanged
        If CheckNasiUduk.Checked = True Then
            LabelNasi.Text = CheckNasiUduk.Text
        ElseIf CheckNasiUduk.Checked = False Then
            LabelNasi.Text = ""
        End If
    End Sub

    Private Sub CheckCincang_CheckedChanged(sender As Object, e As EventArgs) Handles CheckCincang.CheckedChanged
        If CheckCincang.Checked = True Then
            LabelLauk.Text = CheckCincang.Text
        ElseIf CheckCincang.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckAyam_CheckedChanged(sender As Object, e As EventArgs) Handles CheckAyam.CheckedChanged
        If CheckAyam.Checked = True Then
            LabelLauk.Text = CheckAyam.Text
        ElseIf CheckAyam.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckGurame_CheckedChanged(sender As Object, e As EventArgs) Handles CheckGurame.CheckedChanged
        If CheckGurame.Checked = True Then
            LabelLauk.Text = CheckGurame.Text
        ElseIf CheckGurame.Checked = False Then
            LabelLauk.Text = ""
        End If
    End Sub

    Private Sub CheckEsTeh_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEsTeh.CheckedChanged
        If CheckEsTeh.Checked = True Then
            LabelMinum.Text = CheckEsTeh.Text
        ElseIf CheckEsTeh.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub

    Private Sub CheckEsJeruk_CheckedChanged(sender As Object, e As EventArgs) Handles CheckEsJeruk.CheckedChanged
        If CheckEsJeruk.Checked = True Then
            LabelMinum.Text = CheckEsJeruk.Text
        ElseIf CheckEsJeruk.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub

    Private Sub CheckPuding_CheckedChanged(sender As Object, e As EventArgs) Handles CheckPuding.CheckedChanged
        If CheckPuding.Checked = True Then
            LabelMinum.Text = CheckPuding.Text
        ElseIf CheckPuding.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub

    Private Sub CheckTawar_CheckedChanged(sender As Object, e As EventArgs) Handles CheckTawar.CheckedChanged
        If CheckTawar.Checked = True Then
            LabelMinum.Text = CheckTawar.Text
        ElseIf CheckTawar.Checked = False Then
            LabelMinum.Text = ""
        End If
    End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("D:\kuliah\RumahMakan.docx")

        dokumen.Bookmarks("Nasi").Select()
        aplikasi.Selection.TypeText(LabelNasi.Text)

        dokumen.Bookmarks("Lauk").Select()
        aplikasi.Selection.TypeText(LabelLauk.Text)

        dokumen.Bookmarks("Minuman").Select()
        aplikasi.Selection.TypeText(LabelMinum.Text)

        dokumen.SaveAs("D:\kuliah\RumahMakanN.docx")
        aplikasi.Visible = True