[code]Program colorer;
Uses Crt; { eznélkül nem megy }
Var x,y : integer;
Begin
TextColor(white);
Repeat
TextBackground(Random(32));
ClrScr;
GotoXY(16,12);
WriteLn(‘Szerintem színes. Szerintem’);
Sound(Random(3200));
Delay(120);
NoSound;
Until keypressed;
NoSound;
End.[/code]Tulajdonképpen ez annyi, hogy véletlen háttérszínt és hangokat generál, egészen addig ameddig egy gombot meg nem nyomunk. Ez van, unatkozom órán.
Tetszett a bejegyzés?
Megköszönöm, ha nyomsz rá egy like-ot vagy megosztod másokkal:
Devilll
2006. február 07. — 11:30:15
Én meg most reggelizem 😀 Na persze nem azért, mert nem volt időm reggel 😉 sokkal inkább azért, mert most keltem 😀
bali_sb
2006. február 07. — 11:48:30
A pascalt én is szeretem 😛 PL:
egy program, ami a Delay-nek mutatja ki a pontosságát:
[q]program Bcpu_by_bali;
uses Dos,Crt;
var logfajl:Text;
I3:Integer;
I, I2, IV, IDO:Real;
delaj, h, m, s, s100, sveg, y, month, d, dow:Word;
begin
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
WriteLn(‘F jlba ment?s…’);
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
Assign(logfajl,’Log.log’);
Append(logfajl);
GetDate(y,month,d,dow);
WriteLn(logfajl);
WriteLn(logfajl);
WriteLn(logfajl,’—————‘);
WriteLn(logfajl);
WriteLn(logfajl, y,’. ‘, month,’. ‘, d,’.’);
ClrScr;
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
WriteLn(‘Analiz l s…’);
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);
repeat
GetTime(h, m, s, s100);
until s100 < 10; GetTime(h, m, s, s100); GetTime(h, m, s, sveg); IDO:=sveg-s100; repeat delaj:=500; begin repeat repeat GetTime(h, m, s, s100); until s100 < 10; GetTime(h, m, s, s100); Delay(Delaj); GetTime(h, m, s, sveg); TextColor(blue); Write(sveg-s100 :4); if sveg-s100 < 50 then delaj:=delaj+1; if sveg-s100 > 50 then delaj:=delaj-1;
if KeyPressed then begin sveg:=100; s100:=50; Write(‘XX’ :4); end;
TextColor(green);
until sveg-s100 = 50;
end;
WriteLn(logfajl, h, ‘:’, m, ‘:’, s);
WriteLn(logfajl, 2*delaj);
WriteLn(logfajl);
GotoXY(77,WhereY); WriteLn(delaj: 3);
I:=I+delaj;
I2:=I2+1;
until KeyPressed;
IV:=I/I2;
TextColor(red);
WriteLn(logfajl);
WriteLn(logfajl,’—————‘);
WriteLn(logfajl);
WriteLn(logfajl, ((500-IV)*2)-IDO);
Close(logfajl);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
TextColor(green);Write(‘Az tlagkileng?s:’); GotoXY(63, WhereY); WriteLn(((500-IV)*2)-IDO);
TextColor(red);
for I3:=0 to 80 do begin GotoXY(I3, WhereY); Write(‘Ä’); end;
ReadLn
end.
[/q]
Persze ehez kell egy olyan üres fájl hogy “Log.log”
bali_sb
2006. február 07. — 11:50:53
ötödikes koromban a kedvencem volt 🙂
chateve
2006. február 07. — 16:43:20
Szerintem a QBasic jobb, mint a Turbo Pascal. Vagyis én jobban szeretem.:)
Mefi
2006. július 22. — 12:27:48
Ez így kommentben ütős volt. Egyébként a delay pontossága már szinte lényegtelen, mivel minden gépen más. Alapvetően amikor tervezték, akkor a delay(60); az pontosan egy percig várt volna. Ezt egy 2-3 GHz órajelű processzornál már észre sem veszed.