' initialise les variables de synchronisation
SYNC_ON() :' <----- sub en action
' variables pour la démo
dim debut_chrono,cpt_image,i,temps,somme_images
'
print "5 tests:":print
temps=number_ticks
for i=1 to 5 :' 5 tests
cpt_image=0 : debut_chrono=number_ticks+1000
SYNC_START(50) :' <----- sub en action(50=nb d'image par seconde souhaité)
repeat
'
'
repeat :' on simule du code à synchroniser
show 0
until 1=1
'
'
cpt_image=cpt_image+1
SYNC() :' <----- sub en action
until number_ticks>=debut_chrono
' print "NUMBER_TICKS : ",cpt_image," images/seconde PERF_TIMER : ",perf_timer_fps%," images/seconde ",perf_timer_fps_moy," = nb moyen d'images/seconde"
print cpt_image," images/seconde"
somme_images=somme_images+cpt_image
next i
print : print "Statistique number_ticks:"
print (number_ticks-temps)/1000," secondes écoulées"
print (1000*somme_images)/(number_ticks-temps)," = nb moyen d'images/seconde"
END
sub SYNC_START(fps)
' fps=nb d'image par seconde souhaité
if perf_timer_start=0 and perf_timer_frequency>0 :'
if fps>1000 then fps=1000
perf_timer adr(perf_timer_start) :' mesure le temps courant et inscrit le dans 'perf_timer_start'
' one_second=perf_timer_start+(perf_timer_frequency) :' initialise le compteur de seconde
trame_duration=perf_timer_frequency/fps :' trame_duration = temps d'affichage d'1 trame
end_if
end_sub
sub SYNC()
if perf_timer_frequency>0
perf_timer_start=perf_timer_start+trame_duration :' détermine la durée d'affichage pour 1 trame
perf_timer adr(perf_timer_end) :' mesure le temps courant et inscrit le dans 'perf_timer_end'
if perf_timer_end<perf_timer_start :' si le temps écoulé est strictement inférieur à la durée d'1 trame(ordinateur véloce, boucle rapide,...)
repeat :' on attend
perf_timer adr(perf_timer_end) :' ...
until perf_timer_end>=perf_timer_start :' jusqu'à ce que la durée de la trame soit écoulée
else :' sinon
repeat :' la trame en cours est affichée mais plusieurs autres ont été perdu(ordinateur lent, boucle lourde,...)
perf_timer_start=perf_timer_start+trame_duration :' on compte le nb de tramde perdue
until perf_timer_start>perf_timer_end :' jusqu'à atteindre le temps calculé, de la prochaine trame qui va s'afficher
end_if
' tmp_perf_fps%=tmp_perf_fps%+1 :' incrémente le compteur temporaire de trame
'
' if perf_timer_end>one_second :' si 1 seconde s'est écoulé
' perf_timer_fps%=tmp_perf_fps% :' rempli le compteur de trame
' perf_timer_fps_moy=100*(tmp_perf_fps%/(1+((perf_timer_end-one_second)/perf_timer_frequency)))
' perf_timer_fps_moy=int(perf_timer_fps_moy)/100 :' rempli un autre compteur de trame, mais moyenné
' tmp_perf_fps%=0 :' raz le compteur temporaire de trame
' one_second=perf_timer_end+perf_timer_frequency :' incrémente le compteur de la prochaine seconde
' end_if
'
end_if
end_sub
sub SYNC_ON()
' https://msdn.microsoft.com/fr-fr/library/windows/desktop/dn553408%28v=vs.85%29.aspx
' fonctions/commandes de comptage haute résolution du kernel32
dim kernel32%
kernel32%=3
LIBRARY kernel32%,"kernel32"
'
function "perf_timer_exist","QueryPerformanceCounter",kernel32%,"I","stdcall"
' ex.: null%=perf_timer_exist(adr(float))
'
command "perf_timer","QueryPerformanceCounter",kernel32%,"I","stdcall"
' ex.: perf_timer adr(float)
'
command "perf_frequency","QueryPerformanceFrequency",kernel32%,"I","stdcall"
' ex.: perf_frequency adr(float)
' le résultat du compteur et de la fréquence doivent être stocké dans une variable de type "float"
dim perf_timer_frequency,perf_timer_start,perf_timer_end
dim trame_duration
' dim one_second,perf_timer_fps_moy
' dim tmp_perf_fps%,perf_timer_fps%
' vérifie que le compteur haute résolution existe
if perf_timer_exist(adr(perf_timer_start))<>0
perf_frequency adr(perf_timer_frequency) :' fréquence du compteur haute résolution
else
perf_timer_frequency=0
' print "compteur haute résolution inexistant."
end_if
perf_timer_start=0
end_sub
Accueil 
Calendrier
Bravo Papydall, encore un joli casse-tête...
