Query TOKO BATIK USA "USAHA SOLO ASLI" vb.net

Public Class Quiz
    Dim harga As Single
    Dim jumlah As Single
    Dim jum1 As Single

    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbKode.SelectedIndexChanged
        If Me.cmbKode.Text = "JKT01" Then
            Me.txtToko.Text = "CV.KERATON"
            Me.txtContact.Text = "Muhammad Sofyan"
            Me.txtTlp.Text = "021-7345618"
        ElseIf Me.cmbKode.Text = "BDG02" Then
            Me.txtToko.Text = "CV.BERJAYA"
            Me.txtContact.Text = "Erliana Sandra"
            Me.txtTlp.Text = "022-531575757"
        ElseIf Me.cmbKode.Text = "BDG03" Then
            Me.txtToko.Text = "CV.INDHA JAYA"
            Me.txtContact.Text = "Erwina Sofia"
            Me.txtTlp.Text = "0256-80739191"
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbBatik.SelectedIndexChanged

    End Sub

    Private Sub cmbUkuran_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbUkuran.SelectedIndexChanged
        If cmbBatik.Text = "PKL" Then
            If cmbUkuran.Text = "S" Then
                Me.txtJenis.Text = "Pekalongan"
                Me.txtMerk.Text = "Sabrina"
                Me.txtHarga.Text = "20000"
            ElseIf cmbUkuran.Text = "M" Then
                Me.txtJenis.Text = "Pekalongan"
                Me.txtMerk.Text = "Sabrina"
                Me.txtHarga.Text = "30000"
            ElseIf cmbUkuran.Text = "L" Then
                Me.txtJenis.Text = "Pekalongan"
                Me.txtMerk.Text = "Sabrina"
                Me.txtHarga.Text = "40000"
            End If

        ElseIf cmbBatik.Text = "JOG" Then
            If cmbUkuran.Text = "S" Then
                Me.txtJenis.Text = "Jogyakarta"
                Me.txtMerk.Text = "Ramadhani"
                Me.txtHarga.Text = "25000"
            ElseIf cmbUkuran.Text = "M" Then
                Me.txtJenis.Text = "Jogyakarta"
                Me.txtMerk.Text = "Ramadhani"
                Me.txtHarga.Text = "35000"
            ElseIf cmbUkuran.Text = "L" Then
                Me.txtJenis.Text = "Jogyakarta"
                Me.txtMerk.Text = "Ramadhani"
                Me.txtHarga.Text = "45000"
            End If


        ElseIf cmbBatik.Text = "SLO" Then
            If cmbUkuran.Text = "S" Then
                Me.txtJenis.Text = "Solo"
                Me.txtMerk.Text = "Keraton"
                Me.txtHarga.Text = "27500"
            ElseIf cmbUkuran.Text = "M" Then
                Me.txtJenis.Text = "Solo"
                Me.txtMerk.Text = "Keraton"
                Me.txtHarga.Text = "37500"
            ElseIf cmbUkuran.Text = "L" Then
                Me.txtJenis.Text = "Solo"
                Me.txtMerk.Text = "Keraton"
                Me.txtHarga.Text = "47500"
            End If

        End If
    End Sub

    Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles tgl.TextChanged

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        tgl.Text = Format(Now, "dd-MM-yyyy")
        jam.Text = Format(Now, "HH:mm:ss")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles hitung.Click
        harga = txtHarga.Text
        jumlah = txtJumlah.Text
        jum1 = harga * jumlah
        Total.Text = jum1
        ppn.Text = (jum1 * 10) / 100
        grand.Text = ppn.Text + jum1
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles input.Click
        Me.Controls.Clear()
        Me.InitializeComponent()
        Timer1.Enabled = True
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If MessageBox.Show("Benarkah Anda Ingin Keluar dari aplikasi ini ???", "Konfirmasi",
MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub
End Class

Share this post