практика

Введение

Научиться программированию можно только на практике. Книги, справочники, чужой опыт могут помочь, но не могут заменить самостоятельной работы. Только пробуя, ошибаясь, обнаруживая и исправляя собственные ошибки, можно понять, что такое программирование.

Современные системы программирования являются, во-первых, объектноориентированными, во-вторых, – визуальными. Первое означает, что программа (или приложение) собирается из заготовленных заранее объектов как из элементов конструктора. Второе означает, что программист в процессе разработки видит, как будет выглядеть его приложение, и непосредственно манипулирует объектами для достижения нужного результата.

Система программирования Delphi является одним из представителей систем такого рода. Научившись работать с ней, можно без большого труда перей-

ти на любую другую (Visual Basic, Visual C Builder и т.п.).

Для выполнения лабораторных работ потребуется установить на компьютере систему программирования Delphi версии 6.0 или выше. Весь необходимый теоретический материал изложен в [1]. Дополнительные сведения можно найти в [2] – [4].

К пособию прилагается диск с образцами выполненных проектов.

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

Знакомство с системой программирования

Задача 1: смоделировать работу простейшего светофора, управляемого с помощью кнопок «Вперед» и «Стоп».

Рис. 1

Впроекте использованы:

–главная форма приложения – объект класса TForm;

–кнопки – объекты класса TButton (вкладка Standard);

5

– огни светофора – объекты класса TShape (вкладка Additional).

Объекты должны быть настроены с помощью Object Inspector таким образом:

Размеры и положение объектов настройте согласно рис. 1.

При наступлении события onClick (нажатие на кнопку) для объекта Button1 должен выключиться красный свет и включиться зеленый. Для этого следует:

−выделить объект Button1;

−открыть в Object Inspector вкладку Events (события);

−выбрать событие onClick;

−дважды щелкнуть мышью по пустой области (откроется заготовка, содержащая заголовок, начало и конец процедуры);

−ввести в соответствующую процедуру следующую программу – обработ-

чик события:

Shape2.Brush.Style := bsSolid; {включить зеленый} Shape1.Brush.Style := bsDiagCross;{выключить красный}

Запустите программу с помощью кнопки RUN на панели инструментов или клавиши F9. Если все сделано правильно, нажатие кнопки «Вперед» должно привести к смене сигнала.

Аналогично запрограммируйте обработку нажатия кнопки «Стоп». Сохраните проект на диске в отдельной папке с помощью команды

File → Save All. Это обеспечит сохранение в одной папке ВСЕХ файлов проекта (их должно быть шесть или более). Не меняйте на первых порах имена файлов, которые дает система Delphi, и система сама «проследит» за их взаимодействием.

При сохранении проектов всегда пользуйтесь только командой Save All, создавая для каждого проекта отдельную папку.

6

Задача 2: смоделировать работу лампочки, управляемой с помощью кнопок «Вкл» и «Выкл», пользуясь свойством Shape1.Brush.Color (цвет объектов).

Задача 3: создать фигуру и четыре кнопки. Нажатие на каждую из них должно приводить к смене формы фигуры. Надписи на кнопках должны соответствовать выполняемым по ним действиям.

Задания для самостоятельного выполнения

1.Смоделируйте движение фигуры на 3 пикселя вправо при нажатии кнопки.

2.Смоделируйте постепенное «надувание шарика», сохраняя нижнюю точку неподвижной.

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

Проект «Равномерное прямолинейное движение»

Задача. Равномерное прямолинейное движение тела описывается формулой s=v·t, где s – расстояние, v – скорость, t – время. Рассчитать неизвестный параметр движения по двум заданным.

Впроекте использованы:

–главная форма приложения – объект класса TForm;

–три кнопки для расчета разных параметров – объекты класса TButton (вкладка Standard);

–три окна ввода для ввода значений заданных параметров и отображения вычисленных – объекты класса TEdit (вкладка Standard);

–объекты класса TLabel для пояснений (вкладка Standard).

7

Label1.Caption:=FloatToStr(r); {выводим результат, преоб-

разуя его из вещественного вида в строковый} Edit1.Left:=50; Edit1.Top:=50; { задаем } Edit2.Left:=50; Edit2.Top:=100; { положение } Edit3.Left:=50; Edit3.Top:=150; { резисторов } Shape1.Left:= …; Shape1.Top:=…; Shape2.Left:= …; Shape2.Top:=…;

…

{задаем положение соединительных «проводов»}

Указание: для определения координат объектов разместите их на форме вручную нужным образом и запишите координаты из инспектора объектов или всплывающей подсказки.

Если все сделано правильно, то после нажатия кнопки должна появиться примерно такая картина:

Рис. 2

Задание для самостоятельного выполнения

Запрограммируйте остальные кнопки (последовательное и смешанное соединение).

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

Проект «Блокнот»

Задача: создать простейший текстовый редактор, позволяющий вводить и редактировать текст, управлять шрифтом и цветом окна, а также открывать и сохранять файлы (аналог стандартного приложения Блокнот).

10