EXAMEN DEL PRIMER PARCIAL

EXAMEN DEL PRIMER PARCIAL

Public Class Form1

    Dim costo As Double = 0

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

        End

    End Sub

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

        'CARGAR ELEMENTOS DEL COMBOBOX'

        cbxmodelo.Items.Add("PLATAFORMA MOODLE")

        cbxmodelo.Items.Add("WEBSITE WORDPRESS")

    End Sub

    Private Sub cbxmodelo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxmodelo.SelectedIndexChanged

        'VALIDAR EL COMBOBOX'

        If cbxmodelo.SelectedItem = "PLATAFORMA MOODLE" Then

            txtcostoIva.Text = 1000

            txtcostoIva.Text = (1000 * 0.12) + 1000

            pbxcuadro.SizeMode = PictureBoxSizeMode.StretchImage

            pbxcuadro.Image = Image.FromFile("C:\Users\LAB3 PC1\AppData\Local\Temporary Projects\4C1.EXA1_RAFAEL_BAQUE\IMAGEN2.JPG")

        Else

            txtcostoIva.Text = 600

            txtcostoIva.Text = (600 * 0.12) + 600

            pbxcuadro.SizeMode = PictureBoxSizeMode.StretchImage

            pbxcuadro.Image = Image.FromFile("C:\Users\LAB3 PC1\AppData\Local\Temporary Projects\4C1.EXA1_RAFAEL_BAQUE\IMAGEN1.PNG")

        End If

    End Sub

    Private Sub cmbvender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbvender.Click

        ' ACUMULADOR'

        txtreca.Text = (Val(txtreca.Text) + Val(txtcostoIva.Text))

    End Sub

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

        'LIMPIAR EL PROGRAMA'

        txtcostoIva.Text = ""

        cbxmodelo.Focus()

    End Sub

End Class