CALCULADORA DE RESISTENCIAS

1        Tenemos 4 Frame, los primeros tres tienen diez OptionButton que seleccionan los diferentes colores con  disponibles en el código de colores de resistencias oficial. 

               El primero selecciona el color deseado que equivale a la primera cifra de la resistencia y su valor, el segundo es el valor y color de la segunda cifra, el tercero es el multiplicador (numero por el cual se multiplican las dos primeras cifras y el ultimo es la tolerancia, donde solo disponemos de tres colores (OptionButton ).

Código:

Private Sub Command1_Click()

End

End Sub

Private Sub Option1_Click()

If Option1.Value = True Then

Label1.Caption = 0

End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Label1.Caption = 1

End If

End Sub

Private Sub Option3_Click()

If Option3.Value = True Then

Label1.Caption = 2

End If

End Sub

Private Sub Option4_Click()

If Option4.Value = True Then

Label1.Caption = 3

End If

End Sub

Private Sub Option5_Click()

If Option5.Value = True Then

Label1.Caption = 4

End If

End Sub

Private Sub Option6_Click()

If Option6.Value = True Then

Label1.Caption = 5

End If

End Sub

Private Sub Option7_Click()

If Option7.Value = True Then

Label1.Caption = 6

End If

End Sub

Private Sub Option8_Click()

If Option8.Value = True Then

Label1.Caption = 7

End If

End Sub

Private Sub Option9_Click()

If Option9.Value = True Then

Label1.Caption = 8

End If

End Sub

Private Sub Option10_Click()

If Option10.Value = True Then

Label1.Caption = 9

End If

End Sub

Private Sub Option11_Click()

If Option11.Value = True Then

Label2.Caption = 0

End If

End Sub

Private Sub Option12_Click()

If Option12.Value = True Then

Label2.Caption = 1

End If

End Sub

Private Sub Option13_Click()

If Option13.Value = True Then

Label2.Caption = 2

End If

End Sub

Private Sub Option14_Click()

If Option14.Value = True Then

Label2.Caption = 3

End If

End Sub

Private Sub Option15_Click()

If Option15.Value = True Then

Label2.Caption = 4

End If

End Sub

Private Sub Option16_Click()

If Option16.Value = True Then

Label2.Caption = 5

End If

End Sub

Private Sub Option17_Click()

If Option17.Value = True Then

Label2.Caption = 6

End If

End Sub

Private Sub Option18_Click()

If Option18.Value = True Then

Label2.Caption = 7

End If

End Sub

Private Sub Option19_Click()

If Option19.Value = True Then

Label2.Caption = 8

End If

End Sub

Private Sub Option20_Click()

If Option20.Value = True Then

Label2.Caption = 9

End If

End Sub

Private Sub Option21_Click()

If Option21.Value = True Then

Label3.Caption = "x 1"

End If

End Sub

Private Sub Option22_Click()

If Option22.Value = True Then

Label3.Caption = "x 10"

End If

End Sub

Private Sub Option23_Click()

If Option23.Value = True Then

Label3.Caption = "x 100"

End If

End Sub

Private Sub Option24_Click()

If Option24.Value = True Then

Label3.Caption = "x 1,000"

End If

End Sub

Private Sub Option25_Click()

If Option25.Value = True Then

Label3.Caption = "x 10,000"

End If

End Sub

Private Sub Option26_Click()

If Option26.Value = True Then

Label3.Caption = "x 100,000"

End If

End Sub

Private Sub Option27_Click()

If Option27.Value = True Then

Label3.Caption = "x 1,000,000"

End If

End Sub

Private Sub Option28_Click()

If Option28.Value = True Then

Label3.Caption = "x 10,000,000"

End If

End Sub

Private Sub Option29_Click()

If Option29.Value = True Then

Label3.Caption = "x 0.01"

End If

End Sub

Private Sub Option30_Click()

If Option30.Value = True Then

Label3.Caption = "x 0,1"

End If

End Sub

Private Sub Option31_Click()

If Option31 = True Then

Label4.Caption = "± 10%"

End If

End Sub

Private Sub Option32_Click()

If Option32.Value = True Then

Label4.Caption = "± 5%"

End If

End Sub

Private Sub Option33_Click()

If Option33.Value = True Then

Label4.Caption = "± 20%"

End If

End Sub