|
Свойство
|
Значение
|
|
Color
|
clCream
|
|
Size
|
10
|
|
Height
|
777
|
|
Left
|
0
|
|
Top
|
-3
|
|
Width
|
673
|
|
ReadOnly
|
True
|
|
ScrollBars
|
ssNone
|
3. Проектирование
.1 Декомпозиция
поставленной задачи
Основная задача: разработка электронного учебника.
Подзадачи:
· создание модуля с
теоретическим материалом
· создание модуля с
тестированием
· создание процедур,
требуемых для взаимодействия модулей.
.2 Общая архитектура ПС
Каждый раздел разбивается на темы. С
формы каждого раздела можно перейти не предыдущую форму.
3.3 Реализация
функционального назначения ПС
.4 Разработка алгоритма
решения задачи
учебник электронный программный
алгоритм
.4.1 Детальная
разработка алгоритмов отдельных подзадач
· создание модуля с
теоретическим материалом.
При нажатии кнопки «Лекции»
открывается форма с содержанием теоретического материала, который разбит на
разделы. При нажатии на кнопку с нужным разделом открывается форма с
материалом, который структурирован по темам в виде вкладок. Кнопка «Назад»
позволяет перейти на предыдущую страницу.
· создание модуля «О
программе».
При нажатии кнопки «О программе»
открывается форма, содержащая информацию о разработчике программы. Кнопка
«Назад» позволяет перейти на предыдущую страницу.
· создание модуля с
тестированием.
При нажатии кнопки контроль знаний
открывается форма с тестированием. Все вопросы представлены на одной форме.
Пользователь выбирает один из трех правильных вариантов и по окончании теста
нажимает кнопку «ОК». После нажатия кнопки ОК можно узнать, в каких вопросах
была допущена ошибка. При помощи созданной процедуры подсчитывается количество
правильных ответов и в окне выводится результат.
· создание процедур,
требуемых для взаимодействия модулей.
Все созданные процедуры осуществляют
переход с одной формы на другую, задают параметры форм.
3.5 Разработка интерфейса
ПС
Возможно, наиболее важным
дополнением к языку Object Pascal стала поддержка интерфейсов. Интерфейс определяет набор функций и
процедур, которые могут быть использованы для взаимодействия программы с
объектом.
В данной разработке создан процедурно-ориентированный
интерфейс.
Пользовательский интерфейс
представляет средство взаимодействия пользователя с программой. При разработке
пользовательского интерфейса следует учитывать потребности, опыт и способности
пользователя.
В силу большого разнообразия
пользователей и видов программных средств существует множество различных стилей
пользовательских интерфейсов, при разработке которых могут использоваться
разные принципы и подходы. Основные принципы:
·
пользовательский интерфейс должен базироваться на терминах и
понятиях, знакомых пользователю;
·
пользовательский интерфейс должен быть единообразным;
·
пользовательский интерфейс должен позволять пользователю
исправлять собственные ошибки.
4. Кодирование
.1 Выбор среды
разработки
Delphi - это объектно-ориентированная среда для визуального
проектирования Windows-приложений с развитыми механизмами повторного использования
программного кода.
Существенной чертой Delphi является компонентная
модель разработки программных продуктов. Суть модели заключается в поддержке
системой постоянно расширяемого набора объектных компонентов, из которых и
строится программа. Компоненты в Delphi просты для использования и развития, как результат сокрытия
значительной части той структуры программы, которая близка к взаимодействию с
операционной системой.
Для создания в Delphi несложных программных
продуктов совершенно необязательно понимать внутреннюю структуру Windows-приложения, получаемого
после разработки в Delphi. Достаточно просто уметь работать с некоторыми компонентами,
поставляемыми вместе со средой разработчика. При этом начать работу со средой
можно практически без предварительного ознакомления, а написание первого
приложения не потребует углубления в особенности системы. Этому отчасти
способствует удобный интерфейс среды разработчика, не перегруженный излишними
вопросами к разработчику.
Программирование в Delphi состоит из двух
основных этапов:
1. Визуальное построение
программы на основе объектных компонентов и настройка их свойств, в результате
чего можно быстро сформировать пользовательский интерфейс и обеспечить
значительную долю функциональности приложения.
2. Написание программного кода
на языке Object Pascal для обеспечения особой функциональности приложения, которую
невозможно достичь использованием визуального построения.
4.2 Характеристика языка
программирования
Object Pascal - полностью
объектно-ориентированный диалект языка Pascal, разработанный фирмой Borland.
Начиная с Delphi 7 фирма Borland начала официально называть свой язык Delphi.
Однако Object Pascal поддерживается и развивается другими разработчиками.
Наиболее серьёзные реализации Object Pascal (помимо Delphi) - это TMT Pascal,
Virtual Pascal и Free Pascal.
Паска́ль (англ. Pascal) - язык программирования общего назначения.
Был создан Никлаусом Виртом в 1970,
после его участия в работе комитета разработки стандарта языка Алгол, как язык
для обучения процедурному программированию. Название языку дано в честь
выдающегося французского математика, физика, литератора и философа Блеза
Паскаля. Первоначально язык компилировался в байт-код, подобно языку Java.
Особенностями языка являются строгая
типизация и наличие средств структурного (процедурного) программирования.
Паскаль был одним из первых таких языков. По мнению Н. Вирта, язык должен
способствовать дисциплинированию программирования, поэтому, наряду со строгой
типизацией, в Паскале сведены к минимуму возможные синтаксические
неоднозначности, а сам синтаксис интуитивно понятен даже при первом знакомстве
с языком. Тем не менее, первоначально язык обладал множеством недостатков:
невозможность передачи функциям массивов переменной длины, отсутствие
нормальных средств работы с динамической памятью, ограниченная библиотека
ввода-вывода, отсутствие средств для подключения функций написанных на других
языках, отсутствие средств раздельной компиляции и т.п. Полный разбор
недостатков языка Паскаль был выполнен Брайаном Керниганом в статье «Почему
Паскаль не является моим любимым языком программирования». Необходимо заметить,
что многие перечисленные недостатки языка не проявляются или даже становятся
достоинствами при обучении программированию. Кроме того, основным языком
программирования в академической среде 70-х был Фортран, обладавший гораздо
более существенными недостатками, и Паскаль представлял собой значительный шаг
вперед.
4.3 Структура программы
Учебник.dpr - файл проекта создается
во время работы над проектом. Этот файл содержит исходный текст главной
программы приложения. (Project.dpr).pas - файлы модулей проекта, представляют
собой файлы с исходными текстами программ на языке Pascal..dof - файлы опций
проекта хранят установки, определенные во вкладках окна Project Options. Такой
файл создается при первом же сохранении проекта и обновляется при каждом
последующем (Project.dof).
4.4 Листинги
Первая форма «Электронный учебник»
unit Unit1;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TLabel;: TLabel;: TLabel;: TButton;: TButton;:
TButton;Button3Click (Sender: TObject);Button2Click (Sender: TObject);Button1Click
(Sender: TObject);Label3Click (Sender: TObject);FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};:
TGlavnaya;Unit2, Unit3;
{$R *.dfm}TGlavnaya.
Button3Click (Sender: TObject);;TGlavnaya. Button2Click (Sender: TObject);.show;.hide;;TGlavnaya.
Button1Click (Sender: TObject);.show;.hide;;TGlavnaya. Label3Click (Sender:
TObject);;TGlavnaya. FormCreate (Sender: TObject);
begin;.
Вторая форма «Лекции»
unit Unit2;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TButton;: TButton;: TButton;: TButton;: TButton;: TButton;:
TButton;: TButton;Button1Click (Sender: TObject);Button2Click (Sender:
TObject);Button5Click (Sender: TObject);Button3Click (Sender:
TObject);Button4Click (Sender: TObject);Button6Click (Sender:
TObject);Button7Click (Sender: TObject);Button9Click (Sender:
TObject);FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};:
TLeccii;Unit1, Unit4, Unit5, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12;
{$R *.dfm}TLeccii.
Button1Click (Sender: TObject);.show;. Hide;. Position:=poScreenCenter;.
FormStyle:=fsStayOnTop;;TLeccii. Button2Click (Sender:
TObject);.show;.hide;;TLeccii. Button5Click (Sender: TObject);.
Hide;.show;;TLeccii. Button3Click (Sender: TObject);. Hide;.show;;TLeccii.
Button4Click (Sender: TObject);.show;. Hide;;TLeccii. Button6Click (Sender:
TObject);;.show;. Hide;;TLeccii. Button7Click (Sender: TObject);.show;.
Hide;;TLeccii. Button9Click (Sender: TObject);.show;. Hide;;TLeccii. FormCreate
(Sender: TObject);
begin;.
Третья форма «О
программе»
unit Unit3;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TButton;: TLabel;: TLabel;: TLabel;Button1Click (Sender:
TObject);FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};:
Tprogramma;Unit1;
{$R *.dfm}Tprogramma.
Button1Click (Sender: TObject);.show;. Hide;;Tprogramma. FormCreate (Sender:
TObject);
begin;.
Четвертая форма
«Основные этапы развития экономики»
unit Unit4;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, OleCtrls,
SHDocVw, ComCtrls;= class(TForm): TButton;: TMemo;Button1Click (Sender:
TObject);Memo1Change (Sender: TObject);FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};:
TForm4;Unit2;
{$R *.dfm}TForm4.
Button1Click (Sender: TObject);. Hide;.show;;TForm4. Memo1Change (Sender:
TObject);. Lines. LoadFromFile ('F:\Projects\Uch_mat');;TForm4. FormCreate
(Sender: TObject);
begin;.
Пятая форма
«Тестирование»
unit Unit5;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls,
Buttons;= class(TForm): TButton;: TGroupBox;: TRadioButton;: TRadioButton;:
TRadioButton;: TRadioGroup;: TBitBtn;: TRadioGroup;: TRadioButton;Button1Click
(Sender: TObject);BitBtn1Click (Sender: TObject);FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};:
TForm5;Unit2, Unit6;
{$R *.dfm}TForm5.
Button1Click (Sender: TObject);.hide;.show;;: Integer;TForm5. BitBtn1Click
(Sender: TObject);:=0; // Счётчик количества правильных ответов
If RadioButton4. Checked = True //
Проверка выбранного варианта
{Проверка результатов тестирования}
if RadioButton1.checked
= Falseshowmessage ('Вы ошиблись в первом вопросе')i:=i+1;radiogroup1.itemindex
<> 0
then showmessage ('Вы ошиблись во
втором вопросе')
else
i:=i+1;RadioButton4.checked = False
then showmessage ('Вы ошиблись в
третьем вопросе')
else i:=i+1;;i=3 then
begin
(*Завершение тестирования*). Show;
// Открытие финальной формы. Close; // Закрытие тестовой формы
End;
end;TForm5. FormCreate
(Sender: TObject);
begin;
end.
Шестая форма «Результат
теста»
unit Unit6;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TLabel;: TButton;Button1Click (Sender: TObject);FormCreate
(Sender: TObject);
{Private declarations}
{Public declarations};:
TForm6;
{$R *.dfm}TForm6.
Button1Click (Sender: TObject);;;TForm6. FormCreate (Sender: TObject);
end;
end.
Восьмая форма
«Экономическая система»
unit Unit8;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TMemo;: TButton;Button1Click (Sender: TObject);FormCreate
(Sender: TObject);
{Private declarations}
{Public declarations};:
TForm8;Unit2;
{$R *.dfm}TForm8.
Button1Click (Sender: TObject);;.show;. Hide;;TForm8. Memo1Change (Sender:
TObject);. Lines. LoadFromFile ('F:\Projects\Uch_mat');;TForm8. FormCreate
(Sender: TObject);
begin;.
Девятая форма «Сущность
рынка»
unit Unit9;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TButton;: TMemo;Button1Click (Sender: TObject);FormCreate
(Sender: TObject);
{Private declarations}
{Public declarations};:
TForm9;Unit2;
{$R *.dfm}TForm9.
Button1Click (Sender: TObject);.show;. Hide;;TForm9. Memo1Change (Sender:
TObject);. Lines. LoadFromFile ('F:\Projects\Uch_mat');;TForm9. FormCreate
(Sender: TObject);
begin;.
Десятая форма
«Предпринимательская деятельность»
unit Unit10;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TButton;: TMemo;Button1Click (Sender: TObject);FormCreate
(Sender: TObject);
{Private declarations}
{Public declarations};:
TForm10;Unit2;
{$R *.dfm}TForm10.
Button1Click (Sender: TObject);. Hide;.show;;TForm10. Memo1Change (Sender:
TObject);. Lines. LoadFromFile ('F:\Projects\Uch_mat');;TForm10. FormCreate
(Sender: TObject);
end;
end.
Одиннадцатая форма
«Денежная система»
unit Unit11;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TButton;: TMemo;Button1Click (Sender: TObject);FormCreate
(Sender: TObject);
{Private declarations}
{Public declarations};:
TForm11;Unit2;
{$R *.dfm}TForm11.
Button1Click (Sender: TObject);. Hide;.show;;TForm11. Memo1Change (Sender:
TObject);. Lines. LoadFromFile ('F:\Projects\Uch_mat');;TForm11. FormCreate
(Sender: TObject);
begin;.
Двенадцатая форма
«Государственный бюджет»
unit Unit12;
interface, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;=
class(TForm): TButton;: TMemo;Button1Click (Sender: TObject);FormCreate
(Sender: TObject);
{Private declarations}
{Public declarations};:
TForm12;Unit2;
{$R *.dfm}TForm12.
Button1Click (Sender: TObject);;. Hide;.show;;TForm12. Memo1Change (Sender:
TObject);. Lines. LoadFromFile ('F:\Projects\Uch_mat');;TForm12. FormCreate
(Sender: TObject);
begin;.
5. Тестирование и
отладка
Главная форма
Лекции
О программе
Теоретический материал
Тестирование
Результат тестирования
Заключение
В данной курсовой работе была
рассмотрена разработка обучающих электронных систем. Примером служит
разработанный учебник по «Основам экономики».
Повсеместное внедрение новых
информационных технологий приводит к нехватке программных средств. Разработка
электронного учебного пособия по экономике - это вклад в развитие российского
рынка прикладного обеспечения.
Поставленные цели:
· предоставить учащимся
электронный учебник «Основы экономики» для того, чтобы доступно и легко донести
теоретический материал с последующим контролем знаний;
· выполнение
обучающей и контролирующей функции;
· провести анализ
теоретического материала предлагаемого к компьютерной реализации с целью
определения его пригодности к подобной реализации и степень ее эффективности;
· возможность
дополнять теоретический материал, так как сфера экономики не стоит на месте.
Решения поставленной цели:
· изучение среды
программирования Borland Delphi 7.0;
· анализ
теоретического материала (в соответствии с дидактическими единицами),
предназначенного для студентов 1 курса специальности «Прикладная информатика в
экономике»;
· подобран материал
для тестирования.