Бутаков С.В. Методические указания к практическим работам по курсу Высокоуровневые методы программирования

Подождите немного. Документ загружается.

{

получить время из

Form2}

StringGrid1.cells[2,StringGrid1.RowCount-1]:=

Form2.TMemo1.Text;

{

получить текст события из

Form2}

StringGrid1.FixedRows:=1;

end

;

end

;

17. Сохраните, запустите проект и проверьте его работу. Ежедневник

должен заполняться записями.

18. Организуйте удаление записей. Организация удаления записей будет

организована в соответствии со схемой, представленной на Рис. 17.

Строка 1

Строка 2

Строка 3

Строка 4

Строка 5

Строка 6

Строка 7

Строка 8

АЛГОРИТМ

Переместить строки

6-8 на одну вверх.

Удалить пустую

строку на месте 8-й

строки

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

Рис.

. Схема удаления строк.

19. Зайдите в процедуру, вызываемую по нажатию пункта События \

Удалить (TForm1.N7Click) и скорректируйте следующим образом:

procedure

TForm1.N7Click(Sender: TObject);

var

i: integer;

begin

for

i:=StringGrid1.Row to StringGrid1.RowCount-1

StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];

StringGrid1.RowCount>1

then

StringGrid1.RowCount:=StringGrid1.RowCount-1;

end

;

20. Сохраните, запустите проект и проверьте его работу.

21. Следующий этап создания программы – коррекция событий в еже-

дневнике. Для этого перед вызовом формы Form2 необходимо при-

своить начальные значения ее полям из редактируемой строчки. Далее

– аналогично добавлению. Зайдите в процедуру, вызы ваемую по нажа-

тию пункта События \ Корректировать (TForm1.N8Click) и скоррек-

тируйте следующим образом:

procedure

TForm1.N8Click(Sender: TObject);

begin

StringGrid1.Row<>0

then

{

если в таблице более 1 строки

}

begin

Form2.TMemo1.Text:=

StringGrid1.cells[2,StringGrid1.Row];

Form2.MonthCalendar1.Date:=

StrToDate(StringGrid1.cells[0,StringGrid1.Row]);

Form2.DateTimePicker1.Time:=

StrToTime(StringGrid1.cells[1,StringGrid1.Row]);

Form2.ShowModal=mrOK

then

{если Form2 закрыта кнопкой OK}

begin

StringGrid1.cells[0,StringGrid1.Row]:=

DateToStr(Form2.MonthCalendar1.Date);

StringGrid1.cells[1,StringGrid1.Row]:=

TimeToStr(Form2.DateTimePicker1.Time);

StringGrid1.cells[2,StringGrid1.Row]:=

Form2.TMemo1.Text;

end

;

end

;

end

;

22. Сохраните, запустите проект и проверьте его работу.

23. Последний этап работы – сохранять и считывать файлы.

24. Сохранять результаты работы будем в типизированный файл следую-

щей структуры:

DateS -

string

[8]

дата;

TimeS -

string

[5]

время;

EvenS -

string

[200]

событие;

1 – е событие

DateS -

string

[8]

дата;

TimeS -

string

[5]

время;

EvenS -

string

[200]

событие;

2 – е событие и

т.д.

25. В начало модуля Unit1 в раздел Type после описания класса формы

TForm1 добавьте описания типов записи и файла, как это показано на

Рис. 18.

26. Зайдите закладку Диалоги (Dialogs) на панели компонент. Добавьте на

форму Form1 два диалога: TSaveDialog и TLoadDialog.

27. Откройте процедуру, выполняемую по нажатию пункта Файл \ Со-

хранить - TForm1.N3Click. Измените ее в соответствии с Рис. 19.

Рис.

. Объявление типов записи и файла.

Рис.

. Текст процедуры записи в файл.

28. Сохраните, запустите проект и проверьте его работу. Добавьте в еже-

дневник несколько событий и сохраните результат. Откройте создан-

ный Вами файл какой – либо программой просмотра (например F3 в

Far). Попробуйте найти фрагменты сохраненного Вами события.

29. Откройте на редактирование процедуру, выполняемую по нажатию

пункта Файл \ Загрузить - TForm1.N4Click. Измените ее в соответст-

вии с Рис. 20.

Рис.

. Процедура чтения событий из файла

30. Сохраните, запустите проект и проверьте его работу.

31. Измените свойства компонент TSaveDialog и TLoadDialog как показа-

но на .

32. Для компоненты StringGrid1 формы Form1 выберите событие

OnDblClick и из выпадающего списка выберите N8Click. Таким обра-

зом, по двойному нажатию на элемент списка будет происходить то же

самое, что и при нажатии пункта меню Событ ие \ Корректировать.

33. Сохраните, запустите проект и проверьте его работу.

После выполнения задания к выполнению Вам необ-

ходимо знать:

1. Порядок создания основных элементов приложения – меню и диалого-

вых форм.

2. Методы написания обработчиков событий различных типов.

3. Порядок передачи данных между формами.

4. Работу с типизированными файлами.

5. Технологию работы со стандартными диалогами и компонентами

Win32

6. Порядок получения справочной информации по свойствам и методам.

Самостоят ельна я работа.

1. Создайте новый проект (File \ New … \ Application).

2. Сохраните проект под именем lab2b в Вашу папку.

3. Разработайте программу, в соответствии с Вашим заданием (см.

табл. 2). Обязательная особенность заданий – возможность сохра-

нения и загрузки результатов работы.

4. Сохраните, запустите проект и проверьте его работу.

Продемонстрируйте результат преподавателю.

5. Составьте отчет по работе № 2 и представьте его к защите.

Таблица

Варианты заданий к лабораторной работе № 2.

№ Наименование

варианта

Задание

Ежедневник Ежедневник должен позволять вести список событий

(добавлять, удалять, корректировать).

1. Библиотека Вести список книг в библиотеке (номер, наименова-

ние, автор, число экземпляров, число выданных эк-

земпляров), при выдаче и приеме книг корректиро-

вать соответствующие значения.

2. Видеотека Вести список видеокассет в видеотеке (номер, наиме-

нование, режиссер, жанр, главные актеры, выдана ли

на руки и если да, то кому), при выдаче и приеме

кассет корректировать соответствующие значения.

3. Учет VIP клиентов

магазина

Вести список VIP клиентов магазина (номер карты,

Фамилия, Размер скидки, Общая сумма покупок), при

вводе новой покупки выбирать клиентов из списка и

добавлять сумму.

№ Наименование

варианта

Задание

4. Учет разрешений

на сдачу экзаме-

нов в деканате

Список лиц, которым выданы разрешения (номер

разрешения, дата, дата сдачи, ФИО, группа, предмет).

В списке при возврате разрешения должна фиксиро-

ваться оценка и дата сдачи. Программа должна счи-

тать средний балл по списку.

5. Учет доходов и

расходов физиче-

ского лица

Список доходов / расходов (вид – доход / расход,

наименование, сумма, дата). Программа должна счи-

тать общую сумму доходов и расходов, а также их

разницу.

6. Агентство недви-

жимости

Список объектов недвижимости, выставленных на

покупку или продажу (Наименование, вид – покупка /

продажа, дата, сумма, сделка – состоялась / не со-

стоялась, когда и сумма сделки). Программа должна

считать сумму по объектам, выставленным к покуп-

ке / продаже, а также вводить сделки – дату и су мму.

7. Химчистка Список вещей, сданных в работу (номер, наименова-

ние, ФИО клиента, дата, дата исполнения, сумма,

оценка, данная клиентом). Программа должна выда-

вать списки по вещам сданным и полученным клиен-

том, корректировать список при выдаче заказа.

8. Картотека граждан Список физических лиц (ФИО, адрес, номер паспорта

(если есть), кем и когда выдан). Программа должна

выдавать списки по гражданам с паспортом и без,

корректировать список при выдаче паспорта.

9. Картотека

автомагазина

Список автомобилей (номер, марка, цена, продан или

нет, кому и когда, сумма сделки). Программа должна

выдавать списки проданных и непроданных автомо-

билей, с указанием сумм.

10. Картотека угнан-

ных автомобилей

Список автомобилей (номер, марка, дата угона, дата

обнаружения, место угона, место обнаружения). Про-

грамма должна выдавать списки угнанных и найден-

ных автомобилей с вычислением отношения угнано /

найдено.

11. Учет времени пре-

бывания

Список работников (ФИО, № пропуска, дата входа на

территорию, время входа, дата и время выхода с тер-

ритории, время пребывания). Программа должна при

записи выхода позволять выбор работников из списка

и вычислять время пребывания на территории, выда-

вать список сотрудников, находящихся на террито-

рии.

12. Учет рабочего

времени

Список работников (ФИО, дата и время начала рабо-

ты, дата и в

емя окончания

аботы, количество от

а-

№ Наименование

варианта

Задание

ботанного времени). При записи окончания работы

выбор должен осуществляться из списка. Программа

должна вычислять часы, отработанные сотрудником,

выдавать список сотрудников, работавших в задан-

ный оператором день.

13. Путевые листы Программа должна вести список выданных путевых

листов (номер листа, ФИО водителя, номер машины,

дата, маршрут – откуда и куда, протяженность в км,

груз). Программа должна выдавать список листов за

дату, список листов с протяженностью более задан-

ной, определя ть общую протяженность пробега всех

автомобилей за день.

14. Отдел кадров Список работников (ФИО, номер контракта, даты

начала и окончания контракта, оклад, стаж, уволен –

да / нет). При увольнении выбор должен осуществ-

ляться из списка. Программа должна определя ть ра-

ботников с истекшей датой контракта, вычислять

ежемесячную потребность в заработной плате, выда-

вать общий список сотрудников.

15. Регистратура Программа должна вести список направлений к врачу

(ФИО больного, дата, время, ФИО врача, посетил –

да / нет). Программа должна выдавать списки боль-

ных, которые не посетили врачей в определенную

даты, определять общее число больных в определен-

ную дату.

•••••••••••• •••••• • 3. •••••••••••••••• •••••••-

••• ••••••••• •••••••••• •••••••••••••••••••.

Технические характеристики занятия

Занятие предусмотрено объемом 4 часа (в компьютерном классе).

Цели занятия

Приобрести навыки работы с символьными последовательностями.

Задачи занятия

• Закрепить знания по структурированию и программированию вычис-

лительных алгоритмов.

• Отработать технологию отладки алгоритмов в среде Delphi.

• Повторить организацию взаимодействия форм в прикладной програм-

ме.

Указания по выполнению работы

Среда программирования Borland Delphi 5 предоставляет широкие

возможности построения сложных алгоритмов и обеспечивает программи-

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

В данной работе необходимо будет разработать алгоритмы обрабо тки тек-

стовых данных, а также запрограммировать и отладить их.

В качестве начального примера рассмотрим подсчет количества опре-

деленного символа в тексте. Этапы работы:

− разработать алгоритм (в методических указаниях данный этап

пропущен в силу его несложности);

− разработать интерфейс программы (набор форм);

− отладить алгоритм обработки символьной последовательно-

сти.

Следует коротко отметить, что элемент ввода текста – TMemo строки

содержит свойство Lines типа TStrings. Доступ к содержимому компонен-

та TMemo осуществляется через это свойство. Доступ к отдельным стро-

кам текста осуществляется через массив Lines.Strings[], а доступ к

содержимому TMemo как к тексту - через свойство Lines.Text.

Задание к выполнению

1. Запустите Delphi 5: Пуск

Программы

\Borland Del-

phi 5\Delphi 5.

2. Создайте новый проект. Сохраните его в папку, указанную преподава-

телем под именем Lab3.

3. Создайте две формы по образцу, представленному на Рис. 21.

4. Форма больших размеров будет вызываться при запуске программы, а

вторая форма – при нажатии кнопки «Подсчет!!!» после выполнения

алгоритма подсчета символов.

5. Перейдите к редактированию процедуры TForm1.Button1Click. При

нажатии кнопки необходимо подсчитать сколько раз указанный сим-

вол входит во введенный текст и далее передать это число в форму

отображения результатов.

Рис.

. Формы для лабораторной работы №

6. Подсчет количества символов будем производить по следующему ал-

горитму: найти первое вхождение искомого символа в строке, увели-

чить счетчик, сократить строку до этого первого вхождения. Повто-

рять операцию до тех пор, пока не кончится строка. Текст процедуры

подсчета:

procedure

TForm1.Button1Click(Sender: TObject);

var

st :

string

;

i,j:

integer

;

begin

j:=0;

st:=self.memo1.Lines.Text;

(length(self.Edit1.Text)=0 )

then

{проверяем не пустая ли строка с искомым символом}

begin

Application.MessageBox('Введите искомый

символ','Предупреждение'

,MB_OK);

exit

;

end

;

i:=pos(self.Edit1.Text[1],st);

{определяем позицию искомого символа}

while

(i>0)

begin

inc

(j);

{увеличиваем счетчик}

st:=copy(st,i+1,length(st)-i);

{вырезаем строку}

i:=pos(self.Edit1.Text[1],st);

end

;

form2.Label1.Caption:='

Количество искомых символов

- '

+inttostr(j);

form2.showmodal;

{

Запустить форму отображения результатов

}

end

;

7. Сохраните, запустите проект и проверьте его работу.

После выполнения задания к выполнению Вам необ-

ходимо знать:

1. Порядок создания основных элементов диалоговых окон.

2. Методы доступа к данным формы.

3. Порядок поиска необходимой информации в справочной системе.

4. Порядок передачи данных между формами.

Самостоят ельна я работа.

1. Создайте новый проект (File \ New … \ Application).

2. Сохраните проект под именем lab3b в Вашу папку.

3. Разработайте программу, в соответствии с Вашим заданием (см.

табл. 3). Обратите внимание, что если в задании говорится о

словах, то имеются в виду последовательности любых символов,

разделенные пробелами (например, текст «арлвр привет

л122лмри» содержит три слова).

доле символа , то имеется в виду отношение количества вхожде-

ний символа в слово к общему числу символов в слове (например,

доля символа «а» в словах «мама» и «мармелад» составляет 0,5 и

0,25 соответственно).

4. Сохраните, запустите проект и проверьте его работу.

Продемонстрируйте результат преподавателю.

5. Составьте отчет по работе № 3 и представьте его к защите.

Таблица

Варианты заданий к лабораторной работе № 2.

№ Задание

при

мер

Найти количество вхождений определенного символа в текст