PROGRAMA VENTAS DE MOTOS YAMAHA

PROGRAMA VENTAS DE MOTOS YAMAHA

Public Class frmventasdemotos

    Dim txtMotosYamahaR15 = ""

    Dim txtMotosYamaha7 = ""

    Dim txtYamaha2012 = ""

    Dim txtYamahaFZ1200 = ""

  

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

        'cargar los elementos al combo box'

        cbxmodelomoto.Items.Add("Motos Yamaha R15")

        cbxmodelomoto.Items.Add("Motos Yamaha 7")

        cbxmodelomoto.Items.Add("Yamaha 2012")

        cbxmodelomoto.Items.Add("Yamaha FZ1 200")

        'ASIGNAR LOS VALORES INICIALES A LOS DIFERENCIADORES

        txtmotor15.Text = 150

        txtmoto7.Text = 100

        txtmoto2012.Text = 80

        txtmotofz1.Text = 50

        cbxmodelomoto.SelectedValue = ""

        txtcantidad.Clear()

        txtcosto.Clear()

        txtdescuento.Clear()

        txtiva.Clear()

        txtsubtotal.Clear()

        txtliquido.Clear()

      

    End Sub

    Private Sub cbxmodelomoto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxmodelomoto.SelectedIndexChanged

        'definicion de variables del ejercicio'

        Dim costo As Double

        If cbxmodelomoto.SelectedItem = "Motos Yamaha R15" Then

            costo = 5000

            txtcosto.Text = costo

            pbximagenmoto.SizeMode = PictureBoxSizeMode.StretchImage

            pbximagenmoto.Image = Image.FromFile("D:\TRABAJOS DE PROGRAMACION\IMAGENES DE MOTOS YAMAHA\Motos Yamaha R15.jpg")

        ElseIf cbxmodelomoto.SelectedItem = "Motos Yamaha 7" Then

            costo = 4000

            txtcosto.Text = costo

            pbximagenmoto.SizeMode = PictureBoxSizeMode.StretchImage

            pbximagenmoto.Image = Image.FromFile("D:\TRABAJOS DE PROGRAMACION\IMAGENES DE MOTOS YAMAHA\Motos-Yamaha-7.jpg")

        End If

        If cbxmodelomoto.SelectedItem = "Yamaha 2012" Then

            costo = 3000

            txtcosto.Text = costo

            pbximagenmoto.SizeMode = PictureBoxSizeMode.StretchImage

            pbximagenmoto.Image = Image.FromFile("D:\TRABAJOS DE PROGRAMACION\IMAGENES DE MOTOS YAMAHA\Yamaha-2012_1.jpg")

        ElseIf cbxmodelomoto.SelectedItem = "Yamaha FZ1 200" Then

            costo = 2000

            txtcosto.Text = costo

            pbximagenmoto.SizeMode = PictureBoxSizeMode.StretchImage

            pbximagenmoto.Image = Image.FromFile("D:\TRABAJOS DE PROGRAMACION\IMAGENES DE MOTOS YAMAHA\Yamaha_FZ1_2009.jpg")

        End If

    End Sub

    Private Sub cmbtotalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtotalizar.Click

        'decremento en los diferenciadores

        If cbxmodelomoto.SelectedItem = "Motos Yamaha R15" Then

            If (Val(txtcantidad.Text) > Val(txtmotor15.Text)) Then

                MsgBox("No tiene disponible la cantidad solicitada,ingresar la cantidad que este disponible.")

                txtcantidad.Clear()

                txtcantidad.Focus()

            Else

                txtmotor15.Text = (Val(txtmotor15.Text) - Val(txtcantidad.Text))

            End If

        ElseIf cbxmodelomoto.SelectedItem = "Motos Yamaha 7" Then

            If (Val(txtcantidad.Text) > Val(txtmoto7.Text)) Then

                MsgBox("No tiene disponible la cantidad solicitada,ingresar la cantidad que este disponible.")

                txtcantidad.Clear()

                txtcantidad.Focus()

            Else

                txtmoto7.Text = (Val(txtmoto7.Text) - Val(txtcantidad.Text))

            End If

        ElseIf cbxmodelomoto.SelectedItem = "Yamaha 2012" Then

            If (Val(txtcantidad.Text) > Val(txtmoto2012.Text)) Then

                MsgBox("No tiene disponible la cantidad solicitada,ingresar la cantidad que este disponible.")

                txtcantidad.Clear()

                txtcantidad.Focus()

            Else

                txtmoto2012.Text = (Val(txtmoto2012.Text) - Val(txtcantidad.Text))

            End If

        Else

            If (Val(txtcantidad.Text) > Val(txtmotofz1.Text)) Then

                MsgBox("No tiene disponible la cantidad solicitada,ingresar la cantidad que este disponible.")

                txtcantidad.Clear()

                txtcantidad.Focus()

            Else

                txtmotofz1.Text = (Val(txtmotofz1.Text) - Val(txtcantidad.Text))

            End If

        End If

        'calculo matematico con las variables

        txtsubtotal.Text = (Val(txtcosto.Text) * Val(txtcantidad.Text))

        txtiva.Text = (Val(txtsubtotal.Text) * 0.12)

        txtdescuento.Text = (Val(txtsubtotal.Text) * 0.05)

        txtliquido.Text = (Val(txtsubtotal.Text) + Val(txtiva.Text) - Val(txtdescuento.Text))

      

        'acumuladores y contadores

        txtnumvts.Text = (Val(txtnumvts.Text) + 1)

        txtvenrec.Text = (Val(txtvenrec.Text) + Val(txtliquido.Text))

       

    End Sub

    Private Sub cmblimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmblimpiar.Click

        cbxmodelomoto.SelectedValue = ""

        txtcantidad.Clear()

        txtcosto.Clear()

        txtdescuento.Clear()

        txtiva.Clear()

        txtsubtotal.Clear()

        txtliquido.Clear()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'inicializar contador y acumulador'

        txtnumvts.Text = 0

        txtvenrec.Text = 0

    End Sub

   

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        'declaracion del boton salir'

        Dim salir = ""

        'boton salir'

        End

    End Sub

End Class