10. RESISTENCIAS 2 (Numeros)

Este programa lo que hace es determinar el valor de la resistencia que tienes si tienes el valor de la resistencia que buscas, para poder hacer esto utilizamos varios “Combobox” para que mires que datos tienes, después se evalúa con “Case” que es otro comparador, cual valor fue el que ingresaste, y con esto te da el valor de la resistencia que tienes. Este programa es muy parecido al anterior solo que este te muestra el color de la resistencia que necesitas y esto se hace con varios “RectangleShape” que se programan a los “Case” para que te el valor de la resistencia equivalente a la que buscas.

A continuación se mostrara el código que se utilizó:

Public Class Form1

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

        Select Case ComboBox1.Text

            Case "0"

                RectangleShape1.BackColor = Color.Black

            Case "1"

                RectangleShape1.BackColor = Color.Brown

            Case "2"

                RectangleShape1.BackColor = Color.Red

            Case "3"

                RectangleShape1.BackColor = Color.Orange

            Case "4"

                RectangleShape1.BackColor = Color.Yellow

            Case "5"

                RectangleShape1.BackColor = Color.Green

            Case "6"

                RectangleShape1.BackColor = Color.Blue

            Case "7"

                RectangleShape1.BackColor = Color.Violet

            Case "8"

                RectangleShape1.BackColor = Color.Gray

            Case "9"

                RectangleShape1.BackColor = Color.White

        End Select

        Select Case ComboBox2.Text

            Case "0"

                RectangleShape2.BackColor = Color.Black

            Case "1"

                RectangleShape2.BackColor = Color.Brown

            Case "2"

                RectangleShape2.BackColor = Color.Red

            Case "3"

                RectangleShape2.BackColor = Color.Orange

            Case "4"

                RectangleShape2.BackColor = Color.Yellow

            Case "5"

                RectangleShape2.BackColor = Color.Green

            Case "6"

                RectangleShape2.BackColor = Color.Blue

            Case "7"

                RectangleShape2.BackColor = Color.Violet

            Case "8"

                RectangleShape2.BackColor = Color.Gray

            Case "9"

                RectangleShape2.BackColor = Color.White

        End Select

        Select Case ComboBox3.Text

            Case ""

                RectangleShape3.BackColor = Color.Black

            Case "0"

                RectangleShape3.BackColor = Color.Brown

            Case "00"

                RectangleShape3.BackColor = Color.Red

            Case "000"

                RectangleShape3.BackColor = Color.Orange

            Case "0000"

                RectangleShape3.BackColor = Color.Yellow

            Case "00000"

                RectangleShape3.BackColor = Color.Green

            Case "000000"

                RectangleShape3.BackColor = Color.Blue

            Case "0000000"

                RectangleShape3.BackColor = Color.Violet

            Case "00000000"

                RectangleShape3.BackColor = Color.Gray

            Case "000000000"

                RectangleShape3.BackColor = Color.White

        End Select

        Select Case ComboBox4.Text

            Case "5%"

                RectangleShape4.BackColor = Color.Gold

            Case "10%"

                RectangleShape4.BackColor = Color.Silver

        End Select

    End Sub

End Class

La parte gráfica de este programa se ve así:

10. RESISTENCIAS 2 (Numeros)

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:  

https://www.dropbox.com/s/ax3sg8djjke43j3/RESISTENCIAS%202%20%28Numeros%29.rar