0 Members and 3 Guests are viewing this topic.
I think it would be better to delete everything after the:For(U,1,N.......:End(but not the pause and the fix)
But why are the circles opened at the right side?
How should I write:Repeat getKey=105:Endin Axe code?
:.FORCEATT:Fix 5:ClrDraw:Text(57,10,"DEF:Text(57,75,"OFF:Text(45,57,"p2:Circle(15,47,10:Circle(80,47,10:Line(25,47,30,52:Line(70,47,65,52:Line(30,52,45,52:Line(65,52,50,52:Line:45,52,47,54:Line(50,52,48,54:Line(30,55,65,55:Line(30,55,28,62:Line(65,55,67,62:Line(5,47,0,52:Line(90,47,95,52:DispGraph:rand^100+1→F:For(U,1,F:If U≥0 and (U≤9):13→Q:End:If U≥10 and (U≤99):10→Q:End:If U>99:7→Q:End:Fix 1:Text(Q,44,U▶Dec:Circle(15,47,10:Line(25,47,30,52:DispGraph:Fix 0:End:rand^100+1→N:For(U,1,N:If U>99:72→Q:End:If U≥0 and (U≤9):78→Q:End:If U≥10 and (U≤99):75→Q:End:Fix 1:Text(Q,44,U▶Dec:Circle(80,47,10:Line(90,47,95,52:DispGraph:Fix 0:End:DispGraph:Pause 25000:Fix 4
:.FORCEATT:Fix 5:LöscheBild:Text(57,10,"DEF:Text(57,75,"OFF:Text(45,57,"p2:Kreis(15,47,10:Kreis(80,47,10:Strecke(25,47,30,52:Strecke(70,47,65,52:Strecke(30,52,45,52:Strecke(65,52,50,52:Strecke(45,52,47,54:Strecke(50,52,48,54:Strecke(30,55,65,55:Strecke(30,55,28,62:Strecke(65,55,67,62:Strecke(5,47,0,52:Strecke(90,47,95,52:Anz. Graf.:Zufall^100+1→F:For(U,1,F:If U≥0 und (U≤9):13→Q:End:If U≥10 und (U≤99):10→Q:End:If U>99:7→Q:End:Fix 1:Text(Q,44,U▶Dez:Kreis(15,47,10:Strecke(25,47,30,52:Anz. Graf.:Fix 0:End:Zufall^100+1→N:For(U,1,N:If U>99:72→Q:End:If U≥0 und (U≤9):78→Q:End:If U≥10 und (U≤99):75→Q:End:Fix 1:Text(Q,44,U▶Dez:Kreis(80,47,10:Strecke(90,47,95,52:Anz. Graf.:Fix 0:End:Anz. Graf.:Pause 25000:Fix 4