Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »DerGast« (2. Dezember 2012, 14:41)
Zitat
Original von Rainer: die Variante mit repeat until ist definitv besser als meine mit label und goto ;-)
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »DerGast« (29. Mai 2013, 19:47)
![]() |
Quellcode |
1 2 3 4 |
DIM th AS HANDLE DIM i AS INTEGER DECL TIMERACTION TimerHandler |
![]() |
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 |
classiccode fontsetBlock(16, 16) blockload("Alien16.rbf", 0, 256) color blue, light_blue cls th = TimerStart (TimerHandler, 0, 1) TIMERACTION TimerHandler FOR i = 0 TO 2 print chr$(205.5+rnd()); NEXT END ACTION |
Auch ne schöne Variante, Andreas.Musste gleich Rainers Beispiel umbauen, da es bei mir zu schnell lief...
Forensoftware: Burning Board® 3.1.7, entwickelt von WoltLab® GmbH