Comment rendre la main au programme?

Version imprimable

04/06/2006, 19h31
Jayceblaster

Comment rendre la main au programme?

Bonjour.

Je vous explique mon soucis...

J'ai récupéré sur le web un bout de code qui permet de générer une matrice (a la maniere du film) mais lorsque je lance ce code je n'ai plus la main pour faire d'autre opération...

Comment faire pour rendre la main au logiciel tout en continuant a faire touner ma matrice?? (j'ai entendu parler de thread mais je trouve ca pas tres clair si quelqu'un peu m'eclaircir)

merci d'avance;)
04/06/2006, 19h40
TicTacToe

Les threads permettent de lancer plusieurs traitements en parallèles.

Dans ton cas, ce qu'il se passe peut-être, c'est que ton traitemenet prend tellement de ressources, qu'il ne réagit plus aux évenement (click sur bouton par exemple).

Ce que tu peux faire, c'est a la fin d'un tour de boucle (plus le tour sera élémentaire, plus ca risque de ralentir l'ensemble de ton traitement), tu peux essayer de faire un

Code:

Application.ProcessMessages

ceci permet de traiter la file d'attente des évenements Windows, avant d'entamer ton second tour.
04/06/2006, 20h10
Jayceblaster

TicTacToc a ecris:

Citation:

tu peux essayer de faire un:
Application.ProcessMessages

J'avais deja essayé mais ca ne marche pas :cry:
04/06/2006, 21h16
evarisnea

:salut:
si ca ne te gêne pas, fais voir le code, on pourra t'aider plus facilement

ok voila le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
  procedure TForm1.FormPaint(Sender: TObject); 
var x,y,r,l:integer; 
begin 
randomize; 
canvas.Font.Name:='Verdana'; 
canvas.Font.Style:=[fsBold]; 
for r:=1 to 400 do 
        begin 
        x:=random(20); 
        for y:=1 to random(20) do 
                begin 
                sleep(1); 
                canvas.Font.Color:=RGB(0,MulDiv(y,255,20),0); 
                canvas.TextOut(x*15,y*15,chr(random(65)+65)); 
                l:=y; 
                end; 
                canvas.Font.Color:=clWhite; 
                canvas.TextOut(x*15,l*15,chr(random(65)+65)); 
        end; 
end;

voila....

04/06/2006, 22h52
Jayceblaster
Ah ben si le:
Code:

1 2 Application.ProcessMessages
marche c'est simplement que je l'avais pas mis dans le for (pfffff)

mais puisque vous avez le code a quel endrois je peux préciser les caractere a générer ( par exemple que les lettres 'D''E''E''L''P''H''I')...
C'est dans le random????

monsieur est servi ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.FormPaint(Sender: TObject);
var
	x,y,r,l:integer;
const
  caracteres: array [0..5] of char = ('D', 'E', 'L', 'P', 'H', 'I');
begin
	randomize;
	canvas.Font.Name:='Verdana';
	canvas.Font.Style:=[fsBold];
	for r:=1 to 400 do
    begin
    x:=random(20);
    Application.ProcessMessages();
    for y:=1 to random(20) do
      begin
      sleep(1);
      canvas.Font.Color:=RGB(0,MulDiv(y,255,20),0);
      //canvas.TextOut(x*15,y*15,chr(random(65)+65));
      canvas.TextOut(x*15,y*15,caracteres[random(6)]);
      l:=y;
      end;
      canvas.Font.Color:=clWhite;
      //canvas.TextOut(x*15,l*15,chr(random(65)+65));
      canvas.TextOut(x*15,l*15,caracteres[random(6)]);
    end;
end;