Компьютерный тренажер-эмулятор видеомагнитофона "FUNAІ": функции воспроизведения видеосюжета, возврат кассеты, перемотка кассеты вперед и назад, остановка действий
Разработка компьютерного тренажера-эмулятора, содержащего показ презентации по управлению видеомагнитофоном. Реализация программы в режимах "Демонстрация", "Тренинг", "Контроль". Определение себестоимости программного продукта и составление сметы затрат.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 07.04.2014 |
| Размер файла | 8,3 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
''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(24, 600)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(144, 40)
Me.Button3.TabIndex = 7
Me.Button3.Text = "Об авторе"
''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.Location = New System.Drawing.Point(824, 616)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(136, 40)
Me.Button1.TabIndex = 8
Me.Button1.Text = "<< Назад"
''Form14
'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(968, 670)
Me.ControlBox = False
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.AxWebBrowser1)
Me.Name = "Form14"
Me.Text = "Справка"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
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
Программа для формы 15
Public Class Form15
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 Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 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(Form15))
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.SuspendLayout()
''Label1
'Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(0, Byte), CType(192, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(264, 48)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Режим Демонстрация"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
''Label2
'Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Maroon
Me.Label2.Location = New System.Drawing.Point(192, 72)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(424, 192)
Me.Label2.TabIndex = 1
Me.Label2.Text = " Этот режим описывает работу кнопок видеомагнитофона и активизирует их в резул" & _
"ьтате «щелчка» в соответствующей области фотографии. При наведении на каждую кно" & _
"пку видеомагнитофона появляется поясняющая надпись с названием данной кнопки."
''Button1
'Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Button1.Location = New System.Drawing.Point(464, 432)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(272, 40)
Me.Button1.TabIndex = 2
Me.Button1.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(16, 432)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(144, 40)
Me.Button4.TabIndex = 6
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(176, 432)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(120, 40)
Me.Button5.TabIndex = 7
Me.Button5.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(312, 432)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(136, 40)
Me.Button3.TabIndex = 9
Me.Button3.Text = "<< Назад"
''Form15
'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(736, 493)
Me.ControlBox = False
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form15"
Me.Text = "Демонстрация"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim obj_Form3 As New Form3
obj_Form3.Show()
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
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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
End Class
Программа для формы 16
Public Class Form16
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 Label2 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button4 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(Form16))
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button3 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
''Label1
'Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(184, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(264, 48)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Режим Тренинг"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
''Label2
'Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Yellow
Me.Label2.Location = New System.Drawing.Point(80, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(464, 200)
Me.Label2.TabIndex = 2
Me.Label2.Text = " В этом режиме случайно отображаются кадры с 5-ю заданиями. Условием завершения" & _
" работы в режиме «Тренинг» является правильное выполнение всех заданий не менее " & _
"3 раз в любой последовательности. Допускается повторное отображение заданий, вып" & _
"олненных правильно."
''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(296, 440)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(136, 40)
Me.Button3.TabIndex = 14
Me.Button3.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, 440)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(120, 40)
Me.Button5.TabIndex = 12
Me.Button5.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(0, 440)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(144, 40)
Me.Button4.TabIndex = 11
Me.Button4.Text = "Об авторе"
''Button1
'Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Button1.Location = New System.Drawing.Point(448, 440)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(272, 40)
Me.Button1.TabIndex = 10
Me.Button1.Text = "Перейти на тренинг"
''Form16
'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(768, 517)
Me.ControlBox = False
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form16"
Me.Text = "тренинг"
Me.ResumeLayout(False)
End Sub
#End Region
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
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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim obj_Form5 As New Form5
obj_Form5.Show()
End Sub
End Class
Программа формы 17
Public Class Form17
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 Label2 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button4 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(Form17))
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button3 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
''Label1
'Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(216, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(264, 48)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Режим Контроль"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
''Label2
'Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Magenta
Me.Label2.Location = New System.Drawing.Point(120, 72)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(472, 218)
Me.Label2.TabIndex = 3
Me.Label2.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(320, 384)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(136, 40)
Me.Button3.TabIndex = 19
Me.Button3.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(184, 384)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(120, 40)
Me.Button5.TabIndex = 17
Me.Button5.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(24, 384)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(144, 40)
Me.Button4.TabIndex = 16
Me.Button4.Text = "Об авторе"
''Button1
'Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
Me.Button1.Location = New System.Drawing.Point(472, 384)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(272, 40)
Me.Button1.TabIndex = 15
Me.Button1.Text = "Перейти на контроль"
''Form17
'Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(752, 437)
Me.ControlBox = False
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form17"
Me.Text = "контроль"
Me.ResumeLayout(False)
End Sub
#End Region
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
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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim obj_Form7 As New Form7
Me.Hide()
obj_Form7.PictureBox1.Visible = True
obj_Form7.PictureBox2.Visible = False
obj_Form7.PictureBox3.Visible = False
obj_Form7.PictureBox4.Visible = False
obj_Form7.Show()
End Sub
End Class
Размещено на Allbest.ru
Подобные документы
Разработка компьютерного тренажера-эмулятора, содержащего текстовую и графическую информацию. Расчёт экономических показателей. Методы разработки трех режимов данного тренажера. Презентация результатов работы. Внедрение разработки в учебный процесс.
дипломная работа [10,4 M], добавлен 12.04.2014Разработка компьютерного тренажера с функциями демонстрации режимов работы устройства, тренингом простейших операций на эмуляторе "Тренинг" и контроля выполнения комплексных операций на эмуляторе "Экзамен". Определение себестоимости программного продукта.
дипломная работа [8,9 M], добавлен 21.04.2014Изучение программного обеспечения для создания и воспроизведения презентаций. Обоснование выбранной программы. Разработка презентации средствами PowerPoint на тему: "Эксплуатация цветного принтера". Работа с текстом и рисунком. Анимация и показ слайдов.
курсовая работа [4,0 M], добавлен 10.02.2015Обзор стрелковых тренажеров, их достоинств и недостатков. Выбор веб-камеры, разработка общего алгоритма программы. Реализация спускового крючка. Создание пристрелки для настройки тренажера. Линейная аппроксимация, нахождение координат точки прицеливания.
дипломная работа [3,4 M], добавлен 26.12.2014Анализ методов и средств профессионального обучения операторов перегрузочных машин, автоматизация процесса. Построение функциональной модели компьютерного тренажера оператора портального крана. Разработка программного и информационного обеспечения.
дипломная работа [3,7 M], добавлен 12.05.2018Основные особенности программы-тренажера. Алгоритм изучения основ технологии разреженных матриц, основанный на пошаговом теоретическом объяснении, сопровожденным анимацией и комплексом задач для закрепления темы. Информирование о допущенных ошибках.
реферат [466,1 K], добавлен 13.05.2016Разработка программы эмулятора, которая должна имитировать рабочий цикл процессора для каждой команды. Анализ структуры микропроцессора. Моделирующие переменные. Мнемоника команд моделируемого процессора. Разработка структуры программы: классов, методов.
курсовая работа [156,8 K], добавлен 07.11.2012Изучение программы базовой системы ввода-вывода (BIOS) и её настроек. Разработка компьютерной обучающей программы-тренажера "Настройка BIOS" в объектно-ориентированной среде Delphi. Тестирование данного программного продукта и экономические затраты.
дипломная работа [54,5 K], добавлен 09.10.2013Разработка программы – сетевого эмулятора, позволяющего представить в графическом виде топологию маршрутизируемой сети. Сравнительный анализ существующих программных эмуляторов сетей и сетевого оборудования. Моделирование протоколов маршрутизации.
дипломная работа [512,2 K], добавлен 26.09.2014Общие сведения об операционной системе МВК "Эльбрус". Оценка эффективности внедрения программы-эмулятора, реализующей алгоритм обучения и контроля готовности номеров дежурных смен к самостоятельному несению боевого дежурства. Состав программного продукта.
дипломная работа [679,0 K], добавлен 02.10.2012
