Проект 9. «таймер»
Мета роботи - створити програму, яка виводить поточний час і поточну дату.
після|потім| запуску програми з'являється|появляється| вікно.
для виходу з програми необхідно клацнути мишею на кнопці «вихід».
Опис плану розробки програми
1. Відкрити новий проект.
2. Розмістити на формі екземпляри компонентів: Button, Edit.
3. Виконати наступні дії:
Таблиця 6.
Виділений об'єкт |
Закладка вікна Odject Inspector |
Ім'я властивості/ Ім'я події |
Подія |
Form1
|
Properties
|
Caption
|
Встановити ім'я форми "Таймер" |
Edit1 (закладка Standard) |
Properties
|
Text |
Очистити |
Edit2 (закладка Standard) |
|||
Button1 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки "Поточний час" |
Events |
OnClick |
Записати код програми |
|
Button2 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки "Поточна дата" |
Events |
OnClick |
Записати код програми |
|
Button3 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки "Вихід" |
Events |
OnClick |
Close |
Редактор коду програми:
Пропишемо значення змінної . Описати змінну - це вказати її ім’я та тип.
Опис виконуються у розділі даних після слова Var.
var
DateTime : TdateTime;
Для Button1 прописуємо:
DateTime:=Time;
Edit1.Text:=TimeToStr(DateTime);
Для Button2 прописуємо:
Edit2.Text:=DateToStr(Date);
Для Button3 просто пишемо Close.
У лістингу наводиться повний текст даної програми.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
DateTime : TdateTime;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DateTime:=Time;
Edit1.Text:=TimeToStr(DateTime);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=DateToStr(Date);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;
end.
Збережіть проект, запустіть і протестуйте його.
Проект 10. «калькулятор»
Мета роботи - створити калькулятор, за допомогою якого можга було би роводити прості математичні дії .
після|потім| запуску програми з'являється|появляється| вікно.
для очищення екрану достатньо нажати на кноску С.
для виходу з програми натиснути на кнопку OFF.