LECCION PRACTICA 1

Lección Práctica

        Public Class Form1

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

        'cargar los elementos del combobox'

        cbxlista.Items.Add("windows 8")

        cbxlista.Items.Add("office 2013")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxlista.SelectedIndexChanged

        'definicion de variables del ejercicio'

        Dim costo As Double

        'doble clic en combobox1'

        If cbxlista.SelectedItem = "windows 8" Then

            costo = 350

            txtcosto.Text = costo

        ElseIf cbxlista.SelectedItem = "office 2013" Then

            costo = 280

            txtcosto.Text = costo

        End If

    End Sub

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

        'calculo aritmetico con las variables si la venta esta correcta'

        txttoiva.Text = (Val(txtcosto.Text) * Val(txtcantidad.Text) * 12)

        'incremento acumuladores y contadores'

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

        txtvenre.Text = Val(txttoiva.Text) + Val(txtvenre.Text)

    End Sub

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

      

        txtcosto.Clear()

        txtcantidad.Clear()

        txttoiva.Clear()

    End Sub

    'declaracion del boton salir'

    Dim salir = ""

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

        'boton salir'

        End

    End Sub

End Class

    

6 label

1 combobox (cbxlista)

5 texbox (txt)

3 botones (btn)