Лабораторна робота № 31
Тема роботи: Використовування системного компоненту TTimer (System) для розробки інтерфейсу.
Мета роботи: Вивчення прийомів проектування і створення додатку, що використовує компонент TTimer.
Постановка задачі. Розробити додаток, що виводить на екран зображення секундоміра, що відлічує інтервали реального часу.
Для виконання даної лабораторної роботи я розробив інтерфейс вид якого показаний на малюнку:
Та ввів наступний код програми:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Shape1: TShape;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
hour:integer;
min:integer;
sec:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec+1;
if sec=60 then
begin
min:=min + 1;
sec:=0;
end;
if min=60 then
begin
hour:=hour+1;
min:=0;
end;
if hour=24 then
hour:=0;
if sec<10 then
Label3.Caption:='0'+IntToStr(sec)
else
Label3.Caption:=IntToStr(sec);
if min < 10 then
Label2.Caption:='0'+IntToStr(min)
else
Label2.Caption:=IntToStr(min);
if hour < 10 then
Label1.Caption:='0'+IntToStr(hour)
else
Label1.Caption:=IntToStr(hour);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Timer1.Enabled then
begin
Timer1.Enabled:=True;
Button1.Caption:='Стоп';
Button2.Enabled:=False;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
hour:=0;
min:=0;
sec:=0;
Label1.Caption := '00';
Label2.Caption := '00';
Label3.Caption := '00';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
hour:=0;
min:=0;
sec:=0;
end;
end.
Висновок: Навчився прийомам проектування і створення додатку, що використовує компонент TTimer.
Лабораторна робота № 32
Тема роботи: Створення програми з використанням компонента багатосторінкового діалогу-"блокнота" TTabbedNotebook. Робота з опціями.
Ціль роботи: Вивчення прийомів створення багатосторінкового діалогу-"блокнота" з використанням компонента TtabbedNotebook. Відпрацьовування прийомів роботи з опціями.
Завдання: розробити програму, що виконує наступні функції:
1. Створення діалогу, що складається із трьох сторінок, призначеного для контролю знань.
2. На кожній зі сторінок, відповідно до її теми, помістити групу опцій, що представляє собою питання тестування по заданій темі.
3. Видача результату тестування.
Для виконання даної лабораторної роботи я розробив інтерфейс вид якого показаний на малюнку:
Та ввів наступний код програми:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
Notebook1: TNotebook;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
Button1: TButton;
Button2: TButton;
UpDown1: TUpDown;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
MarkText:array[0..3] of string =('Плохой', 'Середній ', 'Добрий', 'Відмінний');
var
Mark:Integer;
begin
Mark:=0;
if RadioGroup1.ItemIndex=RadioGroup1.Tag then Inc(Mark);
if RadioGroup2.ItemIndex=RadioGroup2.Tag then Inc(Mark);
if RadioGroup3.ItemIndex=RadioGroup3.Tag then Inc(Mark);
ShowMessage(MarkText[Mark]+' результат.');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.UpDown1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if UpDown1.Position=0 then
NoteBook1.ActivePage:='Математика';
if UpDown1.Position=1 then
NoteBook1.ActivePage:='Фізика';
if UpDown1.Position=2 then
NoteBook1.ActivePage:='Хімія';
end.
Висновок: Навчився прийомам створення багатосторінкового діалогу-"блокнота" з використанням компонента TtabbedNotebook. Відпрацьовував прийми роботи з опціями.