HELP ! ! ! simple Visual Basic code ???

Article View: comp.lang.basic.visual

Article #280

Back to comp.lang.basic.visual Previous Next

#280

From: Lasse Madsen
Date: Thu, 07 Dec 2000 18:03

55 lines
3197 bytes

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

Technical Details

Message-ID: <90oika$143u$1@news.cybercity.dk>

Path:

arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!newsfeed.direct.ca!look.ca!news.algonet.se!algonet!neel.uni2.net!sunsite.auc.dk!newsrouter.euroconnect.net!news.cybercity.dk!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: f94ee,561b660d9b913f3d
X-Google-Attributes: gidf94ee,public
X-Google-Thread: f51ba,561b660d9b913f3d
X-Google-Attributes: gidf51ba,public
X-Google-Thread: 107824,561b660d9b913f3d
X-Google-Attributes: gid107824,public
X-Google-Thread: 10cf61,561b660d9b913f3d
X-Google-Attributes: gid10cf61,public
X-Google-Thread: 111c14,561b660d9b913f3d
X-Google-Attributes: gid111c14,public
X-Google-Thread: fb992,561b660d9b913f3d
X-Google-Attributes: gidfb992,public
X-Google-Thread: 106fd2,561b660d9b913f3d
X-Google-Attributes: gid106fd2,public
X-Google-Thread: f645d,561b660d9b913f3d
X-Google-Attributes: gidf645d,public
X-Google-ArrivalTime: 2000-12-07 09:50:08 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!newsfeed.direct.ca!look.ca!news.algonet.se!algonet!neel.uni2.net!sunsite.auc.dk!newsrouter.euroconnect.net!news.cybercity.dk!not-for-mail
From: "Lasse Madsen" <Lasse.Madsen@Elektronik.dk>
Newsgroups: comp.lang.basic.visual,comp.lang.visual.basic,dk.edb.programmering.basic.visual-basic,fj.comp.lang.visualbasic,free.it.programmazione.visualbasic,free.it.visual-basic,microsoft.private.mvp.VisualBasic,no.it.programmering.visual-basic
Subject: HELP ! ! ! simple Visual Basic code ???
Date: Thu, 7 Dec 2000 19:03:46 +0100
Organization: CyberCity Internet
Lines: 57
Message-ID: <90oika$143u$1@news.cybercity.dk>
NNTP-Posting-Host: port39.ds1-fh.adsl.cybercity.dk
X-Trace: news.cybercity.dk 976211402 36990 212.242.218.104 (7 Dec 2000 17:50:02 GMT)
X-Complaints-To: abuse@cybercity.dk
NNTP-Posting-Date: 7 Dec 2000 17:50:02 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400