Program Order Makanan Menggunakan Visual Studio 2017

Membuat Program Order Makanan Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Harga, Berapa Porsi makanan,Berapa porsi minnum,dan Rp.), textbox, checkbox, 2 buah combobox dan Button Hitung. Pada label Rp. Itu merupakan output harga.

  2. Coding setiap button dan combobox dengan source code seperti di bawah ini

Public Class Form1

    Public hrgmakanan, hrgminum As Integer

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text

            Case "Nasi Uduk"

                Label2.Text = "Rp. 3500"

                hrgmakanan = 3500

            Case "Bakso"

                Label2.Text = "Rp. 5000"

                hrgmakanan = 5000

            Case "Mie Ayam"

                Label2.Text = "Rp. 7000"

                hrgmakanan = 7000

        End Select

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text

            Case "Es Jeruk"

                Label4.Text = "Rp. 3000"

                hrgminum = 3000

            Case "Jus Alpukat"

                Label4.Text = "Rp. 7000"

                hrgminum = 7000

            Case "Teh Manis"

                Label4.Text = "Rp. 4000"

                hrgminum = 4000

        End Select

    End Sub

    Public Sub New()

        InitializeComponent()

        ComboBox2.Visible = False

        Label3.Visible = False

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Enabled = False Then

            ComboBox2.Visible = False

        End If

        If CheckBox1.Enabled = True Then

            ComboBox2.Visible = True

            Label3.Visible = True

        End If

    End Sub

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        Dim porsimkn, porsimnm, jumlah As Integer

        porsimkn = TextBox1.Text

        porsimnm = TextBox2.Text

        jumlah = (hrgmakanan * porsimkn) + (hrgminum * porsimnm)

        Label8.Text = "Rp. " & jumlah.ToString

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

Hasil dari tampilan Dibawah ini merupakan Progam Hitung Nilai dari label yang berisi Combobox pilihan. Kemudian apa bila kita mengklik checkbox maka akan muncul combobox pilihan minuman, kemdian menghitung harga sesuai porsi makanan dan minuman.