Jumat, 27 September 2019

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:)

Tidak ada komentar:

Posting Komentar

Koneksi Database Buku

1.       Aktifkan aplikasi xampp terlebih dahulu. 2.       Masuklah pada browser lalu ke localhost/phpmyadmin , kemudian buat lah sebua...