N N+1 .
AB, AC, BC. , , ? . a1,b1. , , (. 6).
. 6 .
. CAB : . ACC1. . , dy. dx.
, .
.
. "", . Sleep(100), 100:
...
WHILE Xmin<=Xmax DO
BEGIN
Sleep(100);
y:=sin(xmin);
...
F9 , , . ? Delphi: . . ? Delphi, . Application.ProcessMessages. , "".
Delphi
, ,
.
.
, . .
. Image . :
procedure TForm1.Button1Click(Sender: TObject);
VAR i:WORD;
Begin
WITH Image1.Canvas DO
BEGIN
Brush.Color:=clBlack;
FillRect(Image1.ClientRect);
FOR i:=1 TO 500 DO
Pixels[RANDOM(Image1.Width), RANDOM(Image1.Height)]:=clWhite
END
end;
, 500 . Canvas Pixels[x,y], x,y.
. , . , .
|
|
procedure TForm1.Button1Click(Sender: TObject);
PROCEDURE Ufo(x,y:INTEGER);
BEGIN
WITH Image1.Canvas DO
BEGIN
Pen.Color:=clBlue;
Pen.Width:=3;
Ellipse(x,y,x+20,y+10)
END
END;
VAR i:WORD;
...
, Ufo TForm1.Button1Click , Form1. - . , " " . , .
. :
Pen.Mode:=pmNOTXOR;
FOR i:=0 TO Image1.Width DO
BEGIN
Ufo(i, i DIV 2);
Application.ProcessMessages;
Sleep(10);
Ufo(i, i DIV 2)
END
END;
- Pen.Mode:=pmNOTXOR. " ". . ( Ufo), Application.ProcessMessages, 10, , . , , .
, Y, .
? ! . ? , Delphi. ,
Form1.DoubleBuffered:=TRUE;
.
, ,
, ?
Delphi , . Timer, System (). , .
Timer Interval , , OnTimer. Enabled . , , , , ..
. , . Interval 1000, Enabled True. Events OnTimer :
|
|
procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Form1.Caption:=TimeToStr(Now)
End;
Now , , TimeToStr "15:25:18". Delphi .