Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim?

[es] :: Pascal / Delphi / Kylix :: Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim?

[ Pregleda: 3038 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Passwd

Član broj: 54624
Poruke: 640
*.cmu.carnet.hr.



Profil

icon Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim?28.05.2005. u 14:22 - pre 230 meseci
Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim??

Code:

program kretanje;
uses crt;
var slx,sly:integer;
begin
repeat
randomize;
slx:=random(80);
sly:=random(80);
clrscr;
gotoxy(slx,sly);
write('***');
until slx=1230;
readln;
end


[Ovu poruku je menjao secret dana 28.05.2005. u 19:07 GMT+1]
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: kretanje???????????????28.05.2005. u 15:14 - pre 230 meseci
Pa ubaci delay u repeat until petlju!
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.cmu.carnet.hr.



Profil

icon Re: kretanje???????????????28.05.2005. u 16:11 - pre 230 meseci
Cudno mi je da se nisi nimalo nasmijao!! ;)

Ovako, ovaj kod predstavlja nas (covjeka koji igra) i on se moze kretati sa:
w-gore
s-dolje
a-lijevo
d-desno

Code:

program nista;
uses crt;
var x,y:integer;
    kretanje:string;
begin
clrscr;
x:=20;
y:=20;
repeat
textcolor(yellow);
kretanje:=readkey;
if kretanje='w' then begin
                     clrscr;
                     y:=y-2;
                     gotoxy(x,y);
                     write('*');
                     end;

if kretanje='s' then begin
                     clrscr;
                     y:=y+2;
                     gotoxy(x,y);
                     write('*');
                     end;

if kretanje='a' then begin
                     clrscr;
                     x:=x-2;
                     gotoxy(x,y);
                     write('*');
                     end;

if kretanje='d' then begin
                     clrscr;
                     x:=x+2;
                     gotoxy(x,y);
                     write('*');
                     end;


until kretanje='b';
readln;
end.



A ovaj kod predstavlja neku muhu koja leti po zraku:

Code:

program sam;
uses crt;
var slx,sly,brojac:integer;
begin
randomize;
brojac:=0;
repeat
brojac:=brojac+1;
slx:=random(50);
sly:=random(50);
clrscr;
gotoxy(slx,sly);
write('+');
delay(400);
until brojac=20;
readln;
end.


E sada, treba ta dva koda ujediniti tako da se muha krece , a mi se micemo kako nas ona ne bi pogodila (izbjegavamo ju)....i onda ako nas pogodi oduzme nam se zivot....dobro, to cu poslije.

Znaci sada treba ova dva koda ujediniti tako da rade u isto vrijeme (ja ih spojim pa jedan se izvrsi prije, a drugi poslije njega-znaci obadva u isto vrijeme je cilj)!!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim?

[ Pregleda: 3038 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.