Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Топ:
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Особенности труда и отдыха в условиях низких температур: К работам при низких температурах на открытом воздухе и в не отапливаемых помещениях допускаются лица не моложе 18 лет, прошедшие...
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Интересное:
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Дисциплины:
2019-12-27 | 150 |
5.00
из
|
Заказать работу |
|
|
9. Создать и объявить процедуру OpenAvi
procedure TForm1.OpenAVI;
begin
Button1.Enabled:= False;
Button2.Enabled:= False; Button3.Enabled:= False;
RadioButton1.Enabled:= False; RadioButton2.Enabled:= False;
try
Animate1.FileName:= Edit1.Text;
except
on Exception do
begin
MessageDlg('Ошибка формата AVI файла.'+
#13+'(Анимация не должна сопровождаться звуком.)',
mtError,[mbOk],0);
exit;
end; end;
Button1.Enabled:= True;
RadioButton1.Enabled:= True; RadioButton2.Enabled:= True;
end;
10. Для кнопки Выбрать (Button4) ввести код:
OpenDialog1.Title:= 'Выбрать AVI файл';
OpenDialog1.InitialDir:='';
if OpenDialog1.Execute Then Begin
Edit1.Text:= OpenDialog1.FileName;
OpenAVI; End;
11. Для кнопки Пуск ввести код:
if Animate1.Active = False // в данный момент анимация нет then begin
Animate1.StartFrame:=1; // вывод с первого кадра
Animate1.StopFrame:=Animate1.FrameCount; //по последний кадр
Animate1.Active:=True;
Button1.caption:='Стоп';
RadioButton2.Enabled:=False;
end
else // анимация отображается
begin
Animate1.Active:=False; // остановить отображение
Button1.caption:='Пуск';
RadioButton2.Enabled:=True;
end;
12. Для переключателя Непрерывно ввести код:
Button1.Enabled:=True; // доступна кнопка Пуск
// сделать недоступными кнопки просмотра по кадрам
Form1.Button3.Enabled:=False;
Form1.Button2.Enabled:=False;
13. Для переключателя По кадрам ввести код:
Button2.Enabled:=True; // кнопка Следующий кадр доступна
Button3.Enabled:=False; //кнопка Предыдущий кадр недоступна
// сделать недоступной кнопку Пуск - вывод всей анимации
Button1.Enabled:=False;
Animate1.StartFrame:=1;
Animate1.StartFrame:=1;
CFrame:=1;
14. Для кнопки К следующему кадру ввести код:
if CFrame < Animate1.FrameCount Then Begin
CFrame:= CFrame + 1;
// вывести кадр
Animate1.StartFrame:= CFrame;
Animate1.StopFrame:= CFrame;
Animate1.Active:= True;
if CFrame = Animate1.FrameCount // текущий кадр - последний
then Button2.Enabled:=False;
End;
if CFrame > 1 then Button3.Enabled:= True;
15. Для кнопки К предыдущему кадру ввести код:
if CFrame > 1 then
begin
CFrame:= CFrame - 1;
// вывести кадр
Animate1.StartFrame:= CFrame;
Animate1.StopFrame:= CFrame;
|
Animate1.Active:= True;
if CFrame = 1 // текущий кадр - первый
then Form1.Button3.Enabled:= False;
end;
if CFrame < Animate1.FrameCount then Button2.Enabled:= True;
16. Проверить работу приложения.
17. Добавить на форму пункт меню Справка.
18. Присоединить к проекту форму для выдачи Справки, для этого:
1. выбрать в меню File / New/Other;
2. выбрать вкладку Forms, на ней выбрать About box.
19. Привести форму в соответствие с образцом:
20. Самостоятельно доработать приложение для вызова окна справки (пункт Справка) и скрытие окна (кнопка Ок)
21. Результат показать преподавателю.
ПРАКТИЧЕСКАЯ РАБОТА № 13
Тема Программирование для Интернет
Цель работы: Получить навыки использования компонента WebBrowser.
Пояснения к работе
Начиная с пятой версии Delphi появился компонент WebBrowser который позволяет создать свой собственный браузер. Можно полностью поменять интерфейс, но принцип действия работы все равно будет, как у Internet Explorer.
Компонент WebBrowser находится на вкладке Internet, его основные свойства и методы приведены в таблице.
OffLine | Включить / выключить автономный режим |
Navigate | Открыть HTML-документ |
Refresh | Обновить |
Stop | Остановить загрузку |
GoHome | На домашнюю страницу |
GoForward | Вперед |
GoBack | Назад |
Компонент StatusBar – строка состояния представляет собой управляющий элемент, который отображает текущую информацию о содержимом окна, контекстные подсказки по текущему состоянию.
Постановка задачи
Разработать приложение, реализующее основные функции WEB-браузера.
Порядок выполнения
1. Создать новый проект и сохранить его.
2. Добавить на форму компонент ToolBar (Win32), изменить значение свойств: Height = 28, ShowCaptions =True, Flat = True
3. Добавить на ToolBar 5 кнопок: Назад, Обновить, Стоп, Домашняя страница, Вперед, для этого повторить 5 раз следующую последовательность:
· щелкнуть правой кнопкой мыши на компоненте ToolBar;
· выбрать New Button;
· изменить размеры кнопки Width = 67, Height =21;
· вставить разделитель кнопок, щелкнув правой кнопкой на ToolBar и выбрав New Separator;
|
· изменить свойства Caption для кнопки.
4. Добавить на форму компоненты Edit, командную кнопку, OpenDialogs и WebBrowser.
5. Привести форму в соответствие с образцом.
6. Для того, чтобы компоненты размещались по местам после изменения размера формы, для процедуры FormResize ввести код:
Edit1.Left:= 0;
Edit1.Top:= ToolBar1.Height + 2;
Button1.Top:= Edit1.Top;
Button1.Left:= Form1.ClientWidth - Button1.Width - 2;
WebBrowser1.Left:= 0;
WebBrowser1.Top:= Edit1.Top + Edit1.Height + 2;
//меняем размеры некоторых компонентов
Edit1.Width:= Form1.ClientWidth - Button1.Width - 4;
Button1.Height:= Edit1.Height;
WebBrowser1.Width:= Form1.ClientWidth;
WebBrowser1.Height:= Form1.ClientHeight - (Edit1.Top + Edit1.Height + 2);
7. Для кнопки Открыть ввести код:
If OpenDialog1.Execute Then Begin
WebBrowser1.Navigate(OpenDialog1.FileName);
Edit1.Text:= OpenDialog1.FileName;
WebBrowser1.Navigate(Edit1.Text); //загрузка документа
Edit1.SetFocus; End;
8. Загрузить приложение, проверить работу кнопки Открыть.
9. Для кнопок панели ввести соответствующие коды:
WebBrowser1.GoBack //назад
WebBrowser1.Stop; //остановить загрузку
WebBrowser1.Refresh; //обновить страницу
WebBrowser1.GoHome; //на домашнюю страницу
WebBrowser1.GoForward; //вперед
10. Проверить работу приложения.
11. Добавить на форму компонент StatusBar (Win32)и изменить значение его свойства SimplePanel = True.
12. Для компонента WebBrowser 1 выбрать событие OnStatusTextChange и ввести код:
StatusBar1.SimpleText:= Text;
13. Добавить на форму компонент ProgressBar (Win32)и изменить значение его свойства Align =alButtom.
14. Для компонента WebBrowser 1 выбрать событие OnProgressChange и ввести код:
ProgressBar1.Max:= ProgressMax;
ProgressBar1.Position:= Progress;
15. Проверить работу приложения.
16. Модернизировать приложение для реализации следующих функций:
· при изменении размера формы компоненты StatusBar и ProgressBar должны всегда отображаться на экране.
· кнопки Назад и Вперед после загрузки приложения должны быть недоступны. Кнопка Назад получает доступ только после выбора пользователем гиперссылки в окне браузера. Кнопка Вперед получает доступ после щелчка по кнопке Назад
ПРАКТИЧЕСКАЯ РАБОТА №14
Тема: Разработка тестового приложения.
Цель работы: Закрепить навыки программирования в Delphi.
Постановка задачи:
Текстовый файл содержит несколько вопросов и 4 варианта ответа, из которых только один ответ верный(помечен символом +). Файл имеет следующую структуру:
Тема теста (дисциплина)
/вопрос 1
- ответ 1
+ ответ 2
- ответ 3
- ответ 4
/вопрос 2
+ вопрос 1
- вопрос 2
- вопрос 3
- вопрос 4
...
Создать текстовый файл с тестом из 5 вопросов в соответствии с заданной структурой.
|
Разработать приложение, которое позволяет выбирать файл с тестовыми заданиями и проводить последовательное тестирование.
Предусмотреть вывод результат тестирования на экран
Порядок выполнения:
1. Загрузить Delphi;
2. Установить на форму следующие объекты и изменить им свойства (см. таблицу), объявить используемые переменные как глобальные.
объект | свойство | значение |
Label | Name | Label1 |
WordWrap | True | |
RadioButton | Name | RadioButton1 |
Button | Name | Button1 |
Caption | Далее | |
OpenDialog | Name | OpenFile |
3. Для формы выбрать событие Create и ввести код для создания массива радиокнопок и объявить необходимые переменные:
For i:=1 to 4 Do
Begin
otv[i]:= TRadioButton.Create(RadioButton1);
otv [i].Parent:= Form1;
otv[i].Left:= RadioButton1.Left;
otv[i].Top:= RadioButton1.Top+i*40;
otv [i].Visible:=true;
otv [i].Width:= RadioButton1.Width;
otv [i].Height:= RadioButton1.Height;
otv [i].Color:= RadioButton1.Color;
otv[i].Checked:=false;
otv[i].Font:= RadioButton1.font;
end;
RadioButton1.Visible:=false;
4. Добавить на форму меню из двух пунктов Файл / Открыть и Выход
5. Для пункта Открыть ввести код:
If openfile.Execute Then
Begin
assignfile(f1,openfile.FileName);
reset(f1);
readln(f1,s);
form1.Caption:=s; {тема теста}
verno:=0;//кол-во верных ответов
n:=0; //номер текущего вопроса
button1.Enabled:=true;
label1.Caption:='';
for i:=1 to 4 do
begin
otv[i].Caption:='';
otv[i].Checked:=false;
end;
end;
6. Для кнопки Далее ввести код:
if n>0 then {проверим ответ на предыдущий вопрос}
for i:=1 to 4 do
if (otv[i].Checked =true) and (otv[i].tag=1) then verno:=verno+1;
if eof(f1) then {если тест закончен}
begin
showmessage(' кол-во верных ответов='+inttostr(verno));
closefile(f1);
button1.Enabled:=false;
exit;
end;
n:=n+1;
{÷читаем следующий вопрос}
readln(f1,s);
delete(s,1,1);
label1.Caption:=s;
for i:=1 to 4 do {варианты ответов}
begin
readln(f1,s);
otv[i].Checked:=false;
otv[i].Tag:=0;
if s[1]='+' then otv[i].Tag:=1;{запомним верный ответ}
delete(s,1,1);
otv[i].Caption:=s;
end;;
7. Проверить работу приложения.
8. Модернизировать приложение: вывод каждого вопроса должен сопровождаться отображением картинки, имя графического файла для каждого вопроса записать в строке, следующей за вопросом.
9. Результат показать преподавателю.
ПРАКТИЧЕСКАЯ РАБОТА № 15
Тема Разработка приложения для базы данных
Цель работы: Получить навыки создания приложения для базы данных.
Пояснения к работе
Для работы с базами в Delphi есть несколько наборов компонент, каждый из них подходит для решения определенного круга задач и использует разные технологии доступа к данным, отличаются по возможностям.
|
Краткий обзор средств доступа к базам данных
Вкладка Data Access | Содержит основные компоненты доступа к данным, они общие для всех и могут использоваться совместно с другими группами компонентов |
Вкладка Data Controls | Содержит компоненты для отображения и редактирования данных в таблицах, они используются вне зависимости от используемой технологии доступа к данным. |
Вкладка BDE | Содержит компоненты, позволяющие получать доступ к базам данных по технологии BDE (Borland Database Engine, разработана фирмой Borland). Эта технология хорошо работает с устаревшими типами баз данных: Paradox, dBase, FoxPro, в настоящее время фирма Borland ее не поддерживает. |
Вкладка DBEXpress | Содержит компоненты, поддерживающие технологию DBEXpress, которая хорошо подходит для программирования клиент-серверных приложений, использующих базы данных Oracle, DB2, MySQL |
Вкладка ADO | Содержит компоненты, поддерживающие технологию ADO (Active Data Objects),разработанную Microsoft. Их желательно использовать при работе с базами данныхMS Access и MS SQL Server. |
Компоненты вкладки BDE
Table | Обеспечивает доступ к таблицам БД, создает набор данных, который передает все данные из физической таблицы БД с помощью BDE |
Query | Предназначен для формирования набора данных их физической таблицы в соответствии с определенным запросом на языке SQL |
StopedProc | Делает доступными процедуры, хранимые на сервере |
Database | Устанавливает связь с БД |
BatchMove | Для групповых операций переноса данных из одного набора в другой |
Session | Текущий сеанс работы с БД, для общего управления связью приложения с БД. Генерируется автоматически |
Компоненты вкладки Data Access
DataSource | Источник данных, предназначен для связи компонентов типа Table и Query с компонентами отображения данных. Этот компонент исполняет роль посредника между элементами интерфейса приложения и наборами данных. |
Остальные компоненты служат для связи с XML-документами, кеширования и работы с пакетами |
Компоненты вкладки Data Controls
DBGrid | Сетка - для вывода таблицы с данными БД |
DBNavigator | Навигатор – для управления работой БД |
DBText | Надпись – для вывода строкового значения из поля таблицы БД |
DBEDIT | Однострочный редактор - для вывода и редактирования строкового значения поля |
DBMemo | Многострочный редактор - для вывода значения поля типа Memo |
DBImage | Для вывода значения графического образа |
DBListBox | Простой список – для вывода списка строковых значений поля |
DBComboBox | Комбинированный список – для вывода списка строковых значений поля |
DBCheckBox | Независимый переключатель – для вывода значения поля типа CheckBox |
DBRadioGroup | Группа зависимых переключателей |
DBLookupListBox | Простой список, формируемый по полю набора данных |
DBRichEdit | Полнофункциональный текстовый редактор |
DBCtrlGrid | Модифицированная сетка |
DBChart | Диаграмма – для вывода графиков по данным БД |
Компоненты ADO
|
ADOConnection | Для управления соединением с базой данных и передачи запросов поставщику данных |
ADOCommand | Для управления информацией о запросе к базе или команде |
ADORecordset | Содержит таблицу, которая является результатом запроса к базе данных |
ADOField | Содержит описание поля в таблице, возращенной поставщиком данных. |
Модуль данных (data modul) – это объект класса TDataModule, который, как и обычная форма, предназначен для размещения компонентов. Отличие состоит в том, что в них размещаются невизуальные компоненты. Это удобно для централизованного хранения в проекте компонентов Table и др. компонентов, используемых для организации доступа к базам данных.
Постановка задачи
В СУБД Access создана база данных «Телефонный справочник» (файл db_Telefon.mdb). База данных содержит одну таблицу, структура таблицы представлена на рисунке.
Используя технологию ADO, разработать приложение, которое будет работать с этой базой.
Порядок выполнения
Часть
1. Создать новый проект, с вкладки dbGo поместить на форму компонент TADOConnection;
2. Настроить соединение с сервером:
· Дважды щелкнуть по компоненту ADOConnection
· В окне выбрать переключатель Use Connection String и щелкнуть Build (вызов мастера)
· На вкладке Поставщик данных выбрать драйвер доступа к данным Microsoft Jet 4.0 OLE DB Provider и нажать Далее;
· На вкладке Подключение в строке Выберите или введите имя базы данных введите имя db _ Telefon. mdb
Примечание: если база и исполняемый файл будут хранится в одной папке, путь указывать необязательно
· Щелкнуть по кнопке Проверить подключение. Если все указано верно, то выводится сообщение. Нажмите ОК.
· Закройте окно создания строки подключения Ок, закрыть редактор строки подключения ОК.
3. Продолжить настройку приложения:
· Для компонента ADOConnection отключить свойство LoginPromt – false (для того, чтобы при обращении к базе не запрашивался пароль)
· Для свойства Connected задать значение True, чтобы произошло соединение с базой
4. Для получения доступа к таблице базы:
· Установить на форме компонент ADOTable, изменить имя на BookTable
· Для свойства Connection из списка выбрать ADOConnection 1
· В свойстве TableName выбрать имя таблицы
· Для свойства Active установить значение True
5. Для отображения данных из таблицы:
· Установить на форму компонент DataSource (вкладка Data Access),для свойства DataSet выбрать BookTable (указали какую таблицу отображать)
· Установит компонент DBGrid (вкладка Data Controls), для свойства DataSource Выбрать DataSource 1.
6. Приложение готово. Запустите его, добавьте новые строки, отредактируйте существующие строки, удалите что-нибудь (Ctrl / Del). Для вставки строки используйте Ins.
|
|
Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Поперечные профили набережных и береговой полосы: На городских территориях берегоукрепление проектируют с учетом технических и экономических требований, но особое значение придают эстетическим...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!