рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

ДОДАТОК

ДОДАТОК - раздел Спорт, Розроблення ігрової навчальної програми «Пізнавальні ігри: пори року, фрукти й овочі, фруктове асорті, хто що їсть, транспорт» для дітей молодшого віку Титульна Форма «Главная»   Public Cla...

Титульна форма «Главная»

 

Public Class Главная

Private Sub Главная_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim filename2 As String = Application.StartupPath + "\" + "vigr.mp3"

AxWindowsMediaPlayer1.URL = filename2

End Sub

 

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

Me.Hide()

Регистрация.Show()

End Sub

 

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

Об_Авторе.Show()

Me.Hide()

End Sub

End Class

 

Форма інформації про розробника гри «Об Авторе»

 

Public Class Об_Авторе

 

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

Me.Hide()

Главная.Show()

End Sub

 

Private Sub Об_Авторе_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

 

Форма «Реєстрації»

 

Public Class Регистрация

Private Sub Регистрация_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Clear()

End Sub

 

 

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

 

If TextBox1.Text = "" Then

MsgBox("Введите свои данные", MsgBoxStyle.Critical, "Внимание, ошибка!")

Else

n_i = TextBox1.Text

Form1.Label1.Text = CStr("Профиль: " + n_i)

Me.Hide()

Form1.Show()

End If

End Sub

 

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

Dim MyDialog As New OpenFileDialog

MyDialog.Filter = " text(*.txt)|*.txt"

Timer1.Enabled = True

Timer1.Start()

If MyDialog.ShowDialog = DialogResult.OK Then

Dim Temp As String = MyDialog.Filter.ToUpper

If Temp.EndsWith("TXT") Then

Dim objStreamReader As System.IO.StreamReader

objStreamReader = System.IO.File.OpenText(MyDialog.FileName)

Dim strReader As String

strReader = objStreamReader.ReadLine

Name = CStr(strReader)

strReader = objStreamReader.ReadLine

p_o = CStr(strReader)

strReader = objStreamReader.ReadLine

objStreamReader.Close()

 

End If

End If

End Sub

End Class

Форма «Головне меню»

 

Public Class Form1

 

Private Sub ВременаГодаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВременаГодаToolStripMenuItem.Click

 

Главная.AxWindowsMediaPlayer1.close()

Времена_Года.Show()

Me.Hide()

End Sub

 

Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

 

Главная.AxWindowsMediaPlayer1.close()

Кто_что_ест.Show()

Me.Hide()

End Sub

 

Private Sub ТранспортToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ТранспортToolStripMenuItem.Click

 

Главная.AxWindowsMediaPlayer1.close()

Транспорт.Show()

Me.Hide()

End Sub

 

 

Private Sub ФруктовоеАссортиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ФруктовоеАссортиToolStripMenuItem.Click

 

Главная.AxWindowsMediaPlayer1.close()

Фруктовое_Ассорти.Show()

Me.Hide()

End Sub

 

 

Private Sub ФруктыИОвощиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ФруктыИОвощиToolStripMenuItem.Click

 

Главная.AxWindowsMediaPlayer1.close()

Фрукты_и_Овощи.Show()

Me.Hide()

End Sub

 

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

Me.Close()

End Sub

 

Private Sub ОбАвтореToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Об_Авторе.Show()

End Sub

 

Private Sub ИнформацияToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ИнформацияToolStripMenuItem.Click

Информация_об_Играх.Show()

End Sub

 

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

 

Главная.AxWindowsMediaPlayer1.close()

Времена_Года.Show()

Me.Hide()

End Sub

 

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

 

Главная.AxWindowsMediaPlayer1.close()

Транспорт.Show()

Me.Hide()

End Sub

 

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

 

Главная.AxWindowsMediaPlayer1.close()

Кто_что_ест.Show()

Me.Hide()

End Sub

 

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

 

Главная.AxWindowsMediaPlayer1.close()

Фруктовое_Ассорти.Show()

Me.Hide()

End Sub

 

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

 

Главная.AxWindowsMediaPlayer1.close()

Фрукты_и_Овощи.Show()

Me.Hide()

End Sub

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

 

Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click

Dim SaveFile As New SaveFileDialog

SaveFile.DefaultExt = "*.txt"

SaveFile.Filter = "txt Files|*.txt"

Timer2.Stop()

Timer2.Enabled = False

If (SaveFile.ShowDialog() = DialogResult.OK) And (SaveFile.FileName.Length) > 0 Then

Dim objStreamWrite As System.IO.StreamWriter

objStreamWrite = System.IO.File.CreateText(SaveFile.FileName)

objStreamWrite.WriteLine(Name)

objStreamWrite.WriteLine(p_o)

objStreamWrite.Close()

End If

 

End Sub

 

Private Sub РекордыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles РекордыToolStripMenuItem.Click

Рекорды.Show()

Me.Hide()

End Sub

 

Private Sub ЗагрузитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗагрузитьToolStripMenuItem.Click

Dim MyDialog As New OpenFileDialog

MyDialog.Filter = " text(*.txt)|*.txt"

Timer1.Enabled = True

Timer1.Start()

If MyDialog.ShowDialog = DialogResult.OK Then

Dim Temp As String = MyDialog.Filter.ToUpper

If Temp.EndsWith("TXT") Then

Dim objStreamReader As System.IO.StreamReader

objStreamReader = System.IO.File.OpenText(MyDialog.FileName)

Dim strReader As String

strReader = objStreamReader.ReadLine

Name = CStr(strReader)

strReader = objStreamReader.ReadLine

p_o = CStr(strReader)

strReader = objStreamReader.ReadLine

objStreamReader.Close()

 

End If

End If

End Sub

 

 

Private Sub ВклToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВклToolStripMenuItem.Click

Dim filename2 As String = Application.StartupPath + "\" + "vigr.mp3"

 

Главная.AxWindowsMediaPlayer1.URL = filename2

End Sub

 

Private Sub ВыклToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыклToolStripMenuItem.Click

 

Главная.AxWindowsMediaPlayer1.close()

End Sub

 

End Class

Форма відображення статистики «Рекорды»

 

Public Class Рекорды

Structure records

<VBFixedString(10)>

Public n_i As String

Public p_o As Integer

End Structure

Private Sub Рекорды_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: данная строка кода позволяет загрузить данные в таблицу "Книга_рекордовDataSet1.ЛДВ_рекорды". При необходимости она может быть перемещена или удалена.

Me.ЛДВ_рекордыTableAdapter.Fill(Me.Книга_рекордовDataSet.ЛДВ_рекорды)

'TODO: данная строка кода позволяет загрузить данные в таблицу "Книга_рекордовDataSet1.ЛДВ_рекорды". При необходимости она может быть перемещена или удалена.

Dim anyrow As DataRow = Книга_рекордовDataSet.ЛДВ_рекорды.NewRow

anyrow.Item(1) = n_i.ToString

anyrow.Item(2) = p_o.ToString

anyrow.Item(3) = Now.ToString

Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Add(anyrow) 'добавление строки в таблицу

ЛДВ_рекордыTableAdapter.Update(Книга_рекордовDataSet) 'обновление набора данных РекордыDataSet1

ЛДВ_рекордыTableAdapter.Fill(Книга_рекордовDataSet.ЛДВ_рекорды)

 

End Sub

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

 

Dim objword As New Microsoft.Office.Interop.Word.Application

Dim objDoc As New Microsoft.Office.Interop.Word.Document

Dim n, i As Integer 'объявление вспомогательных переменных

objword.Visible = True 'приложение Word становиться видимым

If (Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count - 1) >= 0 Then 'если БД не пустая

' objword = CreateObject("Word.Application") 'создание приложения типа Word

objDoc = objword.Documents.Add 'Добавляет новый документ в Word

objDoc.Activate() 'делает новый документ активным

With objDoc.Paragraphs.Item(1)

.Range.Text = "Книга рекордов" 'вводит текст "Книга рекордов"

.Range.Font.Bold = True 'Делает шрифт жирным

End With

objDoc.Paragraphs.Add() 'добавляет новый абзац

objDoc.Tables.Add(objDoc.Paragraphs.Item(2).Range, Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 1, Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count)

'создает таблицу размером с БД

'изменение стиля первой строки

With objDoc.Tables.Item(1)

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

End With

objDoc.Tables(1).Style = "Сетка таблицы"

objDoc.Tables(1).Range.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter

'вывод названя столбцов БД в таблицу

For i = 1 To Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count

objDoc.Tables.Item(1).Cell(1, i).Range.Text = Книга_рекордовDataSet.ЛДВ_рекорды.Columns(i - 1).ColumnName

objDoc.Tables.Item(1).Cell(1, i).Range.Font.Size = 14

Next i

'Вывод записей БД в таблицу

For i = 2 To Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 1

For n = 1 To Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count

objDoc.Tables.Item(1).Cell(i, n).Range.Text = Книга_рекордовDataSet.ЛДВ_рекорды.Item(i - 2).Item(n - 1)

Next n

Next i

objDoc.Paragraphs.Item(1).Range.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter 'устанавливает выравнивание первого абзаца по середине

objDoc.Paragraphs.Item(1).Range.Font.Size = 20 'устанавливает размер шрифта первого абзаца

objDoc.SaveAs2(FileName:="таблица1.doc")

Else 'если база данных пустая

MsgBox("База данных пустая!!!", MsgBoxStyle.Critical, "!!!")

End If

End Sub

 

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

Dim objExcel As New Microsoft.Office.Interop.Excel.Application

objExcel.Visible = True 'видимый

objExcel.SheetsInNewWorkbook = 1

objExcel.Workbooks.Add()

Dim osheet As New Microsoft.Office.Interop.Excel.Worksheet

osheet = objExcel.ActiveWorkbook.ActiveSheet

Dim i, j As Integer

With osheet

.Range("A1:b1").Select()

objExcel.Selection.merge()

objExcel.Selection.value = "Таблица рекордов"

objExcel.Selection.HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCenter

objExcel.Selection.font.bold = True

For j = 1 To 2

.Cells(2, j).value = Книга_рекордовDataSet.ЛДВ_рекорды.Columns(j).ColumnName

Next j

For i = 0 To Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count - 1

For j = 1 To 2

.Cells(i + 3, j).value = Книга_рекордовDataSet.ЛДВ_рекорды.Item(i).Item(j)

Next j

Next i

End With

Dim str_ROW_count As String = Trim(CStr(Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 2))

Dim st_range As String = "A1:B" & str_ROW_count

osheet.Range(st_range).Select()

objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

objExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

objExcel.Charts.Add()

With objExcel.ActiveChart

.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xlColumnClustered

.SetSourceData(Source:=objExcel.Sheets("Лист1").range(st_range))

.PlotBy = Microsoft.Office.Interop.Excel.XlRowCol.xlColumns

.SeriesCollection(1).xValues = "=Лист1!R3C1:r" + str_ROW_count + "C1"

.SeriesCollection(1).Values = "=Лист1!R3C2:r" + str_ROW_count + "C2"

' "=Лист1!R3C2:R8C2"

.SeriesCollection(1).name = "=""Достижения"""

.Location(Where:=Microsoft.Office.Interop.Excel.XlChartLocation.xlLocationAsNewSheet)

.HasTitle = True

.ChartTitle.Characters.Text = "Таблица рекордов"

.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlCategory).HasTitle = True

.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "Игрок"

.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlValue).HasTitle = True

.Axes(Microsoft.Office.Interop.Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "Достижения"

.HasLegend = False

End With

objExcel.ActiveWorkbook.SaveAs(Filename:="Рекорды.xlsx")

objExcel.ActiveWorkbook.Close()

objExcel = Nothing

objExcel.Quit()

End Sub

 

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

Form1.Show()

Me.Hide()

End Sub

 

End Class

 

Форма «Информация об играх»

 

Public Class Информация_об_Играх

 

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

Me.Hide()

Form1.Show()

End Sub

 

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

 

End Sub

End Class

 

 

Форма гри «Времена года»

 

Public Class Времена_года

 

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

AxWindowsMediaPlayer1.close()

Me.Hide()

Form1.Show()

 

End Sub

 

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

Информация_Времена_Года.Show()

Me.Hide()

End Sub

 

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

Времена_Года_Игровое_поле_.Show()

Me.Hide()

End Sub

 

Private Sub Времена_Года_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim muzica As String = Application.StartupPath + "\" + "фонвремена.mp3"

AxWindowsMediaPlayer1.URL = muzica

End Sub

End Class

 

Форма інформації про ігри «Правила»

 

Public Class Информация_Времена_Года

 

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

Me.Hide()

Времена_Года_Игровое_поле_.Show()

End Sub

 

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

Me.Hide()

Времена_Года.Show()

End Sub

 

Private Sub Информация_Времена_Года_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Времена_Года_Игровое_поле_

 

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

 

Private Sub Времена_Года_Игровое_поле__Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

 

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

Label1.Visible = False

End Sub

 

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

Label2.Visible = False

End Sub

 

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

If PictureBox10.Location.X > 465 And PictureBox10.Location.X < 657 And PictureBox10.Location.Y > 255 And PictureBox10.Location.Y < 429 Then

p_o += 1

k_o += 1

PictureBox8.Visible = False

PictureBox10.Location = New System.Drawing.Point(496, 433)

Label1.Visible = True

Timer3.Enabled = True

PictureBox10.Enabled = False

flag2 = False

PictureBox10.BorderStyle = BorderStyle.None

ElseIf PictureBox10.Location.X > 112 And PictureBox10.Location.X < 304 And PictureBox10.Location.Y > 25 And PictureBox10.Location.Y < 201 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox10.Location.X > 465 And PictureBox10.Location.X < 657 And PictureBox10.Location.Y > 25 And PictureBox10.Location.Y < 201 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox10.Location.X > 112 And PictureBox10.Location.X < 304 And PictureBox10.Location.Y > 255 And PictureBox10.Location.Y < 429 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

End If

End Sub

 

Private Sub PictureBox10_MouseDown_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown

sender.cursor() = Cursors.Hand

PictureBox10.BorderStyle = BorderStyle.Fixed3D

flag2 = True

PictureBox10.BringToFront()

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox10.BorderStyle = BorderStyle.None

flag2 = False

End Sub

 

Private Sub Времена_Года_Игровое_поле__MouseMove_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If flag = True Then

PictureBox9.Location = New System.Drawing.Point(e.Location.X - PictureBox9.Width / 2, e.Location.Y - PictureBox9.Height / 2)

 

End If

If flag2 = True Then

PictureBox10.Location = New System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y - PictureBox10.Height / 2)

 

End If

 

If flag3 = True Then

PictureBox11.Location = New System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y - PictureBox11.Height / 2)

 

End If

If flag4 = True Then

PictureBox12.Location = New System.Drawing.Point(e.Location.X - PictureBox12.Width / 2, e.Location.Y - PictureBox12.Height / 2)

 

End If

End Sub

 

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

If PictureBox9.Location.X > 112 And PictureBox9.Location.X < 304 And PictureBox9.Location.Y > 25 And PictureBox9.Location.Y < 201 Then

p_o += 1

k_o += 1

PictureBox7.Visible = False

PictureBox9.Location = New System.Drawing.Point(142, 204)

Label1.Visible = True

Timer3.Enabled = True

PictureBox9.Enabled = False

flag = False

PictureBox9.BorderStyle = BorderStyle.None

ElseIf PictureBox9.Location.X > 465 And PictureBox9.Location.X < 657 And PictureBox9.Location.Y > 255 And PictureBox9.Location.Y < 429 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox9.Location.X > 465 And PictureBox9.Location.X < 657 And PictureBox9.Location.Y > 25 And PictureBox9.Location.Y < 201 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox9.Location.X > 112 And PictureBox9.Location.X < 304 And PictureBox9.Location.Y > 255 And PictureBox9.Location.Y < 429 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

End If

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox9.BorderStyle = BorderStyle.None

flag = False

End Sub

 

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

sender.cursor() = Cursors.Hand

PictureBox9.BorderStyle = BorderStyle.Fixed3D

flag = True

PictureBox9.BringToFront()

End Sub

 

Private Sub PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown

sender.cursor() = Cursors.Hand

PictureBox11.BorderStyle = BorderStyle.Fixed3D

flag3 = True

PictureBox11.BringToFront()

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox11.BorderStyle = BorderStyle.None

flag3 = False

End Sub

 

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

If PictureBox12.Location.X > 112 And PictureBox12.Location.X < 304 And PictureBox12.Location.Y > 255 And PictureBox12.Location.Y < 429 Then

p_o += 1

k_o += 1

PictureBox4.Visible = False

PictureBox12.Location = New System.Drawing.Point(140, 432)

Label1.Visible = True

Timer3.Enabled = True

PictureBox12.Enabled = False

flag4 = False

PictureBox12.BorderStyle = BorderStyle.None

ElseIf PictureBox12.Location.X > 112 And PictureBox12.Location.X < 304 And PictureBox12.Location.Y > 25 And PictureBox12.Location.Y < 201 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox12.Location.X > 465 And PictureBox12.Location.X < 657 And PictureBox12.Location.Y > 255 And PictureBox12.Location.Y < 429 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox12.Location.X > 465 And PictureBox12.Location.X < 657 And PictureBox12.Location.Y > 25 And PictureBox12.Location.Y < 201 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

End If

End Sub

 

Private Sub PictureBox12_MouseDown_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown

sender.cursor() = Cursors.Hand

PictureBox12.BorderStyle = BorderStyle.Fixed3D

flag4 = True

PictureBox12.BringToFront()

End Sub

 

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

 

sender.cursor() = Cursors.Default

PictureBox12.BorderStyle = BorderStyle.None

flag4 = False

End Sub

 

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

If PictureBox11.Location.X > 465 And PictureBox11.Location.X < 657 And PictureBox11.Location.Y > 25 And PictureBox11.Location.Y < 201 Then

p_o += 1

k_o += 1

PictureBox6.Visible = False

PictureBox11.Location = New System.Drawing.Point(496, 204)

Label1.Visible = True

Timer3.Enabled = True

PictureBox11.Enabled = False

flag3 = False

PictureBox11.BorderStyle = BorderStyle.None

ElseIf PictureBox11.Location.X > 112 And PictureBox11.Location.X < 304 And PictureBox11.Location.Y > 25 And PictureBox11.Location.Y < 201 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox11.Location.X > 465 And PictureBox11.Location.X < 657 And PictureBox11.Location.Y > 255 And PictureBox11.Location.Y < 429 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox11.Location.X > 112 And PictureBox11.Location.X < 304 And PictureBox11.Location.Y > 255 And PictureBox11.Location.Y < 429 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

End If

End Sub

 

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

Времена_года.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

End Class

 

Public Class Транспорт

 

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

Транспорт2.Show()

Me.Hide()

 

End Sub

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

AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

 

End Sub

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

 

Транспорт_игра1.Show()

Me.Hide()

End Sub

Private Sub Транспорт_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Dim filenametr As String = Application.StartupPath + "\" + "фонтранспорт.mp3"

 

AxWindowsMediaPlayer1.URL = filenametr

End Sub

End Class

 

Public Class Транспорт2

 

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

Транспорт.Show()

Me.Hide()

End Sub

 

Private Sub Транспорт2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Транспорт_игра1

 

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

 

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

wmp.URL = filename3

 

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

транспорт_игра2.Show()

Me.Hide()

 

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

Private Sub Транспорт_игра1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class транспорт_игра2

 

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

 

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

Транспорт_игра1.wmp.URL = filename3

 

MessageBox.Show("Правильно")

 

p_o += 1

k_o += 1

Me.Hide()

транспорт_игра3.Show()

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

Private Sub транспорт_игра2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class транспорт_игра3

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

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

Трансорт_игра_4.Show()

Me.Hide()

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

Private Sub транспорт_игра3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Трансорт_игра_4

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

 

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

Трансорт_игра_5.Show()

Me.Hide()

End Sub

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

Private Sub Трансорт_игра_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Трансорт_игра_5

 

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

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

 

Трансорт_игра_6.Show()

Me.Hide()

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

Private Sub Трансорт_игра_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Трансорт_игра_6

 

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

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

 

Me.Hide()

Трансорт_игра_7.Show()

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

Private Sub Трансорт_игра_6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Трансорт_игра_7

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

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

Me.Hide()

Трансорт_игра_8.Show()

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

Private Sub Трансорт_игра_7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Трансорт_игра_8

 

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

Dim filename3 As String = Application.StartupPath + "\" + "правильно.mp3"

 

Транспорт_игра1.wmp.URL = filename3

MessageBox.Show("Правильно")

p_o += 1

k_o += 1

Me.Hide()

Трансорт_игра_9.Show()

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

k_o += 1

MessageBox.Show("Неправильный ответ")

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

 

Private Sub Трансорт_игра_8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Трансорт_игра_9

 

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

Транспорт_игра1.Show()

Me.Hide()

End Sub

 

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

Транспорт.AxWindowsMediaPlayer1.close()

Me.Hide()

Form1.Show()

End Sub

 

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

 

End Sub

 

Private Sub Трансорт_игра_9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Кто_что_ест

 

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

Кто_что_ест2.Show()

Me.Hide()

End Sub

 

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

Form1.Show()

Me.Hide()

End Sub

 

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

Игра_Кто_что_ест.Show()

Me.Hide()

End Sub

 

Private Sub Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim filenametr As String = Application.StartupPath + "\" + "фонзверьки.mp3"

 

AxWindowsMediaPlayer1.URL = filenametr

End Sub

End Class

 

Public Class Кто_что_ест2

 

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

Кто_что_ест.Show()

Me.Hide()

End Sub

 

Private Sub Кто_что_ест2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Игра_Кто_что_ест

 

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

Public flag5 As Boolean

 

 

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

If PictureBox11.Location.X > 36 And PictureBox11.Location.X < 156 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox10.Visible = False

PictureBox11.Location = New System.Drawing.Point(36, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox11.Enabled = False

PictureBox11.BorderStyle = BorderStyle.None

flag = False

 

ElseIf PictureBox11.Location.X > 458 And PictureBox11.Location.X < 580 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer2.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox11.Location.X > 178 And PictureBox11.Location.X < 300 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox11.Location.X > 323 And PictureBox11.Location.X < 439 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

ElseIf PictureBox11.Location.X > 599 And PictureBox11.Location.X < 730 And PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

End If

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox11.BorderStyle = BorderStyle.None

flag = False

 

End Sub

 

Private Sub PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown

sender.cursor() = Cursors.Hand

PictureBox11.BorderStyle = BorderStyle.Fixed3D

flag = True

PictureBox11.BringToFront()

End Sub

 

Private Sub PictureBox12_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown

 

sender.cursor() = Cursors.Hand

PictureBox12.BorderStyle = BorderStyle.Fixed3D

flag2 = True

PictureBox12.BringToFront()

End Sub

 

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

If PictureBox12.Location.X > 458 And PictureBox12.Location.X < 580 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox6.Visible = False

PictureBox12.Location = New System.Drawing.Point(458, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox12.Enabled = False

PictureBox12.BorderStyle = BorderStyle.None

flag2 = False

 

ElseIf PictureBox12.Location.X > 36 And PictureBox12.Location.X < 156 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox12.Location.X > 178 And PictureBox12.Location.X < 300 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox12.Location.X > 323 And PictureBox12.Location.X < 439 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

ElseIf PictureBox12.Location.X > 599 And PictureBox12.Location.X < 730 And PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

End If

 

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox12.BorderStyle = BorderStyle.None

flag2 = False

 

End Sub

 

Private Sub PictureBox13_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseDown

sender.cursor() = Cursors.Hand

PictureBox13.BorderStyle = BorderStyle.Fixed3D

flag3 = True

PictureBox13.BringToFront()

End Sub

 

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

 

If PictureBox13.Location.X > 178 And PictureBox13.Location.X < 300 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox9.Visible = False

PictureBox13.Location = New System.Drawing.Point(178, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox13.Enabled = False

PictureBox13.BorderStyle = BorderStyle.None

flag3 = False

 

ElseIf PictureBox13.Location.X > 36 And PictureBox13.Location.X < 156 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox13.Location.X > 323 And PictureBox13.Location.X < 439 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox13.Location.X > 458 And PictureBox13.Location.X < 580 And PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

ElseIf PictureBox13.Location.X > 599 And PictureBox13.Location.X < 730 And PictureBox13.Location.Y > 140 And PictureBox13.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

End If

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox13.BorderStyle = BorderStyle.None

flag3 = False

PictureBox13.BringToFront()

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox14.BorderStyle = BorderStyle.None

flag4 = False

 

End Sub

 

Private Sub PictureBox14_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseDown

sender.cursor() = Cursors.Hand

PictureBox14.BorderStyle = BorderStyle.Fixed3D

flag4 = True

PictureBox14.BringToFront()

End Sub

 

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

If PictureBox14.Location.X > 323 And PictureBox14.Location.X < 439 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox8.Visible = False

PictureBox14.Location = New System.Drawing.Point(323, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox14.Enabled = False

PictureBox14.BorderStyle = BorderStyle.None

flag4 = False

 

ElseIf PictureBox14.Location.X > 36 And PictureBox14.Location.X < 156 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox14.Location.X > 178 And PictureBox14.Location.X < 300 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox14.Location.X > 458 And PictureBox14.Location.X < 580 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

ElseIf PictureBox14.Location.X > 599 And PictureBox14.Location.X < 730 And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

End If

 

End Sub

 

Private Sub PictureBox15_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseDown

sender.cursor() = Cursors.Hand

PictureBox15.BorderStyle = BorderStyle.Fixed3D

flag5 = True

PictureBox15.BringToFront()

End Sub

 

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

sender.cursor() = Cursors.Default

PictureBox15.BorderStyle = BorderStyle.None

flag5 = False

 

End Sub

 

Private Sub Игра_Кто_что_ест_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

 

If flag = True Then

PictureBox11.Location = New System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y - PictureBox11.Height / 2)

 

End If

If flag2 = True Then

PictureBox12.Location = New System.Drawing.Point(e.Location.X - PictureBox12.Width / 2, e.Location.Y - PictureBox12.Height / 2)

 

End If

If flag3 = True Then

PictureBox13.Location = New System.Drawing.Point(e.Location.X - PictureBox13.Width / 2, e.Location.Y - PictureBox13.Height / 2)

 

End If

If flag4 = True Then

PictureBox14.Location = New System.Drawing.Point(e.Location.X - PictureBox14.Width / 2, e.Location.Y - PictureBox14.Height / 2)

 

End If

If flag5 = True Then

PictureBox15.Location = New System.Drawing.Point(e.Location.X - PictureBox15.Width / 2, e.Location.Y - PictureBox15.Height / 2)

End If

If PictureBox11.Location = New System.Drawing.Point(36, 150) And PictureBox15.Location = New System.Drawing.Point(599, 150) And

PictureBox14.Location = New System.Drawing.Point(323, 150) And PictureBox13.Location = New System.Drawing.Point(178, 150) And

PictureBox12.Location = New System.Drawing.Point(458, 150) Then

Button2.Visible = True

Label3.Visible = True

End If

End Sub

 

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

If PictureBox15.Location.X > 599 And PictureBox15.Location.X < 730 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

p_o += 1

k_o += 1

PictureBox7.Visible = False

PictureBox15.Location = New System.Drawing.Point(599, 150)

Label1.Visible = True

Timer3.Enabled = True

PictureBox15.Enabled = False

PictureBox15.BorderStyle = BorderStyle.None

flag5 = False

 

ElseIf PictureBox15.Location.X > 458 And PictureBox15.Location.X < 580 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox15.Location.X > 178 And PictureBox15.Location.X < 300 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox15.Location.X > 323 And PictureBox15.Location.X < 439 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

ElseIf PictureBox15.Location.X > 36 And PictureBox15.Location.X < 156 And PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257 Then

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag5 = True

End If

End Sub

 

 

Private Sub Игра_Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

 

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

Label2.Visible = False

End Sub

 

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

Label1.Visible = False

End Sub

 

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

Me.Refresh()

Form1.Show()

Me.Hide()

Кто_что_ест.AxWindowsMediaPlayer1.close()

End Sub

End Class

 

 

 

Public Class Фруктовое_Ассорти

 

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

Фруктовое_Ассорти2.Show()

Me.Hide()

End Sub

 

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

Form1.Show()

Me.Hide()

AxWindowsMediaPlayer1.close()

End Sub

 

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

фрукты_игра.show()

Me.Hide()

Фрукты_игра.Update()

Фрукты_игра2.Update()

End Sub

 

Private Sub Фруктовое_Ассорти_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim filaname As String = Application.StartupPath + "\" + "fonfru.mp3"

AxWindowsMediaPlayer1.URL = filaname

End Sub

End Class

 

Public Class Фруктовое_Ассорти2

 

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

Фруктовое_Ассорти.Show()

Me.Hide()

End Sub

 

Private Sub Фруктовое_Ассорти2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

End Sub

End Class

 

Public Class Фрукты_игра

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

 

Private Sub Фрукты_игра_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If flag = True Then

PictureBox2.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y - PictureBox2.Height / 2)

PictureBox2.BringToFront()

End If

If flag2 = True Then

PictureBox6.Location = New System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y - PictureBox6.Height / 2)

PictureBox6.BringToFront()

End If

If flag3 = True Then

PictureBox7.Location = New System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y - PictureBox7.Height / 2)

PictureBox7.BringToFront()

End If

If flag4 = True Then

PictureBox8.Location = New System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y - PictureBox8.Height / 2)

PictureBox8.BringToFront()

End If

 

If PictureBox2.Location = New System.Drawing.Point(524, 439) And PictureBox6.Location = New System.Drawing.Point(151, 436) And

PictureBox7.Location = New System.Drawing.Point(646, 143) And PictureBox8.Location = New System.Drawing.Point(15, 149) Then

Button1.Visible = True

Button2.Visible = True

End If

End Sub

 

Private Sub Фрукты_игра_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

 

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

sender.cursor() = Cursors.Hand

PictureBo

– Конец работы –

Эта тема принадлежит разделу:

Розроблення ігрової навчальної програми «Пізнавальні ігри: пори року, фрукти й овочі, фруктове асорті, хто що їсть, транспорт» для дітей молодшого віку

Повне найменування вищого навчального закладу.. інформатики та комп ютерних технологій.. повна назва кафедри циклової комісії..

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: ДОДАТОК

Что будем делать с полученным материалом:

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

Все темы данного раздела:

На курсове проектування
СтудентуФакультету комп’ютерні технології в управлінні та навчанні, гр.ДКТ-К1-1, Лісаєв Д. В. Керівникдоц. Ящун Т. В. 1. На

ДОДАТОК 24
    1. ТЕХНІЧНЕ ЗАВДАННЯ 1.1.Вступ Предметом розробки є Ігрова програма «Пізнавальні Ігри». Область застосування – ігрова пізнавальна діяльніс

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги