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

Friend WithEvents Eject As System.Windows.Forms.Label

Friend WithEvents Stopp As System.Windows.Forms.Label

<System.Diagnostics.DebuggerStepThrough()> 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 < 720) And (e.Y > 288) And (e.Y < 312) Or _

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

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

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

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

Me.Cursor = Cursors.Hand

Else

Me.Cursor = Cursors.Default

End If

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

Play.Visible = True

Else

Play.Visible = False

End If

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

Rewind.Visible = True

Else

Rewind.Visible = False

End If

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

FFRD.Visible = True

Else

FFRD.Visible = False

End If

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

Eject.Visible = True

Else

Eject.Visible = False

End If

If (e.X > 696) And (e.X < 712) And (e.Y > 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 < 720) And (e.Y > 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 < 672) And (e.Y > 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 < 760) And (e.Y > 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 < 696) And (e.Y > 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 < 712) And (e.Y > 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

<System.Diagnostics.DebuggerStepThrough()> 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

<System.Diagnostics.DebuggerStepThrough()> 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 < 720) And (e.Y > 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 < 672) And (e.Y > 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 < 760) And (e.Y > 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 < 696) And (e.Y > 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 < 712) And (e.Y > 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

<System.Diagnostics.DebuggerStepThrough()> 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 < 624) And (e.Y > 288) And (e.Y < 328) Or _

(e.X > 24) And (e.X < 72) And (e.Y > 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 < 512) And (e.Y > 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 < 640) And (e.Y > 216) And (e.Y < 248) Or _

(e.X > 48) And (e.X < 96) And (e.Y > 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

<System.Diagnostics.DebuggerStepThrough()> 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 < 624) And (e.Y > 288) And (e.Y < 328) Or _

(e.X > 24) And (e.X < 72) And (e.Y > 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 < 512) And (e.Y > 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 < 568) And (e.Y > 216) And (e.Y < 240) Or _

(e.X > 24) And (e.X < 56) And (e.Y > 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

<System.Diagnostics.DebuggerStepThrough()> 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.Forms.PictureBoxSizeMode.StretchImage

Me.PictureBox4.TabIndex = 18

Me.PictureBox4.TabStop = False

''Form9

'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.Button4)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.PictureBox1)

Me.Controls.Add(Me.PictureBox3)

Me.Controls.Add(Me.PictureBox2)

Me.Controls.Add(Me.PictureBox4)

Me.Name = "Form9"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

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

Me.ResumeLayout(False)

End Sub

#End Region

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

bal3 = 0

'остановка

If (e.X > 568) And (e.X < 584) And (e.Y > 248) And (e.Y < 264) Or _

(e.X > 80) And (e.X < 112) And (e.Y > 192) And (e.Y < 216) Then

PictureBox1.Visible = False

PictureBox2.Visible = True

PictureBox3.Visible = False

PictureBox4.Visible = False

Exit Sub

End If

bal3 = 0

MsgBox("Неправильно." + vbCrLf + "Вы заработали 0 баллов.", MsgBoxStyle.Critical, "Результат")

Dim bal As Integer = (bal1 + bal2 + bal3)

Dim ocenka As Integer = ((bal) * 5) \ 18

Dim st As String = "Ваша общая оценка " + CStr(ocenka) + " !"

MsgBox("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка")

Me.Close()

Dim obj_Form2 As New Form2

obj_Form2.Show()

End Sub

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

'вставка кассеты

If (e.X > 568) And (e.X < 584) And (e.Y > 248) And (e.Y < 272) Or _

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

PictureBox1.Visible = False

PictureBox2.Visible = False

PictureBox3.Visible = True

PictureBox4.Visible = False

Exit Sub

End If

bal3 = 2

MsgBox("Неправильно." + vbCrLf + "Вы заработали 2 балла.", MsgBoxStyle.Critical, "Результат")

Dim bal As Integer = (bal1 + bal2 + bal3)

Dim ocenka As Integer = ((bal) * 5) \ 18

Dim st As String = "Ваша общая оценка " + CStr(ocenka) + " !"

MsgBox("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка")

Me.Close()

Dim obj_Form2 As New Form2

obj_Form2.Show()

End Sub

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

Dim obj_Form2 As New Form2

Dim bal As Integer

Dim ocenka As Integer

Dim st As String

'выключение

If (e.X > 512) And (e.X < 552) And (e.Y > 240) And (e.Y < 256) Or _

(e.X > 80) And (e.X < 112) And (e.Y > 136) And (e.Y < 152) Then

PictureBox1.Visible = False

PictureBox2.Visible = False

PictureBox3.Visible = False

PictureBox4.Visible = True

bal3 = 6

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

bal = (bal1 + bal2 + bal3)

ocenka = ((bal) * 5) \ 18

st = "Ваша общая оценка " + CStr(ocenka) + " !"

bal3 = 6

MsgBox("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка")

Me.Close()

obj_Form2.Show()

Exit Sub

End If

bal3 = 4

MsgBox("Неправильно." + vbCrLf + "Вы заработали 4 балла.", MsgBoxStyle.Critical, "Результат")

bal = (bal1 + bal2 + bal3)

ocenka = ((bal) * 5) \ 18

st = "Ваша общая оценка " + CStr(ocenka) + " !"

MsgBox("Вы набрали " + CStr(bal) + " балла(ов)." + vbCrLf + st, MsgBoxStyle.Exclamation, "Ваша оценка")

Me.Close()

obj_Form2.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

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

Public Class Form13

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 Label1 As System.Windows.Forms.Label

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Button3 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form13))

Me.PictureBox1 = New System.Windows.Forms.PictureBox

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

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

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

Me.SuspendLayout()

''PictureBox1

'Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)

Me.PictureBox1.Location = New System.Drawing.Point(8, -8)

Me.PictureBox1.Name = "PictureBox1"

Me.PictureBox1.Size = New System.Drawing.Size(488, 672)

Me.PictureBox1.TabIndex = 1

Me.PictureBox1.TabStop = False

''Label1

'Me.Label1.Location = New System.Drawing.Point(416, 24)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(344, 200)

Me.Label1.TabIndex = 2

Me.Label1.Text = "Автором этой разработки стала студентка группы ДРЭ-К3-1 Попивняк Юлия Владимировн" & _

"а"

''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(568, 464)

Me.Button2.Name = "Button2"

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

Me.Button2.TabIndex = 3

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(568, 544)

Me.Button3.Name = "Button3"

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

Me.Button3.TabIndex = 4

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

''Form13

'Me.AutoScaleBaseSize = New System.Drawing.Size(16, 41)

Me.ClientSize = New System.Drawing.Size(968, 670)

Me.ControlBox = False

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.PictureBox1)

Me.Font = New System.Drawing.Font("Comic Sans MS", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))

Me.Name = "Form13"

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

Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Close()

End Sub

End Class

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

Public Class Form14

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 AxWebBrowser1 As AxSHDocVw.AxWebBrowser

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Button1 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form14))

Me.AxWebBrowser1 = New AxSHDocVw.AxWebBrowser

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

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

CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

''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(968, 670)

Me.AxWebBrowser1.TabIndex = 2