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

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

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

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

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

Блок питания имеет встроенный вентилятор и вентиляционные отверстия. В связи с этим в нем неминуемо накапливается пыль, которая может вызвать короткое замыкание.

Рекомендуется периодически (один - два раза в год) с помощью пылесоса удалять пыль из блока питания через вентиляционные отверстия без вскрытия системного блока.

Особенно важно производить эту операцию перед каждой транспортировкой или наклоном системного блока

4.2 Анализ пожарной профилактики

На рабочем месте запрещается иметь огнеопасные вещества

В помещениях запрещается:

а) зажигать огонь;

б) включать электрооборудование, если в помещении пахнет газом;

в) курить;

г) сушить что-либо на отопительных приборах;

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

Источниками воспламенения являются:

а) искра при разряде статического электричества

б) искры от электроборудования

в) искры от удара и трения

г) открытое пламя

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

Помещения с электроборудованием должны быть оснащены огнетушителями типа ОУ-2 или ОУБ-3.

4.3 Вентиляция

Анализируемое оборудование не является источником пыли и газов.

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

В помещении, где предусматривается эксплуатация комплекса программных средств, находится бытовая пыль.

Электризованная пыль вызывает раздражение кожи и слизистой оболочки глаз и носа.

При длительной работе в обстановке повышенной запыленности повышается опасность возникновения воспалительных процессов у человека.

Требуемое состояние рабочей зоны достигается выполнением следующих мероприятий:

ѕ применение вентиляции;

ѕ кондиционирование воздуха;

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

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

Воздух рабочей зоны должен соответствовать требованиям ГОСТ 12.1.005-88.

4.4 Определение потребного воздухообмена

Микроклимат в рабочей зоне определяется сочетанием температуры, влажности, скорости движения воздуха и температурой окружающих поверхностей.

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

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

Работа оператора относится к категории Ia (легкие физические работы).

Оптимальные и допустимые нормы температуры, влажности и скорости движения воздуха для рабочей зоны помещения категории работ I отражены в таблицах 1 и 2 соответственно.

Параметры микроклимата в рабочей зоне регламентирует ГОСТ 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

...