Pereiti prie turinio

Free pascal problema


Rekomenduojami pranešimai

Sveiki. Turiu problema su FPS. Sukuriau programa su gafika. Ideja tokia, kad joje krenta raides o zmogus pamates ta raide paspaudzia tos raides klavisa ir ta raide pradingsta ir atsiranda kita raide kitoj vietoj. Viskas veikia, bet tik tada kai esi isijunges programos langa, o noreciau,kad veiktu ziurint vien i grafikos langa.

 

Sitaip atrodo viskas kai veikia(su grafikos ir programos langu):http://gyazo.com/667b5e5f723925a3e4d33aec64075878.png

 

Pati programa:

 

program Bevarde35;

uses graph,crt;

var

mx, my,m,s,o,p,k,x,y,l :integer;

i,key:char;

begin

initgraph(x,y,' ');

randomize;

mx:=GetmaxX;

my:=GetmaxY;

Setcolor(red);

Setbkcolor(black);

repeat

 

l:=random(mx);

i:=chr(97+random(26));

s:=0;

while s<my do

begin

setcolor(white);

SetTextStyle(gothicfont,0,4);

OutTextXY(l,s,i);

delay(4);

setcolor(black);

SetTextStyle(gothicfont,0,4);

OutTextXY(l,s,i);

s:=s+1;

o:=ord(i);

if keypressed then

begin

key:=ReadKey;

p:=ord(key);

if o=p then s:=1000;

end;

 

end;

until keypressed;

 

Readln;

CloseGraph;

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...