9. RESISTENCIAS 1(Colores)

Este programa lo que hace es determinar el valor de la resistencia que tienes si tienes los colores de la resistencea, para poder hacer esto utilizamos varios “Combobox” para que mires que datos tienes, después se evalua con “Case” que es otro comparador, cual valor fue el que ingrasaste, y con esto te da el valor de la resistencia que tienes.

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

Public Class Form1

    Dim banda1, banda2 As Integer

    Dim banda3, tolerancia As String

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

        banda1 = 0

        banda2 = 0

        banda3 = 0

        tolerancia = 0

    End Sub

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

        Select Case ComboBox1.Text

            Case "negro"

                banda1 = 0

            Case "cafe"

                banda1 = 1

            Case "rojo"

                banda1 = 2

            Case "naranja"

                banda1 = 3

            Case "amarillo"

                banda1 = 4

            Case "verde"

                banda1 = 5

            Case "azul"

                banda1 = 6

            Case "violeta"

                banda1 = 7

            Case "gris"

                banda1 = 8

            Case "blanco"

                banda1 = 9

        End Select

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text

            Case "negro"

                banda2 = 0

            Case "cafe"

                banda2 = 1

            Case "rojo"

                banda2 = 2

            Case "naranja"

                banda2 = 3

            Case "amarillo"

                banda2 = 4

            Case "verde"

                banda2 = 5

            Case "azul"

                banda2 = 6

            Case "violeta"

                banda2 = 7

            Case "gris"

                banda2 = 8

            Case "blanco"

                banda2 = 9

        End Select

    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

        Select Case ComboBox3.Text

            Case "negro"

                banda3 = "1"

            Case "cafe"

                banda3 = "10"

            Case "rojo"

                banda3 = "100"

            Case "naranja"

                banda3 = "1000"

            Case "amarillo"

                banda3 = "10000"

            Case "verde"

                banda3 = "100000"

            Case "azul"

                banda3 = "1000000"

            Case "violeta"

                banda3 = "10000000"

            Case "gris"

                banda3 = "100000000"

            Case "blanco"

                banda3 = "1000000000"

        End Select

    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged

        Select Case ComboBox4.Text

            Case "plata"

                tolerancia = "+-10%"

            Case "dorado"

                tolerancia = "+-5%"

        End Select

    End Sub

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

        Label5.Text = (banda1 & banda2) * banda3

        Label6.Text = tolerancia

    End Sub

End Class

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

9. RESISTENCIAS 1(Colores)

  

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:  

https://www.dropbox.com/s/kwa9htjf3ij1tkq/RESISTENCIAS%201%28Colores%29.rar