Stránky neboli dlhú dobu aktualizované. Môžu obsahovať nepresné alebo neaktuálne informácie.
ok vyskusam
Pouzi funkciu ReadKey. Mozno niekedy neskor napisem clanok o unite CRT. Zatial ti dam odkaz, co som nasiel. Je tam aj priklad. http://www.trsek.com/pascal/crt.
ok este raz dik a da sa urobit v pascali nieco take ze si budem vyberat sipkami medzi 2 moznostami napr. ze chcem urobit program v 2 jazykoch a chcem si hned pri starte programu vyberat medzi anglictinou a slovencinou, napr. pri starte compu, ked mam viac OS tak si vyberam ze ktora chcem bootnut.doteraz som to robil tak, ze program na obrazovku vypisal toto:
please, select a language
(1=english, 2= slovak)
a potom podla znamej procedury if(if l=1 then begin) a potom cely program v danom jazyku ale je to dost neprakticke ak mam vyberat jazyk tym ze stalim 1 a potom enter
Ak pocas priebehu procesu nepotrebujes na obrazovku vypisat nic okrem statusbaru, je tu este jednoduchsi sposob:program status;
uses
crt;
var
x: integer;
begin
for x := 1 to 50 do begin
delay(100);
write('=');
end;
end.
program status;
uses
crt;
var
x: integer;
begin
for x := 1 to 50 do begin
delay(1000);
GoToXY(x, 1);
writeln('=');
end;
end.
urobil som to takto, funguje to fajn he a doteraz som to robil takto: delay(100); write('=');
a to som napisal asi 50 krat(pomocou copy, paste samozrejme) ale toto je ovela jednoduchsie, fakt dik
Ok dik
Priblizne takto:program status;
uses
crt;
var
x: integer;
begin
for x := 1 to 50 do begin
...
GoToXY(x, 1);
writeln('=');
...
end;
end.
staci mi len textovi takze ako to urobim?
Ak chces vytvarat progray s grafickym prostredim, je tu Lazarus. Ak potrebujes len textovy statusbar, s pouzitim procedur, ktore tu uz boli spomenute, je to velmi jednoduche.
existuje vo free pascale nieco ako status bar, co by vypisalo progres na obrazovku napr. v % ?