[TP]Pour faire un rectangle

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

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

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

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

Code:

---

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:

---

1 2	SetColor(15);

---

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

Code:

---

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:

---

1 2	closegraph;

---

a+

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.

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

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

---

Si tu as quelques problèmes pour ce code, regarde dans l'aide en premier puis poses tes questions sur ce forum !
a+

Je repond d'avance (a "J'aime pas le blanc, je prefere en rouge") :
Tu remplaces setcolor(15); par setcolor(12);

:lol: :lol: :lol:

@+ Haypo

Merci de votre aide
@+