Разработка электронного учебного пособия по изучению Macromedia Flash

Параметры микроклимата в рабочей зоне регламентирует ГОСТ 12.1.005 - 88.

Таблица 1.Оптимальные нормы параметров воздушной среды.

Температура наружного воздуха, 0С	Оптимальные параметры воздушной среды на постоянных рабочих местах
	Температура, 0С	Относительная влажность, %	Скорость движения воздуха, м/с
Ниже +10	21 - 25	не более 75	не более 0,1
Выше +10	22 - 28	75 при 24 0С	не более 0,1 - 0,2

Таблица 2. Допустимые нормы параметров воздушной среды.

Температура наружного воздуха, 0С	Допустимые параметры воздушной среды на постоянных рабочих местах
	Температура, 0С	Относительная влажность, %	Скорость движения воздуха, м/с
Ниже +10	21 - 25	не более 75	не более 0,1
Выше +10	22 - 28	75 при 24 0С 70 при 25 0С 65 при 26 0С 60 при 27 0С 55 при 28 0С	не более 0,1 - 0,2

4.5 Эгрономика и производственная эстетика

Новые возможности вызывают развитие новых свойств программного обеспечения, особенно форм общения человека с ЭВМ.

Необходимо обеспечить психологическую естественность деятельности пользователя с ЭВМ, адекватность программы целям и функциям обучения, удобство работы пользователя с ЭВМ и сохранение его здоровья.

Психолояльность и эргономичность являются одними из важнейших характеристик качества ПС (программных средств), Широко пропагандируемая и в настоящее время «дружественность программного обеспечения» как раз и предполагает наличие психолого-эргономической поддержки разработки программных средств.

Применение ПС расставляет особые акценты между психологической и эргономической поддержкой дидактических целей.

Психологическая естественность в соответствии с возрастными возможностями пользователя теснейшим образом связана с обеспечением таких, эргономических требований, как воспринимаемость информации, выделение особых зон для особенной информации и т. п. Как отмечает Г. С. Цейтин любая разработка программного обеспечения включает в себя задачу проектирования деятельности будущего пользователя создаваемой системы.

В практике автоматизации вопросы проектирования деятельности будущего пользователя обычно решаются стихийно, в лучшем случае на основе опыта авторов системно-технического обеспечения, а чаще всего исходя из случайных соображений.

Более того, проект деятельности пользователя не входит в состав документации на автоматизированную систему, не является законченным продуктом ее разработки.

И, как следствие, отсутствуют психологически и эргономически обоснованные решения по таким важным вопросам как определение класса решаемых пользователем задач, проектирование языка его взаимодействия с ЭВМ, выбор вида диалога, разработка дисплейных форматов, что приводит, как правило, к низкой мотивации у пользователей при решении задач с применением ЭВМ, к снижению эффективности их деятельности, повышенной утомляемости, к возникновению трудностей в освоении средств вычислительной техники.

Был предложен проектный программно-исследовательский подход к созданию психолого-эргономического обеспечения технических и программных средств деятельности пользователя. Начальный этап разработки проекта деятельности пользователя ЭВМ включает следующие проектные, системотехнические, психологические и эргономические моменты:

- - системно - психологическую характеристики пользователя;

- - логико-психологическое описание класса решаемых с помощью ПС задач;

- - перечень программных поддержек основных стандартных процедур решения указанных задач;

- - описание структуры компьютеризированной деятельности, включающее те действия, процедуры, средства реализации, эффективные стратегии осуществления информационных технологий.

Следует учитывать индивидуальные различия пользователей, в частности предусматривать возможность получения информации различной степени подробности.

При выборе форм представления информации на экране компьютера необходимо исходить не только из содержания учебной деятельности, но и из тех возможностей, которые предоставляет компьютер для: реализации эффективных стратегий решения и достижения таких целей, которые при «ручной» технологии оказываются недостижимыми.

В связи с особым ритмом общения человека с ЭВМ особую роль приобретает проблема понимания текстов.

Это касается не только понимания текстов программ, но и понимания тех текстов, которые предъявляются пользователю на экране компьютера.

Необходимо исследовать, как приобретаются новые навыки и умения при использовании такого нового средства, как компьютер.

При разработке ПС эргономические требования могут быть представлены к процедуре взаимодействия пользователя с ЭВМ; видам диалога пользователя с ЭВМ; проектированию дисплейных форматов; контролю ошибок пользователя; временным параметрам диалога пользователя с ЭВМ; организации информации на экране; кодированию информации на экране; языкам взаимодействия пользователя ЭВМ.

Можно выделить целый ряд эргономических требований к организации информации на экране:

- информация, предъявляемая на экране, должна быть понятной, логически связной, распределенной на группы по содержанию и функциональному назначению;

- при организации информации на экране следует избегать избыточного кодирования и неоправданных, плохо идентифицируемых сокращений;

- рекомендуется минимизировать на экране использование терминов, относящихся к ЭВМ, вместо терминов, привычных для пользователя;

- не следует для представления информации использовать краевые зоны экрана;

- на экране должна находиться только та информация, которая обрабатывается пользователем в данный момент.

В современных программных средствах используется ряд приемов для выделения части информации на экране: переструктурирование информации и выделение зон, окон для выделяемой части информации, а также инверсное изображение для части информации и различные эффекты, привлекающие внимание пользователей (мелькание и др.).

Использование этих приемов должно быть психологически обосновано особенно для ПС, функционально обусловлено и эргономично.

Рекомендуется: вопросно-ответные сообщения и подсказки помещать в верхней части экрана, выделяя явным образом отведенную для этого зону, например, отделяя ее горизонтальной линией от основной информации на экране; различные виды сообщения необходимо отделять друг от друга, в зоне вспомогательной информации.

Например, можно рекомендовать применять инверсное изображение для подсказок; зоны размещения на экране вспомогательной информации должны быть четко идентифицируемы - зона подсказок, зона комментариев, зона управляющих сообщений, зона для сообщений об ошибках; при зонировании экрана допускается изменение масштаба знаков в отдельной зоне; эффекты, привлекающие внимание пользователя ПЭВМ (мелькание, повышенная яркость, обратный контраст), следует применять строго в соответствии с проектом деятельности пользователя, только в тех случаях, когда, это необходимо и психологически обосновано.

Заключение

Повышение качества образования является одной из наиболее актуальных проблем, стоящих перед современным высшим образованием Казахстана. Именно эта проблема является главной в современной реформе высшей школы [7]. Не случайно, система показателей оценки качества образования, является одной из наиболее проработанных в системе менеджмента качества [9].

Важнейшим ресурсом, обеспечивающим решение поставленной задачи, является улучшение качества учебных материалов. Сейчас, в век информационного общества, особенно актуальным становится создание электронных учебных изданий, прежде всего электронных учебников. [2]

Электронные учебники незаменимы при организации дистанционного образования, повышают уровень наглядности и интерактивности информации, упрощают изучение и самотестирование усвоенной информации. Наконец, информация электронного учебника больше и разнообразнее, чем у обычного бумажного, ее удобнее и дешевле создавать, хранить и изменять [11]. Количество электронных учебников увеличивается с каждым днем во многих учебных заведениях страны. Все это определяет актуальность исследования.

В процессе работы над проектом, было создано необходимое программное средство, а именно - учебное пособие по Macromedia Flash. Кроме того, при создании данного электронного учебного пособия были сделаны следующие выводы:

1. Дизайн и оформление не должны отвлекать ученика от учебного процесса;

2. Шрифт электронного учебника не должен быть слишком мелким или слишком крупным, так как это отвлекает внимание ученика.

3. Ни в коем случае нельзя делать светлый текст на темной фоне. От этого устают глаза, и теряется внимание.

4. Анимация, используемая в учебнике должна как можно нагляднее демонстрировать ученику способы решения задач.

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

6. Электронный учебник должен максимально облегчить процесс изучения темы, понимание данной темы учеником, вовлекая в процесс обучения иные, нежели в обычном печатном пособии, возможности человеческого мозга, в частности, слуховую и эмоциональную память.

Электронные учебники в целом упрощают работу учителя, при этом делают процесс усвоения сложного материала доступным и наглядным.

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

1. Кругликов Г.И, Симоненко В.Д. «Методика обучения старшеклассников творческой деятельности», Курск, 1998. - 321с.

2. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. - СПб.: БХВ-Петербург, 2002.

3. Российские электронные издания: Каталог.--Вып. 4: Новые поступления в гос. Депозитарий / Авторы-составители: Вигурский К.В., Глушкова О.Л., Негадова В.И. (под общ. ред. Антопольского А.Б.) -- М.: НТЦ “Информрегистр”, 2000.

4. Работа в среде Macromedia Flash 5: Н. Г. Никифорова, Р. А. Федоровская, А. В. Никифоров -- Санкт-Петербург, ИВЭСЭП, 2008 г.- 72 с.

5. Культин Н.Б. Delphi в задачах и примерах. - СПб.: БХВ-Петербург, 2003.

6. Macromedia Flash MX: А.К. Гультяев -- Москва, Корона-Принт, Учитель и ученик, 2002 г.- 352 с.

7. Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель. - М.: Издательский дом «Вильямс», 2003.

8. Митчелл К. Керман Программирование и отладка в Delphi: Учебный курс: М.; СПб.; Киев, 2003.

9. Фаронов В.В. Delphi 6: Учебный курс. - СПб.: Питер, 2002.

10. Архангельский А.Я. Object Pascal в Delphi. - СПб.: Бином, 2002.

11. Горюнова М.А., Горюхова Т.В., Кондратьева И.Н., Рубашкин Д.Д. Электронные образовательные издания. Учебно-методическое пособие. СПб.: ЛОИРО, 2003.

12. Заёнчик В. М. «Основы творческо-конструкторской деятельности: Методы и организация» М.: Изда. центр «Академия», 2004. - 256с.

13. Иванов Г.И. «Формулы творчества», М.: Просвещение, 1994 - 208с.

14. Кирсанов Д.В. Краткая история HTML. http://www.kirsanov.com/

15. Могилев А.В., Н.И. Пак, Е.К. Хеннер; - М.: Изд.центр «Академия», 2001. - 816 с.

16. Немов Р.С. Психология: Учеб. пособие для учащихся пед. ин-тов и работников системы подготовки, повышения квалификации и переподготовки пед. кадров. -- М.: Просвещение, 1990. -- 301 с.

17. Орлов М.А. «Основы классической ТРИЗ Практическое руководство для изобретательного мышления», Москва, 2005. - 416с.

18. Пак Н.И. Нелинейные технологии обучения в условиях информатизации: Учебное пособие. Красноярск: РИО КГПУ, 2004

19. Роберт И.В. Современные информационные технологии в обучении: дидактические проблемы; перспективы использования. // М.: ШколаПресс, - 1994.

20. Macromedia Flash Professional 8. Графика и анимация: Владимир Дронов -- Санкт-Петербург, БХВ-Петербург, 2006 г.- 656 с.

21. Роберт И.В. Информационные технологии в науке и образовании. Учебно-методическое пособие. // М.: Школа педагогического мастерства, - 1999.

22. Симоненко В.Д., Очинин О.П., Матяш Н.В. “Технология: Учебник для 11 класса общеобразовательных учреждений”, Москва, 2002. - 192с.

23. Агеев В.Н. Электронная книга: Новое средство соц. коммуникации. М.: 1997.

24. Гречихин А.А., Древс Ю.Г. Вузовская учебная книга: Типология, стандартизация, компьютеризация. М.: Логос, 2000.

25. Мильчин А.Э. Издательский словарь-справочник. М.: Юристъ, 1998.

26. Субботин М.М. Новая информационная технология: Создание и обработка гипертекстов. М., 1992

27. Macromedia Flash 8 (+ CD-ROM): Джеймс Инглиш -- Москва, Эком, 2007 г.- 448 с.

28. Macromedia Flash 8 для профессионалов: Шон Пакнелл, Брайан Хогг, Крейг Суонн -- Москва, Вильямс, 2006 г.- 672 с.

29. Macromedia Flash MX 2004 ActionScript. Библия пользователя (+ CD-ROM): Роберт Рейнхардт, Джой Лотт -- Санкт-Петербург, Вильямс, 2006 г.- 960 с.

30. Macromedia Flash MX 2004. Экспресс-курс.: Владимир Дронов -- Москва, БХВ-Петербург, 2003 г.- 344 с.

31. Macromedia Studio 8 (+ CD-ROM): Шаоэн Бардзелл и Джеффри Бардзелл -- Москва, Эком, 2006 г.- 592 с.

32. Программирование во Flash MX: Роберт Пеннер -- Санкт-Петербург, Символ-Плюс, 2005 г.- 432 с.

33. Самоучитель Macromedia Flash MX: Михаил Бурлаков -- Москва, БХВ-Петербург, 2003 г.- 656 с.

34. Тайны создания игр в Macromedia Flash MX 2004+CD: Джоуб Макар, Бен Виниарчик -- Москва, НТ Пресс, 2005 г.- 448 с.

Приложение А

Листинг (Главное окно программы)

unit unMain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, Menus, jpeg;

type

TForm1 = class(TForm)

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image1: TImage;

procedure N1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses unBook, unEditDB, unTest, TCV, unArh;

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);

begin

Application.CreateForm(TForm2, Form2);

Form2.ShowModal;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

Application.CreateForm(TForm2, Form2);

Form2.ShowModal;

end;

procedure TForm1.Image3Click(Sender: TObject);

label l1, l2;

begin

l1:

FIO := InputBox('Введите ваше ФИО', 'ФИО', 'введите ФИО');

If FIO = 'введите ФИО' Then GoTo l1;

l2:

NGr := InputBox('Введите номер группы', 'Номер группы', 'номер группы');

if NGr = 'номер руппы' Then GoTo l2;

Application.CreateForm(TForm4, Form4);

Form4.ShowModal;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

NGr := inputbox('Введите пароль', 'Пароль', 'пароль');

begin

Application.CreateForm(TForm3, Form3);

Form3.ShowModal;

end;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

Application.CreateForm(TForm5, Form5);

Form5.ShowModal;

end;

end.

Приложение Б

Листинг (подсистема «Учебник»)

object Form2: TForm2

Left = 190

Top = 102

BorderIcons = [biMinimize, biMaximize]

BorderStyle = bsSingle

Caption = #1059#1095#1077#1073#1085#1080#1082

ClientHeight = 574

ClientWidth = 792

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

WindowState = wsMaximized

PixelsPerInch = 96

TextHeight = 13

object Panel1: TPanel

Left = 0

Top = 0

Width = 225

Height = 574

Align = alLeft

Color = clScrollBar

TabOrder = 0

object Label1: TLabel

Left = 64

Top = 160

Width = 76

Height = 13

Caption = #1054#1075#1083#1072#1074#1083#1077#1085#1080#1077':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object Image1: TImage

Left = 24

Top = 488

Width = 161

Height = 25

Cursor = crHandPoint

AutoSize = True

Center = True

Picture.Data = {

OnClick = Image1Click

end

object Image6: TImage

Left = 24

Top = 536

Width = 161

Height = 25

Cursor = crHandPoint

AutoSize = True

Center = True

Picture.Data = {

OnClick = Image6Click

end

object Image2: TImage

Left = 32

Top = 24

Width = 161

Height = 161

Picture.Data = {

end

object ListBox1: TListBox

Left = 5

Top = 216

Width = 220

Height = 257

Color = clWhite

ItemHeight = 13

Items.Strings = (

'')

ParentShowHint = False

ShowHint = True

TabOrder = 0

end

end

object Panel2: TPanel

Left = 225

Top = 0

Width = 567

Height = 574

Align = alClient

BorderStyle = bsSingle

Caption = 'Panel2'

TabOrder = 1

object WebBrowser1: TWebBrowser

Left = 1

Top = 1

Width = 561

Height = 568

Align = alClient

TabOrder = 0

ControlData = {

end

end

end

Приложение В

Листинг (подсистема «Тестирование»)

unit unTest;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls, jpeg;

type

TForm4 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

GroupBox1: TGroupBox;

ListBox1: TListBox;

TabSheet2: TTabSheet;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

GroupBox2: TGroupBox;

ListBox2: TListBox;

TabSheet3: TTabSheet;

Image16: TImage;

procedure Button1Click(Sender: TObject);

procedure Image16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses TCV;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.FormCreate(Sender: TObject);

label l1;

var i: Integer;

Arhiv: TextFile;

begin

for i := 1 to 60 do

begin

TMemo(FindComponent('Memo' + IntToStr(i))).Lines.LoadFromFile(GetCurrentDir + '\db\' + IntToStr(i) + '.vo');

end;

l1:

AssignFile(Arhiv, GetCurrentDir + '\db\arhFIO.ar');

Reset(Arhiv);

For i := 1 to 25 Do Readln(Arhiv, FileFIO[i]);

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhNGr.ar');

Reset(Arhiv);

For i := 1 to 25 Do Readln(Arhiv, FileNGr[i]);

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhOce.ar');

Reset(Arhiv);

For i := 1 to 25 Do Readln(Arhiv, FileOce[i]);

CloseFile(Arhiv);

If String(FileFIO[25]) <> '---' Then

Begin

AssignFile(Arhiv, GetCurrentDir + '\db\arhFIO.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

Writeln (Arhiv, NullRec);

end;

CloseFile(Arhiv);

end;

If String(FileNGr[25]) <> '---' Then

Begin

AssignFile(Arhiv, GetCurrentDir + '\db\arhNGr.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

Writeln (Arhiv, NullRec);

end;

CloseFile(Arhiv);

end;

If String(FileOce[25]) <> '---' Then

Begin

AssignFile(Arhiv, GetCurrentDir + '\db\arhOce.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

Writeln (Arhiv, NullRec);

end;

CloseFile(Arhiv);

end;

For i := 1 to 25 do

begin

if String(FileFIO[i]) = '---' Then

begin

MyPostionA := i;

Break;

end;

end;

end;

procedure TForm4.Button8Click(Sender: TObject);

begin

PageControl1.SelectNextPage(True, True);

end;

procedure TForm4.Button9Click(Sender: TObject);

begin

PageControl1.SelectNextPage(True, True);

end;

procedure TForm4.Button17Click(Sender: TObject);

var i: Integer;

Arhiv: TextFile;

begin

// Проверяю на выбор вопросов --------------------------------------------------

For i := 1 To 15 Do

begin

If (TListBox(FindComponent('ListBox' + IntToStr(i))).Selected[0] = False) and

(TListBox(FindComponent('ListBox' + IntToStr(i))).Selected[1] = False) and

(TListBox(FindComponent('ListBox' + IntToStr(i))).Selected[2] = False) Then

begin

Application.MessageBox('Вы не на все вопросы ответили!!!' +

#13 + 'Проверьте все вопросы.', 'Внимание', 0);

PageControl1.Pages[0].Show;

Exit;

end;

end;

//------------------------------------------------------------------------------

// Загружаю правильные ответы --------------------------------------------------

AssignFile(FileOtv, GetCurrentDir + '\db\po.vo');

Reset(FileOtv);

For i := 1 To 15 Do

begin

Readln(FileOtv, Potv[i]);

end;

CloseFile(FileOtv);

//------------------------------------------------------------------------------

// Получаю ответы и вношу их в массив ------------------------------------------

For i := 1 to 15 Do

begin

If TListBox(FindComponent('ListBox' + IntToStr(i))).ItemIndex = 0 Then Votv[i] := 1;

If TListBox(FindComponent('ListBox' + IntToStr(i))).ItemIndex = 1 Then Votv[i] := 2;

If TListBox(FindComponent('ListBox' + IntToStr(i))).ItemIndex = 2 Then Votv[i] := 3;

end;

//------------------------------------------------------------------------------

Ball := 0;

For i := 1 to 15 Do

begin

If Votv[i] = StrToInt(String(Potv[i])) Then Ball := Ball + 1;

end;

If Ball = 0 then Oc := 2;

If (Ball > 0) or (Ball = 4) Then Oc := 3;

If (Ball = 5) or ((Ball > 5) and (Ball < 10)) Then Oc := 4;

If (Ball = 10) or ((Ball > 10) and (Ball < 16)) then Oc := 5;

For i := 1 To 25 Do

begin

If FileFIO[i] = '---' Then

Begin

FileFIO[i] := FIO;

FileNGr[i] := NGr;

Break;

end;

end;

Ocenka := IntToStr(Oc);

AssignFile(Arhiv, GetCurrentDir + '\db\arhFIO.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

If i = MyPostionA Then

begin

Writeln(Arhiv, FIO);

end

else

Writeln(Arhiv, FileFIO[i]);

end;

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhNGr.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

If i = MyPostionA Then

begin

Writeln(Arhiv, NGr);

end

else

Writeln(Arhiv, FileNGr[i]);

end;

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhOce.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

If i = MyPostionA Then

begin

Writeln(Arhiv, Ocenka);

end

else

Writeln(Arhiv, FileOce[i]);

end;

CloseFile(Arhiv);

ShowMessage('Ваша оценка: ' + Ocenka);

end;

procedure TForm4.Image1Click(Sender: TObject);

begin

PageControl1.SelectNextPage(True, True);

end;

procedure TForm4.Image15Click(Sender: TObject);

var i: Integer;

Arhiv: TextFile;

begin

// Проверяю на выбор вопросов --------------------------------------------------

For i := 1 To 15 Do

begin

If (TListBox(FindComponent('ListBox' + IntToStr(i))).Selected[0] = False) and

(TListBox(FindComponent('ListBox' + IntToStr(i))).Selected[1] = False) and

(TListBox(FindComponent('ListBox' + IntToStr(i))).Selected[2] = False) Then

begin

Application.MessageBox('Вы не на все вопросы ответили!!!' +

#13 + 'Проверьте все вопросы.', 'Внимание', 0);

PageControl1.Pages[0].Show;

Exit;

end;

end;

//------------------------------------------------------------------------------

// Загружаю правильные ответы --------------------------------------------------

AssignFile(FileOtv, GetCurrentDir + '\db\po.vo');

Reset(FileOtv);

For i := 1 To 15 Do

begin

Readln(FileOtv, Potv[i]);

end;

CloseFile(FileOtv);

//------------------------------------------------------------------------------

// Получаю ответы и вношу их в массив -----------------------------------------

For i := 1 to 15 Do

begin

If TListBox(FindComponent('ListBox' + IntToStr(i))).ItemIndex = 0 Then Votv[i] := 1;

If TListBox(FindComponent('ListBox' + IntToStr(i))).ItemIndex = 1 Then Votv[i] := 2;

If TListBox(FindComponent('ListBox' + IntToStr(i))).ItemIndex = 2 Then Votv[i] := 3;

end;

//------------------------------------------------------------------------------

Ball := 0;

For i := 1 to 15 Do

begin

If Votv[i] = StrToInt(String(Potv[i])) Then Ball := Ball + 1;

end;

If Ball = 0 then Oc := 2;

If (Ball > 0) or (Ball = 4) Then Oc := 3;

If (Ball = 5) or ((Ball > 5) and (Ball < 10)) Then Oc := 4;

If (Ball = 10) or ((Ball > 10) and (Ball < 16)) then Oc := 5;

For i := 1 To 25 Do

begin

If FileFIO[i] = '---' Then

Begin

FileFIO[i] := FIO;

FileNGr[i] := NGr;

Break;

end;

end;

Ocenka := IntToStr(Oc);

AssignFile(Arhiv, GetCurrentDir + '\db\arhFIO.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

If i = MyPostionA Then

begin

Writeln(Arhiv, FIO);

end

else

Writeln(Arhiv, FileFIO[i]);

end;

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhNGr.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

If i = MyPostionA Then

begin

Writeln(Arhiv, NGr);

end

else

Writeln(Arhiv, FileNGr[i]);

end;

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhOce.ar');

Rewrite(Arhiv);

For i := 1 to 25 do

begin

If i = MyPostionA Then

begin

Writeln(Arhiv, Ocenka);

end

else

Writeln(Arhiv, FileOce[i]);

end;

CloseFile(Arhiv);

ShowMessage('Ваша оценка: ' + Ocenka);

end;

procedure TForm4.Image16Click(Sender: TObject);

begin

Form4.Close;

end;

end.

Приложение Г

Листинг (подсистема «Архив результатов тестирования»)

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, jpeg, ExtCtrls;

type

TForm5 = class(TForm)

StringGrid1: TStringGrid;

Shape1: TShape;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses TCV;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

Form5.Close;

end;

procedure TForm5.FormCreate(Sender: TObject);

var i : Integer;

Arhiv : textFile;

begin

StringGrid1.Cells[0, 0] := 'ФИО';

StringGrid1.Cells[1, 0] := 'Номер группы';

StringGrid1.Cells[2, 0] := 'Оценка';

AssignFile(Arhiv, GetCurrentDir + '\db\arhFIO.ar');

Reset(Arhiv);

For i := 1 to 25 Do

begin

Readln(Arhiv, FileFIO[i]);

end;

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhNGr.ar');

Reset(Arhiv);

For i := 1 to 25 Do

begin

Readln(Arhiv, FileNGr[i]);

end;

CloseFile(Arhiv);

AssignFile(Arhiv, GetCurrentDir + '\db\arhOce.ar');

Reset(Arhiv);

For i := 1 to 25 Do

begin

Readln(Arhiv, FileOce[i]);

end;

CloseFile(Arhiv);

For i := 1 to 25 Do

begin

StringGrid1.Cells[0, i] := string(FileFIO[i]);

StringGrid1.Cells[1, i] := string(FileNGr[i]);

StringGrid1.Cells[2, i] := string(FileOce[i]);

end;

end;

procedure TForm5.Image1Click(Sender: TObject);

begin

Form5.Close;

end;

end.

Приложение Д

Листинг (подсистема «Редактор БД»)

unit unEditDB;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin, ComCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet10: TTabSheet;

Memo1: TMemo;

Label1: TLabel;

Label7: TLabel;

SpinEdit2: TSpinEdit;

Label15: TLabel;

SpinEdit13: TSpinEdit;

Memo24: TMemo;

Memo36: TMemo;

procedure Image3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Button1Click(Sender: TObject);

var i: Integer;

FileOtv: TextFile;

Z: String;

begin

for i := 1 to 60 do

begin

TMemo(FindComponent('Memo' + IntToStr(i))).Lines.SaveToFile(GetCurrentDir + '\db\' + IntToStr(i) + '.vo');

end;

AssignFile (FileOtv, GetCurrentDir + '\db\po.vo');

Rewrite(FileOtv);

for i := 1 to 15 do

begin

Z := IntToStr (TSpinEdit(FindComponent('SpinEdit' + IntToStr(i))).Value);

Writeln (FileOtv, Z);

end;

CloseFile(FileOtv);

end;

procedure TForm3.FormCreate(Sender: TObject);

var i: Integer;

Fileotv : TextFile;

Z: String;

begin

for i := 1 to 60 do

begin

TMemo(FindComponent('Memo' + IntToStr(i))).Lines.LoadFromFile(GetCurrentDir + '\db\' + IntToStr(i) + '.vo');

end;

AssignFile(FileOtv, GetCurrentDir + '\db\po.vo');

Reset(Fileotv);

for i := 1 to 15 do

begin

Readln(FileOtv, Z);

TSpinEdit(FindComponent('SpinEdit' + IntToStr(i))).Value := StrToInt (string(Z));

end;

CloseFile(Fileotv);

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

PageControl1.SelectNextPage(True, True);

end;

procedure TForm3.Image1Click(Sender: TObject);

var i: Integer;

FileOtv: TextFile;

Z: String;

begin

for i := 1 to 60 do

begin

TMemo(FindComponent('Memo' + IntToStr(i))).Lines.SaveToFile(GetCurrentDir + '\db\' + IntToStr(i) + '.vo');

end;

AssignFile (FileOtv, GetCurrentDir + '\db\po.vo');

Rewrite(FileOtv);

for i := 1 to 15 do

begin

Z := IntToStr (TSpinEdit(FindComponent('SpinEdit' + IntToStr(i))).Value);

Writeln (FileOtv, Z);

end;

CloseFile(FileOtv);

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.Image3Click(Sender: TObject);

begin

PageControl1.SelectNextPage(True, True);

end;

end.

Размещено на Allbest.ru

...