a simple basic question

[xdslx]

I met a basic program on youtube , I wanted to make it run 8 times consecutively. I tried it with for next , but I couldnt do it . here is the link of the video of the short basic program.

 

 

what I want is the program run 8 times and stop. seems simple but I could not.

 

[Nukey Shay]

135 FOR T = 1 TO 8

280 PRINT

290 NEXT T

[xdslx]

I put the FOR to line 125 , because I wanted the whole process repeat , and put the next to 290

in that situation it gave an error which I fixed by adding a CLR before 130 , but that killed the "for next " .

 

that shows you are good at this , thank you very much

[Rybags]

Seems weird to me why you'd bother to have a "barrel" then move remaining numbers down a slot and reduce the possible random number as the method to not have multiple picks of one number in a game.

 

It'd be easier to just use the array as 0/1 flags as to whether a # has been picked yet which would allow a bunch of the code to be ditched.

There would be insignificant slowdown when an already occupied number was picked, on average it should only occur only every few games.

[xdslx]

This makes it closer to the real thing , a kind of simulation . In real lotto , there is no chance a number to be picked again and say oh this was picked lets pick another. So this code

is closer to the real thing.

[Nukey Shay]

Should be quicker using a string. Using a length of 36 avoids the IF-THEN condition, as the number at the end is irrelevant when it can't be chosen in subsequent picks.

130 DIM BARREL$(36)

135 FOR T=1 TO 8

140 FOR A=1 TO 36

150 BARREL$(A)=CHR$(A)

160 NEXT A

180 FOR N=7 TO 1 STEP -1

200 A=INT(RND(0)*(35+N-7)+1)

210 ? ASC(BARREL$(A));" ";

230 BARREL$(A)=BARREL$(A+1)

270 NEXT N

280 ?

290 NEXT T

NOTE: Initializing BARREL$ as the graphic characters (between quotes) can avoid the use of the FOR A loop at the start.

[2600problems]

what's her name, does she have kids. XD i'm kidding

Edited June 19, 2017 by 2600problems