Практические работы в delphi 7. Вычисление значений конечной суммы ряда. Создание анимированного изображения
Листинг подпрограммы
procedure TForm1. RadioButton1Click (Sender: TObject);
var i: Integer;
ComboBox1.Clear;
ComboBox1.Tag:= (Sender as TRadioButton).Tag;
for i:= 0 to 5 do
ComboBox1.Items. Add (ListBox1.Items );
ComboBox1.ItemIndex:= 0;
Image1.Picture. LoadFromFile (ListBox2.Items );
procedure TForm1.FormCreate(Sender: TObject);
RadioButton1Click(RadioButton1);
procedure TForm1.ComboBox1Change (Sender: TObject);
Image1.Picture. LoadFromFile (ListBox2.Items );
Практическая работа № 17
«Вычисление процентов»
Цель работы - с оздать программу, выполняющую следующие действия:
После запуска программы в окне изображается три текстовых поля.
При нажатии кнопки «Очистить» очищаются значения полей. Далее вводятся новые значения в поля. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: командная кнопка Button , надпись Label , текстовое поле Edit .
Таблица 19.
Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
Установка имени формы «Вычисление процентов» |
|||
Введите название «Считаем проценты!» |
|||
Очистить значение свойства |
|||
Очистить значение свойства |
|||
Очистить значение свойства |
|||
Описать локальные Number, Procent, Prn |
Продолжение таблицы 19. |
|||
Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
Введите название «Очистить» |
|||
Фрагмент программы
Number, Procent, Prn: Real;
procedure TForm1.Button1Click(Sender: TObject);
Number:=StrToFloat(Edit1.Text);
Procent:= StrToFloat(Edit2.Text);
PrN:=0.01*Procent*Number;
Edit3.Text:=FloatToStr(PrN);
procedure TForm1.Button2Click(Sender: TObject);
Практическая работа № 18
«Головоломка №1»
MsoTableGrid" width="657 " style="width:492.85pt;border-collapse:collapse;border:none">
Выделенный объект
Вкладка окна
Object Inspector
Имя свойства/
имя события
Действие
Установка имени формы «Головоломка»
Задайте значение bsSingle
CheckListBox1
(Вкладка Additional)
Задаем состав списка. Щелкнуть на кнопке построителя. Откроется окно String List editor (Редактор списка строк). Введите в список заданные числа через Enter. Нажмите кнопку OK.
Подобрать значение так, что все числа поместились в список (без полос прокруток).
Описать очистку списка. Проверить, установлен флажок или нет. После обновления списка необходимо подсчитать сумму выбранных чисел. Элементы списка выглядят как числа, но являются текстовыми строками (воспользоваться функцией StrToInt).
Продолжение таблицы 20. |
|||
Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
ListBox1 (Вкладка Standard) | Подобрать значение так, что все числа поместились в список (без полос прокруток). Первоначально список пуст. Заполняться он будет при работе программы. |
||
|
(Вкладка Standard) | Введите текст: «Сумма: 0» |
||
Задайте значение False |
|||
Задайте значение taCenter |
4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1.CheckListBox1ClickCheck (Sender: TObject);
var i, s: Integer;
for i: = 0 to CheckListBox1.Items. Count-1 do
if CheckListBox1.Checked[i] then
ListBox1.Items. Add (CheckListBox1.Items[i]);
for i:= 0 to ListBox1.Items. Count -1 do
s:= s + StrToInt(ListBox1.Items[i]);
Label1.Caption:= ‘Сумма: ’ + IntToStr(s);
if s = 50 then
Label1.Caption:= ‘Сумма:’ + IntToStr (s);
CheckListBox1.Enabled:= False;
ListBox1.Enabled:= False;
Практическая работа № 19
«Головоломка № 2»
Цель работы - создать компьютерную версию головоломки: из изображенных пяти сброшенных флажков установить все. Но при выборе одного флажка меняется состояние двух следующих.
 |
Создать программу, выполняющую следующие действия:
После запуска программы в окне изображаются пять сброшенных флажков. Щелкать разрешено только на сброшенных флажках. Щелчок на установленном флажке не действует. При установке какого-то флажка меняется состояние двух следующих флажков. При этом сброшенные флажки устанавливаются, а установленные - сбрасываются. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: список флажков CheckBox , надпись Label .
3. Выполнить следующие действия:
Таблица 21.
Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
Установка имени формы «Все пять» |
|||
Создать глобальную логическую переменную s. В то время, когда идет обработка события, переменная имеет значение True (да). |
|||
CheckBox1 (Вкладка Standard) | Задать значение «1». |
||
Необходимо работать с флажками, как с массивом. Форма является контейнером для флажков. У объектов-контейнеров имеется свойство Controls (Элементы управления) – массив элементов управления, находящихся в данном контейнере: Controls [i] as TCheckBox. |
|||
Для создания еще пяти флажков можно использовать метод копирования через буфер обмена. |
|||
CheckBox2 | Задать значение «2». |
||
CheckBox3 | Задать значение «3». |
||
CheckBox4 | Задать значение «4». |
||
CheckBox5 | Задать значение «5». |
Продолжение таблицы 21. |
|||
Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
|
(Вкладка Standard) | Введите текст: «Сумма: 0» |
||
Задайте значение False |
|||
Задайте значение taCenter |
4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1.FormCreate (Sender: TObject);
procedure TForm1.CheckBox1Click (Sender: TObject);
var Index, i, num: Integer;
if s then Exit; {Если программа снова вызовет процедуру обработки, будет выполнен оператор Exit – немедленный выход из процедуры}
for Index: = 0 to 4 do {Оператор break прерывает выполнение цикла}
if Sender = Controls[i] then break; {Определяется, какой флажок был переключен}
{Когда выполнение цикла завершается, значение переменной Index соответствует переключенному флажку}
{Если значение свойства Checked (Установлен) равно False (Нет), флажок сброшен, а если True (Да) – установлен. Номер флажка в массиве определяется переменной Index}
if not (Controls as TCheckBox).Checked
then (Controls as TCheckBox).Checked:= True {Условие выполнено, если флажок сейчас сброшен, т. е. до щелчка он был установлен}
else {Программирование изменения состояния «дополнительных флажков». Текущий флажок уже переключен}
num:= Index + 1; {Переключение двух следующих флажков}
if Index = 4 then num:= 0; {Изменение состояния нулевого флажка}
{Состояние флажка надо поменять на противоположное}
(Controls as TCheckBox).Checked:= not
{Выполнение проверки на выход за пределы массива}
num:= num + 1; if Index = 3 then num:= 0;
(Controls as TCheckBox).Checked:= not (Controls as CheckBox).Checked;
e:= True; {Головоломка решена, если установлены все пять флажков}
for i:= 0 to 4 do
e:= e and (Controls[i] as TCheckBox).Checked;
{После цикла значение останется равным True, если все флажки установлены}
if e then {Головоломка решена}
Цели занятия.
Образовательные: изучить современную технологию создания приложения путем применения компонентов среды Delphi; изучить технологию ADO, обеспечивающую соединение с базой данных Microsoft Access; научить проектировать приложение и обеспечить доступ к БД MS Access “Детская поликлиника”.
Развивающие: развивать умение у обучающихся анализировать, делать самостоятельный вывод, а также развивать самоконтроль и взаимоконтроль.
Воспитательные: способствовать формированию таких качеств личности, как ответственное отношение к порученному делу; внимательность, способность к самовыражению.
ПО: Microsoft Access, Borland Delphi7, готовая рабочая база данных “Детская поликлиника”.
Задание
Задание: Создать проект в Borland Delphi 7 и обеспечить доступ к ранее созданной БД Microsoft Access “Детская поликлиника”, используя компоненты среды Delphi, получить информацию из базы данных и представить ее в форме таблицы.
В Microsoft Access создана база данных “Детская поликлиника” и наполнена информацией (приложение).
Информационная система “Детская поликлиника” хранит информацию о врачах, пациентах, заболеваниях, детских учреждениях и предоставляет следующие данные:
- информацию о враче (фамилия, специализация, стаж, оклад, совместительство);
- данные о больном (фамилия, возраст, адрес, детское учреждение, место работы родителей, хронические заболевания, прививки, последнее обращение к врачу);
- данные о детском учреждении (наименование, адрес, количество детей, наличие карантина, выявленные инфекционные заболевания, дата последнего профилактического обследования).
- список детских учреждений, в которых зафиксированы инфекционные заболевания.
Среда разработки проекта в Delphi
Delphi – это среда быстрой разработки, в которой в качестве языка программирования используется язык Delphi. Язык Delphi – строго типизированный объектно-ориентированный язык, в основе которого лежит Object Pascal. Интегрированная среда позволяет создавать, компилировать, тестировать и редактировать проект в единой среде программирования .
Работа над новым проектом,
Форма (Form) – основа разработки в нее помещают необходимые компоненты, создают интерфейс программы. Свойства формы определяют ее внешний вид: размер, положение на экране, текст заголовка, др.
Для просмотра и изменения значений свойств формы и ее компонентов используется окно Object Inspector (Инспектор Объектов). В верхней части окна Object Inspector указано имя объекта, значения свойств которого отображается в данный момент. В левой колонке вкладки Properties (Свойства) перечислены свойства объекта, а в правой – указаны их значения (рис.1). Инспектор Объектов является дизайнером формы.
Исходный текст модуля разработки содержится в Окне редактора и имеет первоначальный заголовок Unit1.pas (рис.1). Проводник кода отображает объекты модуля формы (*pas) , что позволяет быстро обращаться к объектам и создавать новые классы.
Рис. 1. Основные элементы среды разработки в Delphi
Файл модуля формы Unit1.pas (рис.1) содержит описание класса формы (размещение, поведение компонентов и функционирование обработчиков событий) и создается автоматически.
Любой проект имеет не менее шести файлов (табл.1).
Таблица 1
Основные файлы проекта
Назначение |
|
| Главный файл проекта (код проекта) – PROGECT.DPR | Основной, представляет собой программу на языке Pascal. |
| Первый модуль программы (модуль формы) UNIT.PAS | Автоматически появляется вначале работы его можно назвать любым другим именем. Содержит текст программы на языке Pascal. |
| Файл главной формы (описания формы) – UNIT.DFM | Используется для сохранения информации о внешнем виде главной формы. |
| Файл описание ресурсов – PROGECT.RES | Содержит иконку для проекта, создается автоматически. |
| Файл параметры проекта – PROGECT.OPT | Текстовый файл для сохранения установок, связанных с данным проектом. |
| Модули - *.PAS | Дополнительные Модули. Содержат текст программы на языке Pascal. |
Разработка приложения состоит из двух этапов:
1. Создание интерфейса приложения.
2. Определение функциональности приложения.
Для создания интерфейса необходимо определить внешний вид проекта, выбрать нужные компоненты по функциональным возможностям и расположить на форме.
Для обеспечения функциональности приложения необходимо задать в Инспекторе Объектов значения свойств и процедур объектов событий, написать программный код обработки событий.
Установить измененные параметры проекта необходимо с помощью команды меню Project/Построить Project . Если требуется объединить несколько форм под единое начало – выполнить команду Project/Options.
Компиляция является обязательным процессом – процессом перевода всей программы с последующим исполнением. Данный процесс может быть выполнен на любой стадии разработки проекта. Компиляция создает:
Готовый к выполнению файл (*exe),
Динамически загружаемая библиотека (*DLL).
Запускать проект можно из среды Delphi командой Run/Run (Выполнить), из среды Windows (Название приложения .exe).
Создание приложения для работ с БД Access
Работа над новым проектом, так в Delphi называется разрабатываемое приложение, начинается с создания стартовой формы.
Создание закладок в конструкторе форм.
1. В Инспекторе Объектов изменить параметры некоторых свойств: Align -> alClient, color->clMoneyGreen, caption->Детская поликлиника, font, name->Form (рис.1).
2. Создать закладки в конструкторе форм при помощи компонента PageControl на вкладке Win32 (таб.2) (Win32->PageControl).
3. В окне Дерево Объектов создать Страницу (Контекстное меню->Новая страница). В Инспекторе Объектов изменить параметры названия (Сaption->Больной) (рис.2).
Рис. 2. Создание закладок в конструкторе форм
4. Аналогичным способом создать закладки, названия которых соответствуют названию таблиц в схеме данных БД MS Access (рис.7).
5. Поместить на форму компонент ADOConnection (вкладка ADO> ADOConnection) и выполнить его настройку (табл.2; рис.3).
Таблица 2
Значения свойств компонента ADOConnection
| Свойство | Примечание |
| PageControl | Набор панелей с закладками. Каждая панель может содержать свой набор интерфейсных элементов и набирается щелчком по связанной с ней закладке. |
| Вкладка Win32 | Содержит интерфейсные элементы для 32 разрядных операционных систем Windows 2000. |
| LoginPromt | False |
| ConnectionString | Сделать щелчок на кнопке с тремя
точками (находится в поле значения свойств).
Сделать щелчок на кнопке Build. На вкладке поставщик данных выбрать Microsoft Jet 4.0 OLEDB Provider. На вкладке Подключение указать файл базы данных “Детская поликлиника”. Дополнительно указать Права доступа: ReadWtite. |
Для включения асинхронного режима необходимо установить свойство ConnectOptions компонента TADOConnection в значение coAsyncConnect. В этом случае новые запросы будут выполняться, не ожидая ответа от предыдущих запросов.
Рис.3. Настройка ADOConnection в параметрах Инспектора Объектов
6. Поместить на форму компонент ADOTable(ADODB) (Вкладка ADO->ADOTable) и выполнить его настройку (табл.3; рис.3).
Таблица 3
Значения свойств компонента ADOTable(ADODB)
| Свойство | Значение | Примечание |
| Connection | Имя компонента ADOConnection, обеспечи-вающего соединение с БД | |
| TableName | Команда, обеспечивающая получение информации из определенной таблицы БД | Раскрыть список, находящийся в поле значения свойства, и выбрать название нужной таблицы |
| Active | True | |
| Технология ADO | Это синхронное/асинхронное выполнение операций с хранилищем данных. При помощи свойства connectoptions можно задать режим соединения с хранилищем данных | |
| TADODataSet TADOCoommand | Общие компоненты для работы с технологией ADO, позволяют выполнять команды на языке провайдера данных. | |
| DataSource Object | Хранилище данных. |
7. Поместить на форму компонент DataSource (вкладка Data Access -> DataSource) и выполнить его настройку (табл. 4; рис.3)
Таблица 4
Значения свойств компонента DataSource
8. Поместить на форму компонент DBGrid (вкладка Data Controls->DBGrid) и выполнить его настройку (табл.5; рис.3)
Таблица 5
Значения свойств компонента DBGrid, Edit, Button
| Свойство | Значение | Примечание |
| DataSource | Имя компонен-та DataSource | Раскрыть список, находящийся в поле значения свойства, и выбрать имя компонента |
| Align | alClient | |
| DBGrid | Компонент предназначен для визуализации данных, их ввода и редактирования. | |
| Edit | Строка ввода. Предназначена для ввода, отображения или редактирования одной текстовой строки. | |
| Button | Командная кнопка. Обработчик события OnClick этого компонента обычно используется для реализации некоторой команды. |
9. Аналогично создать другие графы таблицы (проекта “Детская поликлиника”). На рисунке 4 представлен результат правильно выполненных действий задания.
10. В графе “Зафиксированные инфек.заболевания” выполним запрос по датам обследования.
Для этого добавить компонент ADOQuery(ADODB). Значения данного компонента соответствуют значениям свойств компонента ADOTable(ADODB). В параметрах Инспектора Объектов введем SQL – команду:
ADOQuery1.Clear:= True;
ADOQuery1.Add("SELECT DU.DU, DU_Adres.DU, DU.Inf_Zab, DU.Data_obs");
ADOQuery1.Add("FROM DU");
ADOQuery1.Add("WHERE ((DU.Data_Obs) BETWEEN (DateValue(""" + Edit1.Text + """)) AND (DateValue(""" + Edit2.Text + """)));");
ADOQuery1.Active:= True;
11. Поместить на форму компонент Edit1 и Edit2. В параметрах этих компонентов укажем дату по умолчанию: Edit1->Text->01.01.2009; Edit2->Text->31.12.2009.
12. Поместить на форму компонент Button (рис.5).
13. Создать процедуру обработки события Click, обеспечивающую выполнение SQL – команды.Процедура обработки события Click на кнопке “Обновить запрос” (Button1):
procedure TF.OtClick(Sender: TObject);
sqlfile: TextFile;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add("SELECT DU.DU, DU.Adres_DU, DU.Inf_Zab, DU.Data_obs");
ADOQuery1.SQL.Add("FROM DU");
ADOQuery1.SQL.Add("WHERE ((DU.Data_Obs) BETWEEN (DateValue(""" + Edit1.Text +""")) AND (DateValue(""" + Edit2.Text + """)));");
ADOQuery1.Active:= True;
AssignFile(sqlfile,"sql_instructions.txt");
Rewrite(sqlfile);
for i:= 0 to ADOQuery1.SQL.Count-1 do Writeln(sqlfile, ADOQuery1.SQL.Strings[i]);
CloseFile(sqlfile);
- 14. Последний этап. Создание исполняемый файл –
приложение Project1.exe при помощи процесса
компиляции (Project/Compile
). Компилятор генерирует исполняемую программу как консольное приложение. Пример работы программы, т.е. вид окна программы после выполнения представлен на рис.6.
Рис.5. Окно конструктора формы. Закладка “Зафиксированные инфекционные заболевания
Рис.6. Исполняемый файл – приложение Project1.exe
Готовый проект - приложение в Delphi представлен в приложении .
Литература
- Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. - СПб: БХВ – Петербург, 2003.
- Культин Н.Б. Программирование в Turbo Pascal 7.0 и Delphi 7. – СПб: БХВ – Петербург, 2007.
- Петров А. и др. Вычислительная техника и программирование. Высшая школа, 2008.
- Internet: www.PowerBuilder.sbn
Delphi 8 для Microsoft .NET Framework - это интегрированная среда разработки (Integrated Development Environment), выполняющаяся на платформе Microsoft .NET и поддерживающая полный цикл жизни разработки приложений. Интерфейс среды сильно отличается от интерфейсов предыдущих версий, например от Delphi 7. Ниже мы рассмотрим создание различных типов приложений с помощью этого средства разработки.
Создание простейшего приложения Windows Forms
После нажатия кнопки «Здравствуй, мир!» вы получите форму.
При создании приложений для платформы Windows может быть выбрана опция VCL (Visual Component Library) Forms Application , которая специально оставлена для совместимости с предыдущими версиями Delphi. Как и в приложении типа Windows Forms Application , на рабочем столе интегрированной среды разработки появится конструктор форм. Обратите внимание, что свойства и события различны для экземпляров объектов классов Form1 и TWinForm (в этом имени видим расхождение с правилами, принятыми в Delphi, - так обычно обозначаются типы) вроде TForm1 и System.Windows.Forms.Form , выполняющих аналогичные функции. При создании новых проектов мы рекомендуем использовать Windows Forms Application , как более соответствующий платформе. Среда разработки автоматически загружает необходимый конструктор форм и палитру инструментов в зависимости от выбора типа приложения.
Создание простейшего приложения VCL Forms Application
Сценарий создания приложения типа Windows VCL Application таков:
В результате нажатия кнопки «Здравствуй, мир!» будет получена форма.
Как видно из вышеприведенных форм приложений, несмотря на мелкие отличия, в целом функциональность одинаковая. Отметим также, что в процессе конструирования приложений наборы компонентов, доступных для использования, также различаются. Кроме того, в Delphi 8 имеются и некоторые иные, по сравнению с Delphi 7, языковые конструкции, которые представлены в таблице.
Основные различия в синтаксисе языков Delphi 7 и Delphi 8
Delphi 7 |
Delphi 8 |
| Real48 | Double |
| Absolute, Addr, @ | Не поддерживается |
| GetMem, FreeMem, ReAllocMem | New, Dispose или динамический массив |
| Тип object | Тип class |
| File of любого типа, включая записи | Streams, serialization, базы данных |
| Inline assembly или asm с ключевыми словами | Не поддерживается |
| ExitProc | Не поддерживается |
| FillChar, Move | Переопределение переменных в цикле |
| PChar | String или StringBuilder (тип String в.NET не эффективен для операций конкатенации. Используйте тип StringBuilder) |
| ADO, WebBroker, InternetExpress, WebSnap и поддержка XML, связанная с компонентами TXMLTransform | Не поддерживается |
| Компоненты с закладки System: OLEContainer, DdeClientConv, DdeClientItem, DdeServerConv, DdeServerItem | Не поддерживается |
Создание консольных приложений
Простейшее консольное приложение создается следующим образом:
Ниже приведен пример консольного приложения, которое благодаря директивам {$IFDEF} будет одинаково хорошо работать после компиляции на Delphi for .NET, Delphi 7 или Kylix 3, выдавая соответствующую строку:
program HelloWorld;
{$APPTYPE CONSOLE}
{$IFDEF CLR} // Delphi for .NET
writeln("Hello, .NET world!");
{$IFDEF WIN32} // Delphi 7
writeln("Hello, Win32 world!");
{$IFDEF LINUX} // Kylix
writeln("Hello, Linux world!");
ReadLn; //чтобы задержать выполнение
Следующий пример - консольное приложение, работающее с файлами:
1. Выберите опцию меню File=>New=>Other=>Delphi for .Net Projects Console Application .
2. В секции реализации автоматически сгенерированного каркаса приложения вставьте код.
WriteLn ("Демонстрашка работы с файлами!");
AssignFile(FT, "file-text.txt");
WriteLn(FT, "Hello, developer!");
3. После сохранения и выполнения проекта на экране монитора появится окно приложения.
Отметим два момента, связанных с этим приложением.
Во-первых, хотя в документации ничего не говорится о невозможности работы с нетипизированными файлами, конструкция FB: file of word; не компилируется, а выдается ошибка “Unsupported language feature: typed or untyped file”.
Во-вторых, оператор writeln успешно выводит на экран строку на русском языке, но при аналогичной попытке вывода в файл кодовая страница полученного текста оказывается другой. При работе же с текстовыми файлами проблем с кодовыми страницами нет.
Создание приложений с базами данных
Ниже приводится сценарий, описывающий построение ADO.NET-приложения, использующего шаблон Windows Forms Application и новую технологию BDP.NET, которая включает компоненты, необходимые для конструирования приложений с базами данных:
При переносе приложения на другой компьютер важно, чтобы база данных employee.gdb лежала в определенном месте (например, d:/data) - иначе потребуется переопределять экземпляр компонента bdpConnection1.
Выравнивание таблицы относительно формы можно осуществить с помощью свойств Anchor и Dock .
При добавлении к проекту ссылок командой Add Reference… не допускается наличие пробелов в пути.
Создание приложений ASP .NET
Замечание . Если вы хотите инсталлировать Delphi 8 с целью создания приложений ASP .NET, то на компьютере уже должны быть установлены службы Internet Information Services. Если ISI были установлены после Delphi 8, то для корректной работы ASP .NET-приложения следует ввести команду:
aspnet_regiis.exe /i
Для создания приложений ASP .NET:
При конструировании этого приложения проявились две функциональные особенности, свойственные технологии ASP .NET, которые отсутствовали в технологиях разработки Web-приложений до Delphi 8. Первая - ASP .NET позволяет создавать только DLL-приложения, но при этом в случае совмещения отладки через IIS и отладки в среде разработки не требуются постоянные вызовы утилиты iisreset.exe для обеспечения возможности трансляции очередной версии динамической библиотеки.
Вторая - в то же время в случае определения глобальной переменной, так как это было сделано в рассматриваемом проекте, при повторном вызове ресурса сохраняется ее предыдущее значение, а его сброс можно осуществить только применением утилит типа iisreset.exe.
Для переноса данного проекта на другую машину необходимо скопировать директорию HelloWorld в соответствующую директорию, описанную в IIS как виртуальный каталог.
Нажав кнопку Create , нужно сделать упомянутую директорию каталогом приложения (на рисунке выше приведено окно для свойств директории HelloWolrd в ОС Windows 2000 Advanced Server). После выполнения этих действий Web-приложение может быть вызвано на локальной машине командой
1. Вычисление явно заданной функции. Сделать программу,и консольный вариант программы, вычисления значения функции. Реализовать проверку области определения данной функции. Использовать компоненты Label, Edit, Button, BitBtn, LabeledEdit. Нарисовать значок в (ImageEditor) и использовать его в программе. Подобрать соответствующие изображения указателя (Cursor). Сделать возможным изменение прозрачности формы (AlphaBlend). Изменить тип границы формы, параметры шрифта, цвета элементов управления. Использовать подсказки (Hint). Использовать ShowMessage для сообщения об ошибках.
2. Определение принадлежности точки замкнутой области.
Задание: Написать программу определения находится ли заданной точка в данной области.
Использовать компоненты: Image, MainMenu, PopupMenu, Checkbox, RadioButton и ActionList.
Реализовать програмную провверку правильности ввода данных.
3. Вычисление значений конечной суммы ряда.
Задание: Вычислить сумму степенного ряда. Использовать несколько форм. Разместить условия на первой форме, остальные данные и функционал на других формах.
Использовать компоненты: Shape, Bevel, Splitter.
Использовать формы в модальном режиме и в обычном. Использовать шаблоны форм, поместить их в хранилище объектов.
4. Обработка одномерных массивов.
Написать программу обращения с вектором данных.
Задание: Делением числовых данных данного вектора на сумму наибольшего и наименьшего. получить новый вектор чисел.
Использовать компоненты: Memo, ListBox.
5. Обработка двумерных массивов(матрицы).
Использовать: PageControl, StringGrid, Закладки, блок try...except.
Задание: Упорядочить строки, данной матрицы чисел, по убыванию элементов, стоящих в определенном столбце.
6. Обработка строк.
Работа с данными строкового типа.
Использовать компоненты: ImageList, RichEdit, ToolВаr.
Задание: Получить новую строку, поменяв первое и последнее "слова". Использовать функции или процедуры, а так же модули.
7. Нарисовать график заданной функции.
Использовать: OnResize, ClientHeight, ClientWidth, OLEContainer, TEdit, Chart.
8. Создание анимированного изображения.
Требования к программе: Два двигающихся с разной скоростью обьекта. Один как процедура, отрисовав отдельные дуги, линии с помощью метода базовой точки. Второй нарисованный в ImageEditor, изменяя свойства Left и Top поместить в компонент Image. Использовать Timer. Реализовать остановку и изменение направления движения.
Задание: Объекты "Катер" и "Яхта".
9. Работа с типизированными файлами.
Использовать компоненты: OpenDialog, SaveDialog. Создать соответствующие фильтры для этих компонентов.
Задание: Дан файл вещественных чисел. Найти среднее арифметическое его компонент и удалить все компоненты, превышающие среднее значение.
10. Работа с локальной базой данных.
Использовать: Paradox для БД, механизм доступа к данным BDE, DataSource, Table, DataModule, DBGrid, DBNavigator, DBEdit, DBText, Query и DBChart. Реализовать программное изменение текста SQL-запроса.
Задание: Создать БД "Школа", с информацией: фамилия, класс, год рождения учащегося, адрес, телефон. Определить, у скольких учеников есть телефон. Составить списоки учеников заданного класса.
Практическая работа №1
Тема: ПЕРВЫЙ ПРОЕКТ
Цель занятия: использование компонентов Label (метка) и Button (кнопка) палитры компонентов Standard, обработка события OnClick - нажатие кнопки.
Задача №1.
Создать программу, выполняющую следующие действия:
После запуска программы по щелчку мышью на кнопке «Приветствие» появляется сообщение «Первые успехи!». Для выхода из программы необходимо щелкнуть мышью на кнопке «Выход».
Новым в этой работе является:
Этапы разработки программы
1. Откройте новый проект.
2. Разместите в форме экземпляры компонентов: метку Label и две кнопки Button
3. Выделите кнопку Button2, перейдите в Object Inspector на вкладку Properties, найдите свойство Caption (заголовок) и измените Button2 на заголовок
«Выход». Перейдите на страницу Events окна Object Inspector, найдите событие OnClick, справа от него дважды щелкните мышью. Оказавшись в коде программы, точнее, в заготовке процедуры TForm1.Button2Click, напишите лишь одну команду Close; (обязательно поставьте точку с запятой после «Close»).
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
4. Сохраните код программы и проект под именами, например, Unit2.pas и Pr2.dpr.
5. Запустите программу, затем закрыть окно проекта, щелкнув на кнопке «Выход».
6. Выделите форму, в свойстве Caption окна Object Inspector замените слово Form1 на «Мой проект». Это и будет заголовком основного окна программы.
7. Выделите кнопку Button1, в свойстве Caption окна Object Inspector замените слово Button1 на название копки «Приветствие». При необходимости увеличьте длину кнопки.
8. Не снимая выделения с кнопки Button1, перейдите на страницу Events окна Object Inspector и найдите событие OnClick, справа от него дважды щелкните
мышью. Введите следующий код: Label1.Caption:= ’Первые успехи!’;
9. Сохраните проект окончательно, запустите и протестируйте его.
Задача №2.
1. Сделайте шрифт выводимой реплики «Первые успехи!» отличным от стандартного по виду, цвету и размеру.
2. Замените вид кнопки «Выход» на более привлекательный.
3. Сделайте так, чтобы после нажатия кнопки «Приветствие» на экране появлялось сообщение «Первые и не последние!».
4. Запустите исполняемый файл Pr2.exe не в среде Delphi, а в Windows.
По теме: методические разработки, презентации и конспекты
Урок - обобщение знаний по теме "Устройство компьютера". Основной акцент делается на устройстве ввода информации в компьютер - клавиатуре. Для работы в графическом редакторе Paint разработаны практиче...
Самостоятельная работа по инструментам форматирования текста и две практические работы в MS Word 2007
Небольшая самостоятельная работа для закрепления материала.Две практические работы по созданию и обработке таблиц в текстовом редакторе....
