calculates the value of resistors and displays the resistor table.

by Maniac (Smart Aussie) (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 6^th August 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)
API Declarations
Dim A As String Dim B As String Dim C As String
Rate calculates the value of resistors and displays the resistor table.


If Check1.Value = 1 Then stripe1.FillColor = &H0&

If Check1.Value = 1 Then Check2.Enabled = False
If Check1.Value = 0 Then Check2.Enabled = True
If Check1.Value = 1 Then Check3.Enabled = False
If Check1.Value = 0 Then Check3.Enabled = True
If Check1.Value = 1 Then Check4.Enabled = False
If Check1.Value = 0 Then Check4.Enabled = True
If Check1.Value = 1 Then Check5.Enabled = False
If Check1.Value = 0 Then Check5.Enabled = True
If Check1.Value = 1 Then Check6.Enabled = False
If Check1.Value = 0 Then Check6.Enabled = True
If Check1.Value = 1 Then Check7.Enabled = False
If Check1.Value = 0 Then Check7.Enabled = True
If Check1.Value = 1 Then Check8.Enabled = False
If Check1.Value = 0 Then Check8.Enabled = True
If Check1.Value = 1 Then Check9.Enabled = False
If Check1.Value = 0 Then Check9.Enabled = True
If Check1.Value = 1 Then Check10.Enabled = False
If Check1.Value = 0 Then Check10.Enabled = True

If Check1.Value = 1 Then stripe1value.Caption = "0"
If Check1.Value = 1 Then stripe1value.ForeColor = &H0&
If Check1.Value = 0 Then stripe1value.Caption = ""
End Sub
Private Sub Check10_Click()
If Check10.Value = 1 Then stripe1.FillColor = &HFFFFFF

If Check10.Value = 1 Then Check2.Enabled = False
If Check10.Value = 0 Then Check2.Enabled = True
If Check10.Value = 1 Then Check3.Enabled = False
If Check10.Value = 0 Then Check3.Enabled = True
If Check10.Value = 1 Then Check4.Enabled = False
If Check10.Value = 0 Then Check4.Enabled = True
If Check10.Value = 1 Then Check5.Enabled = False
If Check10.Value = 0 Then Check5.Enabled = True
If Check10.Value = 1 Then Check6.Enabled = False
If Check10.Value = 0 Then Check6.Enabled = True
If Check10.Value = 1 Then Check7.Enabled = False
If Check10.Value = 0 Then Check7.Enabled = True
If Check10.Value = 1 Then Check8.Enabled = False
If Check10.Value = 0 Then Check8.Enabled = True
If Check10.Value = 1 Then Check9.Enabled = False
If Check10.Value = 0 Then Check9.Enabled = True
If Check10.Value = 1 Then Check1.Enabled = False
If Check10.Value = 0 Then Check1.Enabled = True

If Check10.Value = 1 Then stripe1value.Caption = "9"
If Check10.Value = 1 Then stripe1value.ForeColor = &HFFFFFF
If Check10.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check11_Click()
If Check11.Value = 1 Then stripe2.FillColor = &H0&

If Check11.Value = 1 Then Check12.Enabled = False
If Check11.Value = 0 Then Check12.Enabled = True
If Check11.Value = 1 Then Check13.Enabled = False
If Check11.Value = 0 Then Check13.Enabled = True
If Check11.Value = 1 Then Check14.Enabled = False
If Check11.Value = 0 Then Check14.Enabled = True
If Check11.Value = 1 Then Check15.Enabled = False
If Check11.Value = 0 Then Check15.Enabled = True
If Check11.Value = 1 Then Check16.Enabled = False
If Check11.Value = 0 Then Check16.Enabled = True
If Check11.Value = 1 Then Check17.Enabled = False
If Check11.Value = 0 Then Check17.Enabled = True
If Check11.Value = 1 Then Check18.Enabled = False
If Check11.Value = 0 Then Check18.Enabled = True
If Check11.Value = 1 Then Check19.Enabled = False
If Check11.Value = 0 Then Check19.Enabled = True
If Check11.Value = 1 Then Check20.Enabled = False
If Check11.Value = 0 Then Check20.Enabled = True

If Check11.Value = 1 Then stripe2value.Caption = "0"
If Check11.Value = 1 Then stripe2value.ForeColor = &H0&
If Check11.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check12_Click()
If Check12.Value = 1 Then stripe2.FillColor = &H4080&

If Check12.Value = 1 Then Check20.Enabled = False
If Check12.Value = 0 Then Check20.Enabled = True
If Check12.Value = 1 Then Check13.Enabled = False
If Check12.Value = 0 Then Check13.Enabled = True
If Check12.Value = 1 Then Check14.Enabled = False
If Check12.Value = 0 Then Check14.Enabled = True
If Check12.Value = 1 Then Check15.Enabled = False
If Check12.Value = 0 Then Check15.Enabled = True
If Check12.Value = 1 Then Check16.Enabled = False
If Check12.Value = 0 Then Check16.Enabled = True
If Check12.Value = 1 Then Check17.Enabled = False
If Check12.Value = 0 Then Check17.Enabled = True
If Check12.Value = 1 Then Check18.Enabled = False
If Check12.Value = 0 Then Check18.Enabled = True
If Check12.Value = 1 Then Check19.Enabled = False
If Check12.Value = 0 Then Check19.Enabled = True
If Check12.Value = 1 Then Check11.Enabled = False
If Check12.Value = 0 Then Check11.Enabled = True

If Check12.Value = 1 Then stripe2value.Caption = "1"
If Check12.Value = 1 Then stripe2value.ForeColor = &H4080&
If Check12.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check13_Click()
If Check13.Value = 1 Then stripe2.FillColor = &HFF&

If Check13.Value = 1 Then Check12.Enabled = False
If Check13.Value = 0 Then Check12.Enabled = True
If Check13.Value = 1 Then Check20.Enabled = False
If Check13.Value = 0 Then Check20.Enabled = True
If Check13.Value = 1 Then Check14.Enabled = False
If Check13.Value = 0 Then Check14.Enabled = True
If Check13.Value = 1 Then Check15.Enabled = False
If Check13.Value = 0 Then Check15.Enabled = True
If Check13.Value = 1 Then Check16.Enabled = False
If Check13.Value = 0 Then Check16.Enabled = True
If Check13.Value = 1 Then Check17.Enabled = False
If Check13.Value = 0 Then Check17.Enabled = True
If Check13.Value = 1 Then Check18.Enabled = False
If Check13.Value = 0 Then Check18.Enabled = True
If Check13.Value = 1 Then Check19.Enabled = False
If Check13.Value = 0 Then Check19.Enabled = True
If Check13.Value = 1 Then Check11.Enabled = False
If Check13.Value = 0 Then Check11.Enabled = True

If Check13.Value = 1 Then stripe2value.Caption = "2"
If Check13.Value = 1 Then stripe2value.ForeColor = &HFF&
If Check13.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check14_Click()
If Check14.Value = 1 Then stripe2.FillColor = &H80FF&

If Check14.Value = 1 Then Check12.Enabled = False
If Check14.Value = 0 Then Check12.Enabled = True
If Check14.Value = 1 Then Check13.Enabled = False
If Check14.Value = 0 Then Check13.Enabled = True
If Check14.Value = 1 Then Check20.Enabled = False
If Check14.Value = 0 Then Check20.Enabled = True
If Check14.Value = 1 Then Check15.Enabled = False
If Check14.Value = 0 Then Check15.Enabled = True
If Check14.Value = 1 Then Check16.Enabled = False
If Check14.Value = 0 Then Check16.Enabled = True
If Check14.Value = 1 Then Check17.Enabled = False
If Check14.Value = 0 Then Check17.Enabled = True
If Check14.Value = 1 Then Check18.Enabled = False
If Check14.Value = 0 Then Check18.Enabled = True
If Check14.Value = 1 Then Check19.Enabled = False
If Check14.Value = 0 Then Check19.Enabled = True
If Check14.Value = 1 Then Check11.Enabled = False
If Check14.Value = 0 Then Check11.Enabled = True

If Check14.Value = 1 Then stripe2value.Caption = "3"
If Check14.Value = 1 Then stripe2value.ForeColor = &H80FF&
If Check14.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check15_Click()
If Check15.Value = 1 Then stripe2.FillColor = &HFFFF&

If Check15.Value = 1 Then Check12.Enabled = False
If Check15.Value = 0 Then Check12.Enabled = True
If Check15.Value = 1 Then Check13.Enabled = False
If Check15.Value = 0 Then Check13.Enabled = True
If Check15.Value = 1 Then Check14.Enabled = False
If Check15.Value = 0 Then Check14.Enabled = True
If Check15.Value = 1 Then Check20.Enabled = False
If Check15.Value = 0 Then Check20.Enabled = True
If Check15.Value = 1 Then Check16.Enabled = False
If Check15.Value = 0 Then Check16.Enabled = True
If Check15.Value = 1 Then Check17.Enabled = False
If Check15.Value = 0 Then Check17.Enabled = True
If Check15.Value = 1 Then Check18.Enabled = False
If Check15.Value = 0 Then Check18.Enabled = True
If Check15.Value = 1 Then Check19.Enabled = False
If Check15.Value = 0 Then Check19.Enabled = True
If Check15.Value = 1 Then Check11.Enabled = False
If Check15.Value = 0 Then Check11.Enabled = True

If Check15.Value = 1 Then stripe2value.Caption = "4"
If Check15.Value = 1 Then stripe2value.ForeColor = &HFFFF&
If Check15.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check16_Click()
If Check16.Value = 1 Then stripe2.FillColor = &H8000&

If Check16.Value = 1 Then Check12.Enabled = False
If Check16.Value = 0 Then Check12.Enabled = True
If Check16.Value = 1 Then Check13.Enabled = False
If Check16.Value = 0 Then Check13.Enabled = True
If Check16.Value = 1 Then Check14.Enabled = False
If Check16.Value = 0 Then Check14.Enabled = True
If Check16.Value = 1 Then Check15.Enabled = False
If Check16.Value = 0 Then Check15.Enabled = True
If Check16.Value = 1 Then Check20.Enabled = False
If Check16.Value = 0 Then Check20.Enabled = True
If Check16.Value = 1 Then Check17.Enabled = False
If Check16.Value = 0 Then Check17.Enabled = True
If Check16.Value = 1 Then Check18.Enabled = False
If Check16.Value = 0 Then Check18.Enabled = True
If Check16.Value = 1 Then Check19.Enabled = False
If Check16.Value = 0 Then Check19.Enabled = True
If Check16.Value = 1 Then Check11.Enabled = False
If Check16.Value = 0 Then Check11.Enabled = True

If Check16.Value = 1 Then stripe2value.Caption = "5"
If Check16.Value = 1 Then stripe2value.ForeColor = &H8000&
If Check16.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check17_Click()
If Check17.Value = 1 Then stripe2.FillColor = &HFF0000

If Check17.Value = 1 Then Check12.Enabled = False
If Check17.Value = 0 Then Check12.Enabled = True
If Check17.Value = 1 Then Check13.Enabled = False
If Check17.Value = 0 Then Check13.Enabled = True
If Check17.Value = 1 Then Check14.Enabled = False
If Check17.Value = 0 Then Check14.Enabled = True
If Check17.Value = 1 Then Check15.Enabled = False
If Check17.Value = 0 Then Check15.Enabled = True
If Check17.Value = 1 Then Check16.Enabled = False
If Check17.Value = 0 Then Check16.Enabled = True
If Check17.Value = 1 Then Check20.Enabled = False
If Check17.Value = 0 Then Check20.Enabled = True
If Check17.Value = 1 Then Check18.Enabled = False
If Check17.Value = 0 Then Check18.Enabled = True
If Check17.Value = 1 Then Check19.Enabled = False
If Check17.Value = 0 Then Check19.Enabled = True
If Check17.Value = 1 Then Check11.Enabled = False
If Check17.Value = 0 Then Check11.Enabled = True

If Check17.Value = 1 Then stripe2value.Caption = "6"
If Check17.Value = 1 Then stripe2value.ForeColor = &HFF0000
If Check17.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check18_Click()
If Check18.Value = 1 Then stripe2.FillColor = &HFF00FF

If Check18.Value = 1 Then Check12.Enabled = False
If Check18.Value = 0 Then Check12.Enabled = True
If Check18.Value = 1 Then Check13.Enabled = False
If Check18.Value = 0 Then Check13.Enabled = True
If Check18.Value = 1 Then Check14.Enabled = False
If Check18.Value = 0 Then Check14.Enabled = True
If Check18.Value = 1 Then Check15.Enabled = False
If Check18.Value = 0 Then Check15.Enabled = True
If Check18.Value = 1 Then Check16.Enabled = False
If Check18.Value = 0 Then Check16.Enabled = True
If Check18.Value = 1 Then Check17.Enabled = False
If Check18.Value = 0 Then Check17.Enabled = True
If Check18.Value = 1 Then Check20.Enabled = False
If Check18.Value = 0 Then Check20.Enabled = True
If Check18.Value = 1 Then Check19.Enabled = False
If Check18.Value = 0 Then Check19.Enabled = True
If Check18.Value = 1 Then Check11.Enabled = False
If Check18.Value = 0 Then Check11.Enabled = True

If Check18.Value = 1 Then stripe2value.Caption = "7"
If Check18.Value = 1 Then stripe2value.ForeColor = &HFF00FF
If Check18.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check19_Click()
If Check19.Value = 1 Then stripe2.FillColor = &H808080

If Check19.Value = 1 Then Check12.Enabled = False
If Check19.Value = 0 Then Check12.Enabled = True
If Check19.Value = 1 Then Check13.Enabled = False
If Check19.Value = 0 Then Check13.Enabled = True
If Check19.Value = 1 Then Check14.Enabled = False
If Check19.Value = 0 Then Check14.Enabled = True
If Check19.Value = 1 Then Check15.Enabled = False
If Check19.Value = 0 Then Check15.Enabled = True
If Check19.Value = 1 Then Check16.Enabled = False
If Check19.Value = 0 Then Check16.Enabled = True
If Check19.Value = 1 Then Check17.Enabled = False
If Check19.Value = 0 Then Check17.Enabled = True
If Check19.Value = 1 Then Check18.Enabled = False
If Check19.Value = 0 Then Check18.Enabled = True
If Check19.Value = 1 Then Check20.Enabled = False
If Check19.Value = 0 Then Check20.Enabled = True
If Check19.Value = 1 Then Check11.Enabled = False
If Check19.Value = 0 Then Check11.Enabled = True

If Check19.Value = 1 Then stripe2value.Caption = "8"
If Check19.Value = 1 Then stripe2value.ForeColor = &H808080
If Check19.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then stripe1.FillColor = &H4080&

If Check2.Value = 1 Then Check1.Enabled = False
If Check2.Value = 0 Then Check1.Enabled = True
If Check2.Value = 1 Then Check3.Enabled = False
If Check2.Value = 0 Then Check3.Enabled = True
If Check2.Value = 1 Then Check4.Enabled = False
If Check2.Value = 0 Then Check4.Enabled = True
If Check2.Value = 1 Then Check5.Enabled = False
If Check2.Value = 0 Then Check5.Enabled = True
If Check2.Value = 1 Then Check6.Enabled = False
If Check2.Value = 0 Then Check6.Enabled = True
If Check2.Value = 1 Then Check7.Enabled = False
If Check2.Value = 0 Then Check7.Enabled = True
If Check2.Value = 1 Then Check8.Enabled = False
If Check2.Value = 0 Then Check8.Enabled = True
If Check2.Value = 1 Then Check9.Enabled = False
If Check2.Value = 0 Then Check9.Enabled = True
If Check2.Value = 1 Then Check10.Enabled = False
If Check2.Value = 0 Then Check10.Enabled = True

If Check2.Value = 1 Then stripe1value.Caption = "1"
If Check2.Value = 1 Then stripe1value.ForeColor = &H4080&
If Check2.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check20_Click()
If Check20.Value = 1 Then stripe2.FillColor = &HFFFFFF

If Check20.Value = 1 Then Check12.Enabled = False
If Check20.Value = 0 Then Check12.Enabled = True
If Check20.Value = 1 Then Check13.Enabled = False
If Check20.Value = 0 Then Check13.Enabled = True
If Check20.Value = 1 Then Check14.Enabled = False
If Check20.Value = 0 Then Check14.Enabled = True
If Check20.Value = 1 Then Check15.Enabled = False
If Check20.Value = 0 Then Check15.Enabled = True
If Check20.Value = 1 Then Check16.Enabled = False
If Check20.Value = 0 Then Check16.Enabled = True
If Check20.Value = 1 Then Check17.Enabled = False
If Check20.Value = 0 Then Check17.Enabled = True
If Check20.Value = 1 Then Check18.Enabled = False
If Check20.Value = 0 Then Check18.Enabled = True
If Check20.Value = 1 Then Check19.Enabled = False
If Check20.Value = 0 Then Check19.Enabled = True
If Check20.Value = 1 Then Check11.Enabled = False
If Check20.Value = 0 Then Check11.Enabled = True

If Check20.Value = 1 Then stripe2value.Caption = "9"
If Check20.Value = 1 Then stripe2value.ForeColor = &HFFFFFF
If Check20.Value = 0 Then stripe2value.Caption = ""
End Sub

Private Sub Check21_Click()
If Check21.Value = 1 Then stripe3.FillColor = &H0&

If Check21.Value = 1 Then Check22.Enabled = False
If Check21.Value = 0 Then Check22.Enabled = True
If Check21.Value = 1 Then Check23.Enabled = False
If Check21.Value = 0 Then Check23.Enabled = True
If Check21.Value = 1 Then Check24.Enabled = False
If Check21.Value = 0 Then Check24.Enabled = True
If Check21.Value = 1 Then Check25.Enabled = False
If Check21.Value = 0 Then Check25.Enabled = True
If Check21.Value = 1 Then Check26.Enabled = False
If Check21.Value = 0 Then Check26.Enabled = True
If Check21.Value = 1 Then Check27.Enabled = False
If Check21.Value = 0 Then Check27.Enabled = True

If Check21.Value = 1 Then stripe3value.Caption = "1"
If Check21.Value = 1 Then stripe3value.ForeColor = &H0&
If Check21.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check22_Click()
If Check22.Value = 1 Then stripe3.FillColor = &H4080&

If Check22.Value = 1 Then Check21.Enabled = False
If Check22.Value = 0 Then Check21.Enabled = True
If Check22.Value = 1 Then Check23.Enabled = False
If Check22.Value = 0 Then Check23.Enabled = True
If Check22.Value = 1 Then Check24.Enabled = False
If Check22.Value = 0 Then Check24.Enabled = True
If Check22.Value = 1 Then Check25.Enabled = False
If Check22.Value = 0 Then Check25.Enabled = True
If Check22.Value = 1 Then Check26.Enabled = False
If Check22.Value = 0 Then Check26.Enabled = True
If Check22.Value = 1 Then Check27.Enabled = False
If Check22.Value = 0 Then Check27.Enabled = True

If Check22.Value = 1 Then stripe3value.Caption = "10"
If Check22.Value = 1 Then stripe3value.ForeColor = &H4080&
If Check22.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check23_Click()
If Check23.Value = 1 Then stripe3.FillColor = &HFF&

If Check23.Value = 1 Then Check21.Enabled = False
If Check23.Value = 0 Then Check21.Enabled = True
If Check23.Value = 1 Then Check22.Enabled = False
If Check23.Value = 0 Then Check22.Enabled = True
If Check23.Value = 1 Then Check24.Enabled = False
If Check23.Value = 0 Then Check24.Enabled = True
If Check23.Value = 1 Then Check25.Enabled = False
If Check23.Value = 0 Then Check25.Enabled = True
If Check23.Value = 1 Then Check26.Enabled = False
If Check23.Value = 0 Then Check26.Enabled = True
If Check23.Value = 1 Then Check27.Enabled = False
If Check23.Value = 0 Then Check27.Enabled = True

If Check23.Value = 1 Then stripe3value.Caption = "100"
If Check23.Value = 1 Then stripe3value.ForeColor = &HFF&
If Check23.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check24_Click()
If Check24.Value = 1 Then stripe3.FillColor = &H80FF&

If Check24.Value = 1 Then Check21.Enabled = False
If Check24.Value = 0 Then Check21.Enabled = True
If Check24.Value = 1 Then Check23.Enabled = False
If Check24.Value = 0 Then Check23.Enabled = True
If Check24.Value = 1 Then Check22.Enabled = False
If Check24.Value = 0 Then Check22.Enabled = True
If Check24.Value = 1 Then Check25.Enabled = False
If Check24.Value = 0 Then Check25.Enabled = True
If Check24.Value = 1 Then Check26.Enabled = False
If Check24.Value = 0 Then Check26.Enabled = True
If Check24.Value = 1 Then Check27.Enabled = False
If Check24.Value = 0 Then Check27.Enabled = True

If Check24.Value = 1 Then stripe3value.Caption = "1000"
If Check24.Value = 1 Then stripe3value.ForeColor = &H80FF&
If Check24.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check25_Click()
If Check25.Value = 1 Then stripe3.FillColor = &HFFFF&

If Check25.Value = 1 Then Check21.Enabled = False
If Check25.Value = 0 Then Check21.Enabled = True
If Check25.Value = 1 Then Check23.Enabled = False
If Check25.Value = 0 Then Check23.Enabled = True
If Check25.Value = 1 Then Check24.Enabled = False
If Check25.Value = 0 Then Check24.Enabled = True
If Check25.Value = 1 Then Check22.Enabled = False
If Check25.Value = 0 Then Check22.Enabled = True
If Check25.Value = 1 Then Check26.Enabled = False
If Check25.Value = 0 Then Check26.Enabled = True
If Check25.Value = 1 Then Check27.Enabled = False
If Check25.Value = 0 Then Check27.Enabled = True

If Check25.Value = 1 Then stripe3value.Caption = "10000"
If Check25.Value = 1 Then stripe3value.ForeColor = &HFFFF&
If Check25.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check26_Click()
If Check26.Value = 1 Then stripe3.FillColor = &H8000&

If Check26.Value = 1 Then Check21.Enabled = False
If Check26.Value = 0 Then Check21.Enabled = True
If Check26.Value = 1 Then Check23.Enabled = False
If Check26.Value = 0 Then Check23.Enabled = True
If Check26.Value = 1 Then Check24.Enabled = False
If Check26.Value = 0 Then Check24.Enabled = True
If Check26.Value = 1 Then Check25.Enabled = False
If Check26.Value = 0 Then Check25.Enabled = True
If Check26.Value = 1 Then Check22.Enabled = False
If Check26.Value = 0 Then Check22.Enabled = True
If Check26.Value = 1 Then Check27.Enabled = False
If Check26.Value = 0 Then Check27.Enabled = True

If Check26.Value = 1 Then stripe3value.Caption = "100000"
If Check26.Value = 1 Then stripe3value.ForeColor = &H8000&
If Check26.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check27_Click()
If Check27.Value = 1 Then stripe3.FillColor = &HFF0000

If Check27.Value = 1 Then Check21.Enabled = False
If Check27.Value = 0 Then Check21.Enabled = True
If Check27.Value = 1 Then Check23.Enabled = False
If Check27.Value = 0 Then Check23.Enabled = True
If Check27.Value = 1 Then Check24.Enabled = False
If Check27.Value = 0 Then Check24.Enabled = True
If Check27.Value = 1 Then Check25.Enabled = False
If Check27.Value = 0 Then Check25.Enabled = True
If Check27.Value = 1 Then Check26.Enabled = False
If Check27.Value = 0 Then Check26.Enabled = True
If Check27.Value = 1 Then Check22.Enabled = False
If Check27.Value = 0 Then Check22.Enabled = True

If Check27.Value = 1 Then stripe3value.Caption = "1000000"
If Check27.Value = 1 Then stripe3value.ForeColor = &HFF0000
If Check27.Value = 0 Then stripe3value.Caption = ""
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then stripe1.FillColor = &HFF&

If Check3.Value = 1 Then Check2.Enabled = False
If Check3.Value = 0 Then Check2.Enabled = True
If Check3.Value = 1 Then Check1.Enabled = False
If Check3.Value = 0 Then Check1.Enabled = True
If Check3.Value = 1 Then Check4.Enabled = False
If Check3.Value = 0 Then Check4.Enabled = True
If Check3.Value = 1 Then Check5.Enabled = False
If Check3.Value = 0 Then Check5.Enabled = True
If Check3.Value = 1 Then Check6.Enabled = False
If Check3.Value = 0 Then Check6.Enabled = True
If Check3.Value = 1 Then Check7.Enabled = False
If Check3.Value = 0 Then Check7.Enabled = True
If Check3.Value = 1 Then Check8.Enabled = False
If Check3.Value = 0 Then Check8.Enabled = True
If Check3.Value = 1 Then Check9.Enabled = False
If Check3.Value = 0 Then Check9.Enabled = True
If Check3.Value = 1 Then Check10.Enabled = False
If Check3.Value = 0 Then Check10.Enabled = True

If Check3.Value = 1 Then stripe1value.Caption = "2"
If Check3.Value = 1 Then stripe1value.ForeColor = &HFF&
If Check3.Value = 0 Then stripe1value.Caption = ""
End Sub
Private Sub Check31_Click()
If Check31.Value = 1 Then stripe4.FillColor = &HC0C0C0

If Check31.Value = 1 Then Check32.Enabled = False
If Check31.Value = 0 Then Check32.Enabled = True

If Check31.Value = 1 Then stripe4value.Caption = "10%"
If Check31.Value = 1 Then stripe4value.ForeColor = &HC0C0C0
If Check31.Value = 0 Then stripe4value.Caption = ""

End Sub
Private Sub Check32_Click()
If Check32.Value = 1 Then stripe4.FillColor = &HC0C0&

If Check32.Value = 1 Then Check31.Enabled = False
If Check32.Value = 0 Then Check31.Enabled = True

If Check32.Value = 1 Then stripe4value.Caption = "5%"
If Check32.Value = 1 Then stripe4value.ForeColor = &HC0C0&
If Check32.Value = 0 Then stripe4value.Caption = ""
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then stripe1.FillColor = &H80FF&

If Check4.Value = 1 Then Check2.Enabled = False
If Check4.Value = 0 Then Check2.Enabled = True
If Check4.Value = 1 Then Check3.Enabled = False
If Check4.Value = 0 Then Check3.Enabled = True
If Check4.Value = 1 Then Check1.Enabled = False
If Check4.Value = 0 Then Check1.Enabled = True
If Check4.Value = 1 Then Check5.Enabled = False
If Check4.Value = 0 Then Check5.Enabled = True
If Check4.Value = 1 Then Check6.Enabled = False
If Check4.Value = 0 Then Check6.Enabled = True
If Check4.Value = 1 Then Check7.Enabled = False
If Check4.Value = 0 Then Check7.Enabled = True
If Check4.Value = 1 Then Check8.Enabled = False
If Check4.Value = 0 Then Check8.Enabled = True
If Check4.Value = 1 Then Check9.Enabled = False
If Check4.Value = 0 Then Check9.Enabled = True
If Check4.Value = 1 Then Check10.Enabled = False
If Check4.Value = 0 Then Check10.Enabled = True

If Check4.Value = 1 Then stripe1value.Caption = "3"
If Check4.Value = 1 Then stripe1value.ForeColor = &H80FF&
If Check4.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check5_Click()
If Check5.Value = 1 Then stripe1.FillColor = &HFFFF&

If Check5.Value = 1 Then Check2.Enabled = False
If Check5.Value = 0 Then Check2.Enabled = True
If Check5.Value = 1 Then Check3.Enabled = False
If Check5.Value = 0 Then Check3.Enabled = True
If Check5.Value = 1 Then Check4.Enabled = False
If Check5.Value = 0 Then Check4.Enabled = True
If Check5.Value = 1 Then Check1.Enabled = False
If Check5.Value = 0 Then Check1.Enabled = True
If Check5.Value = 1 Then Check6.Enabled = False
If Check5.Value = 0 Then Check6.Enabled = True
If Check5.Value = 1 Then Check7.Enabled = False
If Check5.Value = 0 Then Check7.Enabled = True
If Check5.Value = 1 Then Check8.Enabled = False
If Check5.Value = 0 Then Check8.Enabled = True
If Check5.Value = 1 Then Check9.Enabled = False
If Check5.Value = 0 Then Check9.Enabled = True
If Check5.Value = 1 Then Check10.Enabled = False
If Check5.Value = 0 Then Check10.Enabled = True

If Check5.Value = 1 Then stripe1value.Caption = "4"
If Check5.Value = 1 Then stripe1value.ForeColor = &HFFFF&
If Check5.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check6_Click()
If Check6.Value = 1 Then stripe1.FillColor = &H8000&

If Check6.Value = 1 Then Check2.Enabled = False
If Check6.Value = 0 Then Check2.Enabled = True
If Check6.Value = 1 Then Check3.Enabled = False
If Check6.Value = 0 Then Check3.Enabled = True
If Check6.Value = 1 Then Check4.Enabled = False
If Check6.Value = 0 Then Check4.Enabled = True
If Check6.Value = 1 Then Check5.Enabled = False
If Check6.Value = 0 Then Check5.Enabled = True
If Check6.Value = 1 Then Check1.Enabled = False
If Check6.Value = 0 Then Check1.Enabled = True
If Check6.Value = 1 Then Check7.Enabled = False
If Check6.Value = 0 Then Check7.Enabled = True
If Check6.Value = 1 Then Check8.Enabled = False
If Check6.Value = 0 Then Check8.Enabled = True
If Check6.Value = 1 Then Check9.Enabled = False
If Check6.Value = 0 Then Check9.Enabled = True
If Check6.Value = 1 Then Check10.Enabled = False
If Check6.Value = 0 Then Check10.Enabled = True

If Check6.Value = 1 Then stripe1value.Caption = "5"
If Check6.Value = 1 Then stripe1value.ForeColor = &H8000&
If Check6.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check7_Click()
If Check7.Value = 1 Then stripe1.FillColor = &HFF0000

If Check7.Value = 1 Then Check2.Enabled = False
If Check7.Value = 0 Then Check2.Enabled = True
If Check7.Value = 1 Then Check3.Enabled = False
If Check7.Value = 0 Then Check3.Enabled = True
If Check7.Value = 1 Then Check4.Enabled = False
If Check7.Value = 0 Then Check4.Enabled = True
If Check7.Value = 1 Then Check5.Enabled = False
If Check7.Value = 0 Then Check5.Enabled = True
If Check7.Value = 1 Then Check6.Enabled = False
If Check7.Value = 0 Then Check6.Enabled = True
If Check7.Value = 1 Then Check1.Enabled = False
If Check7.Value = 0 Then Check1.Enabled = True
If Check7.Value = 1 Then Check8.Enabled = False
If Check7.Value = 0 Then Check8.Enabled = True
If Check7.Value = 1 Then Check9.Enabled = False
If Check7.Value = 0 Then Check9.Enabled = True
If Check7.Value = 1 Then Check10.Enabled = False
If Check7.Value = 0 Then Check10.Enabled = True

If Check7.Value = 1 Then stripe1value.Caption = "6"
If Check7.Value = 1 Then stripe1value.ForeColor = &HFF0000
If Check7.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check8_Click()
If Check8.Value = 1 Then stripe1.FillColor = &HC000C0

If Check8.Value = 1 Then Check2.Enabled = False
If Check8.Value = 0 Then Check2.Enabled = True
If Check8.Value = 1 Then Check3.Enabled = False
If Check8.Value = 0 Then Check3.Enabled = True
If Check8.Value = 1 Then Check4.Enabled = False
If Check8.Value = 0 Then Check4.Enabled = True
If Check8.Value = 1 Then Check5.Enabled = False
If Check8.Value = 0 Then Check5.Enabled = True
If Check8.Value = 1 Then Check6.Enabled = False
If Check8.Value = 0 Then Check6.Enabled = True
If Check8.Value = 1 Then Check7.Enabled = False
If Check8.Value = 0 Then Check7.Enabled = True
If Check8.Value = 1 Then Check1.Enabled = False
If Check8.Value = 0 Then Check1.Enabled = True
If Check8.Value = 1 Then Check9.Enabled = False
If Check8.Value = 0 Then Check9.Enabled = True
If Check8.Value = 1 Then Check10.Enabled = False
If Check8.Value = 0 Then Check10.Enabled = True

If Check8.Value = 1 Then stripe1value.Caption = "7"
If Check8.Value = 1 Then stripe1value.ForeColor = &HC000C0
If Check8.Value = 0 Then stripe1value.Caption = ""
End Sub

Private Sub Check9_Click()
If Check9.Value = 1 Then stripe1.FillColor = &H808080

If Check9.Value = 1 Then Check2.Enabled = False
If Check9.Value = 0 Then Check2.Enabled = True
If Check9.Value = 1 Then Check3.Enabled = False
If Check9.Value = 0 Then Check3.Enabled = True
If Check9.Value = 1 Then Check4.Enabled = False
If Check9.Value = 0 Then Check4.Enabled = True
If Check9.Value = 1 Then Check5.Enabled = False
If Check9.Value = 0 Then Check5.Enabled = True
If Check9.Value = 1 Then Check6.Enabled = False
If Check9.Value = 0 Then Check6.Enabled = True
If Check9.Value = 1 Then Check7.Enabled = False
If Check9.Value = 0 Then Check7.Enabled = True
If Check9.Value = 1 Then Check8.Enabled = False
If Check9.Value = 0 Then Check8.Enabled = True
If Check9.Value = 1 Then Check1.Enabled = False
If Check9.Value = 0 Then Check1.Enabled = True
If Check9.Value = 1 Then Check10.Enabled = False
If Check9.Value = 0 Then Check10.Enabled = True

If Check9.Value = 1 Then stripe1value.Caption = "8"
If Check9.Value = 1 Then stripe1value.ForeColor = &H808080
If Check9.Value = 0 Then stripe1value.Caption = ""
End Sub
Private Sub Command1_Click()
A = stripe1value.Caption
B = stripe2value.Caption
C = stripe3value.Caption

Resistorvalue.Caption = (A + B) * C
End Sub

Private Sub Command2_Click()
Resistorvalue.Caption = ""
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
Check9.Value = 0
Check10.Value = 0
Check11.Value = 0
Check12.Value = 0
Check13.Value = 0
Check14.Value = 0
Check15.Value = 0
Check16.Value = 0
Check17.Value = 0
Check18.Value = 0
Check19.Value = 0
Check20.Value = 0
Check21.Value = 0
Check22.Value = 0
Check23.Value = 0
Check24.Value = 0
Check25.Value = 0
Check26.Value = 0
Check27.Value = 0
Check31.Value = 0
Check32.Value = 0

stripe1value.Caption = ""
stripe2value.Caption = ""
stripe3value.Caption = ""
stripe4value.Caption = ""

stripe1.FillColor = &H0&
stripe2.FillColor = &H0&
stripe3.FillColor = &H0&
stripe4.FillColor = &H0&

End Sub
Download this snippet Add to My Saved Code
calculates the value of resistors and displays the resistor table. Comments

No comments have been posted about calculates the value of resistors and displays the resistor table.. Why not be the first to post a comment about calculates the value of resistors and displays the resistor table..
calculates the value of resistors and displays the resistor table.

calculates the value of resistors and displays the resistor table. Comments

Post your comment

Difficulty
