[TP]Pour faire un rectangle

**Bruce Campbell** · 11/10/2003, 18h31

Salut,
J'essaye de dessiner un rectangle pour y afficher l'heure, mais le rectangle refuse de s'afficher. Pourtant, le compilateur ne me dit pas qu'il y a d'erreur. J'aurais besoin que quelqu'un m'indique comment faire car je n'ai pas trouvé dans l'aide (fichier pdf).
Merci

**charly** · 11/10/2003, 19h12

euh , en mode graphique ? texte ? montre un bout de code sinon .....

**Bruce Campbell** · 12/10/2003, 13h23

en mode garph, Je tape:
rectangle(15,18,16,19);
read;
et quand je lance, il affiche 1ns puis se ferme

**charly** · 12/10/2003, 14h08

montre moi ton initialisation graphique ... sa peux venir de la ... et sous quel os tu travail ?

**M.Dlb** · 12/10/2003, 19h18

Code :

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

1
2
 
rectangle(15,18,16,19)

Ça fait un rectangle de deux pixels..... Change peut-être la couleur du dessin et tu le verras :

Code :

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

1
2
 
SetColor(15);

Et n'oublie pas d'initialiser le mode graphique :

Code :

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

1
2
3
4
5
6
 
var GP,GM:integer;
begin
GP:=detect;
initgraph(GP,GM,'c:\tp\bgi');
if graphresult<>grok then halt;

Puis surtout de le fermer à la fin du programme :

Code :

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

1
2
 
closegraph;

a+

**Bruce Campbell** · 13/10/2003, 23h18

merci de l'attention que vous me portez,
Mais maintenant (je commence à peine à etre lourd),j'aimerai savoir comment je peux afficher l'heure à l'interieur de ce tableau.

**M.Dlb** · 14/10/2003, 00h02

Bon je donne un code brut, parce que j'aimerais bien aller au lit

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
 
uses dos,graph,crt;
var hour,minute,second,msecond:word;
var GP,GM:integer;
var shour,sminute,ssecond:string[2];
begin
GP:=detect;
initgraph(GP,GM,'c:\tp\BGI');
if GraphResult<>grOk then halt;
while keypressed do readkey;
setcolor(15);
setFillStyle(1,0);
rectangle(100,100,300,150);
while not keypressed do
begin
setcolor(0);
setFillStyle(1,0);
rectangle(101,101,299,149);
setcolor(15);
gettime(hour,minute,second,msecond);
str(hour,shour);
str(minute,sminute);
str(second,ssecond);
SetTextJustify(centerText,centerText);
OuttextXY(200,125,shour+" : "+sminute+" : "+ssecond);
delay(1000);
end;
closegraph;
end.