Textbox

Hmm .. opdeler ? Hvis det er til statiske værdier, f.eks.:

1. ring: Rød
2. ring: Brun
3. ring: Gul
4. ring: (ingen)

(eksempel)

så er det bedre at bruge labels.

Dont know so much about text boxes, but if I remember correctly you cant have more than one column in a textbox. But you could place 4 textboxes side by side and set them to the colour calculated.

terry:> Thats correct :-) But what about our good old friend, the Picture control ?
There\'s no need to use a textbox if it\'s just for showing a color.

hi tdaugaard!
yes why not, or as you say yourself, labels, all these can be used to show colour (color).

terry:> Well, a TextBox is used to type text in (hence the name ;-) ..) so it would be more obvious to use a PictureBox or a Label if you\'d just use it to display a color.

Hm... jeg kunne godt lave flere textboxe... det er ikke noget problem, det er funktionaleiteten taht\'s an issue... det er jo ikke så smart, men hvis det ikke kan laves på andre måder  ???

hmm .. hvad mener du med funktionaliten ?

At hvis folk vil vide hvilke farvekoder en modstand på 33k ohm har, at de så ikke skal til at udfylde en hel formular, men blot kunne indtaste værdien i én textbox

Nåå .. jamen, skal de ikke bare indtaste f.eks. \"33k\" ?
De textboxe som terry snakker om og de picture boxe jeg snakker om er til at vise farvekoderne

Nåeh... nej nej... det er ikke problemet. Jeg vil have VB til at dele hvert tegn op i textboxen så jeg kan lave formler til hver af dem. Dvs. 33k ohm => 3(værdi1) 3(værdi2) k(værdi3) osv...

zipper20 your question wasnt how to calculate which colours, but how to split data in a textbox, what is it you want?

Mit spørgsmål... helt simpelt. Hvordan deler man data op / splitter i en textbox, så man kan behandle hvert tegn ? ;o)

Altså splitter TEKSTEN op ?

s = text1.text

for i = 1 to len(s)
  tegn = mid(s, i, 1)
next

sådan ?

I would suggest another approach!

You have combo boxes with the possible values from which users can select the values. This way the user cant just enter any old rubbish.
Then you have a textbox, label, picture box to show the colour combination!

tdau -> Dunno... er ik så hård til VB, men jeg prøver lige når jeg kommer hjem fra arbejde. *SS* Tak indtil videre... keep Ur eyes open, I might just return ;o)

Hm... den virkede ikke...
Jeg prøver lige at definere lidt mere.

Input
Textbox1 = 23B

Output
Label1 = 2
Label2 = 3
Label3 = B

Håber nogen kan hjælpe mig, for jeg er lost *SS*

zipper> If I am not mistaken, there are only certain values (colour compinations).

If a user enters 27 is that ohm or kOhm? There is too much room for error!

What I am getting at is that a user can enter rubbish which you have to work out. If you GIVE him what is possible he cant go entering rubbish.


Then you can use the mid function as tDaugaard states!

Dette program er beregnet en elektronik lærer, så der vil kun være én bruger. Endvidere har jeg naturligvis i sinde at lave en fyldestgørende forklaring i programmet.

Man skal bare indtaste værdien, og så skal jeg nok lave formler der kan klare det. *SS*

tdaugaards må du kunne bruge, men måske med nogle småændringer:

s = text1.text

dim tegn(len(s))

for i = 1 to len(s)
\'  tegn(i) = mid(s, i, 1)
  kontrol(i).property = farve(mid(s, i, 1))
next

hth
jes

lets take an example:

15 ohm, 150 ohm 1,5 kOhm, 15 kOhm and 150 kOhm.

should they all be entered without , IE

15 150 1500 15000 1500000. This would obviously be the easiest to work with!

If not then you have to enter ohms or kohm. an then you have to remove your . or was that a , !!!!

1500000 = 150000

Du skriver i indtastningsfeltet =>

2k2  eller  2,2k    ... jeg ved bare ikke hvordan jeg helt præcist får delt værdierne op så jeg kan behandle dem. Jeg skal jo have dem ned i labels... hvordan gør jeg det *SSS*

hvis du var sikker på det er encifrede tal kunne du skrive

Label(I).Caption = Mid$(Text1.Text, I, 1)

men hvis fok så skriver kommaer (kan du snuppe i keydown og keypress) går det galt,

så skal du til at tjekke om

indtastning = Mid$(Text1.Text, I, 1)
  if indtstning = \",\" then ...

og den slags

derfor er det nemmere at du laver tre tekstfelter to til tal og et til bogstaver

eller endnu bedre combobokse :-) og sørger for at lave den rigtige \"style\" i property så brugeren kun kan vælge gyldige tal og ikke skrive -999 eller \"b.k8\" og den slags volapyk.

jeg studser lidt over at du er nødt til at få dine tal i labels - du kan måske nøjes med at putte dem i variabler?