Лабораторна робота № 4
пʼятниця, 15 жовтня 2021 р.
Лабораторна робота № 4 Складання програм на опрацювання двовимірних масивів. 4 год
пʼятниця, 8 жовтня 2021 р.
Лабораторна робота № 3 Складання програм на опрацювання масивів.
Лабораторна робота № 3
понеділок, 10 травня 2021 р.
Лабораторна робота №16 Створення діалогової програми (4 год)
Лабораторна робота №16 Створення діалогової програми
Мета: Навчитись створювати -програми мовою Delphi
Завдання 1.
Створити міні-програму, наприклад: Тестування. Програма повинна вести діалог із користувачем. Діалог записати у текстовий файл.
У своїй програмі повинно бути меню, конктесне меню, передбачити оформлення програми та логіку роботи програми.
Оформити та продемонструвати роботу .
четвер, 6 травня 2021 р.
Семінарське заняття 2
Інструкційна картка до проведення
Звітність: надрукований матеріал (2-3 сторінки, обов'язкова вказувати джерела ), при потребі презентація, приклад програми. В електронному вигляді матеріал надіслати на адресу: ms.niko@i.ua
у рядку тема написати "Семінарське заняття 2" та тему: ... написати тему повідомлення.
понеділок, 26 квітня 2021 р.
Лабораторна робота №15 Створення рухомих графічних примітивів
Додаткова інформація Метод Application.ProcessMessages
Лабораторна робота №15 Створення рухомих графічних примітивів
Мета: Навчитись створювати -програми мовою Delphi
Завдання 1.
На Вашому попередньому малюнку (лабораторна робота 14) створити рухомий об'єкт. (Дивись приклад)
Оформити та продемонструвати роботу .
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Shape1: TShape;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.BitBtn1.Visible:=false; //робимо кнопку старт невидимою
for i:=0 to (form1.clientwidth-shape1.Width) div 2 do
// цикл до половини заданої ширини форми форми
begin
shape1.Visible:=false; //фігуру зробили не видимою
shape1.Left:=shape1.Left+1; //змістили координату по Х
shape1.Top:= shape1.Top -1; //змістили координату по У
sleep(10); //затрика
shape1.Visible:=true; //фігуру зробили видимою
application.ProcessMessages; //метод який вимагає миттєвого виконання
end;
for i:=i to form1.clientwidth-shape1.Width do
begin
shape1.Visible:=false;
shape1.Left:=shape1.Left+1;
shape1.Top:= shape1.Top +1;
sleep(10);
shape1.Visible:=true;
application.ProcessMessages;
end;
Form1.BitBtn2.Visible:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BitBtn2.Visible:=false;
end;
end.
четвер, 22 квітня 2021 р.
Лабораторна робота №14 Створення графічних примітивів
Лабораторна робота №14 Створення графічних примітивів
Мета: Навчитись створювати -програми мовою Delphi
Завдання 1.
Створити програму, яка можливостями мови створить малюнок.
Завдання 2.
Виконати підпис малюнка (ПРІЗВИЩЕ) за допомогою графічних примітивів.
Оформити та продемонструвати роботу .