🚀 go-pugleaf

Public x As Integer
Public va As String

Private Sub Form_Load()
x = 0
End Sub

Private Sub Text3_Click(Index As Integer)
nr = Text3(Index).Index
If x = 3 Then
For t = 0 To 2: Text1(t).BackColor = &H80000005: Next
x = 0
va = ""
End If
Text1(x).BackColor = Text3(nr).BackColor
x = x + 1
Select Case x
Case 1
va = CStr(nr) & va
Case 2
va = va & CStr(nr)
Case 3
    Select Case nr
    Case 0
    va = va & "0 ohm"
    Case 1
    va = va & "0 ohm"
    Case 2
    va = va & "00 ohm"
    Case 3
    va = va & " K ohm"
    Case 4
    va = va & "0 Kohm"
    Case 5
    va = va & " M ohm"
    End Select
End Select
Text2.Text = va
End Sub
The form consists of a textbox 'text2.text', 3 small(1 character) textboxes
text1(0).text etc and 10 small textboxes text3(0..9) with the colors you
describe as backcolor.
Nice idea, works simple. I'll send you the form if you want.
regards, ton
Lasse Madsen <Lasse.Madsen@Elektronik.dk> schreef in berichtnieuws
90oika$143u$1@news.cybercity.dk...
> Hi there im making a small resistor color code calculator based on a
slider
> (SRa) and 4 (shapes a,b,c and d) the shapes is placed like this |a|b|c|d|
> after eatch other to symbolise a resistor. what i want is:
>
> make my slider code control the colors of the 4 shapes (a,b,c,d,)
> Below is the colour code a resistor can have and which the 4 shapes should
> be assigned
>
> Black = &H0&
> Brown = &H4080&
> Red = &HFF&
> Orange = &H80FF&
> Yellow = &HFFFF&
> Green = &HC000&
> Blue = &HFF0000
> Purple = &HC000C0
> Gray = &H808080
> White = &HFFFFFF
>
> Below you see what each colour represents in decimal values
> Black = 0
> Brown = 1
> Red = 2
> Orange 3
> Yellow = 4
> Green =  5
> Blue =  6
> Purple =7
> Gray =8
> White ==9
>
> A resistor value is determined like this:
> 220 Ohms = 2 - 2 - 0 (first and second digit and third value) but when
> converted to color code its like this
> 2 - 2 - 0 =
> Red - Red (2 - 2)
> the 0 determins how many zeros that is after the 2 digits (in this case
2-2)
> and the color code will be RED - RED - BROWN (brown because because you
need
> 1 zero after 2-2 to make 220 !)
>
> If SRa.Value = 3 Then TRa.Text = "220" & " ohms"    / this should be 2-2-1
> Red-Red-Black
> If SRa.Value = 4 Then TRa.Text = "270" & " ohms"   /this should be 2-7-1
> Red-Purple-Brown
>
>
> How can i do this ???
> --
>
> -------------------------
> Electronics Student
> Lasse Madsen
> H�jrupsvej 52, 2.m.f.
> 9900 Frederikshavn
> Denmark
>
>