Membuat Aplikasi Rumah Makan Dengan Visual Basic

Kode Programnya:

Public Class MENU_UTAMA

    Private Sub MENU_UTAMA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kombonasi.Items.Add("Nasi Putih")
        kombonasi.Items.Add("Nasi Uduk")
        kombonasi.Items.Add("Nasi Goreng")
        kombonasi.Items.Add("Nasi Timbel")

        kombolauk.Items.Add("Ayam Goreng")
        kombolauk.Items.Add("Ikan Mas Goreng")
        kombolauk.Items.Add("Ati / Ampela")
        kombolauk.Items.Add("Lele Goreng")
        kombolauk.Items.Add("Tempe Goreng")
        kombolauk.Items.Add("Tahu Goreng")
        kombolauk.Items.Add("Soto Ayam")
        kombolauk.Items.Add("Soto Daging")
        kombolauk.Items.Add("Soto Babat")

        kombominum.Items.Add("Teh Manis")
        kombominum.Items.Add("Es Teh Manis")
        kombominum.Items.Add("Kopi")
        kombominum.Items.Add("Air Mineral")

        kombotambahan.Items.Add("Lalap")
        kombotambahan.Items.Add("Sambal")
        kombotambahan.Items.Add("Puding")
    End Sub
    Private Sub tombolnasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolnasi.Click

        If (kombonasi.SelectedIndex = -1) Then
            MsgBox("Tolong Tentukan Pilihan..!!", MsgBoxStyle.Information, "Pilih Nasi")
        Else
            listmenu.Items.Add(kombonasi.SelectedItem)
        End If

    End Sub

    Private Sub tombolminum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolminum.Click
        If (kombominum.SelectedIndex = -1) Then
            MsgBox("Tolong Tentukan Pilihan..!!", MsgBoxStyle.Information, "Pilih minum")
        Else
            listmenu.Items.Add(kombominum.SelectedItem)
        End If

    End Sub

    Private Sub tombollauk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombollauk.Click
        If (kombolauk.SelectedIndex = -1) Then
            MsgBox("Tolong Tentukan Pilihan..!!", MsgBoxStyle.Information, "Pilih Lauk")
        Else
            listmenu.Items.Add(kombolauk.SelectedItem)
        End If

    End Sub

    Private Sub tomboltambahan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tomboltambahan.Click
        If (kombotambahan.SelectedIndex = -1) Then
            MsgBox("Tolong Tentukan Pilihan..!!", MsgBoxStyle.Information, "Pilih Tambahan")
        Else
            listmenu.Items.Add(kombotambahan.SelectedItem)
        End If

    End Sub

    Private Sub tombolpesanbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolpesanbaru.Click
        kombonasi.SelectedIndex = -1
        kombominum.SelectedIndex = -1
        kombolauk.SelectedIndex = -1
        kombotambahan.SelectedIndex = -1
        listmenu.Items.Clear()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        End
    End Sub
End Class

Hasil:

Mudah-mudahan bermanfaat.