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

  • VladimirR

    nagyúr

    válasz djtörök #490 üzenetére

    graphdetect szvsz nem kell, helyette hasznalhatod igy:

    gd := VGA;
    gm := VGAHI;
    initgraph( gd, gm, 'path\bp\bgi );
    errorcode := graphresult;
    if errorcode <> 0
       then exit
       else begin
                 [...]
            end;

    a [...] helyere megy a program - ugye egyeb esetben nincs grafikus felulet, szoval az igaz agra max egy hibauzenet mehet (komolyabb proginal esetleg bekerheted az egavga.bgi helyet)

    a billentyufigyeles meg valahogy igy nez ki:

    if (keypressed) and (readkey=0)
       then case readkey of
              75 : balra;
              77 : jobbra;
              80 : fel
              72 : le;
            end;

    azert kell az elso feltetel, mert a nyilakhoz ket kod van, amibol az elso 0, s a masodikat csak akkor kerdezed, ha ez teljesul (maskulonben lehetne billentyukkel is iranyitani, pl: H=fel)

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