контрольна робота №2 посилання
неділя, 18 травня 2025 р.
субота, 17 травня 2025 р.
Розробка проекту. Складання форми.
пʼятниця, 16 травня 2025 р.
семінарського заняття № 1
семінарського заняття № 1
семінарського заняття № 1
Підготовити реферат на 2-3 сторінок, презентацію для доповіді. (при використання посилань на інтернет-ресурси, обов'язково їх вставляти)
Сучасні мови програмування
Це цікаво
Як звучить число Пи посилання
кто первый
1941 рік. Конрад Цузе. Винахід першого комп'ютера.
четвер, 15 травня 2025 р.
Лабораторна робота №9 Створення графічного зображення
Лабораторна робота №9 Створення графічного зображення
Мета: Навчитись створювати програми мовою Delphi
Завдання 1. Створити програму, яка можливостями мови створить малюнок. (Будинок, лужок, озеро, дерево, сонечко)
Завдання 2.
Виконати підпис малюнка (ПРІЗВИЩЕ) за допомогою графічних примітивів.
Оформити та продемонструвати роботу.
Завдання 3.
На Вашому попередньому малюнку (лабораторна робота 16) створити рухомий об'єкт. (Дивись приклад)
Додаткова інформація Метод Application.ProcessMessages
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.
Робота з графікою в Delphi Малювання на формі або компоненті PaintBox
Робота з графікою в Delphi Малювання на формі або компоненті PaintBox
Малювання на формі або компоненті PaintBox...................................... 1
Приклад відео з використанням графіки................................................ 4
Робота з графікою в Delphi......................................................................... 4
Графічні можливості Delphi: Дуга, прямокутник, сектор, точка.......... 10
Дуга............................................................................................................ 10
Прямокутник............................................................................................. 10
Багатокутник............................................................................................ 11
Сектор....................................................................................................... 12
Крапка........................................................................................................ 12
Малюємо аналоговий годинник.............................................................. 15
Додатково посилання
пʼятниця, 9 травня 2025 р.
Лабораторна робота №8 Створення програм з використанням дати та часу.
Лабораторна робота №8 Створення програм з використанням дати та часу.
Мета: Навчитись створювати програми з використанням дати та часу.
Теоретичний матеріал посилання
Завдання 1. Організувати введення дати народження та сьогоднішньої дати. Провести розрахунок тривалості життя.
Завдання 2. Організувати введення двох дат та визначити часовий проміжок між цими датами.
Завдання 3 Ввести дати. Визначити день тижня. Скористатись формулами розрахунків "Як за датою обчислити день тижня?": посилання (https://genomukr.com/rizne/26518-jak-za-datoju-obchisliti-den-tizhnja.html) .
Завдання 4 Визначити час роботи вашої програми після її запуску. Інформацію відобразити у нижньому рядку: StatusBar .
Завдання 5 Написати програму визначення дати Великодня. Скоритсатися алгоритмом Гауса для обчислення дати Великодня. Посилання на вікіпедію. Для перевірки правильності роботи програми скористайтеся таблицею у Вікіпедії (дивись посилання).
Приклад коду:
newDate := IncDay(EncodeDate (Year, Month, Day) , 14); //використовується модуль DateUtils тут додаємо 14 днів EncodeDate створюю задану дату
form1.Label12.Caption:= DateToStr (newDate) ;
//dt:= now; // поточна дата
dt := form1.DateTimePicker1.Date; //визначена дата тобто введена з компоненту DateTimePicker
form1.Label11.Caption:= DateToStr (dt) ; //виводимо дату
difference := DaysBetween(newDate, dt); //використовується модуль DateUtils тут різницю днів
if dt<newDate then s:=''
else begin s:='пройшло'; newdt:=dt; dt:=newDate; newDate:=newdt; end;//переставити дати тобто прйшов час або пусто якщо дати розташовано вірно
form1.Label13.Caption:= s+intToStr (difference )+ ' днів ' ;
// Припустимо, що у вас є дві дати:
//date1 := EncodeDate(2022, 1, 1); // перша дата
//date2 := Now; // друга дата (поточна дата ≥ час)
// «находимо різницю між датами в місцях та днях
//monthsDifference := MonthsBetween(date1, date2);
//daysDifference := DaysBetween(date1, IncMonth(date1, monthsDifference));
monthsDifference := MonthsBetween(newDate, dt); //різниця у місяцях
daysDifference := DaysBetween(newDate, IncMonth(dt, monthsDifference)); //різниця у датах з урахуванням місяців
form1.Label15.Caption:=s+ ' кількість місяців: '+ IntToStr( monthsDifference)+ ' кількість днів: '+ IntToStr (daysDifference);
четвер, 8 травня 2025 р.
Введення та відображення дат та часу – компоненти DateTimePicker, MonthCalendar, Calendar
Введення та відображення дат та часу – компоненти DateTimePicker, MonthCalendar, Calendar
Стандартний тип дата-час - TDateTime, визначений у модулі System, є дійсне число типу Double, ціла частина якого задає число днів (у тому числі і негативне), що пройшли з 30 грудня 1899, а дробова частина - минулу частку поточного дня . Так, 35065.75 дає 1 січня 1996, 18.00.
У модулі SysUtils визначено низку стандартних функцій роботи з параметрами типу дати-часу.
Додатково матеріал ще один опис Процедур та функцій роботи з датою та часом
Модуль SysUtils (можливо трохи гірше описано чим у попередньому, зате коротко).
вівторок, 6 травня 2025 р.
Лабораторна робота №7 Створення програм з використанням таблиці
Компонент таблиця (матеріал 1), матеріал 2 посилання
Лабораторна робота №7 Створення програм з використанням таблиці
Мета: Навчитись створювати програми з використанням таблиць
Завдання 1.
Створити програму, яка буде виконувати розрахунки у наведеній таблиці:
Завдання 2 (на підвищену оцінку).
Табличне подання даних
Компонент StringGrid призначений для відображення та зберігання текстової інформації у вигляді таблиці. Розташований він на вкладці Additional Палітри компонентів:
Таблиця – двомірне подання даних, упорядковане по стовпчикам та рядкам. Таблиці, зазвичай, мають заголовки. У зв'язку з цим таблиці поділяються на дві частини: фіксовану та робочу . Робоча частина може містити довільну кількість рядків та стовпців. Якщо вона не міститься в межах компонента, то в нього автоматично вбудовуються смуги прокручування.
Табличне подання можна використовуватиме введення та виведення даних, тобто. вміст комірок можна редагувати.
У Delphi використовуються два компоненти для представлення даних у вигляді таблиці: TStringGrid та TDrawGrid.
понеділок, 5 травня 2025 р.
Лабораторна робота № 6 Створення програми мовою delphi з використанням багатосторінкового інтерфейсу. Вкладки PageControl
Лабораторна робота № 6 Створення програми мовою delphi з використанням багатосторінкового інтерфейсу. Вкладки PageControl
Вкладки PageControl
Вкладки PageControl
Компонент PageControl використовується для того, щоб можна було використовувати кілька що перекриває інші панелі (клас TTabSheet). Кожна панель вибирається пов'язаною з її закладкою і може містити, у свою чергу, свій набір розміщених на її компонентах.
Матеріал 2 витяг з книги
четвер, 1 травня 2025 р.
Лабораторна робота № 5 Створення програми мовою delphi з використанням меню
Лабораторна робота № 5 Створення програми мовою delphi з використанням меню
Мета: Навчитись складати та реалізовувати програми у середовищі delphi.
Компонент Delphi MainMenu Контекстное меню (PopupMenu)
Створити контекстне меню до форми. Передбачити, наприклад колір форми, відображення або зникнення зображення.
Продемонструвати роботу програм..