peromalosutra,srki_82....come here

Ovako:



Mene sada zanima kako napravit da uz pomoc tastera (a-lijevo;d-desno;
w-gore;s-dolje) krecem ovaj krug u prostoru ogranicenom sa rectangle,
to sam zapravo htio da skuzim iz tvog koda od igrice (peromalosutra) al
bezuspjesno.....;)

Ovako... imas krug ima precnik R, njegov centar cX, cY, i vrednosti za MinX, MaxX, MinY, MaxY koje definisu deo u kom krug moze da se krece. To znaci da cX + R / 2 ne sme da bude vece od MaxX, cX - R / 2 ne sme da bude manje od MinX, cY + R / 2 ne sme da bude vece od MaxY, cY - R / 2 ne sme da bude manje od MinY. Ako pazis na to onda je lako. Imas ReadKey i ako se pritisne neko od definisanih tastera pomeris cX ili cY na novu vrednost ako ce krug ostati u definisanom regionu. Mozes pre nego sto updatujes vrednosti da na staroj poziciji nacrtas krug boje pozadine cime ces ga obrisati.

Potpis

Play Store

Potrudit cu se da napravim,ako ne doc cu ovdje po pomoc..:)Hvala

Ja sam uradio nesto slicno sa pravougaonikom (pogledaj "program sa grafikom"), samo nema ogranicenja.

Ovaj dio upravlja figurom. X i Y su vrijednosti koordinata figure, (u tvom slucaju centra kruga).

Repeat
brisanje;
znak:=readkey;
ind:=ord (znak);
if (ind=97) or (ind=115) or (ind=100) or (ind=119) then
Case ind of
100: x:=x+1;
97: x:=x-1;
119: y:=y-1;
115: y:=y+1;
End;

Until ind=27 {odnosno ponavljaj dok se ne stisne taster ESC}

Umjesto procedure brisanje mozes staviti i ClrScr, medjutim docice do bljeskanja ako budes zelio taj program prosiriti pa u repeat petlji dodavati nove stvari koje ce se pojavljivati na ekranu. I ja sam imao ovaj problem sa prvom verzijom moje igre, ali sam ga otklonio uz pomoc Srki_82-ovog savjeta i on preveden na jezik pocetnika (u koje se i ja ubrajam) glasi: nacrtati isti lik na prethodnim koordinatama, obojen bojom pozadine. Efekat ovoga je isti kao i brisanje. A evo i procedure koja bi to radila:

Procedure brisanje;
begin
gotoxy (xs,ys); {xs,ys su stare koordinate tacke, ili u tvom slucaju, centra kruga}
if (x<>xs) or (y<>ys) then {ako je tijelo pomjereno, onda...}
circle (xs,ys,50); {samo ga moras nacrtati bojom pozadine}
xs:=x;
ys:=y;
end;

Vjerovatno negdje ima gresaka, ali to je otprilike to.

Ajd napisi program od a do z,jer vec petljam 2 sata s njim,tak cu najlakse skuzit.
Sa sto manje petljanja da ga lakse skuzim a onda cu lako ga nadogradjivati..:)

Evo momci-uzivajte. :)

:)

E a sada ako dodam neku liniju (line) kako napravit da taj krug ne moze da
prijedje preko nje vec da ju mora zaobilazit?

Kada ja pokrenem toyin program, on mi prikaze krug na ekranu, ali ne mogu da ga pokrenem, ne reaguje na A,S,D,F kako vidim iz koda da bi to trebalo. Pokusao sam da iskljucim CapsLock, (jer se onda promjene ACII kodovi tastera) ali ni to nije pomoglo. Ja mislim da imam problem sa kompajlerom.
(pogledaj "problem sa grafikom")