A propos de "select/case

[Jacques ROBERT]

Bonsoir à Tous,
En utilisant "select / case" peut-on écrire:"case > xxx,ou, case < yyy "? je sais que " case x to y " ça marche ,mais pas ce qui précède.
Merci.
J.R.

 

[GM39]

Oui, par exemple :

for b1=0 to 20
	select case b1
		case 0
			b2=0
		case 1,2
			b2=12
		case 3 to 5
			b2=35
		case < 10
			b2=10
		case > 15
			b2=15
		else
			b2=255
	endselect
sertxd (#b1,":",#b2)
next b1

Donne :

0:0
1:12
2:12
3:35
4:35
5:35
6:10
7:10
8:10
9:10
10:255
11:255
12:255
13:255
14:255
15:255
16:15
17:15
18:15
19:15
20:15

 

[PieM]

Bonjour,

Je pense que l'idée était de vouloir écrire : case > xxx or < yyy

Si c'est cela, ce n'est pas possible, et cette condition est remplie en écrivant les case à la suite:

case < yyy
instructions AAA
case .......
.........
case ......
..........
case > xxxxx
instructions AAA

Par contre avec la condition IF ..Then ... c'est correct:

if b1 >8 or b1 <3 then ...