🚀 go-pugleaf

Dear Ton

I would wery much appriciate the form project if you will send it to me, If
its possible i would like 2 independent resistor calculators on that one
form, Cause the project that im making requres 2 independent resistor values
to be shown in colour code

Thanks alot
Regards
Lasse Madsen
Denmark

"ton" <zoetermeer@xs4all.nl> skrev i en meddelelse
news:90rkbe$i4k$1@news1.xs4all.nl...
> 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
> >
> >
>
>