How to achieve loop with textboxinput?

[Stellaferox]

Hi,

I wonder how to achieve a loop with the textboxinput to achieve a number which lies between the acquired numbers.
I want to generate a loop like
DO UNTIL NM<Nr1 AND NM<Nr2 then
NM = textboxNM
LOOP
But this doesnt work. It generates an error. Any ideas?
thank in advance
Marc

[Erel]

There should be no "then" in a Do Until / Do While loop:
In the next version, you will need to add .Text to get the TextBox text.

DO UNTIL NM<Nr1 AND NM<Nr2
NM = textboxNM.Text
LOOP

[Stellaferox]

My fault. I didnt include the "then" but then it still didnt work. I await the next version then....
thnx
Marc

[Erel]

The code above should work in this version without any problems.
What doesn't work for you?

[Stellaferox]

Well, the prgram doesn't seem to stop when values other then the wanted ones are put in. The reason the program has a parameter RunFirst = evident. The first time the program runs it takes the default values. The second time input is necessary in the sub Initparameters.

[Erel]

I'm sorry but I didn't understand the problem.
What is the meaning of:

DO UNTIL NR<=MaxRows AND NR>=MinRows
 NR = txtbxRows.Text
LOOP

It will cause the program to hang if the values are not in the range.

[Stellaferox]

Yes, these three loops should take care of the problem that the input is in the wanted range. That was my question.
Now the program doesnt change the input and certainly not within the wanted boundaries. Or should the UNTIL keyword be after the LOOP word?

[Cableguy]

Why not use a simple If then else...?

If NR<=MaxRows AND NR>=MinRows then NR = txtbxRows.Text

If the AND bit doesn't work try

If NR<=MaxRows then
If NR>=MinRows then
NR = txtbxRows.Text
end if
end if

[Stellaferox]

Nope, doesn't work either. The program runs with the wrong parameters.

[Cableguy]

Ok from what i understsnd you want to set an interval of values from wich the user must enter a number...Right?

I think that in that case you are testing the wrong variable....


You are testing NR before it is set to txtbxRow...

Try this...

If txtbxRows.Text<=MaxRows AND txtbxRows.Text>=MinRows then NR = txtbxRows.Text

Or more complete:

dim n as int16
n=txtbxRows.text
If n<=MaxRows AND n>=MinRows then NR = txtbxRows.Text