ejercicio de combox

Ejercicio ComboBox

1-    Utilizando los controles indicados realice la siguiente interfaz.

2-    Doble Clic en un espacio vacio del formulario y escriba el siguiente código.

       ComboBox1.Items.Add("Tigo")

        ComboBox1.Items.Add("Movistar")

        ComboBox1.Items.Add("Claro")

        ComboBox1.Items.Add("Digicel")

3-    Doble Clic en ComboBox  y escriba el siguiente código

        Dim cia As Integer

        Dim minutos As Integer

        Dim tp As Decimal

        'Si quiero evaluar las compañías por nombre (Case "Tigo") utilizo la propiedad text del combo,  

        'sino lo hago con el index y evaluo por numero de indice seleccionado. Como ha quedado el ejemplo.

        cia = ComboBox1.SelectedIndex         minutos = MaskedTextBox1.Text

        Select Case cia             Case 0

                tp = minutos * 0.15

                Label4.Text = "Pasate a la mejor red para hablar, navegar y ahorrar"

                PictureBox1.ImageLocation = "C:\Users\Noelia\Pictures\tigo.JPG"             Case 1

                tp = minutos * 0.17

                Label4.Text = "Dejate querer y pasate a movistar"

                PictureBox1.ImageLocation = "C:\Users\Noelia\Pictures\movistar.jpg" 

            Case 2

                tp = minutos * 0.18

                Label4.Text = "Tu poder es Claro"

                PictureBox1.ImageLocation = "C:\Users\Noelia\Pictures\claro.jpg"             Case 3

                tp = minutos * 0.2

                Label4.Text = "Revolucionamos tu mundo. Acepta el reto 4G"

                'Las siguientes formas son utiles para cargar la imagen.

                PictureBox1.ImageLocation = ("C:\Users\Noelia\Pictures\digicel.jpg") 

               'PictureBox1.Image =

System.Drawing.Image.FromFile("\Users\Noelia\Pictures\digicel.jpg")

                'PictureBox1.Image =

Image.FromFile("\Users\Noelia\Pictures\digicel.gif")

                'PictureBox1.Image = My.Resources.digicel  

            Case Else

                Label3.Text = "No seleccionó una compañía"

        End Select

        Label3.Text = "Usted cancelará:" & tp

    End Sub

4-    Doble clic en boton Salir y escriba: end

5-    Ejecute el programa y verifique su funcionamiento.

Nota: Debe tener en sus documentos una imagen para cada compañía y cambiar la ruta del archivo para cada caso ubicando la ruta de su computadora donde están ubicadas las imágenes.

Ahora es tu turno:

 Modifica el ejercicio para que al seleccionar en el ComboBox solo muestre la imagen y establezca el precio por minuto, al dar clic en un botón Aceptar se procesará el total a pagar.