Урок для 10 класса на тему «Создание вкладок на языке Turbo Delphi в среде Lazarus версии 0.9.29»

Урок для 10 класса на тему

«Создание вкладок на языке Turbo Delphi в среде Lazarus версии 0.9.29»

1. Создай новый проект и сохрани его в личной папке в папку «Вкладки» под именем unit1, project1 (Проект / создать проект / приложение) (Проект / сохранить как / «Вкладки» / project1)

2. Установи свойства для формы:

Объект

3. На форме, с помощью панели Common Controls, размести элемент управления TPageConrtol, щелкни правой кнопкой мыши и в контекстном меню выбери Добавить страницу. Проделай эти действия 3 раза. В окне Инспектор объектов измени свойства вкладок. Каждое изменение свойств, заканчивай нажатием на клавишу Enter.

Объект

4. На вкладке Логические, с помощью панели Standart, размести объекты: Tlabel1, Tlabel2, Tlabel3, Tlabel4, Tlabel5, Tlabel6, Tbutton1 следующим образом и изменить их свойства согласно таблице:

Объект

Имя объекта (Name)	Свойства	Значение свойства
Надпись 1	Tlabel1	Caption	A
Надпись 2	Tlabel2	Caption	B
Надпись 3	Tlabel3	Caption	5 > 3
Надпись 4	Tlabel4	Caption	2 * 2 = 5
Надпись 5	Tlabel5	Caption	A and B
Надпись 6	Tlabel 6	Caption	Подпись отсутствует
Кнопка 1	Tbutton1	Caption	Вычислить

4. Выполни двойной щелчок на кнопке и в программный код добавь недостающие строки (они выделены жирным шрифтом):

var

Form1: TForm1;

a :boolean;

b :boolean;

c :boolean;

implementation

…………………………………………….

procedure TForm1.Button1Click(Sender: TObject);

begin

a:= 5 > 3;

b:=2*2=5;

c:= a and b;

label6.Caption:=booltostr(c,true);

end;

4. Сохрани проект( Проект — сохранить).

4. На вкладке Строковые, с помощью панели инструментов Standart, размести следующие элементы: Tlabel7, Tlabel8, Tlabel9, Tlabel10, Tedit1, Tedit2, Button2 и измени их свойства, согласно таблице, как показано на рисунке:

Объект

Имя объекта (Name)	Свойства	Значение свойства
Надпись 7	Tlabel7	Caption	Фраза 1
Надпись 8	Tlabel8	Caption	Фраза 2
Надпись 9	Tlabel9	Caption	Склеивание
Надпись 10	Tlabel10	Caption	Надпись отсутствует
Текстовое поле 1	Tedit1	Text	Надпись отсутствует
Текстовое поле 2	Tedit2	Text	Надпись отсутствует
Кнопка 2	Tbutton2	Caption	Склеить

8. Выполни двойной щелчок мышью на кнопке Склеить и допиши в программный код недостающие строки (они выделены жирным шрифтом):

var

Form1: TForm1;

a :boolean;

b :boolean;

c :boolean;

d,e,f: string;

implementation

……………………

procedure TForm1.Button2Click(Sender: TObject);

begin

d:=edit1.text;

e:=edit2.text;

label10.Caption:=d+e;

end;

8. Запусти проект на выполнение. Убедись в его работоспособности. В первое текстовое окно введи слово КОМ, во второе текстовое окно введи слово ПОТ, щелкни по кнопке Склеить. Просмотри результат, сохрани проект, продемонстрируй работу учителю.

10*. На вкладке Числовые размести следующие элементы: Tlabel11, Tlabel12, Tlabel13, Tlabel14, Tlabel15, Tlabel16 , Tlabel17 , Tlabel18, Tedit3, Tedit4, Button3, измени их свойства, согласно таблице , как показано на рисунке:

Объект

Имя объекта (Name)	Свойства	Значение свойства
Надпись 11	Tlabel11	Caption	A
Надпись 12	Tlabel12	Caption	Целая часть от деления А на B
Надпись 13	Tlabel13	Caption	Дробная часть от деления A на B
Надпись 14	Tlabel14	Caption	Округление до целого
Надпись 15	Tlabel15	Caption	Надпись отсутствует
Надпись 16	Tlabel16	Caption	Надпись отсутствует
Надпись 17	Tlabel17	Caption	Надпись отсутствует
Надпись 18	Tlabel18	Caption	B
Текстовое поле 3	Tedit3	Text	Надпись отсутствует
Текстовое поле 4	Tedit4	Text	Надпись отсутствует
Кнопка 3	Tbutton3	Caption	Выполнить

11. Выполни двойной щелчок на кнопке Выполнить и добавь в программный код следующие строки( они выделены жирным шрифтом)

var

Form1: TForm1;

a :boolean;

b :boolean;

c :boolean;

d,e: string;

f,g:integer;

implementation

…………………….

procedure TForm1.Button3Click(Sender: TObject);

begin

f:=strtoint(edit3.text);

g:=strtoint(edit4.text);

label15.caption:=floattostr(int(f/g));

label16.caption:=floattostr(frac(f/g));

label17.caption:=floattostr(round(f/g));

end;

11. Запусти проект на выполнение. Протестируй его. Сохрани.

12. Продемонстрируйте работу учителю.