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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [delphi] boucle while et contrôle de l'utilisateur (newbie)

jmbocquet

et la lumière fut.

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.

Publicité

jmbocquet

et la lumière fut.

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:

JWhy

je peux plier (héhé)

l'equivalent do DoEvents est Application.ProcessMessages

---------------
www.alliancefrancophone.org ... Home is where the heart is

jmbocquet

et la lumière fut.

: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 ?

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

antp

Super Administrateur
Champion des excuses bidons

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

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

jmbocquet

et la lumière fut.

:jap:

[SDF]Poire

Vive Grumly

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....

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

FORUM HardWare.fr

Programmation

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

Sujets relatifs
[algo] c possible de claculer un écart type en une seule boucle ?	[delphi 4] obetnir la taille d'un répertoire
[Delphi] erreur avec WebBrowser et formStyle	[Delphi] Urgent : Excel, changement de la feuille active
NEWBIE en JAVA:c koi??? ça sert à koi????ça paie bien??	[Delphi] Ca marche là-bas et pas ici... /début de solution/
[Delphi - Newbie] Les appels croisés entre unités	[DELPHI] qui est intéressé par mon parser HTML?
[Delphi] Hello World
Plus de sujets relatifs à : [delphi] boucle while et contrôle de l'utilisateur (newbie)

Page générée en 0.052 secondes