[Delphi 6] comment chronométrer une boucle ? + pb compteur (résolu)

comment chronométrer une boucle ? + pb compteur (résolu) [Delphi 6] - Programmation

Marsh Posté le 09-01-2002 à 23:06:19    

toujours dans mon prog pourri pour apprendre, je fais une boucle qui demande le nombre secret (on ne rit pas :ange:  )...
 
g déjà mis un compteur (qui foire un peu, si on quitte dès la première question y compte ca comme trouvé en 2 essais, mais bon :o )...
 
pour pouvoir faire un calcul de score, j'aurais besoin du temps écoulé entre le moment où le joueur rentre dans le boucle et celui où il en sort, pour pouvoir faire un calcul du score genre nb de 1/(coup * temps) *1000 (pour que plus coup*temps augmente, plus le score diminue :D)
 
moin main.pas donne ca :  
 

Code :
  1. unit Main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls,ExtCtrls, CPU;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button3: TButton;
  13.     procedure Button1Click(Sender: TObject);
  14.     procedure Button3Click(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  21. var
  22.     Form1: TForm1;
  23.     LimiteTXT, UserEntry, Disp, textfin : string;
  24.     CpuQuery, Compteur : shortint;
  25.     LimiteNum, UserEntryNum, Nb : integer;
  26.     COntinuer : boolean;
  28. implementation
  30. {$R *.dfm}
  32. procedure TForm1.Button1Click(Sender: TObject);
  33.     begin
  34.     LimiteNum := 1 ;
  35.     CpuQuery :=0 ;
  36.     LimiteTXT := '0' ;
  37.     repeat
  38.     InputQuery('Donnez une limite comprise entre 100 et 300', 'Valeur', LimiteTXT);
  39.     LimiteNum := StrToInt(LimiteTXT);
  40.         if LimiteNum < 100 then
  41.         ShowMessage(LimiteTXT + ' est trop petit : entrez un nombre plus grand')
  42.         else if LimiteNum > 300 then
  43.        ShowMessage(LimiteTXT + ' est trop grand : entrez un nombre plus petit');
  44.     CpuQuery := CpuQuery + 1 ;
  45.         if CpuQuery > 3 then
  46.         ShowMessage ('Il vous a fallu ' + IntToStr(CpuQuery) + ' essais pour y arriver');
  48.     until (LimiteNum >= 100) AND (LimiteNum <= 300);
  49.     end;
  50. LE TIMER DEVRAIT COMMENCER ICI
  51. procedure TForm1.Button3Click(Sender: TObject);
  52.     begin
  53.     UserEntry :='0';
  54.     Compteur := 1;
  55.     Nb := Generation(LimiteNum);
  56.     Continuer := True;
  57.         Repeat
  58.         Continuer:=InputQuery('Entrez un nombre', 'Essai n° '+ inttostr(Compteur), UserEntry);
  59.         UserEntryNum :=strToInt(UserEntry);
  60.         Disp := test(UserEntryNum,Nb);
  61.         Compteur := Compteur +1;
  62.         if (Disp = 'Vous avez entré un nombre trop petit') XOR (Disp = 'Vous avez entré un nombre trop grand') then
  63.         ShowMessage(Disp)
  64.         else
  65.         ShowMessage(Disp + ' en ' + IntToStr(Compteur) + ' coups');
  66.         until (UserEntryNum = Nb) OR (Continuer = False) ici faut que je trouve comment tester continuer = false pour que d'une ca sorte de la boucle (c le cas), mais que ca foute le compteur au bon nombre de coups (0 si on quitte de suite, etc...) et que ca affiche le nombre secret qu'il fallait découvrir
  67.     end;

 

[edtdd]--Message édité par Jubijub--[/edtdd]


---------------
Jubi Photos : Flickr - 500px
Reply

Marsh Posté le 09-01-2002 à 23:06:19   

Reply

Marsh Posté le 10-01-2002 à 09:38:52    

alors:
 

Code :
  1. var
  2.   before: TDateTime;
  3.   createdTime: int64;
  4.   ...
  5. begin
  6.   ...
  7.   before := now; // début du compteur
  8.   ... // ici tu fais tout ce qui doit être chronométré
  9.   createdTime := MilliSecondsBetween(now,before); // fin du compteur
  10.   ...


 
la variable createdTime contient le nombre de millisecondes écoulées
si nécessaire tu peux mettre les deux variables en global.
l'avantage ici c'est qu'y a aucun timer, donc aucune charge supplémentaire pour le système.

 

[edtdd]--Message édité par antp--[/edtdd]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 10-01-2002 à 09:54:49    

Ou encore une autre solution qui marche dans divers languages (Windows powa :)) :
 

Code :
  1. uses
  2.   Windows,...;
  4. var
  5. time: DWORD;
  6. ...
  7. begin
  8. ...
  9. time := GetTickCount;
  10. ... // ici tu fais tout ce qui doit être chronométré  
  11. time := GetTickCount-time; // fin du compteur  
  12. ...


 
GetTickCount te renvois des millisecondes...


---------------
A+++ Bruce - http://www.bheller.com
Reply

Marsh Posté le 10-01-2002 à 10:23:37    

ha ouais, c'est vrai que c'est encore plus simple...


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 11-01-2002 à 14:30:10    

merci à tous les deux...
 :jap:


---------------
Jubi Photos : Flickr - 500px
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed