Contoh visual bassic menu makanan

Ricky Andes |  Baiklah pada pertemuan kali ini kita akan membahas program visual bassic mengenai menu makanan.

pada kesempatan kali ini tanpa panjang lebar kita akan langsung ke tkp cekidooot :D

Imports System.Data.OleDb

Imports System.Data

Public Class Form1

    Sub bersih()

        txtbonus.Clear()

        txtharga.Clear()

        txtkode.Clear()

        txtjml.Clear()

        txttotal.Clear()

        Cmbnama.Text = ""

        txtkode.Enabled = True

        txtkode.Focus()

    End Sub

  

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Cmbnama.Items.Clear()

        Cmbnama.Items.Add("Ayam penyet")

        Cmbnama.Items.Add("Ayam bakar")

        Cmbnama.Items.Add("Ayam sambal ijo")

        Cmbnama.Items.Add("lele penyet")

        Cmbnama.Items.Add("nasi goreng penyet")

    End Sub

    Private Sub Cmbnama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbnama.SelectedIndexChanged

        If Cmbnama.Text = "Ayam penyet" Then

            txtharga.Text = "14000"

            txtbonus.Text = "Teh obeng"

        ElseIf Cmbnama.Text = "Ayam bakar" Then

            txtharga.Text = "15000"

            txtbonus.Text = "Teh botol"

        ElseIf Cmbnama.Text = "Ayam sambal ijo" Then

            txtharga.Text = "18000"

            txtbonus.Text = "Lasegar"

        ElseIf Cmbnama.Text = "Lele penyet" Then

            txtharga.Text = "13000"

            txtbonus.Text = "Teh teh obeng"

        Else

            Cmbnama.Text = "Nasi goreng"

            txtharga.Text = "10000"

            txtbonus.Text = "Air mineral"

        End If

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

        txttotal.Text = Val(txtharga.Text) * Val(txtjml.Text)

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Call bersih()

    End Sub

End Class

okeee agan2 sekalian setelah pengkodingan selesai  kita akan langsung ke tahap pengujian prograam.

selengkapnya pada gambar di bawah ini...

klik gambar untuk Memperbesar

    selanjutnya klik ok untuk proses pengujian..

klik gambar untuk Memperbesar

program berhasil succes dan ber hasil hehehehe :D

Terima kasih kritik dan saran sangat di butuhkan oleh penulis untuk kesempurnaan blog ini..