Reply To: Problem whith my program in interface page

Home Forums Problems and solutions in GDL Graphical UI and parameters list Problem whith my program in interface page Reply To: Problem whith my program in interface page

#1549
antoine JULLIEN
Participant

my basic interface scrip work nice but is very long :

i=0

1:
IF GerMaterial_1 > 1 THEN
UI_OUTFIELD “Tissu Extérieur”,15, i ,200,20
UI_INFIELD “GerMaterial_1”, 140,i,240,20
else i=i
goto 2

2:
IF GerMaterial_2 > 1 THEN
UI_OUTFIELD “Tissu intérieur”,15,i+25 ,200,20
UI_INFIELD “GerMaterial_2”, 140,i+25,240,20
else i=i-25
goto 3

3:
IF GerMaterial_3 > 1 THEN
UI_OUTFIELD “Acoudoir”,15,i+50,200,20
UI_INFIELD “GerMaterial_3”, 140,i+50,240,20
else i=i-25
goto 4

4:
IF GerMaterial_4 > 1 THEN
UI_OUTFIELD “Passepoil”,15,i+75,200,20
UI_INFIELD “GerMaterial_4”, 140,i+75,240,20
else i=i-25
goto 5

5:
IF GerMaterial_5 > 1 THEN
UI_OUTFIELD “Tissu Cale reins”,15,i+100,200,20
UI_INFIELD “GerMaterial_5”, 140,i+100,240,20
else i=i-25
goto 6

6:
IF GerMaterial_6 > 1 THEN
UI_OUTFIELD “Tissu tétiere”,15,i+125,200,20
UI_INFIELD “GerMaterial_6”, 140,i+125,240,20
else i=i-25
goto 7

7:
IF GerMaterial_7 > 1 THEN
UI_OUTFIELD “Tissu assise”,15,i+150,200,20
UI_INFIELD “GerMaterial_7”, 140,i+150,240,20
else i=i-25
goto 8

8:
IF GerMaterial_8 > 1 THEN
UI_OUTFIELD “Bois horizontal”,15,i+175,200,20
UI_INFIELD “GerMaterial_8”, 140,i+175,240,20
else i=i-25
goto 9

9:
IF GerMaterial_9 > 1 THEN
UI_OUTFIELD “Bois vertical”,15,i+200,200,20
UI_INFIELD “GerMaterial_9”, 140,i+200,240,20
else i=i-25
goto 10

10:
IF GerMaterial_10 > 1 THEN
UI_OUTFIELD “Métal”,15,i+225,200,20
UI_INFIELD “GerMaterial_10”, 140,i+225,240,20
else i=i-25
goto 11

11:
IF GerMaterial_11 > 1 THEN
UI_OUTFIELD “Verre”,15,i+250,200,20
UI_INFIELD “GerMaterial_11”, 140,i+250,240,20
else i=i-25
goto 12

12:
IF GerMaterial_11 > 1 THEN
UI_OUTFIELD “Plateau”,15,i+275,200,20
UI_INFIELD “GerMaterial_12”, 140,i+275,240,20
else i=i-25
goto 13

13:
IF GerMaterial_13 > 1 THEN
UI_OUTFIELD “Pieds”,15,i+300,200,20
UI_INFIELD “GerMaterial_13”, 140,i+300,240,20
else i=i-25
goto 14

14:
IF GerMaterial_14 > 1 THEN
UI_OUTFIELD “Tissus rideaux”,15,i+325,200,20
UI_INFIELD “GerMaterial_14”, 140,i+325,240,20
else i=i-25
goto 15

15:
IF GerMaterial_15 > 1 THEN
UI_OUTFIELD “Boutons”,15,i+350,200,20
UI_INFIELD “GerMaterial_15”, 140,i+350,240,20

ENDIF

Tonio