[delphi] boucle while et contrôle de l'utilisateur (newbie)

Recherche :

Dernière réponse

Sujet : [delphi] boucle while et contrôle de l'utilisateur (newbie)

[SDF]Poire

antp a écrit a écrit :

pour ne pas trop ralentir l'exécution ce que tu peux faire c'est avoir un compteur et tous les 5 ou 10 passages seulement tu fais le processmessages par exemple

Malin ça.... :D

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

[SDF]Poire

antp a écrit a écrit :

pour ne pas trop ralentir l'exécution ce que tu peux faire c'est avoir un compteur et tous les 5 ou 10 passages seulement tu fais le processmessages par exemple

Malin ça.... :D

jmbocquet

:jap:

antp	pour ne pas trop ralentir l'exécution ce que tu peux faire c'est avoir un compteur et tous les 5 ou 10 passages seulement tu fais le processmessages par exemple

jmbocquet

:jap: merci beaucoup

Code :

randomize;
pi := random(3)+2;
r1 := random(230);
r2 := (230-r1);
m1 := int(random(10))+11;
m2 := m1+random/10;
m3 := m2*int(random(100));
m4 := m3+(random/100);
b1 := exp(random/2)/20000;
b2 := b1*20000;
while not(iFin) do;
begin
i := i+pi*b1;
j := i-pi*b2;
x1:= 400+r1*sin(i*m1);
y1:= 300+r1*cos(i*m2);
x2:= x1+r2*sin(i*m3);
y2:= y1+r2*cos(i*m4);
xj1 := 400 + r1 * sin(j*m1);
yj1 := 300 + r1 * cos(j*m2);
xj2 := xj1 + r2 * sin(j*m3);
yj2 := yj1 + r2 * cos(j*m4);
with canvas do
begin
pixels[round(x2),round(y2)] := $00ffffff;
pixels[round(xj2),round(yj2)] := $00000000;
end ;
Application.ProcessMessages
end ;

C'est bien comme ça qu'on l'utilise ? :D

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

JWhy	l'equivalent do DoEvents est Application.ProcessMessages

jmbocquet

ps : a noter que iFin=True est obtenu par un clic sur un bouton. Mais lors de l'exécution de cette boucle, je n'arrive pas à cliquer sur le bouton.
Merci de votre aide, je galètre depuis 2 heures à chercher dans l'aide sans rien trouver :sweat:

jmbocquet

Dans ce genre de boucle :

Code :

randomize;
while not(iFin) do
begin
x := random(800);
y := random(600);
largeur := random(100);
hauteur := random(100);
couleur := random($ffffff);
canvas.Brush.color := couleur;
canvas.Rectangle(x,y,x+largeur,y+hauteur);
end ;

le seul moyen d'arrêter le programme, c'est Ctrl+Alt+Supp
je voudrais ajouter une instruction (équivalent de DoEvents sous VB4) pour pouvoir contrôler le programme.