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

Name=«Button1». Button1.Size=New System. Drawing.Size (104, 32). Button1.TabIndex=6.Button1.Text="Вихід"

«» Form5

'Me.AutoScaleBaseSize=New System.Drawing.Size (5, 13). ClientSize=New System.Drawing.Size (928, 661). ControlBox=False.Controls.Add(Me.Button1).Controls.Add(Me.PictureBox1).Controls.Add(Me.Button3).Controls.Add(Me.Button2).Controls.Add(Me.Label2).Controls.Add(Me.Label1).Name =«Form5». Text=«Тренінг». ResumeLayout (False) Sub

# End RegionSub Form5_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ()=Int (5 * Rnd ()). Text=CStr (a (i )) Sub

# Region «Установка кнопок» Sub PictureBox1_MouseUp (ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

'Playi=0 Then (eX> 672) And (eX <720) And (eY> 288) And (eY <312) Then (i)=Mas (i) + 1 («Мабуть») _Form4=New Form4=Application.StartupPath + « кнопка_Play.ppt» _Form4.Show () («Помилка») IfIf

'Rewindi=1 Then (eX> 632) And (eX <672) And (eY> 288) And (eY <314) Then (i)=Mas (i) + 1 («Мабуть») _Form4=New Form4=Application.StartupPath + « кнопка_Rewind.ppt» _Form4.Show () («Помилка») IfIf

'F.FRDi=2 Then (eX> 728) And (eX <760) And (eY> 296) And (eY <320) Then (i)=Mas (i ) + 1 («Мабуть») _Form4=New Form4=Application.StartupPath + « кнопка_F.FRD.ppt» _Form4.Show () («Помилка») IfIf

'кнопка_Ejecti=4 Then (eX> 672) And (eX <696) And (eY> 344) And (eY <368) Then (i)=Mas (i) + 1 («Мабуть») _Form4=New Form4=Application.StartupPath + « кнопка_Eject.ppt» _Form4.Show () («Помилка») IfIf

'кнопка_Stopi=3 Then (eX> 696) And (eX <712) And (eY> 344) And (eY <368) Then (i)=Mas (i) + 1 («Мабуть») _Form4=New Form4=Application.StartupPath + « кнопка_Stop.ppt» _Form4.Show () («Помилка») IfIf=0i=0 To 4=s + Mas (i) is= 15 Then («Режим Тренінг пройдено!") Obj_Form5 As New Form5_Form5.Close () Obj_Form2 As New Form2_Form2.Show () ()=Int (5 * Rnd ()). Text=CStr (a (i)) IfSub

# End RegionSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickObj_Form14 As New Form14_Form14.Show () _Form14.AxWebBrowser1.Navigate (Application.StartupPath + « СПРАВКА.htm ») SubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Clickobj_Form13 As New Form13_Form13.Show () SubSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles Button1.Click () SubClass

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

Public Class Form7System.Windows.Forms.Form

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

Public Sub New (). New ()

'Цей виклик вимагається конструктором форм Windows. ()

'Додайте код ініціалізації після виклику InitializeComponent () Sub

'Форма перевизначає метод Dispose для очищення списку компонентів.

Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean) disposing ThenNot (components Is Nothing) Then.Dispose () IfIf.Dispose (disposing) Sub

'Требуется конструктором форм Windowscomponents As System.ComponentMo...