Література

1. М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.

2. Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.

3. Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.

4. Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.

5. http://www.programmersclub.ru/book/ - електронні підручники по Delphi

6. http://pitbooks.ru/delphi/ - електронні підручники по Delphi

Завдання для виконання

Мета роботи - створити програму, що виконує наступні дії: 1. Після запуску програми у вікні зображується три поля.

2.При клацанні мишею на кнопці «Випадковий вибір» з трьох слів випадковим чином складається речення.

3. Для виходу з програми необхідно натиснути мишею на закриваючій кнопці в рядку заголовка.

Опис плану розробки програми

1. Відкрити новий проект.

2. Розмістити на формі екземпляри компонентів: поле зі списком ComboBox, командна кнопка Button. 3. Виконати наступні дії:

Таблиця 1

3. Збережіть проект та протестуйте його

Список іменників	Список прислівників	Список дієслів
Змія	Швидко	Плаває
Коник	Високо	Бігає
Дельфін	Повільно	Літає
Черепаха	Сильно	Плазує
Ластівка	Добре	Стрибає
Кішка	Погано	Ховається

Лістинг підпрограми

procedure TForm1.FormCreate (Sender: TObject);

begin

Randomize;

ComboBox1.ItemIndex :=0;

ComboBox2.ItemIndex :=0;

ComboBox3.ItemIndex :=0;

end;

procedure TForm1.Button1Click (Sender: TObject);

begin

ComboBox1.ItemIndex := Random(ComboBox1.ItemIndex.Count);

ComboBox2.ItemIndex := Random(ComboBox2.ItemIndex.Count);

ComboBox3.ItemIndex := Random(ComboBox3.ItemIndex.Count);

end;

Практичне заняття № 8

Тема: Робота з часом. Компонент Timer.

Мета: Ознайомлення з компонентом Timer. Робота з системною датою та часом.

Література

1. М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.

2. Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.

3. Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.

4. Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.

5. http://www.programmersclub.ru/book/ - електронні підручники по Delphi

6. http://pitbooks.ru/delphi/ - електронні підручники по Delphi

Завдання для виконання

1. Створити програму, яка виводить поточний час та дату.

Опис плану розробки програми

1. Відкрити новий проект.

2. Розмістити на формі екземпляри компонентів: Button, Edit, Label. 3. Виконати наступні дії:

Лістинг підпрограм

var

DateTime : TdateTime;

procedure Tform1.Button1Click(Sender: Tobject);

begin

DateTime:=Time;

Edit1.Text:=TimeToStr(DateTime);

end;

procedure Tform1.Button2Click(Sender: Tobject);

begin

Edit2.Text:=DateToStr(Date);

end;

end.

2. Написати програму «Електронний годинник». У вікні відображати поточний час, дату і день тижня.

Опис плану розробки програми 1. Відкрити новий проект. 2. Розмістити на формі екземпляри компонентів: Label, Timer. 3. Виконати наступні дії: 3.1. Ввести константи, що відповідають за назви днів тижня і місяців. 3.2. Оголосити процедуру ShowTime вручну для доступу до компонентів форми безпосередньо. 3.3. Процедура ShowTime відображає поточний час. 3.4. Процедура FormTime обробляє подія Paint. 3.5. Процедура Timer1Timer обробляє сигнал таймера. 3.6. Процедура FormCreate обробляє подія OnCreate.

Лістинг програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Timer1: TTimer;

Label1: TLabel; // время

Label2: TLabel; // дата и день недели

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure ShowTime;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Рис. 48.

70

const

stDay : array[1..7] of string[11] =

('воскресенье','понедельник','вторник',

'среда','четверг','пятница','суббота');

stMonth : array[1..12] of string[8] =

('января','февраля','марта',

'апреля','мая','июня','июля',

'августа','сентября','октября',

'ноября','декабря');

{$R *.dfm}

procedure TForm1.ShowTime;

var Time : TDateTime; // текущее время

begin

Time := Now(); // получить системное время

Label1.Caption := FormatDateTime('hh:mm:ss',Time);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ShowTime; // отобразить время

end;

procedure TForm1.FormCreate(Sender: TObject);

var

Present: TDateTime; // текущая дата и время

Year, Month, Day : Word; // год, месяц и число, как

// отдельные числа

begin

Present:= Now; // получить текущую дату

DecodeDate(Present, Year, Month, Day);

Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +

stMonth[Month] + ' '+ IntToStr(Year)+

' года, '+ stDay[DayOfWeek(Present)];

// настроить и запустить таймер

Timer1.Interval := 1000; // период сигналов таймера 1 с

Timer1.Enabled := True; // пуск таймера

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

ShowTime; // отобразить часы

end;

end.