MEMBUAT APLIKASI PENJUALAN MAKANAN DI VB NET 2010

                             MEMBUAT APLIKASI PENJUALAN MAKANAN DI VB NET 2010

9 lable,2combobox,2 button,5 textbox

Public Class FormWarung

    Private Sub FormWarung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbjenis.Items.Add("Seafood")
        cmbjenis.Items.Add("Ayam")
        cmbjenis.Items.Add("Pizza")
    End Sub

    Private Sub cmbjenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjenis.SelectedIndexChanged
        If cmbjenis.Text = "Seafood" Then
            cmbnama.Items.Clear()
            cmbnama.Text = ""
            cmbnama.Items.Add("Kerang")
            cmbnama.Items.Add("Kepiting")
            cmbnama.Items.Add("Lopster")

        ElseIf cmbjenis.Text = "Ayam" Then
            cmbnama.Items.Clear()
            cmbnama.Text = ""
            cmbnama.Items.Add("Ayam Goreng")
            cmbnama.Items.Add("Ayam Bakar")
            cmbnama.Items.Add("Ayam Geprek")

        ElseIf cmbjenis.Text = "Pizza" Then
            cmbnama.Items.Clear()
            cmbnama.Text = ""
            cmbnama.Items.Add("Pizza Pasta")
            cmbnama.Items.Add("Pizza Sicilia")
            cmbnama.Items.Add("Pizza Cheesy Crust")
        End If
    End Sub

    Private Sub cmbnama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbnama.SelectedIndexChanged
        If cmbnama.Text = "Kerang" Then
            txtharga.Text = 60000
        ElseIf cmbnama.Text = "Kepiting" Then
            txtharga.Text = 80000
        ElseIf cmbnama.Text = "Lobster" Then
            txtharga.Text = 100000
        ElseIf cmbnama.Text = "Ayam Goreng" Then
            txtharga.Text = 50000
        ElseIf cmbnama.Text = "Ayam Bakar" Then
            txtharga.Text = 90000
        ElseIf cmbnama.Text = "Ayam Geprek" Then
            txtharga.Text = 100000
        ElseIf cmbnama.Text = "Pizza Pasta" Then
            txtharga.Text = 120000
        ElseIf cmbnama.Text = "Pizza sicilia" Then
            txtharga.Text = 120000
        ElseIf cmbnama.Text = "Pizza Cheesy Crust" Then
            txtharga.Text = 150000
        End If
    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
        If txttotal.Text > 50000 Then
            txtpotongan.Text = 50000
        Else
            txtpotongan.Text = 0
        End If
        txtbayar.Text = Val(txttotal.Text) - Val(txtpotongan.Text)
    End Sub

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