Delphi визуалды программалау ортасы


-сурет Ішкі бағдарлама листингі



бет84/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   80   81   82   83   84   85   86   87   ...   97
Байланысты:
Delphi vizualdy programmalau ortasy

28-сурет
Ішкі бағдарлама листингі:

unit Unitl;

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject); begin

with Canvas do begin

// жалауша

Canvas.Pen.Width := 1; Canvas.Pen.Color := clBlack; Canvas.Brush.Color := clCream; Rectangle(30,30,150,115);

// сақиналар

Pen.Width := 2;

Brush.Style := bsClear; // шеңбердің ішкі аймағын боямау

Pen.Color := clBlue; Ellipse(40,40,80,80); Pen.Color := clBlack; Ellipse(70,40,110,80); Pen.Color := clRed; Ellipse(100,40,140,80); Pen.Color := clYellow; Ellipse(55,65,95,105); Pen.Color := clGreen; Ellipse(85,65,125,105); end; end;

end.



18. Функция графигін салу
Жұмыстың мақсаты – түрлі функциялар графигін салатын бағдарлама құру. Төменде үлгі үшін сызықтық және квадраттық фукциялардың графиктерін (0-7) аралығында салу қарастырылды. Бағдарламада кезкелген графикті (0-15) аралығында құруға болады.





Достарыңызбен бөлісу:
1   ...   80   81   82   83   84   85   86   87   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет