Input grafico non funzionante

[Loryea]

Guardate questo codice free pascal:

Codice Seleziona Espandi


Program Prova;
Uses Crt,Graph;
Var Gd,Gm:integer;
Scelta:char;

Begin
Gd:=detect;
Initgraph(Gd,Gm,'C:\FPC');
Rectangle(0,0,766,1365);
SetfillStyle(1,11);
Floodfill(1,1,11);
Outtextxy(0,40,'Prova!!!');
Outtextxy(0,50,'Questa serve per testare una struttura If...then semplice');
Outtextxy(0,60,'Premi A');
Read(Scelta);
If (Scelta='a') then Outtextxy(0,80,'GIUSTO!') else OuttextXy(0,80,'SBAGLIATO!');
Readkey;
end.

Se non fossimo in modalità grafica, il programma, premendo 'a' o qualcosaltro, farebbe vedere la risposta giusta, 'GIUSTO' o 'SBAGLIATO'

Come mai non avviene la stessa cosa nella modalità grafica? c'é un'altra parola indicante input grafico?

[xinyiman]

Ho aperto un 3d sul forum ufficiale. Appena so qualcosa ti avverto qui!

[Loryea]

Grazie Xinyiman, cominciavo a pensare che non avrei ricevuto risposte.

[xinyiman]

Ecco cosa mi hanno risposto al riguardo:

Tradotto con gli strumenti per le lingue di google

Codice Seleziona Espandi


Stai cercando di eseguire questo su windows? Che funzionerà, ma non come desiderato; D Si crea una finestra per visualizzare la grafica e poi ascoltare l'input sulla console. Eseguirlo da una console e si vede quello che voglio dire.
Per utilizzare il grafico a finestre, è necessario utilizzare winCrt. Ecco una versione modificata che funziona su windows

Non utilizzare leggere perché è ancora una volta la lettura dalla console al posto della finestra grafica.


Codice Seleziona Espandi


Program prova;

Uses winCrt,Graph;

Var
    Gd,Gm:smallint;
    Scelta:char;

Begin
Gd:=detect;
Initgraph(Gd,Gm,'C:\FPC');
Rectangle(0,0,100,200);
SetfillStyle(1,11);
//Floodfill(1,1,11);
Outtextxy(0,40,'Prova!!!');
Outtextxy(0,50,'Questa serve per testare una struttura If...then semplice');
Outtextxy(0,60,'Premi A');
Scelta:=readkey;
If (Scelta='a') then Outtextxy(0,80,'GIUSTO!') else OuttextXy(0,80,'SBAGLIATO!');
Readkey;
end.


[Loryea]

Grazie Xinyiman posso sempre contare su di te, sai quella prova non era il vero obbiettivo, dove volevo arrivare -come infatti si poteva capire bene- ma é solo una copia del tratto di videogames che sto facendo con output cambiati.

Sai, grazie ad un mix di esperienza, fortuna e buona volontà sono riuscito a tradurre la traduzione in italiano di Google traduttore XD (immagino sia questo lo strumento per la lingua di Google che hai usato).

[xinyiman]

Meno male! 

Si si tratta di google translator!