Pogledajte sta je pocetnik napravio zahvaljujuci ES forumu.
Molim komentare
Molim komentare
I pocetnici nesto znaju......;)
Zaključano
Zakačeno
Mocan fazon. I sve si to uradio uz pomoc onog loading...
:)
:)
lepo lepo...
Potpis
Pa... mozda bi i bilo zanimljivo kad bi moj win bio instaliran u "c:\windows", ali posto nije 
U svakom slucaju bar znas da koristis write funkciju
U svakom slucaju bar znas da koristis write funkciju
Potpis
Drago mi je cuti tako lijepe komentare.Zapravo nisam koristio onaj loading jer nekako prebrzo ide i jako treperi,koristio sam delay(x)..
Al zanima me dal je moguce povecat ta slova?
Al zanima me dal je moguce povecat ta slova?
@peromalosutra
Dal bi mogao poslat onaj kod tvoje igrice,zanima me da vidim kako si to napravio:
[email protected]
Dal bi mogao poslat onaj kod tvoje igrice,zanima me da vidim kako si to napravio:
[email protected]
Citat:
Passwd: Al zanima me dal je moguce povecat ta slova?
Mislis kao kad menjas velicinu fonta u Win aplikacijama? Ako je to upitanju u obicnom text modu to ne mozes da radis. Mozes da crtas karaktere nekim znacima (puno polje, gornja polovina puna, donja polovina puna) i da time napravis veca slova ili da koristis graficki mod u kojem mozes kao i u Win aplikacijama da podesavas velicinu fonta samo onda moras da koristis BGI drajvere i fontove pa ces morati ili da ih distribuiras sa programom ili da ih staticki linkujes. Imas primer za to u Pascalu (BGILink).
Potpis
Kod i nije nesto komplikovan, ali je dosta neuredan, na kraju ni ja sam ne znam sta je sta pa moram stalno gledati u glavnom programu koju proceduru poziva itd.
Inace glavni program bi bio mnogo kraci da nisam koristio goto naredbu (za koju sam cuo da nije u duhu paskala), ali nisam se mogao sjetiti drugog nacina da organizujem meni. Sada znam da sam i taj dio mogao napisati u obliku procedure, pa bi mi se glavni program mogao svesti na ovo:
...
begin
meni;
end.
I da dalje ne pricam, evo ti kod pa sam pogledaj.
Inace glavni program bi bio mnogo kraci da nisam koristio goto naredbu (za koju sam cuo da nije u duhu paskala), ali nisam se mogao sjetiti drugog nacina da organizujem meni. Sada znam da sam i taj dio mogao napisati u obliku procedure, pa bi mi se glavni program mogao svesti na ovo:
...
begin
meni;
end.
I da dalje ne pricam, evo ti kod pa sam pogledaj.
Kojom komandom si napravio ovaj delay (kasnjenje i kucanje slovo po slovo) kursora? - mislim naravno na kvaziVirus program :)
Izvini sto se ja ubacujem, ali napravio je to upravo sa delay(x), gdje ti je x broj mikrosekundi. (1000 ms=1 sek)
a font mozes da povecas, ali u grafickom rezimu
Potpis
Da tocno to,a ako te bude bas zanimalo mogu ti okacit kod.
Googleo sam i traziiiiiio svasta o pascalu i nasao skoro 100 primjera
iz pascala,sad to sve proucavam-vjerovatno ste stoga opazili da me nema
previse na ES-u...:)
Googleo sam i traziiiiiio svasta o pascalu i nasao skoro 100 primjera
iz pascala,sad to sve proucavam-vjerovatno ste stoga opazili da me nema
previse na ES-u...:)
peromalosutra, zasto si koristio goto u paskalu!? to se ne radi tako......
Potpis
Da bre... "goto statement considered harmful"!
Potpis
random...
Pa kada sam pravio meni nisam se nikako mogao sjetiti deugog nacina! Sada znam da sam to mogao uraditi na drugi nacin, ali mi se GOTO ucinio nekako najpogodnijim. A zasto se kaze da naredba goto "nije u duhu Paskala" i ako je tako zasto su je uopste ugradili u Paskal?
Mislim da se ne kazhe da 'nije u duhu Pascala', nego da 'nije u duhu strukturiranog programiranja'... Postoje neke sheme za pretvaranje nestrukturiranog programa u strukturirani...
Rad sa goto, break, i slichnim naredbama [onima koje menjaju tok programa, a nisu for, while, repeat ili poziv funkcije] se smatra rizichnim ako je u pitanju iole slozheniji software, jer je, kazhu, teshko pratiti tok programa...
Inache, kada sam ja prvi put chuo to, umalo da se shlogiram jer sam na Commodoreu sve radio uz pomoc goto...
Sada sam se navikao i uopshte ne vidim potrebu za goto.
Rad sa goto, break, i slichnim naredbama [onima koje menjaju tok programa, a nisu for, while, repeat ili poziv funkcije] se smatra rizichnim ako je u pitanju iole slozheniji software, jer je, kazhu, teshko pratiti tok programa...
Inache, kada sam ja prvi put chuo to, umalo da se shlogiram jer sam na Commodoreu sve radio uz pomoc goto...
Sada sam se navikao i uopshte ne vidim potrebu za goto.
Potpis
random...
Citat:
RnD57:Inache, kada sam ja prvi put chuo to, umalo da se shlogiram jer sam na Commodoreu sve radio uz pomoc goto...
Sada sam se navikao i uopshte ne vidim potrebu za goto.
Sada sam se navikao i uopshte ne vidim potrebu za goto.
isti slucaj, samo nije commodore, vec QBASIC ;)
Potpis
Jest, samo shto na Commodore-ovom Basic-u nisi im'o [bar kol'ko se ja secam] implementirane ni procedure ni iteracije... Sve goto! Na njemu sam odrastao!
Potpis
random...
Citat:
peromalosutra: Izvini sto se ja ubacujem, ali napravio je to upravo sa delay(x), gdje ti je x broj mikrosekundi. (1000 ms=1 sek)
Ili nije ta komanda ili je ja pogresno koristim, jer kada povecam delay program mi odstampa citav text npr. write ('delay') sa kasnjenjem koje sam stavio. A mene zanima kako da stampa slovo po slovo sa odredjenim delay-om?
Citat:
Sada znam da sam to mogao uraditi na drugi nacin, ali mi se GOTO ucinio nekako najpogodnijim. A zasto se kaze da naredba goto "nije u duhu Paskala" i ako je tako zasto su je uopste ugradili u Paskal?
GoTo su ugradili (odnosno g-din Niklaus Wirth je ugradio :) u pascal iz istorijskih razloga - to je u stvari direktan naslednik mašinske JUMP instrukcije, pa je starim kukama koje su na strukturirane jezike prelazili sa asemblera to bilo verovatno znatno olakšanje. Stvar svakako i danas ima primenu (ja sam baš neki dan uglavio jedan GoTo u kood - moglo se i drugačije ali GoTo je bio najčišće rešenje). Pogledaj npr. ovaj kood koji koristi GoTo:
Code:
procedure TForm1.Button1Click(Sender: TObject);
label
exit;
var
i, j, k, x: integer;
begin
x := 0;
for i := 1 to 700 do
for j := 1 to 700 do
for k := 1 to 700 do
begin
inc(x);
if j = 10 then goto exit; // ovde je dostignut neki uslov za izlaz iz sve tri petlje
end;
exit:
label1.Caption := inttostr(x);
end;
procedure TForm1.Button1Click(Sender: TObject);
label
exit;
var
i, j, k, x: integer;
begin
x := 0;
for i := 1 to 700 do
for j := 1 to 700 do
for k := 1 to 700 do
begin
inc(x);
if j = 10 then goto exit; // ovde je dostignut neki uslov za izlaz iz sve tri petlje
end;
exit:
label1.Caption := inttostr(x);
end;
i njegov ekvivalent bez GoTo-a:
Code:
procedure TForm1.Button2Click(Sender: TObject);
var
i, j, k, x: integer;
bExit: boolean;
begin
x := 0;
bExit := false;
for i := 1 to 700 do
begin
for j := 1 to 700 do
begin
for k := 1 to 700 do
begin
inc(x);
if j = 10 then // ovde je dostignut neki uslov za izlaz iz sve tri petlje
begin
bExit := true;
break;
end;
end;
if bExit then break;
end;
if bExit then break;
end;
label1.Caption := inttostr(x);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i, j, k, x: integer;
bExit: boolean;
begin
x := 0;
bExit := false;
for i := 1 to 700 do
begin
for j := 1 to 700 do
begin
for k := 1 to 700 do
begin
inc(x);
if j = 10 then // ovde je dostignut neki uslov za izlaz iz sve tri petlje
begin
bExit := true;
break;
end;
end;
if bExit then break;
end;
if bExit then break;
end;
label1.Caption := inttostr(x);
end;
Sad, voleo bih da me neko ubedi da je dobra praksa u svakom slučaju izbegavati GoTo, odnosno da neko ovaj drugi kood napiše na jednostavniji i kraći način od prvog. Plaćam pivo ko to uradi :)
Svakako, preteranu upotrebu je najbolje izbegavati (imho).
ss.
Potpis
When something is hard to do, then it's not worth doing.