Par dotazu – Pascal – Fórum – Programujte.com

zdar lidi
prvni dotaz: dá se nějak dostat do programu obrazek? (jedná se o jednoduchý obrázek v bmp kreslený podle ruky)
druhý dost: dá se změnit velikost písma?
třetí dotaz: rozezná program stisknutí šipky? chtěl jsem vytvořit pohyblivé menu ale pohyb pomocí písmen + zmáčknutí enter není nejlepší

urcite sa da, staci len zadat www.google.com a slovo na vyhladavanie. a preco prave Pascal ? Tipujem ze vam v skole povedali ze je to najlepsi programovaci jazyk ;) , to bolo niekedy. Skus Javu(ta nema zlozite GUI), C++ , C# alebo nieco ine, ktore sa da vauzit.

Ahoj! Vezmeme to odzadu:
3) stisknutí šipky se rozeznává funkcemi ReadKey a Keypressed. Tyto funkce jsou v jednotce Crt. Doporučuju používat tento postup:

uses Crt;



const SNahoru = 256+72;

        SDolu = 256+80;

        SVpravo = 256+77;

        SVlevo = 256+75;

        Escape = 27;



Function NactiKlavesu:word;

var c:char;

begin

c:=ReadKey;    {nacte kod klavesy}

if c=0 then NactiKlavesu:=256+Readkey else NactiKlavesu:=c;  {nektere klavesy vraci napred 0 a az pote primo kod klavesy. To je treba pripad sipek}

end;                {a mame nacteno - at uz to byl primy kod nebo kod s prefixovou nulou}



var k:word;

begin

...

repeat

    repeat 

    {Sem muzes vlozit akci, ktera se deje furt - at uz je klavesa stiskla nebo ne}

    until Keypressed;           {jestli byla zmacknuta klavesa, tak vyskoc z cyklu}



    k:=NactiKlavesu;            {jaka klavesa to ale byla?}

    case K of

    SDolu: ZpracujKlavesuDolu;

    SNahoru: ZpracujKlavesuNahoru;

    SDoleva: ZpracujKlavesuDoleva;

    SDoprava: ZpracujKlavesuDoprava;

    end;

until k=Escape;                  {jestli to byl Escape, tak vyskoc z celeho cyklu} 

...

end.

uses Graph;

const

     UMISTENI_OVLADACE_BGI = 'c:\pascal\bgi'; {v originalni instalaci pascalu jsou BGI soubory v podadresari BGI. Ty ale nevis, kde (a zda) je bude mit uzivatel, takze je distribuuj spolecne s tvym programem. Jestlize bude treba ve stejne slozce jako EXE, tak zadas proste prazdny retezec:  UMISTENI_OVLADACE_BGI = ''}



var gd,gm:integer;

begin

gd:=Vga;

gm:=VgaHi;  {640x480, 16 barev}

InitGraph(gd,gm,UMISTENI_OVLADACE_BGI);

SetTextStyle(...);  {podivej se do napovedy}

OutText('Ahoj svete!');

readln;

CloseGraph;