problema care se pune in cazul asta este, daca o pot numi asa, functionarea defectuoasa
PROGRAM X2;
{Exemplu pentru Bar3D}
USES Graph;
VAR gD, gM, gE: Integer;
BEGIN
gD:= Detect;
InitGraph(gD,gM,'');
gE:= GraphResult;
IF gE<>grok THEN
BEGIN
WriteLn('EROARE GRAFICA : ', GraphErrorMsg(gE));halt(1)
END;
setfillstyle(1,15);
outtextxy(20,2,'Topoff');
bar3d(20,20,65,60,10,topoff);
outtextxy(140,2,'Topon');
bar3d(140,20,185,60,10,topon);
bar3d(30,80,105,120,10,topon);
setfillstyle(2,15);
bar3d(105,100,175,120,10,topon);
readln;
CloseGraph
END {X14}.
toata lumea o sa spuna ca este in regula.... dar nu este.
la lansarea in executie initgraph functioneaza, dar modul text ramane activ, asta insemnand ca...
se afiseaza bar3d dar la readln nu raspunde
La readln dupa cate stiu, se asteapta apasarea #13 adik enter dar nu este citit asa ca nu se efectuiaza nici close graph nici nimic altceva
Am incercat sa folosesc si unit-ul crt, si in loc de readln am pus readkey, care ar trebui sa citeasca orice tasta. aceiasi problema
se asteapta citirea tastelor in modul text, care ramane activ si el
Ma poate ajuta cineva
De ce anume la initgraph ramane activ si modul text
De ce se ateapta cititea comenzilor de la tastatura in modul text
cum sa procedez pentru o functionare corecta
exista ceva setari ascunse in Free Pascal pentru asta