Компьютерный тренажер-эмулятор видеомагнитофона "FUNAІ": функции воспроизведения видеосюжета, возврат кассеты, перемотка кассеты вперед и назад, остановка действий - Дипломная работа

бесплатно 0
4.5 300
Разработка компьютерного тренажера-эмулятора, содержащего показ презентации по управлению видеомагнитофоном. Реализация программы в режимах "Демонстрация", "Тренинг", "Контроль". Определение себестоимости программного продукта и составление сметы затрат.

Скачать работу Скачать уникальную работу

Чтобы скачать работу, Вы должны пройти проверку:


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

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

2. Самоучитель Visual Basic .NET / Д. Зак. - Киев: BHV; Спб.: Питер, 2003. - 558 с.

3. Поль Киммел. Visual Basic .NET. Искусство программирования / Пер. с англ. - Спб.: ООО «ДИАСОФТЮП», 2003. - 720 с.

4. Лобунець В.І. Дипломне проектування. Методичні вказівки з техніко-економічного обґрунтування розробки нового програмного продукту для студентів спеціальності 6.010100.36 «Професійне навчання. Компютерні технології в управлінні та навчанні» - Харків: УІПА, 2005 - 10 с.

5. Іванов В.Г. БЖД. - Х: 2003.

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

7. Кнорринг Г.М., Оболонцев Ю.Б., Берим Р.И., Крючков В.М. Справочная книга для проектирования электрического освещения. - Л.:Энергия,1976.

8. Методические указания по расчету искусственного освещения промышленный предприятий в разделе «Охрана труда» /Сост. А.К. Грицай, Г.Т. Головченко. - Х.: УЗПИ, 1986.

9. Жидецький В.Ц., Джигирей В.С., Мельников О.В. Основи охорони праці. - Вид.2-е, стереотипне. - Львів: Афіша,2000.-С.17...94.

10. Навакатікян О.О., Кальниш В.В., Стрюков С.М. Охорона праці користувачів комп’ютерних відео дисплейних терміналів.-К.,1997.

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

Приложение

Программа для формы 1

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MYBASE.New()

"This call is required by the Windows Form Designer.

INITIALIZECOMPONENT()

"Add any initialization after the INITIALIZECOMPONENT() call

End Sub

"Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Required by the Windows Form Designer

Private components As System.COMPONENTMODEL.ICONTAINER

"NOTE: The following procedure is required by the Windows Form Designer

"It can be modified using the Windows Form Designer.

"Do not modify it using the code editor.

Friend WITHEVENTS Label1 As System.Windows.Forms.Label

Friend WITHEVENTS Label2 As System.Windows.Forms.Label

Friend WITHEVENTS Button1 As System.Windows.Forms.Button

Friend WITHEVENTS Button2 As System.Windows.Forms.Button

Friend WITHEVENTS Button3 As System.Windows.Forms.Button

Friend WITHEVENTS Button4 As System.Windows.Forms.Button

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form1))

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.SUSPENDLAYOUT()

"Label1

Me.Label1.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(192, Byte), CTYPE(0, Byte))

Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 20.25!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label1.Location = New System.Drawing.Point(30, 48)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(952, 48)

Me.Label1.TABINDEX = 2

Me.Label1.Text = "Компьютерный тренажер-эмулятор ""Видеомагнитофон FUNAL"""

"Label2

Me.Label2.BACKCOLOR = System.Drawing.Color.Aqua

Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 20.25!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label2.FORECOLOR = System.Drawing.Color.Magenta

Me.Label2.Location = New System.Drawing.Point(16, 208)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(208, 192)

Me.Label2.TABINDEX = 3

Me.Label2.Text = "Разработала: студентка группы ДРЭ-К3-1 Попивняк Ю.В."

"Button1

"Me.Button1.BACKCOLOR = System.Drawing.Color.Red

Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button1.Location = New System.Drawing.Point(632, 672)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(104, 40)

Me.Button1.TABINDEX = 4

Me.Button1.Text = "Выход"

""Button2

"Me.Button2.BACKCOLOR = System.Drawing.Color.GREENYELLOW

Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button2.Location = New System.Drawing.Point(600, 624)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(144, 40)

Me.Button2.TABINDEX = 5

Me.Button2.Text = "Далее >>"

""Button3

"Me.Button3.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button3.FORECOLOR = System.Drawing.Color.Blue

Me.Button3.Location = New System.Drawing.Point(40, 424)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(144, 40)

Me.Button3.TABINDEX = 6

Me.Button3.Text = "Об авторе"

""Button4

"Me.Button4.BACKCOLOR = System.Drawing.Color.Orange

Me.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button4.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button4.Location = New System.Drawing.Point(80, 496)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(120, 40)

Me.Button4.TABINDEX = 7

Me.Button4.Text = "Справка"

""Form1

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.BACKGROUNDIMAGE = CTYPE(resources.GETOBJECT("$this.BACKGROUNDIMAGE"), System.Drawing.Image)

Me.CLIENTSIZE = New System.Drawing.Size(1028, 734)

Me.CONTROLBOX = False

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Name = "Form1"

Me.Text = "главная форма"

Me.WINDOWSTATE = System.Windows.Forms.FORMWINDOWSTATE.Maximized

Me.RESUMELAYOUT(False)

End Sub

#End Region

Private Sub Button1_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button1.Click

End

End Sub

Private Sub Button2_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button2.Click

Dim obj_Form2 As New Form2 obj_Form2.Show()

End Sub

Private Sub Button4_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button4.Click

Dim Obj_Form14 As New Form14

Obj_Form14.Show()

Obj_Form14.AXWEBBROWSER1.Navigate(Application.STARTUPPATH "\СПРАВКА.htm")

End Sub

Private Sub Button3_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button3.Click

Dim obj_Form13 As New Form13 obj_Form13.Show()

End Sub

End Class

Программа для формы 2

Public Class Form2

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MYBASE.New()

"This call is required by the Windows Form Designer.

INITIALIZECOMPONENT()

"Add any initialization after the INITIALIZECOMPONENT() call

End Sub

"Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Required by the Windows Form Designer

Private components As System.COMPONENTMODEL.ICONTAINER

"NOTE: The following procedure is required by the Windows Form Designer

"It can be modified using the Windows Form Designer.

"Do not modify it using the code editor.

Friend WITHEVENTS MAINMENU1 As System.Windows.Forms.MAINMENU

Friend WITHEVENTS MENUITEM1 As System.Windows.Forms.MENUITEM

Friend WITHEVENTS MENUITEM2 As System.Windows.Forms.MENUITEM

Friend WITHEVENTS MENUITEM3 As System.Windows.Forms.MENUITEM

Friend WITHEVENTS MENUITEM4 As System.Windows.Forms.MENUITEM

Friend WITHEVENTS MENUITEM5 As System.Windows.Forms.MENUITEM

Friend WITHEVENTS Button1 As System.Windows.Forms.Button

Friend WITHEVENTS Button2 As System.Windows.Forms.Button

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form2))

Me.MAINMENU1 = New System.Windows.Forms.MAINMENU

Me.MENUITEM1 = New System.Windows.Forms.MENUITEM

Me.MENUITEM2 = New System.Windows.Forms.MENUITEM

Me.MENUITEM3 = New System.Windows.Forms.MENUITEM

Me.MENUITEM4 = New System.Windows.Forms.MENUITEM

Me.MENUITEM5 = New System.Windows.Forms.MENUITEM

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.SUSPENDLAYOUT()

""MAINMENU1

"Me.MAINMENU1.MENUITEMS.ADDRANGE(New System.Windows.Forms.MENUITEM() {Me.MENUITEM1, Me.MENUITEM2, Me.MENUITEM3, Me.MENUITEM4, Me.MENUITEM5})

""MENUITEM1

"Me.MENUITEM1.Index = 0

Me.MENUITEM1.Text = "Демонстрация"

""MENUITEM2

"Me.MENUITEM2.Index = 1

Me.MENUITEM2.Text = "Тренинг"

""MENUITEM3

"Me.MENUITEM3.Index = 2

Me.MENUITEM3.Text = "Контроль"

""MENUITEM4

"Me.MENUITEM4.Index = 3

Me.MENUITEM4.Text = "Назад"

""MENUITEM5

"Me.MENUITEM5.Index = 4

Me.MENUITEM5.Text = "Выход"

""Button1

"Me.Button1.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button1.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button1.Location = New System.Drawing.Point(16, 408)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(144, 40)

Me.Button1.TABINDEX = 0

Me.Button1.Text = "Об авторе"

""Button2

"Me.Button2.BACKCOLOR = System.Drawing.Color.Orange

Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button2.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button2.Location = New System.Drawing.Point(16, 456)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(136, 40)

Me.Button2.TABINDEX = 1

Me.Button2.Text = "Справка"

""Form2

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.BACKGROUNDIMAGE = CTYPE(resources.GETOBJECT("$this.BACKGROUNDIMAGE"), System.Drawing.Image)

Me.CLIENTSIZE = New System.Drawing.Size(840, 505)

Me.CONTROLBOX = False

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.Menu = Me.MAINMENU1

Me.Name = "Form2"

Me.Text = "Режимы"

Me.RESUMELAYOUT(False)

End Sub

#End Region

Private Sub MENUITEM1_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MENUITEM1.Click

Dim obj_Form15 As New Form15 obj_Form15.Show()

End Sub

Private Sub MENUITEM2_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MENUITEM2.Click

Dim obj_Form16 As New Form16 obj_Form16.Show()

End Sub

Private Sub MENUITEM3_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MENUITEM3.Click

Dim obj_Form17 As New Form17 obj_Form17.Show()

End Sub

Private Sub MENUITEM4_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MENUITEM4.Click

Close()

End Sub

Private Sub MENUITEM5_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MENUITEM5.Click

End

End Sub

Private Sub Button2_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button2.Click

Dim Obj_Form14 As New Form14

Obj_Form14.Show()

Obj_Form14.AXWEBBROWSER1.Navigate(Application.STARTUPPATH "\СПРАВКА.htm")

End Sub

Private Sub Button1_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button1.Click

Dim obj_Form13 As New Form13 obj_Form13.Show()

End Sub

End Class

Программа для формы 3

Public Class Form3

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MYBASE.New()

"This call is required by the Windows Form Designer.

INITIALIZECOMPONENT()

"Add any initialization after the INITIALIZECOMPONENT() call

End Sub

"Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Required by the Windows Form Designer

Private components As System.COMPONENTMODEL.ICONTAINER

"NOTE: The following procedure is required by the Windows Form Designer

"It can be modified using the Windows Form Designer.

"Do not modify it using the code editor.

Friend WITHEVENTS Button2 As System.Windows.Forms.Button

Friend WITHEVENTS Button3 As System.Windows.Forms.Button

Friend WITHEVENTS Button4 As System.Windows.Forms.Button

Friend WITHEVENTS Button5 As System.Windows.Forms.Button

Friend WITHEVENTS PICTUREBOX1 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Rewind As System.Windows.Forms.Label

Friend WITHEVENTS FFRD As System.Windows.Forms.Label

Friend WITHEVENTS Play As System.Windows.Forms.Label

Friend WITHEVENTS Eject As System.Windows.Forms.Label

Friend WITHEVENTS Stopp As System.Windows.Forms.Label

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form3))

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.Button5 = New System.Windows.Forms.Button

Me.PICTUREBOX1 = New System.Windows.Forms.PICTUREBOX

Me.Rewind = New System.Windows.Forms.Label

Me.FFRD = New System.Windows.Forms.Label

Me.Play = New System.Windows.Forms.Label

Me.Eject = New System.Windows.Forms.Label

Me.Stopp = New System.Windows.Forms.Label

Me.SUSPENDLAYOUT()

""Button2

"Me.Button2.BACKCOLOR = System.Drawing.Color.GREENYELLOW

Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button2.Location = New System.Drawing.Point(584, 520)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(136, 40)

Me.Button2.TABINDEX = 2

Me.Button2.Text = "Далее >>"

""Button3

"Me.Button3.BACKCOLOR = System.Drawing.Color.GREENYELLOW

Me.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button3.Location = New System.Drawing.Point(440, 520)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(136, 40)

Me.Button3.TABINDEX = 2

Me.Button3.Text = "<< Назад"

""Button4

"Me.Button4.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button4.FORECOLOR = System.Drawing.Color.Blue

Me.Button4.Location = New System.Drawing.Point(40, 520)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(144, 40)

Me.Button4.TABINDEX = 5

Me.Button4.Text = "Об авторе"

""Button5

"Me.Button5.BACKCOLOR = System.Drawing.Color.Orange

Me.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button5.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button5.Location = New System.Drawing.Point(208, 520)

Me.Button5.Name = "Button5"

Me.Button5.Size = New System.Drawing.Size(120, 40)

Me.Button5.TABINDEX = 6

Me.Button5.Text = "Справка"

""PICTUREBOX1

"Me.PICTUREBOX1.Image = CTYPE(resources.GETOBJECT("PICTUREBOX1.Image"), System.Drawing.Image)

Me.PICTUREBOX1.Location = New System.Drawing.Point(0, 8)

Me.PICTUREBOX1.Name = "PICTUREBOX1"

Me.PICTUREBOX1.Size = New System.Drawing.Size(848, 504)

Me.PICTUREBOX1.TABINDEX = 8

Me.PICTUREBOX1.TABSTOP = False

""Rewind

"Me.Rewind.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Rewind.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FONTSTYLE.Regular, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Rewind.Location = New System.Drawing.Point(416, 256)

Me.Rewind.Name = "Rewind"

Me.Rewind.Size = New System.Drawing.Size(256, 32)

Me.Rewind.TABINDEX = 9

Me.Rewind.Text = "кнопка управления Rewind"

""FFRD

"Me.FFRD.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.FFRD.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FONTSTYLE.Regular, System.Drawing.GRAPHICSUNIT.Point, CTYPE(0, Byte))

Me.FFRD.Location = New System.Drawing.Point(560, 328)

Me.FFRD.Name = "FFRD"

Me.FFRD.Size = New System.Drawing.Size(248, 32)

Me.FFRD.TABINDEX = 10

Me.FFRD.Text = "кнопка управления F.FRD"

""Play

"Me.Play.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Play.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FONTSTYLE.Regular, System.Drawing.GRAPHICSUNIT.Point, CTYPE(0, Byte))

Me.Play.Location = New System.Drawing.Point(584, 264)

Me.Play.Name = "Play"

Me.Play.Size = New System.Drawing.Size(232, 32)

Me.Play.TABINDEX = 11

Me.Play.Text = "кнопка управления Play"

""Eject

"Me.Eject.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Eject.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FONTSTYLE.Regular, System.Drawing.GRAPHICSUNIT.Point, CTYPE(0, Byte))

Me.Eject.Location = New System.Drawing.Point(448, 320)

Me.Eject.Name = "Eject"

Me.Eject.Size = New System.Drawing.Size(248, 32)

Me.Eject.TABINDEX = 12

Me.Eject.Text = "кнопка управления Eject"

""Stopp

"Me.Stopp.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Stopp.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FONTSTYLE.Regular, System.Drawing.GRAPHICSUNIT.Point, CTYPE(0, Byte))

Me.Stopp.Location = New System.Drawing.Point(592, 376)

Me.Stopp.Name = "Stopp"

Me.Stopp.Size = New System.Drawing.Size(240, 32)

Me.Stopp.TABINDEX = 13

Me.Stopp.Text = "кнопка управления Stop"

""Form3

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.BACKCOLOR = System.Drawing.Color.Teal

Me.CLIENTSIZE = New System.Drawing.Size(864, 565)

Me.CONTROLBOX = False

Me.Controls.Add(Me.Stopp)

Me.Controls.Add(Me.Eject)

Me.Controls.Add(Me.Play)

Me.Controls.Add(Me.FFRD)

Me.Controls.Add(Me.Rewind)

Me.Controls.Add(Me.PICTUREBOX1)

Me.Controls.Add(Me.Button5)

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button3)

Me.Name = "Form3"

Me.Text = "Демонстрация"

Me.RESUMELAYOUT(False)

End Sub

#End Region

Private Sub Button2_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button2.Click

Dim obj_Form16 As New Form16 obj_Form16.Show()

End Sub

Private Sub Button3_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button3.Click

Close()

End Sub

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

Private Sub PICTUREBOX1_MOUSEMOVE(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX1.MOUSEMOVE

If ((e.X > 672) And (e.X 288) And (e.Y < 312) Or _

(e.X > 632) And (e.X 288) And (e.Y < 312) Or _

(e.X > 728) And (e.X 296) And (e.Y < 320) Or _

(e.X > 672) And (e.X 344) And (e.Y < 368)) Or _

(e.X > 696) And (e.X 344) And (e.Y < 368) Then

Me.Cursor = Cursors.Hand

Else

Me.Cursor = Cursors.Default

End If

If (e.X > 672) And (e.X 288) And (e.Y < 312) Then

Play.Visible = True

Else

Play.Visible = False

End If

If (e.X > 632) And (e.X 288) And (e.Y < 312) Then

Rewind.Visible = True

Else

Rewind.Visible = False

End If

If (e.X > 728) And (e.X 296) And (e.Y < 320) Then

FFRD.Visible = True

Else

FFRD.Visible = False

End If

If (e.X > 672) And (e.X 344) And (e.Y < 368) Then

Eject.Visible = True

Else

Eject.Visible = False

End If

If (e.X > 696) And (e.X 344) And (e.Y < 368) Then

Stopp.Visible = True

Else

Stopp.Visible = False

End If

End Sub

#End Region

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

Private Sub PICTUREBOX1_MOUSEUP1(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX1.MOUSEUP

If (e.X > 672) And (e.X 288) And (e.Y < 312) Then

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Play.ppt"

New_Form4.Show()

End If

If (e.X > 632) And (e.X 288) And (e.Y < 314) Then

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Rewind.ppt"

New_Form4.Show()

End If

If (e.X > 728) And (e.X 296) And (e.Y < 320) Then

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_F.FRD.ppt"

New_Form4.Show()

End If

If (e.X > 672) And (e.X 344) And (e.Y < 368) Then

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Eject.ppt"

New_Form4.Show()

End If

If (e.X > 696) And (e.X 344) And (e.Y < 368) Then

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Stop.ppt"

New_Form4.Show()

End If

End Sub

#End Region

Private Sub Button5_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button5.Click

Dim Obj_Form14 As New Form14

Obj_Form14.Show()

Obj_Form14.AXWEBBROWSER1.Navigate(Application.STARTUPPATH "\СПРАВКА.htm")

End Sub

Private Sub Button4_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button4.Click

Dim obj_Form13 As New Form13 obj_Form13.Show()

End Sub

End Class

Программа для формы 4

Public Class Form4

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MYBASE.New()

"This call is required by the Windows Form Designer.

INITIALIZECOMPONENT()

"Add any initialization after the INITIALIZECOMPONENT() call

End Sub

"Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Required by the Windows Form Designer

Private components As System.COMPONENTMODEL.ICONTAINER

"NOTE: The following procedure is required by the Windows Form Designer

"It can be modified using the Windows Form Designer.

"Do not modify it using the code editor.

Friend WITHEVENTS Button1 As System.Windows.Forms.Button

Friend WITHEVENTS AXWEBBROWSER1 As AXSHDOCVW.AXWEBBROWSER

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form4))

Me.Button1 = New System.Windows.Forms.Button

Me.AXWEBBROWSER1 = New AXSHDOCVW.AXWEBBROWSER

CTYPE(Me.AXWEBBROWSER1, System.COMPONENTMODEL.ISUPPORTINITIALIZE).BEGININIT()

Me.SUSPENDLAYOUT()

""Button1

"Me.Button1.BACKCOLOR = System.Drawing.Color.GREENYELLOW

Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button1.FORECOLOR = System.Drawing.Color.Blue

Me.Button1.Location = New System.Drawing.Point(576, 488)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(144, 32)

Me.Button1.TABINDEX = 0

Me.Button1.Text = "<< Назад"

""AXWEBBROWSER1

"Me.AXWEBBROWSER1.Dock = System.Windows.Forms.DOCKSTYLE.Fill

Me.AXWEBBROWSER1.Enabled = True

Me.AXWEBBROWSER1.Location = New System.Drawing.Point(0, 0)

Me.AXWEBBROWSER1.OCXSTATE = CTYPE(resources.GETOBJECT("AXWEBBROWSER1.OCXSTATE"), System.Windows.Forms.AXHOST.State)

Me.AXWEBBROWSER1.Size = New System.Drawing.Size(736, 533)

Me.AXWEBBROWSER1.TABINDEX = 1

""Form4

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.CLIENTSIZE = New System.Drawing.Size(736, 533)

Me.Controls.Add(Me.AXWEBBROWSER1)

Me.Controls.Add(Me.Button1)

Me.Name = "Form4"

Me.Text = "Презентация"

CTYPE(Me.AXWEBBROWSER1, System.COMPONENTMODEL.ISUPPORTINITIALIZE).ENDINIT()

Me.RESUMELAYOUT(False)

End Sub

#End Region

Private Sub Button1_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS)

Close()

End Sub

Private Sub Form4_Load(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MYBASE.Load

AXWEBBROWSER1.Navigate(filename)

End Sub

Private Sub Button1_Click_1(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button1.Click

Close()

End Sub

End Class

Программа для формы 5

Public Class Form5

Inherits System.Windows.Forms.Form

Dim a() As String = {"Покажите кнопку, которая производит воспроизведение видеосюжета", "Покажите кнопку, которая перематывает видеосюжет назад", "Покажите кнопку, которая перематывает видеосюжет вперед", "Покажите кнопку, которая выдает видеокассету", "Покажите кнопку, которая останавливает все действия"}

Dim i As Integer = Int(5 * Rnd())

Dim Mas() As Integer = {0, 0, 0, 0, 0}

Dim s As Double

#Region " Windows Form Designer generated code "

Public Sub New()

MYBASE.New()

"This call is required by the Windows Form Designer.

INITIALIZECOMPONENT()

"Add any initialization after the INITIALIZECOMPONENT() call

End Sub

"Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Required by the Windows Form Designer

Private components As System.COMPONENTMODEL.ICONTAINER

"NOTE: The following procedure is required by the Windows Form Designer

"It can be modified using the Windows Form Designer.

"Do not modify it using the code editor.

Friend WITHEVENTS Label1 As System.Windows.Forms.Label

Friend WITHEVENTS Label2 As System.Windows.Forms.Label

Friend WITHEVENTS Button2 As System.Windows.Forms.Button

Friend WITHEVENTS Button3 As System.Windows.Forms.Button

Friend WITHEVENTS PICTUREBOX1 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Button1 As System.Windows.Forms.Button

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form5))

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.PICTUREBOX1 = New System.Windows.Forms.PICTUREBOX

Me.Button1 = New System.Windows.Forms.Button

Me.SUSPENDLAYOUT()

""Label1

"Me.Label1.BACKCOLOR = System.Drawing.Color.Lime

Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 21.75!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label1.Location = New System.Drawing.Point(336, 8)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(304, 40)

Me.Label1.TABINDEX = 1

Me.Label1.Text = "Ответьте на вопрос"

""Label2

"Me.Label2.BACKCOLOR = System.Drawing.Color.Yellow

Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FONTSTYLE.Regular, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label2.Location = New System.Drawing.Point(24, 64)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(872, 40)

Me.Label2.TABINDEX = 2

Me.Label2.Text = "Label2"

""Button2

"Me.Button2.BACKCOLOR = System.Drawing.Color.Orange

Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button2.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button2.Location = New System.Drawing.Point(608, 616)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(144, 32)

Me.Button2.TABINDEX = 3

Me.Button2.Text = "Справка"

""Button3

"Me.Button3.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button3.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button3.FORECOLOR = System.Drawing.Color.Blue

Me.Button3.Location = New System.Drawing.Point(448, 616)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(144, 32)

Me.Button3.TABINDEX = 4

Me.Button3.Text = "Об авторе"

""PICTUREBOX1

"Me.PICTUREBOX1.Image = CTYPE(resources.GETOBJECT("PICTUREBOX1.Image"), System.Drawing.Image)

Me.PICTUREBOX1.Location = New System.Drawing.Point(40, 112)

Me.PICTUREBOX1.Name = "PICTUREBOX1"

Me.PICTUREBOX1.Size = New System.Drawing.Size(848, 504)

Me.PICTUREBOX1.TABINDEX = 5

Me.PICTUREBOX1.TABSTOP = False

""Button1

"Me.Button1.BACKCOLOR = System.Drawing.Color.Red

Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button1.Location = New System.Drawing.Point(784, 616)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(104, 32)

Me.Button1.TABINDEX = 6

Me.Button1.Text = "Выход"

""Form5

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.CLIENTSIZE = New System.Drawing.Size(928, 661)

Me.CONTROLBOX = False

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.PICTUREBOX1)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Name = "Form5"

Me.Text = "Тренинг"

Me.RESUMELAYOUT(False)

End Sub

#End Region

Private Sub Form5_Load(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles MYBASE.Load

Randomize() i = Int(5 * Rnd())

Label2.Text = CSTR(a(i))

End Sub

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

Private Sub PICTUREBOX1_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX1.MOUSEUP

"Play

If i = 0 Then

If (e.X > 672) And (e.X 288) And (e.Y < 312) Then

Mas(i) = Mas(i) 1

MSGBOX("Верно")

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Play.ppt"

New_Form4.Show()

Else

MSGBOX("Ошибка")

End If

End If

"Rewind

If i = 1 Then

If (e.X > 632) And (e.X 288) And (e.Y < 314) Then

Mas(i) = Mas(i) 1

MSGBOX("Верно")

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Rewind.ppt"

New_Form4.Show()

Else

MSGBOX("Ошибка")

End If

End If

"F.FRD

If i = 2 Then

If (e.X > 728) And (e.X 296) And (e.Y < 320) Then

Mas(i) = Mas(i) 1

MSGBOX("Верно")

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_F.FRD.ppt"

New_Form4.Show()

Else

MSGBOX("Ошибка")

End If

End If

"кнопка_Eject

If i = 4 Then

If (e.X > 672) And (e.X 344) And (e.Y < 368) Then

Mas(i) = Mas(i) 1

MSGBOX("Верно")

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Eject.ppt"

New_Form4.Show()

Else

MSGBOX("Ошибка")

End If

End If

"кнопка_Stop

If i = 3 Then

If (e.X > 696) And (e.X 344) And (e.Y < 368) Then

Mas(i) = Mas(i) 1

MSGBOX("Верно")

New_Form4 = New Form4 filename = Application.STARTUPPATH "\кнопка_Stop.ppt"

New_Form4.Show()

Else

MSGBOX("Ошибка")

End If

End If s = 0

For i = 0 To 4 s = s Mas(i)

Next i

If s = 15 Then

MSGBOX("Режим Тренинг пройден!")

Dim Obj_Form5 As New Form5

Obj_Form5.Close()

Dim Obj_Form2 As New Form2

Obj_Form2.Show()

Else

Randomize() i = Int(5 * Rnd())

Label2.Text = CSTR(a(i))

End If

End Sub

#End Region

Private Sub Button2_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button2.Click

Dim Obj_Form14 As New Form14

Obj_Form14.Show()

Obj_Form14.AXWEBBROWSER1.Navigate(Application.STARTUPPATH "\СПРАВКА.htm")

End Sub

Private Sub Button3_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button3.Click

Dim obj_Form13 As New Form13 obj_Form13.Show()

End Sub

Private Sub Button1_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button1.Click

Close()

End Sub

End Class

Программа для формы 7

Public Class Form7

Inherits System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New()

MYBASE.New()

"Этот вызов требуется конструктором форм Windows.

INITIALIZECOMPONENT()

"Добавьте код инициализации после вызова INITIALIZECOMPONENT()

End Sub

"Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Требуется конструктором форм Windows

Private components As System.COMPONENTMODEL.ICONTAINER

"ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

"Ее можно изменить в конструкторе форм Windows.

"Не изменяйте ее в редакторе исходного текста.

Friend WITHEVENTS Label1 As System.Windows.Forms.Label

Friend WITHEVENTS PICTUREBOX4 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS PICTUREBOX3 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS PICTUREBOX2 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS PICTUREBOX1 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Button4 As System.Windows.Forms.Button

Friend WITHEVENTS Button5 As System.Windows.Forms.Button

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form7))

Me.Label1 = New System.Windows.Forms.Label

Me.PICTUREBOX4 = New System.Windows.Forms.PICTUREBOX

Me.PICTUREBOX3 = New System.Windows.Forms.PICTUREBOX

Me.PICTUREBOX2 = New System.Windows.Forms.PICTUREBOX

Me.PICTUREBOX1 = New System.Windows.Forms.PICTUREBOX

Me.Button4 = New System.Windows.Forms.Button

Me.Button5 = New System.Windows.Forms.Button

Me.SUSPENDLAYOUT()

""Label1

"Me.Label1.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(192, Byte), CTYPE(255, Byte))

Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label1.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Label1.Location = New System.Drawing.Point(32, 8)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(624, 64)

Me.Label1.TABINDEX = 9

Me.Label1.Text = "Выполните действия, необходимые для воспроизведения сюжета"

Me.Label1.TEXTALIGN = System.Drawing.CONTENTALIGNMENT.MIDDLECENTER

""PICTUREBOX4

"Me.PICTUREBOX4.Dock = System.Windows.Forms.DOCKSTYLE.Fill

Me.PICTUREBOX4.Image = CTYPE(resources.GETOBJECT("PICTUREBOX4.Image"), System.Drawing.Image)

Me.PICTUREBOX4.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX4.Name = "PICTUREBOX4"

Me.PICTUREBOX4.Size = New System.Drawing.Size(692, 466)

Me.PICTUREBOX4.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX4.TABINDEX = 8

Me.PICTUREBOX4.TABSTOP = False

""PICTUREBOX3

"Me.PICTUREBOX3.Dock = System.Windows.Forms.DOCKSTYLE.Fill

Me.PICTUREBOX3.Image = CTYPE(resources.GETOBJECT("PICTUREBOX3.Image"), System.Drawing.Image)

Me.PICTUREBOX3.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX3.Name = "PICTUREBOX3"

Me.PICTUREBOX3.Size = New System.Drawing.Size(692, 466)

Me.PICTUREBOX3.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX3.TABINDEX = 7

Me.PICTUREBOX3.TABSTOP = False

""PICTUREBOX2

"Me.PICTUREBOX2.Dock = System.Windows.Forms.DOCKSTYLE.Fill

Me.PICTUREBOX2.Image = CTYPE(resources.GETOBJECT("PICTUREBOX2.Image"), System.Drawing.Image)

Me.PICTUREBOX2.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX2.Name = "PICTUREBOX2"

Me.PICTUREBOX2.Size = New System.Drawing.Size(692, 466)

Me.PICTUREBOX2.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX2.TABINDEX = 6

Me.PICTUREBOX2.TABSTOP = False

""PICTUREBOX1

"Me.PICTUREBOX1.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(192, Byte), CTYPE(255, Byte))

Me.PICTUREBOX1.Dock = System.Windows.Forms.DOCKSTYLE.Fill

Me.PICTUREBOX1.Image = CTYPE(resources.GETOBJECT("PICTUREBOX1.Image"), System.Drawing.Image)

Me.PICTUREBOX1.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX1.Name = "PICTUREBOX1"

Me.PICTUREBOX1.Size = New System.Drawing.Size(692, 466)

Me.PICTUREBOX1.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX1.TABINDEX = 5

Me.PICTUREBOX1.TABSTOP = False

""Button4

"Me.Button4.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button4.FORECOLOR = System.Drawing.Color.Blue

Me.Button4.Location = New System.Drawing.Point(0, 424)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(144, 40)

Me.Button4.TABINDEX = 14

Me.Button4.Text = "Об авторе"

""Button5

"Me.Button5.BACKCOLOR = System.Drawing.Color.Orange

Me.Button5.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button5.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button5.Location = New System.Drawing.Point(160, 424)

Me.Button5.Name = "Button5"

Me.Button5.Size = New System.Drawing.Size(120, 40)

Me.Button5.TABINDEX = 15

Me.Button5.Text = "Справка"

""Form7

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.CLIENTSIZE = New System.Drawing.Size(692, 466)

Me.CONTROLBOX = False

Me.Controls.Add(Me.Button5)

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.PICTUREBOX1)

Me.Controls.Add(Me.PICTUREBOX4)

Me.Controls.Add(Me.PICTUREBOX3)

Me.Controls.Add(Me.PICTUREBOX2)

Me.Name = "Form7"

Me.STARTPOSITION = System.Windows.Forms.FORMSTARTPOSITION.CENTERSCREEN

Me.Text = "Задание1"

Me.RESUMELAYOUT(False)

End Sub

#End Region

Public bal_1 As Integer

Private Sub PICTUREBOX1_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX1.MOUSEUP bal_1 = 0

"включение

If (e.X > 504) And (e.X 288) And (e.Y < 328) Or _

(e.X > 24) And (e.X 120) And (e.Y < 144) Then

PICTUREBOX1.Visible = False

PICTUREBOX2.Visible = True

PICTUREBOX3.Visible = False

PICTUREBOX4.Visible = False

Exit Sub

End If

MSGBOX("Неправильно." VBCRLF "Вы заработали 0 баллов.", MSGBOXSTYLE.Critical, "Результат")

Me.Hide() bal_1 = 0

Dim obj_Form8 As New Form8 obj_Form8.Show()

End Sub

Private Sub PICTUREBOX2_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX2.MOUSEUP

"вставка кассеты

If (e.X > 336) And (e.X 152) And (e.Y < 200) Then

PICTUREBOX1.Visible = False

PICTUREBOX2.Visible = False

PICTUREBOX3.Visible = True

PICTUREBOX4.Visible = False

Exit Sub

End If

MSGBOX("Неправильно." VBCRLF "Вы заработали 2 балла.", MSGBOXSTYLE.Critical, "Результат")

Me.Hide() bal_1 = 2

Dim obj_Form8 As New Form8 obj_Form8.Show()

End Sub

Private Sub PICTUREBOX3_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX3.MOUSEUP

"Play

Dim obj_Form8 As New Form8

If (e.X > 544) And (e.X 216) And (e.Y < 248) Or _

(e.X > 48) And (e.X 152) And (e.Y < 176) Then

PICTUREBOX1.Visible = False

PICTUREBOX2.Visible = False

PICTUREBOX3.Visible = False

PICTUREBOX4.Visible = True

MSGBOX("Вы полностью прошли первое задание, Ваша оценка за первое задание 5")

Me.Hide() bal_1 = 5 obj_Form8.Show()

Exit Sub

End If

MSGBOX("Неправильно." VBCRLF "Вы заработали 4 балла.", MSGBOXSTYLE.Critical, "Результат")

Me.Hide() bal_1 = 4 obj_Form8.Show()

End Sub

Private Sub Button5_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button5.Click

Dim Obj_Form14 As New Form14

Obj_Form14.Show()

Obj_Form14.AXWEBBROWSER1.Navigate(Application.STARTUPPATH "\СПРАВКА.htm")

End Sub

Private Sub Button4_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button4.Click

Dim obj_Form13 As New Form13 obj_Form13.Show()

End Sub

End Class

Программа для формы 8

Public Class Form8

Inherits System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New()

MYBASE.New()

"Этот вызов требуется конструктором форм Windows.

INITIALIZECOMPONENT()

"Добавьте код инициализации после вызова INITIALIZECOMPONENT()

End Sub

"Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Требуется конструктором форм Windows

Private components As System.COMPONENTMODEL.ICONTAINER

"ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

"Ее можно изменить в конструкторе форм Windows.

"Не изменяйте ее в редакторе исходного текста.

Friend WITHEVENTS Button3 As System.Windows.Forms.Button

Friend WITHEVENTS PICTUREBOX1 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Label1 As System.Windows.Forms.Label

Friend WITHEVENTS PICTUREBOX2 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS PICTUREBOX3 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS PICTUREBOX4 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Button2 As System.Windows.Forms.Button

Friend WITHEVENTS Button1 As System.Windows.Forms.Button

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form8))

Me.Button3 = New System.Windows.Forms.Button

Me.PICTUREBOX1 = New System.Windows.Forms.PICTUREBOX

Me.Label1 = New System.Windows.Forms.Label

Me.PICTUREBOX2 = New System.Windows.Forms.PICTUREBOX

Me.PICTUREBOX3 = New System.Windows.Forms.PICTUREBOX

Me.PICTUREBOX4 = New System.Windows.Forms.PICTUREBOX

Me.Button2 = New System.Windows.Forms.Button

Me.Button1 = New System.Windows.Forms.Button

Me.SUSPENDLAYOUT()

""Button3

"Me.Button3.BACKCOLOR = System.Drawing.Color.GREENYELLOW

Me.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button3.Location = New System.Drawing.Point(680, 608)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(136, 40)

Me.Button3.TABINDEX = 4

Me.Button3.Text = "<< Назад"

""PICTUREBOX1

"Me.PICTUREBOX1.Image = CTYPE(resources.GETOBJECT("PICTUREBOX1.Image"), System.Drawing.Image)

Me.PICTUREBOX1.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX1.Name = "PICTUREBOX1"

Me.PICTUREBOX1.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX1.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX1.TABINDEX = 5

Me.PICTUREBOX1.TABSTOP = False

""Label1

"Me.Label1.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(192, Byte), CTYPE(255, Byte))

Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label1.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Label1.Location = New System.Drawing.Point(32, 0)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(624, 64)

Me.Label1.TABINDEX = 10

Me.Label1.Text = "Выполните действия, необходимые для перемотки видеосюжета в начало кассеты"

Me.Label1.TEXTALIGN = System.Drawing.CONTENTALIGNMENT.MIDDLECENTER

""PICTUREBOX2

"Me.PICTUREBOX2.Image = CTYPE(resources.GETOBJECT("PICTUREBOX2.Image"), System.Drawing.Image)

Me.PICTUREBOX2.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX2.Name = "PICTUREBOX2"

Me.PICTUREBOX2.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX2.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX2.TABINDEX = 11

Me.PICTUREBOX2.TABSTOP = False

""PICTUREBOX3

"Me.PICTUREBOX3.Image = CTYPE(resources.GETOBJECT("PICTUREBOX3.Image"), System.Drawing.Image)

Me.PICTUREBOX3.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX3.Name = "PICTUREBOX3"

Me.PICTUREBOX3.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX3.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX3.TABINDEX = 13

Me.PICTUREBOX3.TABSTOP = False

""PICTUREBOX4

"Me.PICTUREBOX4.Location = New System.Drawing.Point(8, 0)

Me.PICTUREBOX4.Name = "PICTUREBOX4"

Me.PICTUREBOX4.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX4.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX4.TABINDEX = 15

Me.PICTUREBOX4.TABSTOP = False

""Button2

"Me.Button2.BACKCOLOR = System.Drawing.Color.Orange

Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button2.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button2.Location = New System.Drawing.Point(520, 416)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(136, 40)

Me.Button2.TABINDEX = 18

Me.Button2.Text = "Справка"

""Button1

"Me.Button1.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button1.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button1.Location = New System.Drawing.Point(352, 416)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(144, 40)

Me.Button1.TABINDEX = 17

Me.Button1.Text = "Об авторе"

""Form8

"Me.AUTOSCALEBASESIZE = New System.Drawing.Size(5, 13)

Me.CLIENTSIZE = New System.Drawing.Size(692, 466)

Me.CONTROLBOX = False

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.PICTUREBOX1)

Me.Controls.Add(Me.PICTUREBOX4)

Me.Controls.Add(Me.PICTUREBOX3)

Me.Controls.Add(Me.PICTUREBOX2)

Me.Name = "Form8"

Me.STARTPOSITION = System.Windows.Forms.FORMSTARTPOSITION.CENTERSCREEN

Me.Text = "задание 2"

Me.RESUMELAYOUT(False)

End Sub

#End Region

Public bal_2 As Integer

Private Sub PICTUREBOX1_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX1.MOUSEUP bal_2 = 0

"включение

If (e.X > 528) And (e.X 288) And (e.Y < 328) Or _

(e.X > 24) And (e.X 120) And (e.Y < 144) Then

PICTUREBOX1.Visible = False

PICTUREBOX2.Visible = True

PICTUREBOX3.Visible = False

PICTUREBOX4.Visible = False

Exit Sub

End If

MSGBOX("Неправильно." VBCRLF "Вы заработали 0 баллов.", MSGBOXSTYLE.Critical, "Результат")

Me.Hide() bal_2 = 0

Dim obj_Form9 As New Form9 obj_Form9.Show()

End Sub

Private Sub PICTUREBOX2_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX2.MOUSEUP

"вставка кассеты

If (e.X > 336) And (e.X 152) And (e.Y < 200) Then

PICTUREBOX1.Visible = False

PICTUREBOX2.Visible = False

PICTUREBOX3.Visible = True

PICTUREBOX4.Visible = False

Exit Sub

End If

MSGBOX("Неправильно." VBCRLF "Вы заработали 2 балла.", MSGBOXSTYLE.Critical, "Результат")

Me.Hide() bal_2 = 2

Dim obj_Form9 As New Form9 obj_Form9.Show()

End Sub

Private Sub PICTUREBOX3_MOUSEUP(BYVAL sender As Object, BYVAL e As System.Windows.Forms.MOUSEEVENTARGS) Handles PICTUREBOX3.MOUSEUP

"Rewind

Dim obj_Form9 As New Form9

If (e.X > 528) And (e.X 216) And (e.Y < 240) Or _

(e.X > 24) And (e.X 168) And (e.Y < 192) Then

PICTUREBOX1.Visible = False

PICTUREBOX2.Visible = False

PICTUREBOX3.Visible = False

PICTUREBOX4.Visible = True

MSGBOX("Вы полностью прошли второе задание, Ваша оценка за второе задание 5")

Me.Hide() bal_2 = 5 obj_Form9.Show()

Exit Sub

End If

MSGBOX("Неправильно." VBCRLF "Вы заработали 4 балла.", MSGBOXSTYLE.Critical, "Результат")

Me.Hide() bal_2 = 4 obj_Form9.Show()

End Sub

Private Sub Button1_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button1.Click

Dim obj_Form13 As New Form13 obj_Form13.Show()

End Sub

Private Sub Button2_Click(BYVAL sender As System.Object, BYVAL e As System.EVENTARGS) Handles Button2.Click

Dim Obj_Form14 As New Form14

Obj_Form14.Show()

Obj_Form14.AXWEBBROWSER1.Navigate(Application.STARTUPPATH "\СПРАВКА.htm")

End Sub

End Class

Программа для формы 9

Public Class Form9

Inherits System.Windows.Forms.Form

#Region " Код, автоматически созданный конструктором форм Windows "

Public Sub New()

MYBASE.New()

"Этот вызов требуется конструктором форм Windows.

INITIALIZECOMPONENT()

"Добавьте код инициализации после вызова INITIALIZECOMPONENT()

End Sub

"Форма переопределяет метод Dispose для очистки списка компонентов.

Protected Overloads Overrides Sub Dispose(BYVAL disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then components.Dispose()

End If

End If

MYBASE.Dispose(disposing)

End Sub

"Требуется конструктором форм Windows

Private components As System.COMPONENTMODEL.ICONTAINER

"ПРИМЕЧАНИЕ: следующая процедура требуется для конструктора форм Windows.

"Ее можно изменить в конструкторе форм Windows.

"Не изменяйте ее в редакторе исходного текста.

Friend WITHEVENTS PICTUREBOX1 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Button3 As System.Windows.Forms.Button

Friend WITHEVENTS Button1 As System.Windows.Forms.Button

Friend WITHEVENTS Label1 As System.Windows.Forms.Label

Friend WITHEVENTS PICTUREBOX2 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS PICTUREBOX3 As System.Windows.Forms.PICTUREBOX

Friend WITHEVENTS Button2 As System.Windows.Forms.Button

Friend WITHEVENTS Button4 As System.Windows.Forms.Button

Friend WITHEVENTS PICTUREBOX4 As System.Windows.Forms.PICTUREBOX

Private Sub INITIALIZECOMPONENT()

Dim resources As System.Resources.RESOURCEMANAGER = New System.Resources.RESOURCEMANAGER(GETTYPE(Form9))

Me.PICTUREBOX1 = New System.Windows.Forms.PICTUREBOX

Me.Button3 = New System.Windows.Forms.Button

Me.Button1 = New System.Windows.Forms.Button

Me.Label1 = New System.Windows.Forms.Label

Me.PICTUREBOX2 = New System.Windows.Forms.PICTUREBOX

Me.PICTUREBOX3 = New System.Windows.Forms.PICTUREBOX

Me.Button2 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.PICTUREBOX4 = New System.Windows.Forms.PICTUREBOX

Me.SUSPENDLAYOUT()

""PICTUREBOX1

"Me.PICTUREBOX1.Image = CTYPE(resources.GETOBJECT("PICTUREBOX1.Image"), System.Drawing.Image)

Me.PICTUREBOX1.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX1.Name = "PICTUREBOX1"

Me.PICTUREBOX1.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX1.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX1.TABINDEX = 2

Me.PICTUREBOX1.TABSTOP = False

""Button3

"Me.Button3.BACKCOLOR = System.Drawing.Color.GREENYELLOW

Me.Button3.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button3.Location = New System.Drawing.Point(752, 608)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(136, 40)

Me.Button3.TABINDEX = 4

Me.Button3.Text = "<< Назад"

""Button1

"Me.Button1.BACKCOLOR = System.Drawing.Color.Magenta

Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button1.Location = New System.Drawing.Point(472, 608)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(224, 40)

Me.Button1.TABINDEX = 5

Me.Button1.Text = "Показать результат"

""Label1

"Me.Label1.BACKCOLOR = System.Drawing.Color.FROMARGB(CTYPE(192, Byte), CTYPE(192, Byte), CTYPE(255, Byte))

Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Label1.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Label1.Location = New System.Drawing.Point(32, 0)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(624, 64)

Me.Label1.TABINDEX = 11

Me.Label1.Text = "Выполните действия, которые необходимы для окончания просмотра видеосюжета"

Me.Label1.TEXTALIGN = System.Drawing.CONTENTALIGNMENT.MIDDLECENTER

""PICTUREBOX2

"Me.PICTUREBOX2.Image = CTYPE(resources.GETOBJECT("PICTUREBOX2.Image"), System.Drawing.Image)

Me.PICTUREBOX2.Location = New System.Drawing.Point(8, 0)

Me.PICTUREBOX2.Name = "PICTUREBOX2"

Me.PICTUREBOX2.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX2.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX2.TABINDEX = 12

Me.PICTUREBOX2.TABSTOP = False

""PICTUREBOX3

"Me.PICTUREBOX3.Image = CTYPE(resources.GETOBJECT("PICTUREBOX3.Image"), System.Drawing.Image)

Me.PICTUREBOX3.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX3.Name = "PICTUREBOX3"

Me.PICTUREBOX3.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX3.SIZEMODE = System.Windows.Forms.PICTUREBOXSIZEMODE.STRETCHIMAGE

Me.PICTUREBOX3.TABINDEX = 14

Me.PICTUREBOX3.TABSTOP = False

""Button2

"Me.Button2.BACKCOLOR = System.Drawing.Color.Orange

Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button2.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button2.Location = New System.Drawing.Point(240, 424)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(136, 40)

Me.Button2.TABINDEX = 17

Me.Button2.Text = "Справка"

""Button4

"Me.Button4.BACKCOLOR = System.Drawing.Color.Yellow

Me.Button4.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FONTSTYLE.Bold, System.Drawing.GRAPHICSUNIT.Point, CTYPE(204, Byte))

Me.Button4.FORECOLOR = System.Drawing.Color.FROMARGB(CTYPE(0, Byte), CTYPE(0, Byte), CTYPE(192, Byte))

Me.Button4.Location = New System.Drawing.Point(72, 424)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(144, 40)

Me.Button4.TABINDEX = 16

Me.Button4.Text = "Об авторе"

""PICTUREBOX4

"Me.PICTUREBOX4.Image = CTYPE(resources.GETOBJECT("PICTUREBOX4.Image"), System.Drawing.Image)

Me.PICTUREBOX4.Location = New System.Drawing.Point(0, 0)

Me.PICTUREBOX4.Name = "PICTUREBOX4"

Me.PICTUREBOX4.Size = New System.Drawing.Size(688, 461)

Me.PICTUREBOX4.SIZEMODE = System.Windows

Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность
своей работы


Новые загруженные работы

Дисциплины научных работ





Хотите, перезвоним вам?