Free Pascal - Procedúry a funkcie - Diskusia

Meno: Sulo
Dátum: 18.6.2008, 17:11
Predmet: Re: problemy s delay

Skus dat delay napr. 200 (alebo inu, optimalnu hodnotu). WinXP totiz spusta DOSove programy len virtualizovane, preto nemusia bezat plynule. Mozes tiez skusit nemazat celu obrazovku, len riadok. Alebo cisla vypisuj pod seba.

---

Meno: Jaroslav
Dátum: 16.6.2008, 13:56
Predmet: problem s delay

spravil som taky jdnoduchy program,ktory nahodne vyberie znaky(cisla,male velke pismena),ulozi do retazca a zobrazi ho na obrazovku na urcitu dobu a smaze obrazovku,potom nacita dalsi retazec a zase zobrazi.... potrebujem aby sa mi retazec zobrazil na stotinu sekudny ,teda delay(100),je to kratka doba a niekedy mi ten retazec nevypise a niekedy hej,uz ked davam delay(500) alebo viac tak v pohode vypise,da sa s tym nieco spravit aby mi to zobrazil vzdy ked pouzijem delay(100) ?

---

Meno: stalker
Dátum: 24.4.2008, 14:44
Predmet: re: textcolor

dik

---

Meno: Sulo
Dátum: 23.4.2008, 21:30
Predmet: Re: textcolor

Predvolena farba textu nie je biela, ale svetlosiva. Mozes pouzit konstantu LightGray alebo priamo cislo 8.

---

Meno: stalker
Dátum: 23.4.2008, 20:05
Predmet: textcolor

ok dik a ked pouzijem prikaz textcolor(cislo farby); ako potom naspat nastavim "default" farbu textu, viem ze biela ma cislo 15, ale to nie je presno to co tam bolo pred tym, je to trocha hrubsie, ako povodna biela a text je potom trochu menej citatelny.

---

Meno: Sulo
Dátum: 23.4.2008, 13:51
Predmet: Re: sound

Sound bude hrat kym sa nespusti NoSound alebo kym neskonci program. Tu je prikad:

Sound(1000);
Delay(2000);
NoSound;

---

Meno: stalker
Dátum: 22.4.2008, 19:53
Predmet: sound

este mam jednu otazku. ked pouzijem prikaz sound, aky pocet Hz mam zadat? skusal som 20, 50, 500 ba aj 500 000 ale stale nic nehra

---

Meno: stalker
Dátum: 22.4.2008, 19:43
Predmet: status bar(oprava)

tak som spravil novy status bar aj s peknou farbou pisma :) a hlavne v nom uz nepouzivam primitivnu metodu delay(150); write('=');

program status;
uses crt;
var
x: integer;
BEGIN
writeln('press ENTER to start'); readln; textcolor(10);
write('|                                  | loading...'); textcolor(12);
delay(2000);
for x:= 2 to 35 do begin
delay(150);
gotoxy(x,3);
write('=');
end;
gotoxy(37,3); delay(1000);
textcolor(12);
write(' done!     ');
END.

---

Meno: stalker
Dátum: 22.4.2008, 16:47
Predmet: staus bar(link)

http://www.youtube.com/watch?v=ieP9nv821mQ

tak tu mate ten staus bar ako to vyzera

---

Meno: stalker
Dátum: 22.4.2008, 7:39
Predmet: status bar(done)

urobil som taky celkom pekny status bar, tu mate zdrojovy kod:

program status;
uses crt;
BEGIN
writeln('press ENTER to start'); readln;
write('|                                  | loading...');
delay(3000);
gotoxy(2,3);
delay(100); write('='); delay(100); write('='); delay(100); write('='); delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');delay(100); write('=');
END.

mozete kopirovat ak chcete!!!
a ak by ste chceli vidiet, ako to vyzera tak som to uploadol aj na youtube, ale uz musis ist do skoly tak vam sem dam link okolo 5 hod

---