Borland Pascal

[lars_fredrik]

Olyan problémám lenne, hogy mikor mekirok egy programot BP-ben és elmentem, ez elmenti az EXE fájlt is, de ha futtatom nem működik tökéletesen(pl. nem reagáll az Enterre, numbadra, stb...)

 

Itt a progi amit csináltam, még elég kezdő vagyok:

Törölve

 

Remélem minél hamarabb válaszoltok, mert kéne suluiba.

[SixHouse]

hm...

1. forráskód?

2. reagál az enterre mert kilép

[Marky18]

Meg nem csináljuk helyetted, de ha adsz forráskódot akkor meg tudjuk TALÁN mondani, hogy mi a hiba.

[lars_fredrik]

Azt nem tom mitől volt, de most már megy. Most az a gond, hogy ha BP-ben futtatom tökéletesen megy, viszont, ha az exe-t elinditom, nincs minden sor a helyén.

 

Forráskód

program kozmi;
uses crt;
var x,y,d:integer;
    c:char;
begin
     repeat
     clrscr;
     gotoxy(30,10); textcolor(yellow); writeln('Enter Serial Number!');
     gotoxy(35,12); readln(d);
     until d=4927;
     clrscr;
     gotoxy(30,1); textcolor(yellow); writeln('Paint v0.07 by Kozmi');
     gotoxy(35,4); textcolor(15);writeln('Iranyitas:');
     gotoxy(32,6); writeln('Rajzolas: nyilak');
     gotoxy(28,7); writeln('Kurzor mozgatas: W,A,S,D');
     gotoxy(29,8); writeln('Kepernyo torles: Space');
     gotoxy(34,9); writeln('Kilepes: Esc');
     gotoxy(36,11); writeln('Szinek:');
     gotoxy(36,13); writeln('1-Feher');
     gotoxy(36,14); textcolor(red);  writeln('2-Piros');
     gotoxy(37,15); textcolor(blue);  writeln('3-Kek');
     gotoxy(36,16); textcolor(yellow);  writeln('4-Sarga');
     gotoxy(37,17); textcolor(green);  writeln('5-Zold');
     gotoxy(34,18); textcolor(cyan);  writeln('6-Vilagoskek');
     gotoxy(34,19); textcolor(magenta);  writeln('7-Rozsaszin');
     gotoxy(36,20); textcolor(brown);  writeln('8-Barna');
     gotoxy(32,21); textcolor(15);  writeln('9-Fekete(torles)');
     gotoxy(20,23); writeln('A tovabblepeshez nyomj le egy billentyut');
     gotoxy(10,40); writeln('A program Kozmi tulajdonat kepezi. Masolasa szigoruan tilos.');
     gotoxy(26,42); writeln('Special thanks to J. Udvaros');
     readln;
     clrscr;
     x:=40;y:=25;
     repeat
     c:=readkey;
     gotoxy(x,y);
     case c of
     #80 :begin inc(y); write('*');end;
     #77 :begin inc(x); write('*');end;
     #75 :begin dec(x); write('*');end;
     #72 :begin dec(y); write('*');end;
     's' :begin inc(y);end;
     'd' :begin inc(x);end;
     'a' :begin dec(x);end;
     'w' :begin dec(y);end;
     '1' :begin textcolor(white);end;
     '2' :begin textcolor(red);end;
     '3' :begin textcolor(blue);end;
     '4' :begin textcolor(yellow);end;
     '5' :begin textcolor(green);end;
     '6' :begin textcolor(cyan);end;
     '7' :begin textcolor(magenta);end;
     '8' :begin textcolor(brown);end;
     '9' :begin textcolor(black);end;
     #32 :begin clrscr;end;
     end;
     until c=#27;
     end.

[SixHouse]

A sima exe futtatásnál kapsz egy 80X25 ös karakteres ablakot

Ha Bp ben futtatod akkor 80X50 es ablakkal gazdálkodsz, ennyi a különbség!

 

És ahol te a 40. sorba szeretnél irni ott rontja el!

a 25. sor után writelineokkal old meg sztem vagy pedig grafikusan ird meg !

[lars_fredrik]

Már megcsinnáltam ugy ahogy mondtad. De azt hogy lehet, hogy 80*50-es ablakot tegyen ki exe-nél?

[Marky18]

Nyálazd át a konyvet, fejből én sem tudom. CRT unit eljárásaira keress.

[SixHouse]

mikor futtatod üss alt+entert ennyit tudsz tenni

[lars_fredrik]

alt+enternél csak átvált fullscrenre, de ugyanaz van.

[Pörköltszaft]

A program elejére ird be ezt: TextMode(CO80 + font8x8);

Igy megkapod a 80x50-es képernyőmódot

[SixHouse]

alt+enternél csak átvált fullscrenre, de ugyanaz van.

Igaz :D benéztem sry

[lars_fredrik]

kösz szépen. tanár odáig lesz érte.