Discussion :

[A0080]

Bonjour à vous tous. Alors voilà je dois réaliser un projet de carrefour routier et j'ai bien entendu quelques problèmes quant à le réaliser donc dans un premier temps je vous pose 1 petite question.

1. Sur un drawgrid comment peut-on incrémenter une image (à partir d'une ImageList) en fonction d'un chronomètre?

En clair j'ai un chronomètre qui fonctionne très bien et je voudrais par exemple que toutes les 5 secondes il m'affiche une image en case 1,1, puis 5 secondes plus tard la même image mais en 1,2 etc etc.

Merci d'avance pour vos réponses.++

[Aka Guymelef]

Bonjour,

et bien je dirais pour ça qu'il faudrait stocker dans deux variables globales (ou deux membres du TDrawGrid) la position X, Y actuelle de votre image. L'initialiser à 0,0 puis dans l'évènement OnDrawCell tester si la cellule à repeindre correspond à la position indiqué par les deux variables (et dans ce cas dessiner votre image). Et enfin dans l'évènement OnTimer incrémenter la position de votre image représentée par les deux variables et demander à la grille de se rafraîchir.

[A0080]

Alors merci pour ta réponse mais malheureusement étant débutant je n'ai pas compris grand chose.

Je vais tenter une autre approche plus simple.

Admettons que mon image soit dans une ImgList en position 1.

Je déclare un TabImage : array of [0..19, 0..19] of integer.

Admettons que mon image soit ici :

TabImage[0,1]:=1;

Comment je fais pour que par exemple toutes les 5 secondes mon image 1 s'affichent automatiquement dans les cases suivantes c'est à dire TabImage[0,i+1] avec i=1.

Merci d'avance.++

[Archimède]

Je ne sais pas sans avoir tenter de le faire...
mais perso,j'utiliserais la méthode getbitmap de ta Timagelist.
En effet: La méthode GetBitmap permet de récupérer sous la forme d'un objet bitmap une image donnée de la liste d'images. Index indique l'indice de l'image. GetBitmap affecte l'image à l'objet Tbitmap passé comme paramètre Image.
après tu utilises un timer et tu fais un copyrect de ton bitmap dans chaque case.(tu as la méthode cellrect, je crois...).
voilà, ce sont des pistes mais il est tard et je n'ai pas le temps de me lancer...

salut

[A0080]

Merci à toi Archimède. Alors j'utilise la méthode Getbitmap dans mon programme dans cette procédure :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.DG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var bmp : Tbitmap;
begin
bmp := Tbitmap.Create;
IL1.GetBitmap(TabImage[ACol, ARow], bmp);
DG1.Canvas.Draw(Rect.Left, Rect.Top , bmp);
FreeAndNil(bmp);

Et dans la procédure form create j'initialise tout simplement la map avec des boucles toutes simples.

Par contre je ne connais absolument pas la méthode copyrect et je n'arrive vraiment pas à savoir comment utiliser un chrono ou un timer pour récupérer le temps et de cette façon incrémenter mes images dans le Tdrawgrid.

Merci encore à toi.++

[Archimède]

Par contre je ne connais absolument pas la méthode copyrect et je n'arrive vraiment pas à savoir comment utiliser un chrono ou un timer pour récupérer le temps et de cette façon incrémenter mes images dans le Tdrawgrid.

Pour le timer, tu as l'événement ontimer.
Tu te fixes dans un premier temps ton interval timer. Il est en ms.
exemple: 20 (->20ms).
Toutes les 20 ms, l'événement ontimer est appelé. C'est dans la procedure

Code :

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

procedure TForm1.Timer1Timer(Sender: TObject);

, que tu vas réaliser ton animation et introduire le canvas.copyrect(.......)
tu renseignes le rectsource et le rectdestination et tu ajoutes le bitmap.canvas.
tu incrémentes acol dans cellrect au départ: inc(acol).
pour stopper l'animation->timer1.enabled:=false; sinon true.
l'idée de la fonction cellrect est à voir, je n'ai pas tenté de le faire.
(l'avantage est de récupérer le rectangle de chaque cellule en fonction de
acol et arow->c'est ce que tu veux...)
bon courage.

[Archimède]

vite fait, tu arranges ça à ta sauce...et puis tu fais avancer tes images où tu veux avec acol ,arow

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls, ImgList;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    DrawGrid1: TDrawGrid;
    ImageList1: TImageList;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    acol,arow:integer;
    image:Tbitmap;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
with drawgrid1 do 
      begin
      Align:=alclient;
      rowcount:=20;
      colcount:=12;
      end;
 
image:=Tbitmap.Create;
with image do begin
width:=60;
height:=60;
//taille des images que je mets dedans ( ici qui correspond à l'indice 0 de imagelist
end;
 
acol:=-1;
timer1.Interval:=1000;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var rectdest:Trect;
begin
inc(acol);
imagelist1.GetBitmap(0,image);//on charge l'image d'indice 0 dans le bitmap
rectdest:=drawgrid1.cellrect(acol,0);//on récupère le rect de la première case
drawgrid1.canvas.CopyRect(rect(rectdest.Left,rectdest.top,rectdest.Left+60,rectdest.top+60),image.Canvas,rect(0,0,60,60));
end;
 
end.

tu fais un fillrect pour obturer et le tour est joué...

A+

[A0080]

Je te remercie grandement pour ton aide Archimède je vais essayer tout ça en fin d'aprem.

Je te tiens au courant si je suis arrivé à faire quelque chose ou pas.

En tout cas encore merci.++

[Archimède]

ok, ça marche.
salut

[A0080]

Alors j'ai essayé quelques trucs et malheureusement je n'arrive pas à mes fins.

Le bout de code que tu m'a passé marche impec (du moins le plus gros).

Ce que j'aimerais faire justement c'est arrété l'incrémentation à un moment précis par exemple quand je suis sur la case [0,9]. A ce moment là je ferais passé mon feu au vert et je continuerais l'incrémentation et l'arreterais de nouveau quand le feu repasserais au rouge.

J'espère avoir été assez clair.

Sinon j'expliquerais bien en détail ce que je veux faire de mon projet.

Merci encore pour le timer il marche nikel.++

[Archimède]

Alors j'ai essayé quelques trucs et malheureusement je n'arrive pas à mes fins.
Le bout de code que tu m'a passé marche impec (du moins le plus gros)
Ce que j'aimerais faire justement c'est arrété l'incrémentation à un moment précis par exemple quand je suis sur la case [0,9]. A ce moment là je ferais passé mon feu au vert et je continuerais l'incrémentation et l'arreterais de nouveau quand le feu repasserais au rouge.

Code :

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

1
2
 
if acol<>9 then inc(acol)else begin timer1.Enabled:=false;sleep(10000);timer1.Enabled:=true;inc(acol)end;

c'est pas top, mais c'est rapide...
je n'ai pas le temps de te faire mieux avec un dt (en utilisant now....).
à toi de voir.

n'oublie pas de libérer le bitmap et de faire un onpaint...

[A0080]

Alors je vais essayer tout ça.

Je vais tenter d'en faire un maximum et je reviendrais avec tou mon code là prochaine fois pour tenter de finir ce petit projet.

Encore merci.++

[Archimède]

oui, fais toi une petite procedure feu que tu appelles quand tu en as besoin...

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.feu;
begin
timer1.enabled:=false;
sleep(duree du feu);
timer1.enabled:=true;
end;

après par exemple:

Code :

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

1
2
3
4
5
6
7
 
if acol<>9 then inc(acol) 
                else 
                begin 
                feu;
                acol:=10;
                end;

ce sont des idées dans l'instant; à toi de structurer tout ça à ta manière.
Après, tu fais évoluer acol et arow avec les contraites de déplacement de tes véhicules.

[A0080]

Re Salut tout le monde. Alors le programme a un peu avancé et voilà où j'en suis :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Dateutils, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, ExtCtrls, Grids;
 
type
    TForm1 = class(TForm)
    DG1: TDrawGrid;
    Timer1: TTimer;
    Edit1: TEdit;
    IL1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure DG1DrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
    procedure Timer1Timer(Sender: TObject);
    procedure changek;
 
private
    bmp : Tbitmap;
public
 
  end;
 
type
 
Ttab = array [0..19, 0..19] of integer;
F = TFeu;
 
var
  Form1: TForm1;
  TabImage : Ttab ;
  CurrentTime : Ttime;
  k : integer;
  FG,FD,FH,FB : TFeu;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
    i,j : integer;
begin
k:=1;
Timer1.Interval:=50;
 
FG:=TFeu.create;
FD:=TFeu.create;
FH:=TFeu.create;
FB:=TFeu.create;
 
For i:=0 to 19 do
         For j:=0 to 19 do begin
         TabImage[i, j]:=17;
         end;
For i:=0 to 8 do
     For j:=0 to 8 do begin
     TabImage[i,j]:=12;
     end;
 
For i:=11 to 19 do
    For j:=11 to 19 do begin
    TabImage[i,j]:=12;
    end;
 
For i:=11 to 19 do
    For j:=0 to 8 do begin
    TabImage[i,j]:=12;
    end;
 
For i:=0 to 8 do
    For j:=11 to 19 do begin
    TabImage[i,j]:=12;
    end;
    TabImage[8,11]:=10;    // rouge horizontal gauche
    FG.rouge:=1;
    FG.vert:=0;
    TabImage[11,8]:=6;     // rouge horizontal droite
    FD.rouge:=1;
    FD.vert:=0;
    TabImage[8,8]:=16;     // vert vertical gauche
    FH.vert:=1;
    FH.rouge:=0;
    TabImage[11,11]:=3;    // vert vertical droite
    FB.vert:=1;
    FB.rouge:=0;
 
end;
 
 
 
procedure TForm1.DG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  bmp:=TBitmap.Create;
  IL1.GetBitmap(TabImage[ACol, ARow], bmp);
  DG1.Canvas.Draw(Rect.Left, Rect.Top, bmp);
 
end;
 
procedure TForm1.changek;
begin
        if k=1 then k:=0 else k:=1;
        end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
edit1.Text:=formatdatetime('s:zzz',currenttime);
currenttime:=IncMillisecond(currenttime,timer1.interval);
 
if Edit1.Text='5:000' then
      begin
      currenttime:=0;
      TabImage[8,11]:=11*k + 10*(1-k);
      TabImage[11,8]:=7*k + 6*(1-k);
      TabImage[8,8]:=15*k + 16*(1-k);
      TabImage[11,11]:=2*k + 3*(1-k);
 
case k of
 
0:    begin FG.vert:=1;
            FG.rouge:=0;
            FD.vert:=1;
            FD.rouge:=0;
            FH.vert:=0;
            FH.rouge:=1;
            FB.vert:=0;
            FB.rouge:=1;
            edit1.Enabled:=false;
            edit2.Enabled:=true;
      end;
1:    begin  FG.vert:=0;
             FG.rouge:=1;
             FD.vert:=0;
             FD.rouge:=1;
             FH.vert:=1;
             FH.rouge:=0;
             FB.vert:=1;
             FB.rouge:=0;
             edit1.Enabled:=true;
             edit2.Enabled:=false;
 
      end;
      changek;
      DG1.Refresh;
 
end;
 
end;
 
 
end.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Grids, StdCtrls, ExtCtrls;
 
type
    Ttab=array [0..19, 0..19] of integer;
    Tfeu=class(TObject)
     public
     constructor create;
     {procedure phazhorizV(FGV:TBitmap); }
    { procedure affichefeuhoriz ;
     procedure affichefeuverti;  }
     procedure change;
end;
 
var TabImage : ttab ;
    vert:integer;
    rouge:integer;
 
implementation
 
constructor TFeu.create;
begin
      inherited create;
      vert:=1;
      rouge:=0;
      end;
 
procedure Tfeu.change;
begin
      vert:=rouge;
      rouge:=vert;
end;
 
end.

Alors en espérant expliquer les choses concrètement.

Dans la Form Create et le OnDrawCell c'est juste le chargement des images et l'initialisation de la carte.

Quand je lance le programme (je peux vous envoyer le .dpr) mes feux grace au timer change toutes les 5 secondes.

Je voudrais dans un tout premier temps faire avancer une voiture sur chaque file (4 donc) qu'elle s'arrete lorsque le feu est rouge et ensuite lorsque le feu passe au vert elle reparte.

Voilà encore merci.

[A0080]

Personne pour une petite aide?

Merci d'avance.++

[A0080]

Là ça deviendrait un peu pressant en fait donc si quelqu'un pouvait au moins jetter un oeil sur le code et la question ça serait plus que sympa de sa part.

Encore merci à vous.++

[edam]

1-pour votre unite2, sa sert à rien si tu déclare roue et vers hors class,
2-

Code :

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

1
2
3
4
5
6
7
 
procedure Tfeu.change;
begin
      vert:=rouge;
      rouge:=vert; // rouge=vert=rouge... tout deux les 2 on la même valeur 
tu dois passé par un variable 
end;

et tu déclare rouge et vert de type boolean sera mieux, et meme tu peut déclaré un seul c'est l'etat du feux, (rouge, vert)
exp:

Code :

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

1
2
3
4
5
6
7
 
type
   TEtatfeux:array[1..2] of string=('Rouge','Vert');
ou type
 
  TEFEnsemble =(Rouge,Vert);
  TEtatfeux= set of TEFEnsemble ;

voir dans l'aide de delphi sur les Ensembles

Un ensemble est une collection de valeurs ayant le même type scalaire. Les valeurs n'ont pas d'ordre intrinsèque, une même valeur ne peut donc pas apparaître deux fois dans un ensemble.
Les valeurs possibles du type ensemble sont tous les sous-ensembles du type de base, y compris l'ensemble vide. Le type de base ne peut avoir plus de 256 valeurs possibles et leur rang doit être compris entre 0 et 255. Toute construction de la forme :

autre idée:
tu peut pas utlisé un un timage simle qui ce déplace sur la form en modifiant left et top simplement???