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

problem sa grafikom

[es] :: Pascal / Delphi / Kylix :: problem sa grafikom

[ Pregleda: 2876 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.



+148 Profil

icon problem sa grafikom09.04.2005. u 17:53 - pre 230 meseci
Pokusao sam da napravim program sa kojim se uz pomoc tastera a,s,d,f pomjera pravougaonik po ekranu, medjutim kada ga startujem ne vidi se nikakav pravougaonik! zna li neko u cemu je problem, sigurno je nesto jednostavno, ali ja nikako ne mogu da shvatim sta. Evo kako program izgleda:

program grafika;
uses graph,crt;
var drajver,mode,x,y,ind:integer;
znak:char;

procedure pomjeranje;
begin
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;
end;

procedure inc;
begin
drajver:=detect;
initgraph (drajver,mode,'');
x:=50;
y:=50;
end;

Procedure ucitavanje;
begin
znak:=readkey;
ind:=ord(znak);
end;

begin
inc;
repeat
clrscr;
ucitavanje;
pomjeranje;
line (x,y,x+100,y);
line (x,y,x,y+10);
line (x+100,y,x+100,y+10);
line (x,y+10,x+100,y+10);
until ind=27;
closegraph;
readln;
end.



 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: problem sa grafikom09.04.2005. u 18:30 - pre 230 meseci
Po secanju:
Pogledaj gde ti se nalaze fajlovi sa ekstenijom BGI. (HERC.BGI, EGAVGA.BGI...)
Ako se nalaze u: C:\TP\BGI\ , a ne u direktorijumu gde je exe, onda treba kao treci parametar da navedes putanju do njih.

Primer:
initgraph (drajver,mode,'C:\TP\BGI\');
 
Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.



+148 Profil

icon Re: problem sa grafikom09.04.2005. u 19:12 - pre 230 meseci
Program mi iscrta pravougaonik kada ne stavim repeat petlju i kada izbacim ono readkey i clrscr. Mislio sam da je problem u preranom brisanju ekrana, ali tada bi se vidjelo bar treptanje. Zato sam malo promjenio kod, stavio sam clrscr na pocetak, ali ni time nisam nista postigao.

 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: problem sa grafikom10.04.2005. u 01:56 - pre 230 meseci
Promeni proceduru ucitavanje ovako
Code:
Procedure ucitavanje;
begin
  Ind := 0;
  if KeyPressed then
    Ind:=Ord(ReadKey);
end;

Trebalo bi da pomogne... koliko vidim stara pozicija se nece izbrisati tako da ces ostavljati trag kad budes pomerao pravougaonik.
 
Odgovor na temu

Vdjuric
Vladimir Djuric
student
Beograd

Član broj: 20863
Poruke: 64
*.dial.InfoSky.Net.

Sajt: www.marettasoftware.com


Profil

icon Re: problem sa grafikom11.04.2005. u 09:53 - pre 230 meseci
Jesi li podesio boju pozadine i boju linija koje crtas? I, naravno, trebao bi da obrises stari pravougaonik pre iscrtavanja novog...
poz
 
Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 871
*.dialup.blic.net.



+148 Profil

icon Re: problem sa grafikom11.04.2005. u 15:15 - pre 230 meseci
Nisam podesi boje, ali sam "upratio" svoj kompajler. Nece u grafickom rezimu da mi sprovodi naredbu readkey (iako sam naveo biblioteku crt). Dakle, kada izbacim ucitavanje i stavim da kompjuter sam pomjera pravougaonik po ekranu (npr. x:=x+10, y:=y+10, itd), Onda sve radi savrseno. Ovo sam isprobao tako sto sam napravio dva potpuno ista programa. Onaj sa readkey nije radio, a onaj drugi (x:=x+10) jest. Srki_82, koristio sam i tvoju proceduru za ucitavanje, ali ni ona nije pomogla). Ja mislim da je ipak problem u kompajleru.

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: problem sa grafikom

[ Pregleda: 2876 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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