FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» GRID_LOAD
par Jean Claude Aujourd'hui à 21:04

» Rotation d'une image d'un angle quelconque
par Jean Claude Aujourd'hui à 20:57

» HVIEWER
par Yannick Aujourd'hui à 20:31

» StratégoV8 et V9
par Jean Claude Aujourd'hui à 20:13

» KGF_dll - nouvelles versions
par Klaus Hier à 21:28

» Déformation d'image en trapèze
par mindstorm Hier à 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

  Chronométrer un traitement en haute précision

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5623
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Chronométrer un traitement en haute précision   Mer 27 Avr 2016 - 7:56

Vous trouvez qu'une milliseconde c'est trop long ?
Vous voulez compter en microseconde?
D'accord !
On y va  king


Code:

rem ============================================================================
rem          Chronométrer un traitement en haute précision
rem               en fraction de microseconde
rem ============================================================================
' "QueryPerformanceCounter" de kernel32.dll compte le nombre de cycle
' d'horloge du microprocesseur
' "QueryPerformanceFrequency" donne quant à elle le nombre de cycle pour une seconde
' Ces deux API nous permettent de mesurer des écarts de temps de l'ordre du
' millionième de seconde.
rem ============================================================================

dim ret%,Ctr1, Ctr2, freq,Acc,i
font_bold 0
dll_on "kernel32"
ret% = dll_call1("QueryPerformanceCounter",adr(Ctr1)) : ' Commence le chronométrage.
if ret% = 1
   for i = 1 to 100
       Acc = Acc + 1
   next i
   ret% = dll_call1("QueryPerformanceCounter",adr(Ctr2)) : ' Termine le chronométrage.
   print "Valeur de début : " + str$(Ctr1)
   print "Valeur de fin   : " + str$(Ctr2)
   ret% = dll_call1("QueryPerformanceFrequency",adr(freq))
   print "Résolution minimale de QueryPerformanceCounter : 1 / " + str$(freq)
   print "Temps par incréments de 100 : " + str$((Ctr2 - Ctr1) / Freq) + " secondes."
else
   print "Compteur haute résolution non pris en charge."
End_If
end
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
silverman

avatar

Nombre de messages : 483
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: Re: Chronométrer un traitement en haute précision   Jeu 28 Avr 2016 - 12:22

Je connais ça, mais ce n'est pas utile(selon moi) car panoramic ne mesure pas des millisecondes, mais des soixantième de seconde.
Code:

' panoramic 0927i7
'
dim init%, old_temps%, cpt%, temps%, old_cpt%
init%=NUMBER_TICKS
old_temps%=init%
cpt%=0
old_cpt%=cpt%

' mesure pendant 100 ms
while temps%<init%+100
   temps%=NUMBER_TICKS
   cpt%=cpt%+1
   '
   if (temps%-old_temps%)>0
      print "delta temps = ";(temps%-old_temps%);string$(20," ");"nb de bouclage = ";cpt%-old_cpt%
      old_cpt%=cpt%
   end_if
   '
   old_temps%=temps%
end_while
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Chronométrer un traitement en haute précision
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] Paramétrer historique de navigation
» Film haute définition
» Problème de précision
» 4G 1800 Mhz: Le dernier coup de Bluff, avant une décision favorable?
» Garmin HUD (affichage tête haute)

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: