Хід лабораторної роботи. 1. Завантажити середовище візуального програмування Delphi

1. Завантажити середовище візуального програмування Delphi.

2. Задати властивості форми: Caption, Height, Width, Color.

3. Вставити у форму об’єкт типу Image: Image1 (рис.20).

4. Вставити у форму кнопку - об’єкт типу Button (рис.20).

5. Вставити у форму кнопку - об’єкт типу BitBtn.

6. Змінити заголовки Caption на об’єктах типу Button (рис.21).

7. Змінити властивість Kind кнопки BitBtn на bkClose.

Рис.20 Рис.21

8. Запрограмувати кнопку Button1. Процедура матиме такий вигляд:

Procedure TForm1.Button1Click (Sender: TObject);

Var

x,y: real; { значення аргументу та функції}

px,py:longint;

Begin

with Image1.Canvas do begin

Pen.Width:=1; { задати товщину пера }

Pen.Color:=clBlack;

MoveTo(0,Image1.Height div 2);

LineTo(Image1.Width,Image1.Height div 2); {вісь х}

MoveTo(5,0);

LineTo(5,Image1.Height); { вісь у}

Pen.Width:=1;

Pen.Style:=psDashdot; {задати стиль лінії}

Pen.Color:=clRed;

MoveTo(5,Image1.Height div 2);

for px:=5 to Image1.Width do begin

x:=px*4*pi/Image1.Width;

y:=sin(x)*cos(x/6);

py:= trunc (Image1.Height – (y+1)*Image1.Height/2);

LineTo(px,py);

end;

Font.Size:=18; {задати розмір шрифту}

TextOut(180,20,’y=sin(x)*cos(x/6)’); {підписати графік функції}

TextOut(715,145,’x’);

TextOut(15,0,’y’);

end;

end;

9. Зберегти створену програму у своїй власній папці.

10. Виконати створену програму.

11. Створити exe - файл програми. Закрити Delphi і запустити створену програму.

Контрольні запитання

1. Які підвластивості має властивість Pen?

2. Опишіть призначення процедур LineTo та MoveTo?

3. Як працює процедура TextOut?

4. Як задати розмір шрифту?

5. Що вміщує властивість Kind об’єкта BitBtn?

Поиск по сайту: