Cara Membuat Program Pembayaran Grosir Pada Vb 2010

Public Class Form1

    Private Sub jmin1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmin1.TextChanged
        If min1.Text = "Es Teh Manis" Then
            hrgmin1.Text = Val(jmin1) * 1500
        ElseIf min1.Text = "Es Teh Lemon" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Es Jeruk" Then
            hrgmin1.Text = Val(jmin1) * 1500
        ElseIf min1.Text = "Kopi Susu" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Coffee" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Teh Manis Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Teh Lemon Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Jeruk Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        End If
    End Sub

    Private Sub jmin2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmin2.TextChanged
        If min2.Text = "Es Teh Manis" Then
            hrgmin2.Text = Val(jmin2) * 1500
        ElseIf min2.Text = "Es Teh Lemon" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Es Jeruk" Then
            hrgmin2.Text = Val(jmin2) * 1500
        ElseIf min2.Text = "Kopi Susu" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Coffee" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Teh Manis Hangat" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Teh Lemon Hangat" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Jeruk Hangat" Then
            hrgmin2.Text = Val(jmin2) * 2000
        End If
    End Sub

    Private Sub jmin3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmin3.TextChanged
        If min3.Text = "Es Teh Manis" Then
            hrgmin3.Text = Val(jmin3) * 1500
        ElseIf min3.Text = "Es Teh Lemon" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Es Jeruk" Then
            hrgmin3.Text = Val(jmin3) * 1500
        ElseIf min3.Text = "Kopi Susu" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Coffee" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Teh Manis Hangat" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Teh Lemon Hangat" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Jeruk Hangat" Then
            hrgmin3.Text = Val(jmin3) * 2000
        End If
    End Sub

    Private Sub min1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles min1.SelectedIndexChanged
        If min1.Text = "Es Teh Manis" Then
            hrgmin1.Text = Val(jmin1) * 1500
        ElseIf min1.Text = "Es Teh Lemon" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Es Jeruk" Then
            hrgmin1.Text = Val(jmin1) * 1500
        ElseIf min1.Text = "Kopi Susu" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Coffee" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Teh Manis Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Teh Lemon Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Jeruk Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        End If
    End Sub

    Private Sub min2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles min2.SelectedIndexChanged
        If min2.Text = "Es Teh Manis" Then
            hrgmin2.Text = Val(jmin2) * 1500
        ElseIf min2.Text = "Es Teh Lemon" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Es Jeruk" Then
            hrgmin2.Text = Val(jmin2) * 1500
        ElseIf min2.Text = "Kopi Susu" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Coffee" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Teh Manis Hangat" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Teh Lemon Hangat" Then
            hrgmin2.Text = Val(jmin2) * 2000
        ElseIf min2.Text = "Jeruk Hangat" Then
            hrgmin2.Text = Val(jmin2) * 2000
        End If
    End Sub

    Private Sub min3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles min3.SelectedIndexChanged
        If min3.Text = "Es Teh Manis" Then
            hrgmin3.Text = Val(jmin3) * 1500
        ElseIf min3.Text = "Es Teh Lemon" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Es Jeruk" Then
            hrgmin3.Text = Val(jmin3) * 1500
        ElseIf min3.Text = "Kopi Susu" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Coffee" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Teh Manis Hangat" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Teh Lemon Hangat" Then
            hrgmin3.Text = Val(jmin3) * 2000
        ElseIf min3.Text = "Jeruk Hangat" Then
            hrgmin3.Text = Val(jmin3) * 2000
        End If
    End Sub

    Private Sub jmak1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmak1.TextChanged
        If mak1.Text = "Bakso Biasa" Then
            hrgmak1.Text = Val(jmak1) * 6000
        ElseIf mak1.Text = "Bakso spesial" Then
            hrgmak1.Text = Val(jmak1) * 7000
        ElseIf mak1.Text = "Mie Ayam biasa" Then
            hrgmak1.Text = Val(jmak1) * 6000
        ElseIf mak1.Text = "Mie Ayam Spesial" Then
            hrgmak1.Text = Val(jmak1) * 7500
        ElseIf mak1.Text = "Mie Ayam bakso" Then
            hrgmak1.Text = Val(jmak1) * 7500
        End If
    End Sub

    Private Sub jmak2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmak2.TextChanged
        If mak2.Text = "Bakso Biasa" Then
            hrgmak2.Text = Val(jmak2) * 6000
        ElseIf mak2.Text = "Bakso spesial" Then
            hrgmak2.Text = Val(jmak2) * 7000
        ElseIf mak2.Text = "Mie Ayam biasa" Then
            hrgmak2.Text = Val(jmak2) * 6000
        ElseIf mak2.Text = "Mie Ayam Spesial" Then
            hrgmak2.Text = Val(jmak2) * 7500
        ElseIf mak2.Text = "Mie Ayam bakso" Then
            hrgmak2.Text = Val(jmak2) * 7500
        End If
    End Sub

    Private Sub jmak3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmak3.TextChanged
        If mak3.Text = "Bakso Biasa" Then
            hrgmak3.Text = Val(jmak3) * 6000
        ElseIf mak3.Text = "Bakso spesial" Then
            hrgmak3.Text = Val(jmak3) * 7000
        ElseIf mak3.Text = "Mie Ayam biasa" Then
            hrgmak3.Text = Val(jmak3) * 6000
        ElseIf mak3.Text = "Mie Ayam Spesial" Then
            hrgmak3.Text = Val(jmak3) * 7500
        ElseIf mak3.Text = "Mie Ayam bakso" Then
            hrgmak3.Text = Val(jmak3) * 7500
        End If
    End Sub

    Private Sub mak1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mak1.SelectedIndexChanged
        If mak1.Text = "Bakso Biasa" Then
            hrgmak1.Text = Val(jmak1) * 6000
        ElseIf mak1.Text = "Bakso spesial" Then
            hrgmak1.Text = Val(jmak1) * 7000
        ElseIf mak1.Text = "Mie Ayam biasa" Then
            hrgmak1.Text = Val(jmak1) * 6000
        ElseIf mak1.Text = "Mie Ayam Spesial" Then
            hrgmak1.Text = Val(jmak1) * 7500
        ElseIf mak1.Text = "Mie Ayam bakso" Then
            hrgmak1.Text = Val(jmak1) * 7500
        End If
    End Sub

    Private Sub mak2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mak2.SelectedIndexChanged
        If mak2.Text = "Bakso Biasa" Then
            hrgmak2.Text = Val(jmak2) * 6000
        ElseIf mak2.Text = "Bakso spesial" Then
            hrgmak2.Text = Val(jmak2) * 7000
        ElseIf mak2.Text = "Mie Ayam biasa" Then
            hrgmak2.Text = Val(jmak2) * 6000
        ElseIf mak2.Text = "Mie Ayam Spesial" Then
            hrgmak2.Text = Val(jmak2) * 7500
        ElseIf mak2.Text = "Mie Ayam bakso" Then
            hrgmak2.Text = Val(jmak2) * 7500
        End If
    End Sub

    Private Sub mak3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mak3.SelectedIndexChanged
        If mak3.Text = "Bakso Biasa" Then
            hrgmak3.Text = Val(jmak3) * 6000
        ElseIf mak3.Text = "Bakso spesial" Then
            hrgmak3.Text = Val(jmak3) * 7000
        ElseIf mak3.Text = "Mie Ayam biasa" Then
            hrgmak3.Text = Val(jmak3) * 6000
        ElseIf mak3.Text = "Mie Ayam Spesial" Then
            hrgmak3.Text = Val(jmak3) * 7500
        ElseIf mak3.Text = "Mie Ayam bakso" Then
            hrgmak3.Text = Val(jmak3) * 7500
        End If
    End Sub
    Private Sub kembali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If MsgBox("Anda Yakin Ingin Keluar?", vbYesNo + vbQuestion + vbDefaultButton1, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        min1.ResetText()
        min2.ResetText()
        min3.ResetText()
        jmin1.ResetText()
        jmin2.ResetText()
        jmin3.ResetText()
        hrgmin1.ResetText()
        hrgmin2.ResetText()
        hrgmin3.ResetText()
        totmin.ResetText()
        mak1.ResetText()
        mak2.ResetText()
        mak3.ResetText()
        jmak1.ResetText()
        jmak2.ResetText()
        jmak3.ResetText()
        hrgmak1.ResetText()
        hrgmak2.ResetText()
        hrgmak3.ResetText()
        totmak.ResetText()
        total.ResetText()
        bayar.ResetText()
        kembali.ResetText()
        min1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        kembali.Text = Val(bayar.Text) - Val(total.Text)
    End Sub

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        totmin.Text = Val(hrgmin1.Text) + Val(hrgmin2.Text) + Val(hrgmin3.Text)
        totmak.Text = Val(hrgmak1.Text) + Val(hrgmak2.Text) + Val(hrgmak3.Text)
        total.Text = Val(totmin.Text) + Val(totmak.Text)
    End Sub

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter
        If min1.Text = "Es Teh Manis" Then
            hrgmin1.Text = Val(jmin1) * 1500
        ElseIf min1.Text = "Es Teh Lemon" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Es Jeruk" Then
            hrgmin1.Text = Val(jmin1) * 1500
        ElseIf min1.Text = "Kopi Susu" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Coffee" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Teh Manis Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Teh Lemon Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        ElseIf min1.Text = "Jeruk Hangat" Then
            hrgmin1.Text = Val(jmin1) * 2000
        End If
    End Sub
End Class

hasil vb 2010 adalah seperti gambar dibawah ini