probleme de temps

Question

Rebonjour encore avec un autre probleme ( je suis sur que c'est encore cirec qui va m'aider)
 alors voila j'aimerai savoir comment on fait pour que toute les 20 minute par exemple il se passe quelque chose ? ex : que une fenetre s'ouvre.

Cirec · Answer

Salut,
tu as gagn&#233; une montre en bois avec un bracelet du m&#234;me m&#233;tal  Bravo

Alors s&#233;rieusement tu mets un Timer sur ta Form et dans l'inspecteur d'objets tu mets Enabled &#224; True tu fixes l'interval en milisecondes donc 1000 = 1 seconde et dans l'onget &#233;v&#232;nement tu double cliques sur OnTimer et l&#224; dans le code g&#233;n&#233;r&#233; tu &#233;cris le code que souhaites voir s'&#233;x&#233;cuter.

@+
Cirec

maxioutils · Answer

ok daccord mais maintenant je me retrouve avec un autre probleme c'est que en faite je voudrai que le programme click tous les xx minutes a l'endroite choisi alors voila mon code mais il dit qu'il n'y a pas assez de paramètre originaux :

procedure TForm6.Timer1Timer(Sender: TObject);
Var X, Y : Integer;
begin
If button1click = onclick then
 X := StrToInt(Edit1.Text);
 Y := StrToInt(Edit2.Text);
 SetCursorPos(X, Y);
 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

Cirec · Answer

Salut,
procedure TForm6.Timer1Timer(Sender: TObject);
Var X, Y : Integer;
begin
If button1click = onclick then  // supprime cette ligne elle est inutil et c'est elle qui d&#233;clanche le message d'erreur
X := StrToInt(Edit1.Text);
Y := StrToInt(Edit2.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Sleep(250);  // ajoute une temporisation d'un quart de seconde &#231;a ne peut pas faire de mal
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

@+
Cirec

maxioutils · Answer

ok super ça marche mais un probleme je sais que je suis pet etre embetant mais moi je veux juste que quand l'on clique sur le bouton button1. merci

Cirec · Answer

la tu positionne le curseur par SetCursorPos au dessus du bouton et par code tu clique dessus
si non tu as encore la possibilit&#233; de faire Button1.Click

@+
Cirec

maxioutils · Answer

je n'ai pas pas très bien compri mais je prefere la solution du button.click j'ai essayer mais je ne trouve pas s'il te plait pourrai tu me dire comment faire ?

Cirec · Answer

eh bien tout simplement si tu d&#233;sires effectuer un clique sur le bouton1 dans ce cas tu &#233;cris :

Button1.Click et c'est tout

Si le bouton se trouve dans une autre form dans ce cas tu &#233;cris :

Form2.Button1.Click

@+
Cirec

maxioutils · Answer

eh ben sa ne amrche pas quand je fais sa :

procedure TForm6.Timer1Timer(Sender: TObject);
Var X, Y : Integer;
begin
Button3.click = 
X := StrToInt(Edit1.Text);
Y := StrToInt(Edit2.Text);
SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Sleep(250);  // ajoute une temporisation d'un quart de seconde ça ne peut pas faire de mal
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

sérieusement je ne comprend pas pourquoi sa marcherai si on met button1.click seul

Cirec · Answer

Salut,
fait &#231;a :
procedure TForm6.Timer1Timer(Sender: TObject);
begin
Button3.click; 
end;

@+
Cirec

maxioutils · Answer

oui bon j'ai fait sa mais maintenant j'ai un autre probleme c'est que en faite je voudrai que c'est l'utilisateur qui modifie le temps entre chaque evenement alors voila ce que j'ai fait :

Procedure Tform6.Button3Click(Sender: TObject);
Var X, Y : Integer;
    Z : Cardinal;
begin
Z := Timer1.Interval;
Z := StrToInt(Edit2.Text);
end;

Voila j'ai rajotuer mais le probleme c'est que dans le code meme dans evenement j'ai  mis 10000 soit 10 s mais quans pendant l'execution du logiciel je change et je met 30000 soit 30 s ça ne marche pas ça fait toujours 10 s merci de m'aider
voila j'ai rajouter

maxioutils · Answer

c bon j'ai trouver merci de ton aide comme meme

Probleme de temps

11 réponses

Votre réponse

Discussions similaires