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