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

Recherche :

Dernière réponse
Sujet : [Delphi 6] comment chronométrer une boucle ? + pb compteur (résolu)
Jubijub	merci à tous les deux... :jap:

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Jubijub

merci à tous les deux...
:jap:

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

Bruce

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

Code :

uses
Windows,...;
var
time: DWORD;
...
begin
...
time := GetTickCount;
... // ici tu fais tout ce qui doit être chronométré
time := GetTickCount-time; // fin du compteur
...

GetTickCount te renvois des millisecondes...

antp

alors:

Code :

var
before: TDateTime;
createdTime: int64;
...
begin
...
before := now; // début du compteur
... // ici tu fais tout ce qui doit être chronométré
createdTime := MilliSecondsBetween(now,before); // fin du compteur
...

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]

Jubijub

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 :

unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ExtCtrls, CPU;
type
TForm1 = class(TForm)
Button1: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
LimiteTXT, UserEntry, Disp, textfin : string;
CpuQuery, Compteur : shortint;
LimiteNum, UserEntryNum, Nb : integer;
COntinuer : boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
LimiteNum := 1 ;
CpuQuery :=0 ;
LimiteTXT := '0' ;
repeat
InputQuery('Donnez une limite comprise entre 100 et 300', 'Valeur', LimiteTXT);
LimiteNum := StrToInt(LimiteTXT);
if LimiteNum < 100 then
ShowMessage(LimiteTXT + ' est trop petit : entrez un nombre plus grand')
else if LimiteNum > 300 then
ShowMessage(LimiteTXT + ' est trop grand : entrez un nombre plus petit');
CpuQuery := CpuQuery + 1 ;
if CpuQuery > 3 then
ShowMessage ('Il vous a fallu ' + IntToStr(CpuQuery) + ' essais pour y arriver');
until (LimiteNum >= 100) AND (LimiteNum <= 300);
end;
LE TIMER DEVRAIT COMMENCER ICI
procedure TForm1.Button3Click(Sender: TObject);
begin
UserEntry :='0';
Compteur := 1;
Nb := Generation(LimiteNum);
Continuer := True;
Repeat
Continuer:=InputQuery('Entrez un nombre', 'Essai n° '+ inttostr(Compteur), UserEntry);
UserEntryNum :=strToInt(UserEntry);
Disp := test(UserEntryNum,Nb);
Compteur := Compteur +1;
if (Disp = 'Vous avez entré un nombre trop petit') XOR (Disp = 'Vous avez entré un nombre trop grand') then
ShowMessage(Disp)
else
ShowMessage(Disp + ' en ' + IntToStr(Compteur) + ' coups');
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
end;

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