програми використовуються в Delphi-програмах дуже часто.
У Object Pascal є два сорти підпрограм: процедури і функції. Функція відрізняється від процедури тільки тим, що її ідентифікатор можна поряд з константами та змінними використовувати у виразах, т. К. Функція має вихідний результат певного типу. Якщо, наприклад, визначена функціяMyFunction: Integer;
і змінна var: Integer;
то можливий такий оператор присвоювання:
Х:=2 * MyFunction-l;
Ім'я процедури не можна використовувати у виразі, т. к. процедура не має пов'язаного з нею результату:
Procedure MyProcedure;:=2 * MyProcedure-l;// Помилка!
4.6 Сфера застосування програми
Дана програма призначена для вивчення основ роботи з програмним середовищем Borland Developer Studio і може використовуватися в середніх та середньо-спеціальних навчальних закладах як засіб у сприянні додаткового навчання програмуванню.
Використовуючи цю програму, навчається отримує легкий доступ до опису інтерфейсу програмного засобу Borland Developer Studio і перерахуванню його основних функціональних можливостей. Є можливість поповнення навчального матеріалу, що робить цей електронний підручник більш гнучким у використанні.
.7 Системні вимоги та встановлення програми
Мінімальні системні вимоги:
Тактова частота процесора не нижче 1Ггц;
Операційна система Windows 98 або вище;
Вільного простору на жорсткому диску не менше 70Мб;
Об'єм оперативної пам'яті не менше 64 МБ;
Встановлення програми на комп'ютер здійснюється шляхом запуску файлу установки з ім'ям ОВК setup.exe.
4.8 Логічна структура програми
Програма складається з чотирьох форм:
Головне вікно raquo ;;
Підручник - Поточна сторінка підручника;
Тест
Архів
При використанні документів в HTML форматі для їх відображення використовується вбудований компонент Delphi WebBrowser.
if ListBox1.ItemIndex=1 then.Navigate (GetCurrentDir + book знайомство 1.htm );
Спеціальний компонент DirectoryListBox1 допомагає визначити поточний каталог для того, щоб програма працювала з будь-якого каталогу, куди її запишуть.
ЕНМК за своєю суттю розділений на три незалежні модуля: безпосередньо сам електронний підручник, програма підсумкового тестування і архів результатів тестування.
Лістинг. Форма 1. Головне окноunMain;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, Menus, jpeg, SkinManager;=class (TForm): TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TsSkinManager; N1Click (Sender: TObject); Image2Click (Sender: TObject); Image3Click (Sender: TObject); Image5Click (Sender: TObject); Image6Click (Sender: TObject); Image4Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1; unBook, unEditDB, unTest, TCV, unArh;
{$ R * .dfm} TForm1.N1Click (Sender: TObject) ;. CreateForm (TForm2, Form2) ;. ShowModal ;; TForm1.Image2Click (Sender: TObject) ;. CreateForm (TForm2, Form2) ;. ShowModal ;; TForm1.Image3Click (Sender: TObject); l1, l2; ::=InputBox («Введіть ПІБ»); FIO=«Введіть ПІБ» Then GoTo l1;
l2 ::=InputBox («Введіть номер групи»);
if NGr=«Номер групи» Then GoTo l2; .CreateForm (TForm4, Form4) ;. ShowModal ;; TForm1.Image6Click (Sender: TObject) ;. Terminate ;; TForm1.Image4Click (Sender: TObject) ;. CreateForm (TForm5, Form5) ;. ShowModal ;;.
Форма 2. Підручник сконструйований таким чином, що зліва в змісті знаходиться список тем для вибору, а праворуч відображається зміст теми.
Ця процедура працює таким чином:
procedure TForm2.Image1Click (Sender: TObject); ListBox1.ItemIndex=0 then.Navigate (GetCurrentDir + book ved.htm ); ListBox1.ItemIndex=1 then.Navigate (GetCurrentDir + book знайомство 1.htm ); ListBox1.ItemIndex=7 then.Navigate (GetCurrentDir + book візуальне 1.htm ); ListBox1.ItemIndex=12 then.Navigate (GetCurrentDir + book компоненти 1.htm );
end;
Форма 3. Основні процедури, що реалізують функцію тестування. Процедура - реєстрація учня на тестування.
procedure TForm4.FormCreate (Sender: TObject); l1; i: Integer ;: TextFile; i:=1 to 60 do (FindComponent ( Memo + IntToStr (i))). Lines.LoadFromFile (GetCurrentDir + db + IntToStr (i) + .vo ) ;; :( Arhiv, GetCurrentDir + db arhFIO.ar ); (Arhiv); i:=1 to 25 Do Readln (Arhiv, FileFIO [i]); (Arhiv); (Arhiv, GetCurrentDir + db arhNGr.ar ); (Arhiv); i:=1 to 25 Do Readln (Arhiv, FileNGr [i]); (Arhiv); (Arhiv, GetCurrentDir + db arhOce.ar ); (Arhiv); i:=1 to 25 Do Readln (Arhiv, FileOce [i]); (Arhiv); String (FileFIO [25 ]) lt; gt; --- Then (Arhiv, GetCurrentDir + db arhFIO.ar ); (Arhiv); i:=1 to ...
