ГЛАВНАЯ
БАЗЫ ДАННЫХ
ИНФОРМАЦИОННЫЕ
СИСТЕМЫ
  УЧЕБНЫЕ МАТЕРИАЛЫ   
ИНФОРМАЦИОННЫЕ СЕТИ
ЭЛЕКТРОНИКА
КОМПЬЮТЕР
ЗАРАБОТАЙ В СЕТИ
 
 

Яндекс цитирования

Besucherzahler dating websites
счетчик посещений





Rambler's Top100
 

Основы Delphi

ЛАБОРАТОРНЫЕ РАБОТЫ ПО ОСНОВАМ РАБОТЫ В DELPHI

 

Лабораторная работа 1

Создание простейшего Windows-приложения

1. Создать папку для сохранения разработанных приложений

2. Запустить Delphi

3. Изменить заголовок окна формы с Form1 на Привет: в окне инспектора объектов (Object Inspector) установить для свойства Caption значение Привет

4. Изменить цвет формы со стандартного на другой:

в окне инспектора объектов установить для свойства Color значение clAqua .

5. Выполнить приложение:

5.1. Запустить приложение - меню Run, Run или F9 или кнопка на панели инструментов.

5.2. Изменить размеры окна.

5.3. Поэкспериментировать со стандартными кнопками минимизации и максимизации окна.

5.3. Закончить работу приложения, закрыв его окно.

6. Сохранить форму и проект на диске: Меню File, Save All, установить свою папку, создать новую папку (с именем Приложение1 ), установить новую папку, открыть ее, ввести имя проекта.

  

Лабораторная работа 2

Создание Windows-приложения с метками и кнопками

1. Запустить Delphi

2. Поместить объект Label в окно формы Form1:

2.1. Выбрать в палитре компонентов (на странице стандартных компонентов) компонент Label .

2.2. Щелкнуть на нем и затем щелкнуть в форме. Объект будет добавлен в форму и по умолчанию получит имя Label1.

2.3. Переместить объект Label1 на желаемое место в форме.

3. Изменить свойства объекта Label1:

3.1. Убедиться, что объект Label1 выделен.

3.2. В окне инспектора объектов (Object Inspector) установить следующие значения для свойств объекта:

Объект          Свойство            Значение 

Label1             Caption    Моя первая программа!

Font                12 p.,               красный

Alignment                               taCenter

Color                               желтый (Yellow)

AutoSize                                 False

4. Выполнить приложение: меню Run, Run или F9.

5. Сохранить форму и проект на диске: Меню File, Save All, установить свою папку, ввести имя Приложение2 .

6. Поместить объект Button (командная кнопка) в окно Form1. Он по умолчанию получит имя Button1. Изменить его размеры.

7. Установить свойство Caption объекта Button1 в значение "Увеличение".

8. Написать код для события Click на объекте Button1:

8.1. Два раза щелкнуть по объекту Button1 в форме, что приведет к открытию окна кода (переключение между окном кода и окном форм - F12).

8.2. Между словами Begin и End написать следующий код:

Label1.Font.Size := Label1.Font.Size +2;

9. Выполнить программу. Обратить внимание на то, что происходит при нажатии кнопки с надписью "Увеличение".

10. Сохранить форму и проект на диске: Меню File, Save.

11. Создать объект "командная кнопка" для уменьшения размера шрифта в тексте.

12. Создать объект "командная кнопка" для того, чтобы двигать текст. Код :

Label1.Left := Label1.Left + 10;

Label1.Top := Label1.Top + 10;

13. Создать объект "командная кнопка" для того, чтобы сделать текст невидимым. Код :

Label1.visible := false;

14. Создать объект "командная кнопка" для выхода из работы программы. Код:

 Close ;

15. Сохранить форму и проект.

 

Лабораторная работа 3

Создание Windows-приложения с радио-кнопками и вариацией цвета

1. Поместить компоненты Label, Panel, GroupBox, RadioButton (страница Standard) в форму.

2. Установить следующие свойства объектов , используя инспектор объектов:

Label1              Caption                Светофор

Panel1,2,3          Caption                Цвет

GroupBox1           Caption

RadioButton1        Caption                Красный

RadioButton2        Caption                Желтый

RadioButton3        Caption                Зеленый

3. Записать код для процедуры обработки события Click (щелчок мыши) на объекте RadioButton1:

 

procedure TForm1.RadioButton1Click(Sender: TObject);

   begin

Panel1.Color := clRed;

Panel2.Color := clWhite;

Panel3.Color := clWhite;

   end;

 Самостоятельно записать код для процедур:  

TForm1.RadioButton2Click и TForm1.RadioButton3Click

 

4. Добавить печать информации "Стойте", "Внимание", "Идите" на панели с соответствующим сигналом белым цветом шрифта жирным начертанием 12п.

 

Лабораторная работа 4

Создание Windows-приложения с цифровыми часами

2. Установить следующие свойства объектов, используя инспектор объектов:

Объект             Свойство                Значение

Form1               Name                    Часы

Label1             Caption                 00:00:00

Label1             Color                   clYellow

Label1              Font.Size               24

Label1              Font.Color              Красный

3. Записать код обновления времени для процедуры

 

TClock.Timer1Timer:

procedure TClock.Timer1Timer(Sender: TObject);

   begin

Label1.Caption:=TimeToStr(Time);

   end;

 

4. Выполнить приложение.

5. Сохранить форму и проект на диске в новой папке.

6. Развитие задачи - добавление кнопок регулирования скорости обновления времени.

6.1. Добавить в форму компоненты GroupBox и RadioButton : (компонент GroupBox является контейнером для других компонентов).

6.2. Установить следующие свойства объектов :

GroupBox1            Caption            Скорость

RadioButton1         Caption            Медленно

RadioButton2         Caption            Умеренно

RadioButton3         Caption            Быстро

6.3. Записать код для процедуры TForm1.RadioButton3Click:  

Timer1.Interval := 1000;

 

Этот код реализует изменение свойства Interval объекта Timer1.

Самостоятельно записать код для процедур: TForm1.RadioButton1Click (3000) и TForm1.RadioButton2Click (2000)

6.4. Выполнить приложение и сохранить результаты.  

Лабораторная работа 5

Создание Windows-приложения для вычисления различных математических функций

Ввести значение x и вычислить значения следующих математических функций:

Abs(x) log10(x)

Ln(x) Sqr(x)

Power(x,k) Sqrt(x)

sin(x) Exp(x)

cos(x)

2. Записать код для обработки события OnClick на объекте Button1:  

procedure TForm1.Button1Click(Sender: TObject);

  Var x, y1, y2 : real;

  begin

x := StrToFloat(Edit1.Text);

y1 := cos(x);

y2 := ln(x);

Edit2.text := FloatToStr(y1);

  end;  

4. Добавить возможность вычисления остальных функций. Учесть, что для использования функций Log10 и Power необходимо в строке Uses добавить в перечень модуль Math .  

Лабораторная работа 6

Создание Windows-приложения для вычисления случайного числа и сравнения его с числом, введенным пользователем.

По результатам сравнения выдается сообщения: "Вы угадали", "Число меньше искомого", "Число больше искомого", "Число вне диапазона". Код:  

var

Form1: TForm1; m : integer; {; {Случайное число}

...

Var n : integer; s : string;

   begin

n := StrToInt(Edit1