Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Problema con la Initgraph
Forum - Pascal - Problema con la Initgraph

Avatar
Progman (Normal User)
Newbie


Messaggi: 16
Iscritto: 26/02/2013

Segnala al moderatore
Postato alle 14:54
Giovedì, 28/02/2013
Salve a tutti, ho iniziato a usare la Initgraph da poco tempo e quindi non sono molto esperto.
Una domanda: come mai ogni volta che eseguo il programma questo mi si chiude come se fosse avvenuto qualche problema? come posso risolvere?

P.s. Un'ultima domanda: c'è un modo per far funzionare la initgraph su Dev-Pascal? :-?

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 15:31
Giovedì, 28/02/2013
Ciao!

Che sistema operativo usi ?

Posta un breve programma d' esempio.
Ad ogni modo, prima di chiudere la grafica, dai il comando readln attendere la chiusura.
Io ti consiglio di utilizzare il classico freePascal, ah un' interfaccia in stile dos, ma molte più funzioni.

Ultima modifica effettuata da Poggi Marco il 28/02/2013 alle 15:39
PM Quote
Avatar
Progman (Normal User)
Newbie


Messaggi: 16
Iscritto: 26/02/2013

Segnala al moderatore
Postato alle 15:41
Giovedì, 28/02/2013
ecco qua un esempio:

Codice sorgente - presumibilmente Delphi
  1. Program grafica;
  2. Uses Crt,Graph;
  3. Var     MPrincipal,X,Giocatori,Max,Scheda,Modo:integer;
  4.         S:String[1];
  5. bEGIN
  6. Scheda:=detect;
  7. Initgraph(scheda,modo,'C:\FPC');
  8. If Graphresult<>grOK then
  9.         Writeln('ERRORE: modalità grafica non installata correttamente');
  10.         Writeln('Il programma verrà chiuso entro 5 secondi');
  11.         delay(5000);
  12.         halt;
  13.         closegraph;
  14. Circle(1,1,3);
  15.  
  16. readln;
  17.  
  18. end.

Ultima modifica effettuata da Phi il 28/02/2013 alle 23:34
PM Quote
Avatar
Progman (Normal User)
Newbie


Messaggi: 16
Iscritto: 26/02/2013

Segnala al moderatore
Postato alle 15:43
Giovedì, 28/02/2013
ah comunque uso windows xp e apro il tp con Dosbox!

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 19:00
Giovedì, 28/02/2013
Le variabili scheda e modo, devono essere dichiarate necessariamente del tipo smallInt

Posto il programma corretto:
Codice sorgente - presumibilmente Delphi
  1. Program grafica;
  2. Uses Crt,Graph;
  3. var     Scheda,Modo:smallInt; // Le variabili per la grafica devono
  4.                               // essere necessariamente di tipo smallInt.
  5. bEGIN
  6. Scheda:=detect;
  7. modo:=0;
  8. Initgraph(scheda, modo, '');
  9. If Graphresult<>grOK then
  10.   Writeln('ERRORE: modalità grafica non installata correttamente')
  11. else
  12. begin
  13.   Writeln('Il programma verrà chiuso entro 5 secondi');
  14.   Circle(700, 300, 250); // sposto il disegno del cerchio prima del closegraph
  15.   delay(5000);
  16.   // halt;  // commento il comando halt
  17.   closegraph;
  18. end;
  19. readln;
  20.  
  21. end.

PM Quote
Avatar
Progman (Normal User)
Newbie


Messaggi: 16
Iscritto: 26/02/2013

Segnala al moderatore
Postato alle 21:02
Giovedì, 28/02/2013

@phi , non mi riconosce il tipo di variabile SmallInt :( ... ho provato con ShortInt ma mi da "type mismatch"... l'unico tipo di variabile con cui parte è integer, ma ritorna sempre il problema dell'errore di prima...

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 21:35
Giovedì, 28/02/2013
Ce errore di da quando dichiari le variabili smallInt?
In alternativa prova il freepascal (http://sourceforge.net/projects/freepascal/files/)

PM Quote
Avatar
Progman (Normal User)
Newbie


Messaggi: 16
Iscritto: 26/02/2013

Segnala al moderatore
Postato alle 14:47
Venerdì, 01/03/2013
Grazie, risolto tutto!!! :)

PM Quote