Pemrograman Visual Order Makanan

     Kali ini saya akan membuat sebuah program visual tentang form order makanan, langsung saja pada langkah-langkahnya yaitu sebagai berikut:

a.       Buatlah Form baru dengan nama Order.

b.      Buatlah sebuah Program Order Makanan yang bisa melakukan operasi hitungan harga dari suatu menu makanan dan minuman yang diinputkan oleh user.

c.       Hasil Program Order Makanan ini kurang lebih sebagai berikut:

a.       Properties Name adalah:

cboMkn, cboMnm, CheckBox1, label2, label4, txtBPmakan, txtBPminum, btnHitung,  lbl7Jumlah.

b.      Kode Program

Public Class FrmOrdermakanan

    Public hrgmakanan As Integer

    Public hrgminuman As Integer

   

    Private Sub cboMkn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMkn.SelectedIndexChanged

        Select Case cboMkn.Text

            Case "Nasi Uduk"

                hrgmakanan = 3500

                label2.Text = "Rp.3500"

            Case "Bakso"

                hrgmakanan = 6000

                label2.Text = "Rp.6000"

            Case "Mie Ayam"

                hrgmakanan = 7000

                label2.Text = "Rp.7000"

        End Select

    End Sub

    Private Sub cboMnm_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMnm.SelectedIndexChanged

        Select Case cboMnm.Text

            Case "Es Jeruk"

                hrgminuman = 3000

                label4.Text = "Rp.3000"

            Case "Es Teh"

                hrgminuman = 2000

                label4.Text = "Rp.2000"

            Case "Teh Hangat"

                hrgminuman = 1500

                label4.Text = "Rp.1500"

        End Select

    End Sub

    Public Sub New()

        ' This call is required by the designer.

        InitializeComponent()

        cboMnm.Visible = False

        label3.Visible = False

        ' Add any initialization after the InitializeComponent() call.

    End Sub

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

        If CheckBox1.Enabled = False Then

            cboMnm.Visible = False

            cboMkn.Visible = False

        End If

        If CheckBox1.Enabled = True Then

            cboMnm.Visible = True

            cboMkn.Visible = True

            label3.Visible = True

        End If

    End Sub

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

        Dim porsimkn As Integer

        Dim porsimnm As Integer

        Dim jumlah As String

        porsimkn = txtBPMakan.Text

        porsimnm = txtBPMinum.Text

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

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

    End Sub

End Class

c.       Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

d.      Hasil tampilan dari program.

itulah tadi hasil dari program, semoga bermanfaat ya:)