Új hozzászólás Aktív témák

• #1798 N!tRo tag Gyomman #1796

  Új Válasz 2007-04-01 17:16:32 #1798

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  N!tRo

  tag

  válasz Gyomman #1796 üzenetére

  Üdv!
  
  Elég csúnya ez a kód, sok benne a redundancia, próbáld alkalmazni a ciklusokat, azért vannak. Sok azonos kódot tegyél for ciklusba, figyelj arra hogy miként deklarálsz egy eljárást és miként hívod meg, mert ha eltér a két név, nem történik semmi.
  Ne deklarálj felesleges változókat, csak a memóriát foglalod velük.
  Tabbal, szóközzel vagy valamivel próbáld átrendezni a programodat, hogy jobban átlássad. Én szóközzel szoktam a ciklusokhoz tartozó részt ''kiemelni'', hogy egyszerűbben átlássam a progit.
  Satöbbi...
  
  Jegyzettömbbe átalakítgattam a progidat, nem tuti hogy jó mindenhol, a Notepad nem debugger.
  
  
  program jatek;
  uses crt,graph;
  var i,szam,gd,gm:integer;
  
  procedure elokepmenu;
  begin
  
  gd:=detect;
  InitGraph(gd,gm,'');
  
  for i:=1 to 24 do
  for j:=1 to 3 do
  outtextxy(j,i,chr(179-j));
  
  SetTextStyle(0,0,3);
  outtextxy(5,5,'JATEK NEVE');
  
  SetTextStyle(0,0,1);
  for i:=1 to 6 do
  begin
  sound(100*i);
  delay(100);
  end;
  Nosound;
  
  for i:=17 to 63 do
  begin
  outtextxy(i,3,CHR(219));
  outtextxy(i,23,CHR(219));
  outtextxy(i,21,CHR(196));
  end;
  
  for i:=3 to 23 do
  begin
  outtextxy(17,i,CHR(219));
  outtextxy(63,i,CHR(219));
  end;
  
  outtextxy(34,5,CHR(177),'JATEK NEVE',CHR(177));
  outtextxy(34,11,'1 : elsoprogram');
  outtextxy(34,13,'2 : masodikprogram');
  outtextxy(34,15,'3 : Kilep');
  outtextxy(18,22,'Add meg a kivant utasitas szamat ');
  
  readln;
  CloseGraph;
  
  end;
  
  begin
  elokepmenu;
  readln(szam);
  if szam>3 then halt;
  repeat until keypressed
  end;
  

• #1797 Lortech addikt Gyomman #1796

  Új Válasz 2007-04-01 12:23:41 #1797

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Lortech

  addikt

  válasz Gyomman #1796 üzenetére

  Uh.
  
  procedure menu az procedure elokepmenu, ha jól sejtem, mivel a főprogramban az elokepmenu eljárást hívod.
  Amikor grafikus módban vagy, akkor nem betűsorokban és oszlopokban adod meg a képernyőpozíciót, hanem pixelben, így a gotoxy, writeln eljárásokat felejtsd el. Helyette van outtextxy(x,y koordináta, szoveg).
  Azokat a delay-soundokat -ha mindenáron szükség van rájuk - érdemes lenne egy ciklusba ágyazni.

Új hozzászólás Aktív témák