Forum » » Création-Développement » » Optimisation des boucles FOR
Posté : 01-01-2011 10:38
Hello,
@SCREEN?{Width?=?640,?Height?=?480}
Function?PRG()
StartTimer(1)????
????For?I=0?To?100000
????????Local?A=I
????Next
????
????Local?Temps=GetTimer(1)
????
TextOut?(0,0,Temps)
Cls
EndFunction
SetInterval(1,PRG,20)
Repeat????
WaitEvent()
Forever
@SCREEN?{Width?=?640,?Height?=?480}
Function?PRG()
StartTimer(1)????
????For?Local?I=0?To?100000
????????Local?A=I
????Next
????
????Local?Temps=GetTimer(1)
????
TextOut?(0,0,Temps)
Cls
EndFunction
SetInterval(1,PRG,20)
Repeat????
WaitEvent()
Forever
Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=955&forum=14