Компьютерный тренажер-эмулятор персонального компьютера "AMD Atlon 2500"

4.2 Гигиена труда

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

Характеристика вредных веществ и материалов приведена в таблице 4.

Таблица 4. - Характеристика вредных веществ и материалов

№	Вещество или материал	Агрегатное состояние	ПДК (мг/м3)	Класс опасности
1	Азота оксид	П	5	3
2	Озон	П	0,1	1
3	Углерода оксид	П	20	4
4	Пыль - мучная, листовая; -хлопковая, пуховая, льняная	А А	6 2	4 4

Примечание: П-пары; А-аэрозоль

Производственная пыль достаточно распространенный опасный и вредный фактор.

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

Влияние вредных веществ на человека:

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

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

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

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

- контроль за содержанием вредных веществ в воздухе рабочей зоны;

- использование средств индивидуальной защиты.

4.2.1 Метеорологические условия

Аудитории по категории работ по степени тяжести относятся к:

Легкие, Ia принадлежат работы, которые выполняются сидя и не требуют физического напряжения. Расход энергии 105-140 Вт (90-120ккал/час).

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

ь Температура воздуха;

ь Относительная влажность воздуха;

ь Интенсивность теплового излучения;

ь Температура поверхности.

Для указанной категории работ допустимые параметры микроклимата приведены в таблице 5.

Таблица 5. - Допустимые условия микроклимата

Период года	Категория работ	Температура, 0С	Относительная влажность (%) на рабочих местах - постоянных и не постоянных	Скорость движения (м/с) на рабочих местах - постоянных и не постоянных
		Верхняя граница	Нижняя граница
		На постоянных рабочих местах	На непостоянных рабочих местах	На постоянных рабочих местах	На непостоянных рабочих местах
Холодный период года	Легкая Ia	25	26	21	18	75	Не больше 0,1
Теплый период года	Легкая Ia	28	30	22	20	55 при 280С	0,2-0,1

Способы поддержания микроклимата:

1. Использование кондиционера;

2. Соблюдение режима проветривания;

3. Соблюдение температурного режима;

4.2.2 Вентиляция

Основная задача вентиляции - удалить с помещения загрязненный или нагретый воздух и подать свежий.

Вентиляция классифицируется по таким признакам;

- по способу перемещения воздуха: естественная (аэрация осуществляется через окна);

- по месту действия: местная.

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

Основные требования к системам вентиляции:

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

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

- не вносить в помещение загрязненный воздух снаружи или путем засасывания из смежных помещений;

- не создавать на рабочих местах сквозняков или резкого охлаждения;

4.2.3 Освещение

В зависимости от источника света производственное освещение может быть: естественным, создаваемым прямыми солнечными лучами и рассеянным светом небосвода; искусственным, создаваемым электрическими источниками света и совмещенным, при котором недостаточное по нормам естественное освещение дополняется искусственным.

Естественное освещение: боковое осуществляется чрез световые проемы (окна) в наружных стенах. Ориентация окон северо-восточное; высота подоконника 0,6м; площадь остекления - 3,6*3кв.м.; затеняющих предметов нет; есть шторы светло- желтого цвета из хлопчатобумажной ткани; сохранен принцип левостороннего освещение; световой коэффициент - 1:5.

Искусственное освещение: общее, так как светильники размещаются в верхней зоне помещения с учетом рабочих мест. Тип источника света: люминесцентные лампы типа ЛБ мощностью 40Вт; светильники рассеянного света числом 35 штук расположены под потолком; расчетная освещенность рабочего места 22Вт/м кв.

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

Выполняемые в аудитории по зрительной характеристике, относятся к II разряду подразряда «в». Минимальная освещенность при общем искусственном освещении равна 500 лк. За характеристику естественной освещенности принимается относительная величина коэффициента естественного освещения (КЕО) при естественном боковом освещении:

,

где еН = 1,5% - нормированное в соответствие со СниП II-4-79 значение КЕО, m - коэффициент светового климата (равно 0,9 для Харькова), с - коэффициент солнечности климата (равно 0,75 для Харькова). Тогда требуемое значение КЕО равно: е = 1,5*0,9*0,75=1,01%.

4.2.4 Шум, вибрация, ультразвук, инфразвук

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

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

Источниками механических колебаний и различных вибрации в персональном компьютере являются:

ь Блок питания компьютера (его вентилятор и трансформаторы);

ь Вентилятор охлаждающего кулера центрального процессора;

ь вентиляторы на высокопроизводительной видеокарте;

ь жесткие диски (винчестеры);

ь другие дисководы (FDD, CD - ROM, DVD - ROM и пр.);

ь источники бесперебойного питания;

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

Источником шума в аудитории 208/4 является ПК. Фактор шума постоянный при работе ПК. Величина шума в помещении составляет 45-47 дБА, что соответствует установленным санитарным нормам (50 дБА для лабораторий). Допустимые уровни звукового давления приведены в таблице 6.

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

Рекомендуемые основные меры защиты:

1. применять средства, снижающие шум вибрационного (механического) происхождения;

2. применять средства, снижающие шум в источнике его возникновения.

Таблица 6. - Допустимые уровни звукового давления, уровни звука на рабочих местах в аудитории.

Октавные полосы со среднегеометрическими частотами, Гц.	63	25	50	500	10001	2000	4000	8000
Уровни звукового давления, дБ.	99	92	86	83	80	78	76	74

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

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

Однако в аудитории 208/4 предприняты все меры безопасности, чтобы избежать вибрации: компьютеры плотно установлены на рабочей поверхности, а столы прочно стоят на полу.

Способы снижения вибрации:

- снижение вибрации в источнике возникновения;

- снижение параметров вибрации на пути её распространения от источника;

- организационно - технические меры;

Нормы по вибрации приведены в таблице 7.

Таблица 7. - Нормы вибрации в помещениях умственного труда

Превышение гранично - допустимого уровня вибрации. дБ	91	88	84	80	76	75	75
Гц	2	3	4	6	8	16	31,5

4.2.5 Электромагнитные, ионизирующие излучения

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

Специально проведенные измерения радиочастотного излучения вокруг ПК в диапазоне от 300 МГц до 18 ГГц показали, что их значение не превышали 1 Вт/м2. Обычная мощность ЭМИ находится в пределах от 1 мВ/м до 0,5 В/м на расстоянии 1 м от экрана и в пределах 0,1 до 200 мкА/м на расстоянии 5-30 см от экрана. Наиболее интенсивное излучение наблюдается в диапазоне 3-30 МГц. Допустимые уровни напряженности электромагнитного поля радиочастотного диапазона регламентируются ГОСТ 12.1.006-84. Они приведены в таблице 8.

Таблица 8. - Допустимые уровни напряженности электромагнитного поля радиочастотного диапазона и допустимая поверхностная плотность потока энергии

Диапазон частот, Гц	Допустимые уровни напряженности электромагнитного поля	Допустимая плотность потока энергии, Вт/м2
	По электрической составляющей Е, В/м	По магнитной составляющей Н, А/м
60 кГц - 3 МГц	50	5	-
3 МГц - 30 МГц	30	-	-
30 МГц - 300 МГц	10	0,3	-
300 МГц - 300 ГГц	-	-	0,25

При изучении влияния ионизирующего излучения на организм человека были выявлены следующие особенности:

1. Высокая эффективность поглощенной энергии. Даже небольшое количество поглощенной энергии ионизирующего излучения может вызвать существенные биологические изменения в организме человека.

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

3. Влияние малых доз ионизирующего излучения может накапливаться.

4. Ионизирующее излучение влияет не только непосредственно на самого человека, а и на его будущее потомство.

Защита от ионизирующего излучения:

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

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

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

4.2.6 Санитарно-бытовое и медицинское обслуживание

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

4.3 Пожарная безопасность

4.3.1 Пожароопасность здания предметной аудитории

Общая характеристика взрывопожарной и пожарной опасности здания:

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

Пожароопасная зона класса П-IIa - пространство в помещении, в котором находятся твердые горючие материалы и вещества.

Безопасность производственного оборудования обеспечивается:

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

- использование средств механизации и автоматизации;

- применение в конструкции средств защиты;

- соблюдение эргономических требований;

4.3.2 Средства тушения и обнаружения пожаров

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

Основные возможные причины пожаров в аудитории и расположенных вблизи помещениях:

неосторожное обращение с огнем;

неудовлетворительное состояние электротехнических устройств;

неисправность отопительных приборов и нарушение правил их эксплуатации;

невыполнение требований нормативных документов по вопроса ПБ.

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

Прекращение процесса горения может быть достигнуто следующими способами:

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

- охлаждением зоны горения или горящих веществ;

- разбавлением воздуха или горючих веществ негорючими.

Здание, в котором располагается аудитория, обеспечено первичными средствами пожаротушения: огнетушителями, пожарным инвентарем, пожарным орудием (пожарными ломами, баграми, топорами и т.п.) и средствами связи.

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

При поступлении сигнала о пожаре дежурный вызывает пожарную команду на место вызова для тушения возможного пожара. Основной и запасной эвакуационные выходы оборудованы аварийным освещением. Над ними установлено световое табло зеленого цвета с надписью «ВЫХОД».

Места размещения первичных средств пожаротушения отмечены в планах эвакуации.

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

4.3.3 Экологическая оценка

Для рассматриваемой 208/4 аудитории источником возможных загрязнений является пыль, однако предприняты меры по её устранению - регулярная влажная уборка. Экологическое воспитание учащихся, на мой взгляд, играет большую роль в формировании личности, оно прививает человеку знания и навыки разумного общения с природой. Экологическое воспитание включает в себя мировоззренческие, политические правовые, нравственно-этические и другие аспекты формирования личностных черт человека. Данное воспитание должно являться одним из основополагающих в воспитании личности, так как человек учиться принимать самостоятельные решения по вопросам охраны природы, нести ответственность за последствия принимаемых решений.

ЗАКЛЮЧЕНИЕ

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

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

В компьютерном тренажёре-эмуляторе «ПК AMD Atlon 2500» учащемся будет предложено ознакомиться с персональным компьютером, наглядным методом, при помощи режима «Демонстрация», сопровождающийся презентаций и видео информацией, которые будут характеризовать, и демонстрировать работу с устройством, что позволит обучаемому приобретать базовые знания. Получив первостепенное представление о работе устройства, учащийся при помощи режима «Тренинг», обучается выполнению основных операций с устройством на основе тренировки, это даёт возможность закрепить полученные знания и навыки работы с устройством. Узнать и проконтролировать уровень усвоения материала, позволит режим «Контроль», который содержит в себе некоторое количество заданий, с последовательным выполнением действий. При правильном указании действий, обучаемый получает оценку. В итоге, выполнив все задания, выводиться средняя оценка, она и характеризует уровень приобретенных знаний и умений обучаемого.

Данный продукт поможет учащимся общеобразовательных учреждений получать умения, знания и навыки в изучении и работе с данным техническим устройством без инструкции пользования и горы дополнительной литературы. Я надеюсь, что разработанная программа найдёт своё применение в обучении студентов ВУЗ Украины при изучении дисциплины «Технические средства обучения».

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Методические указания по экономическим обоснованиям дипломных проектов для студентов электромеханического факультета. - Харьков, УИПА, 2003 - 40 с.

2. Методические указания к выполнению квалификационной работы для образовательно-квалификационного уровня «бакалавр» для студентов специальности 6.010100.36 «Профессиональное обучение. Компьютерные технологии в управлении и обучении» - Харьков: УИПА, 2005. - 40 с.

3. Методические указания по дипломному проектированию. Раздел «Охрана труда» для инженерных и инженерно - педагогических специальностей \ сост. Смирнитская М.Б. Харьков, УИПА, 2005 - 20 с.

4. Программирование и алгоритмизация. Среда проектирования Visual Basic .NET. Обработка строковых выражений. Методические указания к лабораторной работе № 12. Для всех специальностей - Харьков: УИПА, 2005 42 с.

5. Visual Basic 6.0.: Издательство Питер - С.П., 2004. - 680 с.

6. Программирование в среде Visual Basic 6.: Учебное пособие. Ч. 1. - Х.: «КАНКОМ», 2004. - 496 с.

7. Задание к лабораторным работам № 11-12 « Создание автоматизированных обучающих систем» средствами среды проектирования Visual Basic. NET. Для всех специальностей.- Харьков: УИПА, 2005 - 23 с.

8. ДНАОП 0.00-1.31-99. Правила охраны труда во время эксплуатации электронно-вычислительных машин.

9. ВДОП 2.00-5.04-96. Инструкция по охране труда при работе на компьютерах.

10. ДСН 3.3.6-042-99. Санитарные нормы микроклимата производственных помещений.

11. СНиП П-4-79. Естественное и искусственное освещение. Нормы проектирования.

12. ДСН 3.3.6-037-99. Санитарные нормы производственного шума, ультразвука и инфразвука.

13. Основы охраны труда: Учебное пособие / За ред. проф. Березуцкого В.В. - Х.: Факт, 2005. - 480 с.

14. Жиденький В.Ц. Охрана труда пользователей компьютеров. Учебное пособие. - Вид.2-е, доп. - Львов: Афиша, 2000.

Приложение А

Программный код проекта

Public Class Form1_Титульный_лист

Inherits System.Windows.Forms.Form

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

obj_Form2_Главная_форма.Show()

Me.Hide()

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End

End Sub

Private Sub Form1_Титульный_лист_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp

'Дида

If (e.X > 610) And (e.X < 780) And (e.Y > 241) And (e.Y < 480) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\2_Дида.ppt"

new_Form4_Презентация.Show()

End If

End Sub

End Class

Public Class Form2_Главная_форма

Inherits System.Windows.Forms.Form

Dim k As Integer

72

Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click

Me.Hide()

Dim obj_Form1_Титульный_лист As New Form1_Титульный_лист

obj_Form1_Титульный_лист.Show()

End Sub

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

End

End Sub

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

Me.Hide()

Dim obj_Form3_Демонстрация As New Form3_Демонстрация

obj_Form3_Демонстрация.Show()

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

Me.Hide()

Dim obj_Form5_Тренинг As New Form5_Тренинг

Randomize()

i = Int(10 * Rnd())

For k = 0 To 9

b(k) = 0

Next

obj_Form5_Тренинг.Label6.Text = CStr(a(i))

obj_Form5_Тренинг.Show()

End Sub

Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

Me.Hide()

Dim obj_Form6_Общий_вид_компъютера_контроль As New Form6_Общий_вид_компъютера__контроль

obj_Form6_Общий_вид_компъютера_контроль.Show()

End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

Me.Hide()

Dim obj_Form7_Контроль As New Form7_Контроль

Randomize()

i = Int(3 * Rnd())

For k = 0 To 2

d(k) = 0

Next

Obshaa_osenka = 0

Nomer_zadania = 0

obj_Form7_Контроль.Label6.Text = CStr(R(i))

obj_Form7_Контроль.Show()

Me.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

Dim obj_Form_Сведения As New Form_Сведения

obj_Form_Сведения.Label1.Visible = True

obj_Form_Сведения.Label2.Visible = False

obj_Form_Сведения.Label3.Visible = False

obj_Form_Сведения.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Hide()

Dim obj_Form_Сведения As New Form_Сведения

obj_Form_Сведения.Label1.Visible = False

obj_Form_Сведения.Label2.Visible = True

obj_Form_Сведения.Label3.Visible = False

obj_Form_Сведения.Show()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.Hide()

Dim obj_Form_Сведения As New Form_Сведения

obj_Form_Сведения.Label1.Visible = False

obj_Form_Сведения.Label2.Visible = False

obj_Form_Сведения.Label3.Visible = True

obj_Form_Сведения.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Hide()

Dim obj_Form6_Общий_вид_компъютера_контроль As New Form6_Общий_вид_компъютера__контроль

obj_Form6_Общий_вид_компъютера_контроль.Show()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

End

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Hide()

Dim obj_Form9_About As New Form9_About

obj_Form9_About.Show()

End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Me.Hide()

Dim obj_Form9_About As New Form9_About

obj_Form9_About.Show()

End Sub

End Class



Public Class Form3_Демонстрация

Inherits System.Windows.Forms.Form

'#Region "Установка кнопок"

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

'Play

If (e.X > 870) And (e.X < 890) And

(e.Y > 70) And (e.Y < 91) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\PLAY.ppt"

new_Form4_Презентация.Show()

End If

'CD_Rom

If (e.X > 894) And (e.X < 914) And (e.Y > 75) And (e.Y < 95) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\OPEN_CLOSE.ppt"

new_Form4_Презентация.Show()

End If

'Flopy

If (e.X > 838) And (e.X < 858) And (e.Y > 294) And (e.Y < 314) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Дисковод.ppt"

new_Form4_Презентация.Show()

End If

'Resert

If (e.X > 806) And (e.X < 826) And (e.Y > 486) And (e.Y < 506) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\RESET.ppt"

new_Form4_Презентация.Show()

End If

'Power

If (e.X > 470) And (e.X < 490) And (e.Y > 430) And (e.Y < 450) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\POWER.ppt"

new_Form4_Презентация.Show()

End If

'Select

If (e.X > 406) And (e.X < 426) And (e.Y > 445) And (e.Y < 466) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\SELECT.ppt"

new_Form4_Презентация.Show()

End If

'Меню

If (e.X > 290) And (e.X < 315) And (e.Y > 441) And (e.Y < 469) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\МЕНЮ.ppt"

new_Form4_Презентация.Show()

End If

'Контраст

If (e.X > 364) And (e.X < 388) And (e.Y > 445) And (e.Y < 466) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Контраст.ppt"

new_Form4_Презентация.Show()

End If

'Яркость

If (e.X > 325) And (e.X < 346) And (e.Y > 440) And (e.Y < 461) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Яркость.ppt"

new_Form4_Презентация.Show()

End If

'Громкость

If (e.X > 750) And (e.X < 770) And (e.Y > 70) And (e.Y < 90) Then

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Громкость.ppt"

new_Form4_Презентация.Show()

End If

End Sub

'#End Region

'#Region "Установка курсора"

Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

If ((e.X > 750) And (e.X < 770) And (e.Y > 70) And (e.Y < 90) Or _

(e.X > 894) And (e.X < 914) And (e.Y > 75) And (e.Y < 95) Or _

(e.X > 806) And (e.X < 826) And (e.Y > 486) And (e.Y < 506) Or _

(e.X > 838) And (e.X < 858) And (e.Y > 294) And (e.Y < 314) Or _

(e.X > 470) And (e.X < 490) And (e.Y > 430) And (e.Y < 450) Or _

(e.X > 364) And (e.X < 388) And (e.Y > 445) And (e.Y < 466) Or _

(e.X > 325) And (e.X < 346) And (e.Y > 440) And (e.Y < 461) Or _

(e.X > 290) And (e.X < 315) And (e.Y > 441) And (e.Y < 469) Or _

(e.X > 406) And (e.X < 426) And (e.Y > 445) And (e.Y < 466) Or _

(e.X > 870) And (e.X < 890) And (e.Y > 70) And (e.Y < 91)) Then

Me.Cursor = Cursors.Hand

Else

Me.Cursor = Cursors.Default

End If

'Play

If (e.X > 870) And (e.X < 890) And (e.Y > 70) And (e.Y < 91) Then

Play.Visible = True

Else

Play.Visible = False

End If

'CD_Rom

If (e.X > 894) And (e.X < 914) And (e.Y > 75) And (e.Y < 95) Then

CD_ROM.Visible = True

Else

CD_ROM.Visible = False

End If

'Flopy

If (e.X > 838) And (e.X < 858) And (e.Y > 294) And (e.Y < 314) Then

FLOPY.Visible = True

Else

FLOPY.Visible = False

End If

'Resert

If (e.X > 806) And (e.X < 826) And (e.Y > 486) And (e.Y < 506) Then

RESERT.Visible = True

Else

RESERT.Visible = False

End If

'Power

If (e.X > 470) And (e.X < 490) And (e.Y > 430) And (e.Y < 450) Then

POWER.Visible = True

Else

POWER.Visible = False

End If

'Select

If (e.X > 406) And (e.X < 426) And (e.Y > 445) And (e.Y < 466) Then

SELECT_.Visible = True

Else

SELECT_.Visible = False

End If

'Меню

If (e.X > 290) And (e.X < 315) And (e.Y > 441) And (e.Y < 469) Then

MENU_1.Visible = True

Else

MENU_1.Visible = False

End If

'Контраст

If (e.X > 364) And (e.X < 388) And (e.Y > 445) And (e.Y < 466) Then

Контраст.Visible = True

Else

Контраст.Visible = False

End If

'Яркость

If (e.X > 325) And (e.X < 346) And (e.Y > 440) And (e.Y < 461) Then

Яркость.Visible = True

Else

Яркость.Visible = False

End If

'Громкость

If (e.X > 750) And (e.X < 770) And (e.Y > 70) And (e.Y < 90) Then

Громкость.Visible = True

Else

Громкость.Visible = False

End If

End Sub

'#End Region

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

Me.Hide()

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

obj_Form2_Главная_форма.Show()

End Sub

End Class



Public Class Form5_Тренинг

Inherits System.Windows.Forms.Form

Dim Pravelno, NePravelno As Integer

Dim max As Integer

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

max = max + 1

'Play

If (e.X > 870) And (e.X < 890) And

(e.Y > 70) And (e.Y < 91) And a(i) = a(0) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\PLAY.ppt"

new_Form4_Презентация.Show()

b(0) = b(0) + 1

If b(0) <= 3 Then Pravelno += 1

'CD_Rom

ElseIf (e.X > 894) And (e.X < 914) And (e.Y > 75) And (e.Y < 95) And a(i) = a(1) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\OPEN_CLOSE.ppt"

new_Form4_Презентация.Show()

b(1) = b(1) + 1

If b(1) <= 3 Then Pravelno += 1

'Flopy

ElseIf (e.X > 768) And (e.X < 904) And (e.Y > 288) And (e.Y < 328) And a(i) = a(2) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Дисковод.ppt"

new_Form4_Презентация.Show()

b(2) = b(2) + 1

If b(2) <= 3 Then Pravelno += 1

'Resert

ElseIf (e.X > 811) And (e.X < 843) And (e.Y > 488) And (e.Y < 520) And a(i) = a(3) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\RESET.ppt"

new_Form4_Презентация.Show()

b(3) = b(3) + 1

If b(3) <= 3 Then Pravelno += 1

'Power

ElseIf (e.X > 470) And (e.X < 490) And (e.Y > 430) And (e.Y < 450) And a(i) = a(4) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\POWER.ppt"

new_Form4_Презентация.Show()

b(4) = b(4) + 1

If b(4) <= 3 Then Pravelno += 1

'Select

ElseIf (e.X > 406) And (e.X < 426) And (e.Y > 445) And (e.Y < 466) And a(i) = a(5) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\SELECT.ppt"

new_Form4_Презентация.Show()

b(5) = b(5) + 1

If b(5) <= 3 Then Pravelno += 1

'Меню

ElseIf (e.X > 290) And (e.X < 315) And (e.Y > 441) And (e.Y < 469) And a(i) = a(6) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\МЕНЮ.ppt"

new_Form4_Презентация.Show()

b(6) = b(6) + 1

If b(6) <= 3 Then Pravelno += 1

'Контраст

ElseIf (e.X > 364) And (e.X < 388) And (e.Y > 445) And (e.Y < 466) And a(i) = a(7) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Контраст.ppt"

new_Form4_Презентация.Show()

b(7) = b(7) + 1

If b(7) <= 3 Then Pravelno += 1

'Яркость

ElseIf (e.X > 325) And (e.X < 346) And (e.Y > 440) And (e.Y < 461) And a(i) = a(8) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Яркость.ppt"

new_Form4_Презентация.Show()

b(8) = b(8) + 1

If b(8) <= 3 Then Pravelno += 1

'Громкость

ElseIf (e.X > 750) And (e.X < 770) And (e.Y > 70) And (e.Y < 90) And a(i) = a(9) Then

MsgBox("Верно")

new_Form4_Презентация = New Form4_Презентация

filename = Application.StartupPath + "\Громкость.ppt"

new_Form4_Презентация.Show()

b(9) = b(9) + 1

If b(9) <= 3 Then Pravelno += 1

Else

NePravelno += 1

MsgBox("Ошибка")

End If

If Pravelno = 30 Then

MsgBox("Поздравляем с успешным окончанием курса обучения," + vbCrLf + "для ответа на 30 вопросов вы сделали " + CStr(max) + " попыток")

Me.Hide()

obj_Form2_Главная_форма.Show()

Exit Sub

End If

'сбрасываем счетчик повтора вопроса

povtor_voprosa = 0

Vopros()

End Sub

Private Sub Vopros()

' выбираем вопрос случайным образом

Randomize()

i = Int(10 * Rnd())

' проверяем сколько раз был задан вопрос, если меньше чем нужно - берем его, иначе заново

If b(i) >= 3 Then Vopros() : Exit Sub

'если вопрос повторен более 10 раз - значит, в конце осталось 1 или 2 однотипных

'вопроса и нужно задать вопрос из правильно отвеченных

If povtor_voprosa > 10 Then Vopros_prav() : Exit Sub

' если выбранный вопрос такой же как предыдущий и перед ним то найдем другой

' иначе задаем вопрос

If CStr(a(i)) = vop_1 Or CStr(a(i)) = vop_2 Then

povtor_voprosa = povtor_voprosa + 1

Vopros()

Exit Sub

Else

'запоминаем предыдущий и текущий вопрос

vop_2 = vop_1

vop_1 = a(i)

'выводим вопрос

Label6.Text = CStr(a(i))

Exit Sub

End If

End Sub

Private Sub Vopros_prav()

' выбираем вопрос случайным образом из отвеченных

Randomize()

i = Int(10 * Rnd())

' проверяем сколько раз был задан вопрос, если меньше чем нужно - берем его, иначе - заново

If b(i) < 3 Then Vopros_prav() : Exit Sub

' если выбранный вопрос такой же как предыдущий и перед ним то возьмем другой,

' иначе задаем вопрос из правильно отвеченых

If CStr(a(i)) = vop_1 Or CStr(a(i)) = vop_2 Then

Vopros_prav()

Exit Sub

Else

'запоминаем предыдущий и текущий вопрос

vop_2 = vop_1

vop_1 = a(i)

'выводим вопрос

Label6.Text = CStr(a(i))

Exit Sub

End If

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Close()

End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

Me.Hide()

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

obj_Form2_Главная_форма.Show()

End Sub

End Class

Public Class Form7_Контроль

Inherits System.Windows.Forms.Form

Dim Pravelno, NePravelno As Integer

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

Dim obj_Form10_Контроль_Яркость_Уменьшить As New Form10_Контроль_Яркость

'Яркость

If (e.X > 329) And (e.X < 350) And (e.Y > 440) And (e.Y < 459) Then

Pravelno += 1

MsgBox("Верно")

Nomer_zadania = Nomer_zadania + 1

d(0) = d(0) + 1

' Dim obj_Form10_Контроль_Яркость_Уменьшить As New Form10_Контроль_Яркость

' obj_Form10_Контроль_Яркость_Уменьшить.Show()

obj_Form10_Контроль_Яркость_Уменьшить.Show()

Me.Hide()

Vopros()

Exit Sub

End If

Dim obj_Form11_Контроль_Контраст As New Form11_Контроль_Контраст

'Контраст

If (e.X > 380) And (e.X < 398) And (e.Y > 449) And (e.Y < 459) Then

Pravelno += 1

MsgBox("Верно")

Nomer_zadania = Nomer_zadania + 1

d(1) = d(1) + 1

' Dim obj_Form11_Контроль_Контраст As New Form11_Контроль_Контраст

' obj_Form11_Контроль_Контраст.Show()

obj_Form11_Контроль_Контраст.Show()

Me.Hide()

Vopros()

Exit Sub

End If

Dim obj_Form12_Контроль_Яркость_2_способ As New Form12_Яркость_2_способ

'Яркость_2_способ

If (e.X > 175) And (e.X < 195) And (e.Y > 380) And (e.Y < 395) Then

Pravelno += 1

MsgBox("Верно")

Nomer_zadania = Nomer_zadania + 1

d(2) = d(2) + 1

' Dim obj_Form12_Контроль_Яркость_2_способ As New Form12_Яркость_2_способ

' obj_Form12_Контроль_Яркость_2_способ.Show()

obj_Form12_Контроль_Яркость_2_способ.Show()

Me.Hide()

Vopros()

Exit Sub

End If

'Контраст_2_способ

If (e.X > 380) And (e.X < 398) And (e.Y > 449) And (e.Y < 459) Then

Pravelno += 1

MsgBox("Верно")

Nomer_zadania = Nomer_zadania + 1

d(3) = d(3) + 1

' Dim obj_Form12_Контроль_Яркость_2_способ As New Form12_Яркость_2_способ

' obj_Form12_Контроль_Яркость_2_способ.Show()

obj_Form12_Контроль_Яркость_2_способ.Show()

Me.Hide()

Vopros()

Exit Sub

End If

MsgBox("Неверно")

Vopros()

End Sub

Private Sub Vopros()

' выбираем вопрос случайным образом

If d(0) >= 1 And d(1) >= 1 And d(2) >= 1 And d(3) >= 1 Then Exit Sub

Randomize()

i = Int(4 * Rnd())

' проверяем сколько раз был задан вопрос, если меньше чем нужно - берем его, иначе - заново

If d(i) >= 1 Then Vopros()

' выводим вопрос

Label6.Text = CStr(R(i))

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

Me.Hide()

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

obj_Form2_Главная_форма.Show()

End Sub

Private Sub Form7_Контроль_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Nomer_zadania >= 4 Then

MsgBox("Ваша средняя оценка за 4 задания " + Format(Obshaa_osenka / 4, "#0.0"))

End If

Vopros()

End Sub

Private Sub Form7_Контроль_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated

If Nomer_zadania >= 4 Then

Me.Hide()

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

obj_Form2_Главная_форма.Show()

End If

End Sub

End Class

Public Class Form10_Контроль_Яркость

Inherits System.Windows.Forms.Form

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

'Меню

If (e.X > 280) And (e.X < 310) And (e.Y > 415) And (e.Y < 460) Then

PictureBox2.Visible = True

PictureBox1.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0

Dim obj_Form7_Контроль As New Form7_Контроль

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Выбор яркости

If (e.X > 290) And (e.X < 325) And (e.Y > 180) And (e.Y < 240) Then

PictureBox3.Visible = True

PictureBox2.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 1" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 1

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox3_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Уменьшение яркости

If (e.X > 335) And (e.X < 365) And (e.Y > 255) And (e.Y < 285) Then

PictureBox4.Visible = True

PictureBox3.Visible = False

MsgBox("Вы справились с заданием" + vbCrLf + "Ваша оценка 5")

Obshaa_osenka = Obshaa_osenka + 5

Me.Hide()

obj_Form7_Контроль.Show()

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 3" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 3

obj_Form7_Контроль.Show()

End Sub

End Class

Public Class Form11_Контроль_Контраст

Inherits System.Windows.Forms.Form

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

'Меню

If (e.X > 280) And (e.X < 310) And (e.Y > 415) And (e.Y < 460) Then

PictureBox2.Visible = True

PictureBox1.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0

Dim obj_Form7_Контроль As New Form7_Контроль

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Выбор Контраста

If (e.X > 350) And (e.X < 385) And (e.Y > 185) And (e.Y < 200) Then

PictureBox3.Visible = True

PictureBox2.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 1" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 1

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox3_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Уменьшение контраста

If (e.X > 300) And (e.X < 335) And (e.Y > 230) And (e.Y < 245) Then

PictureBox4.Visible = True

PictureBox3.Visible = False

MsgBox("Вы справились с заданием" + vbCrLf + "Ваша оценка 5")

Obshaa_osenka = Obshaa_osenka + 5

Me.Hide()

obj_Form7_Контроль.Show()

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 3" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 3

obj_Form7_Контроль.Show()

End Sub

End Class

Public Class Form12_Яркость_2_способ

Inherits System.Windows.Forms.Form

Private Sub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp

'Пуск

If (e.X > 0) And (e.X < 150) And (e.Y > 470) And (e.Y < 490) Then

PictureBox4.Visible = True

PictureBox2.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0

Dim obj_Form7_Контроль As New Form7_Контроль

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox4_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Настройка

If (e.X > 255) And (e.X < 295) And (e.Y > 475) And (e.Y < 500) Then

PictureBox5.Visible = True

PictureBox4.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 0.5" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0.5

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox5_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Экран

If (e.X > 400) And (e.X < 448) And (e.Y > 610) And (e.Y < 627) Then

PictureBox6.Visible = True

PictureBox5.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 1" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 1

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Параметры

If (e.X > 460) And (e.X < 488) And (e.Y > 120) And (e.Y < 140) Then

PictureBox7.Visible = True

PictureBox6.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 2" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0.5

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Дополнительно

If (e.X > 500) And (e.X < 570) And (e.Y > 445) And (e.Y < 475) Then

PictureBox8.Visible = True

PictureBox7.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 2.5" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0.5

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Цвет

If (e.X > 210) And (e.X < 265) And (e.Y > 100) And (e.Y < 150) Then

PictureBox9.Visible = True

PictureBox8.Visible = False

Exit Sub

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 3" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 0.5

obj_Form7_Контроль.Show()

End Sub

Private Sub PictureBox9_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseUp

Dim obj_Form7_Контроль As New Form7_Контроль

'Выбор Яркости

If (e.X > 380) And (e.X < 440) And (e.Y > 280) And (e.Y < 360) Then

PictureBox10.Visible = True Or PictureBox11.Visible = True

PictureBox9.Visible = False

MsgBox("Вы справились с заданием" + vbCrLf + "Ваша оценка 5")

Obshaa_osenka = Obshaa_osenka + 5

Me.Hide()

obj_Form7_Контроль.Show()

Exit Sub

MsgBox("Вы справились с заданием" + vbCrLf + "Ваша оценка 5")

End If

'Выбор Контраста

If (e.X > 380) And (e.X < 440) And (e.Y > 340) And (e.Y < 390) Then

PictureBox11.Visible = True

PictureBox9.Visible = False

MsgBox("Вы справились с заданием" + vbCrLf + "Ваша оценка 5")

Obshaa_osenka = Obshaa_osenka + 5

Me.Hide()

obj_Form7_Контроль.Show()

Exit Sub

MsgBox("Вы справились с заданием" + vbCrLf + "Ваша оценка 5")

End If

MsgBox("Неверно" + vbCrLf + "ваша оценка 3" + vbCrLf + "Пройдите режим демонстрация")

Me.Hide()

Obshaa_osenka = Obshaa_osenka + 3

obj_Form7_Контроль.Show()

End Sub

End Class

Public Class Form9_About

Inherits System.Windows.Forms.Form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim obj_Form9_Результат As New Form9_Результат

obj_Form9_Результат.Label1.Visible = True

obj_Form9_Результат.Label2.Visible = False

obj_Form9_Результат.Label3.Visible = False

obj_Form9_Результат.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim obj_Form9_Результат As New Form9_Результат

obj_Form9_Результат.Label1.Visible = False

obj_Form9_Результат.Label2.Visible = True

obj_Form9_Результат.Label3.Visible = False

obj_Form9_Результат.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim obj_Form9_Результат As New Form9_Результат

obj_Form9_Результат.Label1.Visible = False

obj_Form9_Результат.Label2.Visible = False

obj_Form9_Результат.Label3.Visible = True

obj_Form9_Результат.Show()

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

Me.Hide()

Dim obj_Form2_Главная_форма As New Form2_Главная_форма

obj_Form2_Главная_форма.Show()

End Sub

End Class

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