Post by honky on Mar 10, 2024 16:56:52 GMT
To see, click x 5 on "Down".
Click x 3 on "Up".
[/code]
[/div]
Click x 3 on "Up".
Why 70 80 90 appear after "6"?
Thank you for.
NOMAINWIN
mapw=800: maph= 440
WindowWidth=mapw+15: WindowHeight=maph+95
UpperLeftX = 10: UpperLeftY = 10
BUTTON #w.a, "Down", [down], UL, 350, 20, 60, 25
BUTTON #w.b, "Up", [up], UL, 440, 20, 60, 25
GRAPHICBOX #w.g, 5, 55, mapw, maph
OPEN "Help" FOR window_nf AS #w
#w, "TRAPCLOSE [closeHelp]"
#w.g, "down;fill darkpink;color white;backcolor darkpink"
#w.a, "!font courrier 12 bold": #w.b, "!font courrier 12 bold"
' open "données.txt" for input as #g
' while eof(#g)=0
' n=n+1: line input #g, donn$
' if donn$="" then n=n-1: goto [passa]
' [passa]
' wend
' close #g
n=34
dim list$(n+1): dim aff$(n+1) ':n=0
' open "données.txt" for input as #g
' while eof(#g)=0
' n=n+1: line input #g, donn$
' if donn$="" then n=n-1: goto [passb]
' list$(n)=donn$
' [passb]
' wend
' close #g
for x=1 to n
list$(x)=str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x)
next x
xx=10: yy=30: a=1
[ret]
yy=30
#w.g, "color white;backcolor darkpink"
for x=a to n
#w.g, "place ";xx;" ";yy: #w.g, "\ ";str$(x)
#w.g, "place ";xx+25;" ";yy: #w.g, "\ ";word$(list$(x),1)
#w.g, "place ";xx+280;" ";yy: #w.g, "\ ";word$(list$(x),2)
#w.g, "place ";xx+400;" ";yy: #w.g, "\ ";word$(list$(x),3)
#w.g, "place ";xx+450;" ";yy: #w.g, "\ ";word$(list$(x),4)
#w.g, "place ";xx+500;" ";yy: #w.g, "\ ";word$(list$(x),5)
#w.g, "place ";xx+550;" ";yy: #w.g, "\ ";word$(list$(x),6)
#w.g, "place ";xx+600;" ";yy: #w.g, "\ ";word$(list$(x),7)
yy=yy+20
next x
#w.g, "flush"
wait
[down]
' #w.g, "color darkpink": #w.g, "place 5 5": #w.g, "boxfilled 700 435"
a=a+1
print " a ";a'**********************
if a>n-20 then a=a-1
goto [ret]
wait
[up]
a=a-1
if a<1 then a=a+1
goto [ret]
wait
[closeHelp]
CLOSE #w
END
[/div]