Discussion :

[Jayceblaster]

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ProcessMessages

ceci permet de traiter la file d'attente des évenements Windows, avant d'entamer ton second tour.

[Jayceblaster]

TicTacToc a ecris:

tu peux essayer de faire un:
Application.ProcessMessages

J'avais deja essayé mais ca ne marche pas

[evarisnea]

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

[Jayceblaster]

ok voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jayceblaster]

Ah ben si le:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[evarisnea]

monsieur est servi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;