()
Newbie
Messaggi:
Iscritto:
|
non riesco dopo aver fatto partire il programma a tornare alla prima pagina visualizzata, dopo aver fatto la prima o la seconda scelta... Help!!
Codice sorgente - presumibilmente Delphi |
program disegno; uses crt,graph; var grdriver,grmode:integer; a,b:integer; procedure grafica; begin grdriver:=detect; initgraph(grdriver,grmode,'c:\tp\bgi'); rectangle(0,0,getmaxx,getmaxy); floodfill(1,1,white); end; begin {dovrei metterci un ciclo??} clrscr; writeln('Se vuoi visualizzare il primo disegno premi 1, altrimenti 2'); readln(a); if a=1 then begin grafica; textcolor(red); outtextxy(2,10,'Questo un disegno creato dalla 4 C informatica!!'); setcolor(black); circle(310,230,100); arc(300,280,250,800,50); arc(300,180,810,280,50); circle(320,180,25); circle(300,280,25); setfillstyle(1,black); floodfill(320,180,black); floodfill(300,240,black); end else grafica; setcolor(black); circle(310,230,100); repeat until keypressed; end.
|
Come faccio?? Grazie in anticipo..
|
Poggi Marco (Member)
Guru
Messaggi: 969
Iscritto: 05/01/2010
|
Ciao!
Ho letto il tuo programma, e posso consigliarti di impostare un ciclo.
Su entrambe le pagine chiudi la grafica, con l' istruzione CloseGraph.
|