Załóżmy że mam taki program:
program blabla;
var
a: string;
begin
writeln('podaj swoje imię: ');
readln(a);
writeln('cześć 'a);
end.
czy jest jakiś prosty sposób żeby ten pogrubiony tekst migał?
dzeieki [stuk]
0
0
Chyba raczej nie - sproboj tak:
LABEL kotwica1;
BEGIN
clrscr;
kotwica1:
write('dowolny tekst ktory ma migac');
delay(500);
clrscr;
delay(500);
goto kotwica1;
END;
Oczywiście przy takiej operacji nic nie można robić -ale miga :))
0
Y.. aby mrygał to chyba tak:
TextColor(4+128); // Te 127 dodaje mrygania czy jakoś tak :-0
writeln('Ten tekst mryga!'); ;-)
Ale tylko przy pełnym oknie [cygaro]
0
daje uses crt;
a jek jest: clrsrc to pisze: unknow indefinier
0
<font color="green">clrsrc</span>
ClrScr; [cygaro]
0
ok, jusz wszytko działa, dzieki :-)