- •Кафедра інформатики і комп’ютерних технологій курсова робота
- •Завдання
- •Порядок контролю й приймання
- •Календарний план
- •Реалізація операцій введення-виведення даних
- •Блок-схема алгоритма
- •Опис основних елементів управління та їхнього призначення
- •Стисла характеристика ігрової програми
- •Використані елементи управління та їхнє призначення
- •Реалізація функціональності ігрової програми
- •Реалізація зв’язку з базою даних
- •Елементи зв’язку з базою даних
- •Форма Реєстрація
- •Форма Гри
- •Форма підказки
- •Форма вибору картинок
- •Форма відображення статистики
- •Форма з інформацією про автора гри
- •Форма правил
- •Інструкція користувача
- •Керівництво системного програміста
- •Література
- •Приложение
Керівництво системного програміста
Для корректного функціонування всі файли ігрової програми мають знаходитися в одній теці на жорсткому диску персонального комп’ютера. В теці з программою мають знаходитися такі файли:
Startova9.exe;
bd.accdb;
1.mp3;
Для можливості відображення книги рекордів в текстовому процесорі MS Word та табличному процесорі MS Excel необхідно інсталювати на персональний комп’ютер ліцензійні версії пакету MS Office.
Література
Методичні вказівки з курсового проектування по дисципліні «Прикладне програмування» / М.А. Бондаренко — Харків:УІПА,2003.- 28 с.
Методичні вказівки з організації та планування самостійної роботи студентів з дисципліни «Прикладне програмування» за кредитно-модульною організацією навчального процессу на 2 курсі. Для спеціальності 6.010100.36 «Професійне навчання. Комп’ютерні технології в у правлінні та навчанні» / Т.В.Ящун.–Харків: УІПА, 2008. –125 с.
Волченков Н.Г. Программирование на VisualBasic6: В3-хч.–М.:ИНФРА-М, 2002. –288 с.
Проценко В.С.,Чаленко П.И.,Сорока Р.А. Техника программирования.-К.:Выща шк., 1990 –183 с.
Фролов Г.Д.,Кузнецов Э.И.Элементы информатики.- М.: Высш.шк.,1989–304 с.6.
Симпсон Г. Профессиональная работа на персональном компьютере. –Финансы и статистика, 1988. - 226с.
Корнелл Г., Моррисон Дж. Программирование на VB.NET: учебный курс.–Спб.: Питер, 2002.– 400 с.
Самоучитель VisualBasic.NET/ Д. Зак. –Киев: BHV;Спб.: Питер,2003.–558с.
Поль Киммел.VisualBasic.NET. Искусство программирования / Пер.сангл.–Спб.: ООО «ДиасофтЮП», 2003.–720 с.
Приложение
Стартовая Форма
Public Class Startova9
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim new_pravila As New pravila
new_pravila.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim new_avtor As New avtor
new_avtor.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Application.Exit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim new_registraci9 As New registraci9
new_registraci9.Show()
Me.Hide()
End Sub
Private Sub Startova9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWindowsMediaPlayer1.URL = Application.StartupPath + "\sound\1.mp3"
End Sub
End Class
Форма Регистрации
Public Class registraci9
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim new_peremeshenie_izobrazh As New peremeshenie_izobrazh
Dim s As String 'объявление вспомогательной переменной
If kad_login.Text.Trim = "" Then
MsgBox("ВведитесвойНИК", MsgBoxStyle.OkOnly, "!!!!!!!!!") 'если ничего не ввели в поле НикНейм выдает сообщение и ничего не происходит
Else
str_data(0) = kad_login.Text 'запись никнейма игрока
s = Now 'присвоение переменной текущей даты и времени
str_data(1) = s.Substring(0, 10) 'запись текущей даты
Me.Hide() 'cкрывает форму регистрации
peremeshenie_izobrazh.Show() 'открывает главную форму
End If
End Sub
End Class
Форма Игры
PublicClass peremeshenie_izobrazh
PrivateSubПеремещение_изображений_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMyBase.MouseMove
If flag Then
array_picturebox(idx_pictureBox).Location = New System.Drawing.Point(e.Location.X - array_picturebox(idx_pictureBox).Width / 2, e.Location.Y - array_picturebox(idx_pictureBox).Height / 25)
EndIf
EndSub
PrivateSubУровеньToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesУровеньToolStripMenuItem.Click
lvl = 1
col_Picturebox = 10
Dim vibor_kartinki AsNew vibor_kartinki
vibor_kartinki.Show()
Me.Hide()
Me.Controls.Clear()
InitializeComponent()
EndSub
PrivateSubВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesВыходToolStripMenuItem.Click
Application.Exit()
EndSub
PrivateSubУровеньToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesУровеньToolStripMenuItem1.Click
Me.Controls.Clear()
InitializeComponent()
lvl = 2
col_Picturebox = 12
Dim vibor_kartinki AsNew vibor_kartinki
vibor_kartinki.Show()
Me.Hide()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label1.Text = CStr(k)
EndSub
Dim t AsInteger = 0
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim h, m, s AsInteger'объявление переменных хранящих часы, минуты, секудны
t += 1 'увеличение переменной на 1
h = Int(t / 3600) 'вычисляет часы
m = Int((t - h * 3600) / 60) 'вычисляет минуты
s = t - h * 3600 - m * 60 'вычисляет секунды
ts = CStr(h) + ":" + CStr(m) + ":" + CStr(s) 'формирует строку формата Ч:М:С
Label2.Text = ts 'вывод таймера в лейбл 2
EndSub
PrivateSubРекордыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesРекордыToolStripMenuItem.Click
Dim record AsNew record
record.Show()
EndSub
PrivateSubУровеньToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesУровеньToolStripMenuItem2.Click
Me.Controls.Clear()
InitializeComponent()
lvl = 3
col_Picturebox = 15
Dim vibor_kartinki AsNew vibor_kartinki
vibor_kartinki.Show()
Me.Hide()
EndSub
PrivateSubУровеньToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesУровеньToolStripMenuItem3.Click
Me.Controls.Clear()
InitializeComponent()
lvl = 4
col_Picturebox = 18
Dim vibor_kartinki AsNew vibor_kartinki
vibor_kartinki.Show()
Me.Hide()
EndSub
PrivateSubУровеньToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesУровеньToolStripMenuItem4.Click
Me.Controls.Clear()
InitializeComponent()
lvl = 5
col_Picturebox = 20
Dim vibor_kartinki AsNew vibor_kartinki
vibor_kartinki.Show()
Me.Hide()
EndSub
PrivateSubСохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesСохранитьToolStripMenuItem.Click
Dim savefile AsNew SaveFileDialog
savefile.DefaultExt = "*.txt"
savefile.Filter = "txt Files|*.txt"
Timer1.Stop()
Timer1.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(lvl)
objstreamwrite.WriteLine(kartinka)
objstreamwrite.WriteLine(col_Picturebox)
For i = 0 To col_Picturebox - 1
objstreamwrite.WriteLine(array_picturebox(i).Location.X)
objstreamwrite.WriteLine(array_picturebox(i).Location.Y)
objstreamwrite.WriteLine(array_picturebox(i).Enabled)
Next
objstreamwrite.WriteLine(Label2.Text)
objstreamwrite.Close()
EndIf
Timer1.Enabled = True
Timer1.Start()
EndSub
PrivateSubЗагрузитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesЗагрузитьToolStripMenuItem.Click
Me.Controls.Clear()
InitializeComponent()
Dim mydialog AsNew OpenFileDialog
mydialog.Filter = "text(*.txt)|*.txt"
If mydialog.ShowDialog = DialogResult.OK Then
Timer1.Enabled = True
Timer1.Start()
Dim temp AsString = mydialog.FileName.ToUpper
If temp.EndsWith("TXT") Then
Dim objstreamreader As System.IO.StreamReader
objstreamreader = System.IO.File.OpenText(mydialog.FileName)
Dim st AsString
Dim st2 AsString
Dim st3 AsString
Dim a_form_pictebox AsNew peremeshenie_izobrazh
st = objstreamreader.ReadLine
lvl = CStr(st)
st = objstreamreader.ReadLine
kartinka = CStr(st)
st = objstreamreader.ReadLine
col_Picturebox = CStr(st)
create_pictureBox(Me)
SelectCase lvl
Case 1
l_1_1.Visible = True
l_1_2.Visible = True
l_1_3.Visible = True
l_1_4.Visible = True
l_1_5.Visible = True
'Скрываетполя
l_2_1.Visible = False
l_2_2.Visible = False
l_2_3.Visible = False
l_2_4.Visible = False
l_2_5.Visible = False
l_4_1.Visible = False
l_4_2.Visible = False
l_4_3.Visible = False
l_4_4.Visible = False
l_4_5.Visible = False
l_5_1.Visible = False
l_5_2.Visible = False
Case 2
l_2_1.Visible = True
l_2_2.Visible = True
l_2_3.Visible = True
l_2_4.Visible = True
l_2_5.Visible = True
'Скрываетполя
l_1_1.Visible = False
l_1_2.Visible = False
l_1_3.Visible = False
l_1_4.Visible = False
l_1_5.Visible = False
l_4_1.Visible = False
l_4_2.Visible = False
l_4_3.Visible = False
l_4_4.Visible = False
l_4_5.Visible = False
l_5_1.Visible = False
l_5_2.Visible = False
Case 3
l_1_1.Visible = True
l_1_2.Visible = True
l_1_3.Visible = True
l_1_4.Visible = True
l_2_4.Visible = True
l_2_5.Visible = True
'Скрываетполя
l_2_1.Visible = False
l_2_2.Visible = False
l_2_3.Visible = False
l_4_1.Visible = False
l_4_2.Visible = False
l_4_3.Visible = False
l_4_4.Visible = False
l_4_5.Visible = False
l_5_1.Visible = False
l_5_2.Visible = False
l_1_5.Visible = False
Case 4
'Скрываетполя
l_1_1.Visible = False
l_1_2.Visible = False
l_1_3.Visible = False
l_1_4.Visible = False
l_2_1.Visible = False
l_2_2.Visible = False
l_2_3.Visible = False
l_5_1.Visible = False
l_5_2.Visible = False
l_1_5.Visible = False
Case 5
l_5_1.Visible = True
l_5_2.Visible = True
l_1_1.Visible = True
l_1_2.Visible = True
l_1_3.Visible = True
l_1_4.Visible = True
l_1_5.Visible = True
'Скрываетполя
l_4_5.Visible = False
l_2_1.Visible = False
l_2_2.Visible = False
l_2_3.Visible = False
l_2_4.Visible = False
l_2_5.Visible = False
EndSelect
For i = 0 To col_Picturebox - 1
st = objstreamreader.ReadLine
st2 = objstreamreader.ReadLine
st3 = objstreamreader.ReadLine
array_picturebox(i).Location = New Point(CStr(st), CStr(st2))
array_picturebox(i).Enabled = CStr(st3)
Next (i)
st = objstreamreader.ReadLine
Label2.Text = CStr(st)
EndIf
EndIf
EndSub
EndClass
Форма выбора картинки
Dim new_peremeshenie_izobrazh AsNewperemeshenie_izobrazh
PrivateSub vibor_kartinki_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
SelectCase lvl
Case 1
'Скрываеткнопки 2 уровня
lvl_2_1.Visible = False
lvl_2_2.Visible = False
lvl_2_3.Visible = False
lvl_2_4.Visible = False
lvl_2_5.Visible = False
'Скрывает кнопки 3 уровня
lvl_3_1.Visible = False
lvl_3_2.Visible = False
lvl_3_3.Visible = False
lvl_3_4.Visible = False
lvl_3_5.Visible = False
'Скрывает кнопки 4 уровня
lvl_4_1.Visible = False
lvl_4_2.Visible = False
lvl_4_3.Visible = False
lvl_4_4.Visible = False
lvl_4_5.Visible = False
'Скрывает кнопки 5 уровня
lvl_5_1.Visible = False
lvl_5_2.Visible = False
lvl_5_3.Visible = False
lvl_5_4.Visible = False
lvl_5_5.Visible = False
'Скрываетполя
new_peremeshenie_izobrazh.l_2_1.Visible = False
new_peremeshenie_izobrazh.l_2_2.Visible = False
new_peremeshenie_izobrazh.l_2_3.Visible = False
new_peremeshenie_izobrazh.l_2_4.Visible = False
new_peremeshenie_izobrazh.l_2_5.Visible = False
new_peremeshenie_izobrazh.l_4_1.Visible = False
new_peremeshenie_izobrazh.l_4_2.Visible = False
new_peremeshenie_izobrazh.l_4_3.Visible = False
new_peremeshenie_izobrazh.l_4_4.Visible = False
new_peremeshenie_izobrazh.l_4_5.Visible = False
new_peremeshenie_izobrazh.l_5_1.Visible = False
new_peremeshenie_izobrazh.l_5_2.Visible = False
Case 2
'Скрываеткнопки 1 уровня
lvl_1_1.Visible = False
lvl_1_2.Visible = False
lvl_1_3.Visible = False
lvl_1_4.Visible = False
lvl_1_5.Visible = False
'Скрывает кнопки 3 уровня
lvl_3_1.Visible = False
lvl_3_2.Visible = False
lvl_3_3.Visible = False
lvl_3_4.Visible = False
lvl_3_5.Visible = False
'Скрывает кнопки 4 уровня
lvl_4_1.Visible = False
lvl_4_2.Visible = False
lvl_4_3.Visible = False
lvl_4_4.Visible = False
lvl_4_5.Visible = False
'Скрывает кнопки 5 уровня
lvl_5_1.Visible = False
lvl_5_2.Visible = False
lvl_5_3.Visible = False
lvl_5_4.Visible = False
lvl_5_5.Visible = False
'Скрываетполя
new_peremeshenie_izobrazh.l_1_1.Visible = False
new_peremeshenie_izobrazh.l_1_2.Visible = False
new_peremeshenie_izobrazh.l_1_3.Visible = False
new_peremeshenie_izobrazh.l_1_4.Visible = False
new_peremeshenie_izobrazh.l_1_5.Visible = False
new_peremeshenie_izobrazh.l_4_1.Visible = False
new_peremeshenie_izobrazh.l_4_2.Visible = False
new_peremeshenie_izobrazh.l_4_3.Visible = False
new_peremeshenie_izobrazh.l_4_4.Visible = False
new_peremeshenie_izobrazh.l_4_5.Visible = False
new_peremeshenie_izobrazh.l_5_1.Visible = False
new_peremeshenie_izobrazh.l_5_2.Visible = False
Case 3
'Скрываеткнопки 2 уровня
lvl_2_1.Visible = False
lvl_2_2.Visible = False
lvl_2_3.Visible = False
lvl_2_4.Visible = False
lvl_2_5.Visible = False
'Скрывает кнопки 1 уровня
lvl_1_1.Visible = False
lvl_1_2.Visible = False
lvl_1_3.Visible = False
lvl_1_4.Visible = False
lvl_1_5.Visible = False
'Скрывает кнопки 4 уровня
lvl_4_1.Visible = False
lvl_4_2.Visible = False
lvl_4_3.Visible = False
lvl_4_4.Visible = False
lvl_4_5.Visible = False
'Скрывает кнопки 5 уровня
lvl_5_1.Visible = False
lvl_5_2.Visible = False
lvl_5_3.Visible = False
lvl_5_4.Visible = False
lvl_5_5.Visible = False
'Скрываетполя
new_peremeshenie_izobrazh.l_2_1.Visible = False
new_peremeshenie_izobrazh.l_2_2.Visible = False
new_peremeshenie_izobrazh.l_2_3.Visible = False
new_peremeshenie_izobrazh.l_4_1.Visible = False
new_peremeshenie_izobrazh.l_4_2.Visible = False
new_peremeshenie_izobrazh.l_4_3.Visible = False
new_peremeshenie_izobrazh.l_4_4.Visible = False
new_peremeshenie_izobrazh.l_4_5.Visible = False
new_peremeshenie_izobrazh.l_5_1.Visible = False
new_peremeshenie_izobrazh.l_5_2.Visible = False
new_peremeshenie_izobrazh.l_1_5.Visible = False
Case 4
'Скрываеткнопки 2 уровня
lvl_2_1.Visible = False
lvl_2_2.Visible = False
lvl_2_3.Visible = False
lvl_2_4.Visible = False
lvl_2_5.Visible = False
'Скрывает кнопки 3 уровня
lvl_3_1.Visible = False
lvl_3_2.Visible = False
lvl_3_3.Visible = False
lvl_3_4.Visible = False
lvl_3_5.Visible = False
'Скрывает кнопки 1 уровня
lvl_1_1.Visible = False
lvl_1_2.Visible = False
lvl_1_3.Visible = False
lvl_1_4.Visible = False
lvl_1_5.Visible = False
'Скрывает кнопки 5 уровня
lvl_5_1.Visible = False
lvl_5_2.Visible = False
lvl_5_3.Visible = False
lvl_5_4.Visible = False
lvl_5_5.Visible = False
'Скрываетполя
new_peremeshenie_izobrazh.l_1_1.Visible = False
new_peremeshenie_izobrazh.l_1_2.Visible = False
new_peremeshenie_izobrazh.l_1_3.Visible = False
new_peremeshenie_izobrazh.l_1_4.Visible = False
new_peremeshenie_izobrazh.l_2_1.Visible = False
new_peremeshenie_izobrazh.l_2_2.Visible = False
new_peremeshenie_izobrazh.l_2_3.Visible = False
new_peremeshenie_izobrazh.l_5_1.Visible = False
new_peremeshenie_izobrazh.l_5_2.Visible = False
new_peremeshenie_izobrazh.l_1_5.Visible = False
Case 5
'Скрываеткнопки 2 уровня
lvl_2_1.Visible = False
lvl_2_2.Visible = False
lvl_2_3.Visible = False
lvl_2_4.Visible = False
lvl_2_5.Visible = False
'Скрывает кнопки 3 уровня
lvl_3_1.Visible = False
lvl_3_2.Visible = False
lvl_3_3.Visible = False
lvl_3_4.Visible = False
lvl_3_5.Visible = False
'Скрывает кнопки 4 уровня
lvl_4_1.Visible = False
lvl_4_2.Visible = False
lvl_4_3.Visible = False
lvl_4_4.Visible = False
lvl_4_5.Visible = False
'Скрывает кнопки 5 уровня
lvl_1_1.Visible = False
lvl_1_2.Visible = False
lvl_1_3.Visible = False
lvl_1_4.Visible = False
lvl_1_5.Visible = False
'Скрываетполя
new_peremeshenie_izobrazh.l_2_1.Visible = False
new_peremeshenie_izobrazh.l_2_2.Visible = False
new_peremeshenie_izobrazh.l_2_3.Visible = False
new_peremeshenie_izobrazh.l_2_4.Visible = False
new_peremeshenie_izobrazh.l_2_5.Visible = False
new_peremeshenie_izobrazh.l_4_1.Visible = False
new_peremeshenie_izobrazh.l_4_2.Visible = False
new_peremeshenie_izobrazh.l_4_3.Visible = False
new_peremeshenie_izobrazh.l_4_4.Visible = False
new_peremeshenie_izobrazh.l_4_5.Visible = False
EndSelect
EndSub
PrivateSub lvl_1_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_1_1.Click
kartinka = 1
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_1_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_1_2.Click
kartinka = 2
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_1_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_1_3.Click
kartinka = 3
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_1_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_1_4.Click
kartinka = 4
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_1_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_1_5.Click
kartinka = 5
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_1_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_1_5.Click
kartinka = 6
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_2_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_2_1.Click
kartinka = 7
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_2_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_2_2.Click
kartinka = 8
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_2_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_2_3.Click
kartinka = 9
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_2_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_2_4.Click
kartinka = 10
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_2_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_2_5.Click
kartinka = 11
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_2_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
kartinka = 12
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_3_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_3_1.Click
kartinka = 13
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_3_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_3_2.Click
kartinka = 14
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_3_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_3_3.Click
kartinka = 15
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_3_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_3_4.Click
kartinka = 16
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_3_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_3_5.Click
kartinka = 17
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_3_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
kartinka = 18
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_4_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_4_1.Click
kartinka = 19
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_4_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_4_2.Click
kartinka = 20
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_4_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_4_3.Click
kartinka = 21
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_4_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_4_4.Click
kartinka = 22
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_4_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_4_5.Click
kartinka = 23
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_4_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
kartinka = 24
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_5_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_5_1.Click
kartinka = 25
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_5_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_5_2.Click
kartinka = 26
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_5_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_5_3.Click
kartinka = 27
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_5_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_5_4.Click
kartinka = 28
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_5_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvl_5_5.Click
kartinka = 29
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
PrivateSub lvl_5_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
kartinka = 30
new_peremeshenie_izobrazh.Show()
new_peremeshenie_izobrazh.Timer1.Enabled = False'останавливаеттаймер
new_peremeshenie_izobrazh.Timer1.Enabled = True'запускаеттаймер
new_peremeshenie_izobrazh.Timer1.Interval = 1000 'устанавливаетинтервалтаймера
create_pictureBox(new_peremeshenie_izobrazh)
Me.Close()
EndSub
EndClass
Подсказка
Public Class podskazka
Private Sub podskazka_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Select Case kartinka
Case 1
primer.ImageLocation = Application.StartupPath + "\primer\1_1.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 2
primer.ImageLocation = Application.StartupPath + "\primer\1_2.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 3
primer.ImageLocation = Application.StartupPath + "\primer\1_3.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 4
primer.ImageLocation = Application.StartupPath + "\primer\1_4.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 5
primer.ImageLocation = Application.StartupPath + "\primer\1_5.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 6
primer.ImageLocation = Application.StartupPath + "\primer\2_1.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 7
primer.ImageLocation = Application.StartupPath + "\primer\2_2.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 8
primer.ImageLocation = Application.StartupPath + "\primer\2_3.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 9
primer.ImageLocation = Application.StartupPath + "\primer\2_4.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 10
primer.ImageLocation = Application.StartupPath + "\primer\2_5.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 11
primer.ImageLocation = Application.StartupPath + "\primer\3_1.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 12
primer.ImageLocation = Application.StartupPath + "\primer\3_2.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 13
primer.ImageLocation = Application.StartupPath + "\primer\3_3.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 14
primer.ImageLocation = Application.StartupPath + "\primer\3_4.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 15
primer.ImageLocation = Application.StartupPath + "\primer\3_5.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 16
primer.ImageLocation = Application.StartupPath + "\primer\4_1.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 17
primer.ImageLocation = Application.StartupPath + "\primer\4_2.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 18
primer.ImageLocation = Application.StartupPath + "\primer\4_3.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 19
primer.ImageLocation = Application.StartupPath + "\primer\4_4.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 20
primer.ImageLocation = Application.StartupPath + "\primer\4_5.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 21
primer.ImageLocation = Application.StartupPath + "\primer\5_1.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 22
primer.ImageLocation = Application.StartupPath + "\primer\5_2.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 23
primer.ImageLocation = Application.StartupPath + "\primer\5_3.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 24
primer.ImageLocation = Application.StartupPath + "\primer\5_4.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
Case 25
primer.ImageLocation = Application.StartupPath + "\primer\5_5.jpg"
primer.Size = New Size(800, 603)
primer.SizeMode = PictureBoxSizeMode.StretchImage
End Select
End Sub
End Class
Форма правила
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Startova9.Show()
Me.Hide()
EndSub
Форма об авторе
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Startova9.Show()
Me.Hide()
EndSub
Форма рекорды
Public Class record
Private Sub record_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "BdDataSet.Таблица1". При необходимости она может быть перемещена или удалена.
Me.Таблица1TableAdapter.Fill(Me.BdDataSet.Таблица1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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 (BdDataSet.Таблица1.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, BdDataSet.Таблица1.Rows.Count + 1, BdDataSet.Таблица1.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 BdDataSet.Таблица1.Columns.Count
objDoc.Tables.Item(1).Cell(1, i).Range.Text = BdDataSet.Таблица1.Columns(i - 1).ColumnName
objDoc.Tables.Item(1).Cell(1, i).Range.Font.Size = 14
Next i
'Вывод записей БД в таблицу
For i = 2 To BdDataSet.Таблица1.Rows.Count + 1
For n = 1 To BdDataSet.Таблица1.Columns.Count
objDoc.Tables.Item(1).Cell(i, n).Range.Text = BdDataSet.Таблица1.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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i, ks As Integer 'объявление вспомогательных переменных
ks = BdDataSet.Таблица1.Rows.Count - 1 'присвоение переменной ks количества записей в БД
Dim oExcel, oBook, oSheet As Object ' объявление переменных типа объект
oExcel = CreateObject("Excel.Application") 'созданиеприложениятипа Excel
oExcel.visible = True 'приложение Excel становиться видимым
oBook = oExcel.Workbooks.Add 'Открыть новую книгу Excel
oSheet = oBook.Worksheets(1) 'выборЛиста 1 в Excel
'oChart = Chart
'oSeries = oBook.Sheets.Charts(1).SeriesCollection
oSheet.Range("A1:D1").Font.Bold = True 'Делаетшрифтвячейках A1,B1,C1,D1 жирным
oSheet.Range("A1").Value = "№"'Вводитвячейку A1 текст "№"
oSheet.Range("B1").Value = "Имя"'Вводитвячейку B1 текст "НИК"
oSheet.Range("C1").Value = "ДАТА"'Вводит в ячейку C1 текст "ДАТА"
oSheet.Range("D1").Value = "ВРЕМЯ"'Вводит в ячейку D1 текст "ВРЕМЯ"
i = 0
'Добавить данные в ячейки первого листа новой книги
For i = 0 To ks
oSheet.Range("A" + CStr(i + 2)).Value = BdDataSet.Таблица1(i).Код
oSheet.Range("B" + CStr(i + 2)).Value = BdDataSet.Таблица1(i).Имя
oSheet.Range("C" + CStr(i + 2)).Value = BdDataSet.Таблица1(i).Дата
oSheet.Range("D" + CStr(i + 2)).Value = BdDataSet.Таблица1(i).Время
Next
Dim str_ROW_count As String = Trim(CStr(BdDataSet.Таблица1.Rows.Count + 2))
Dim st_range As String = "A1:D"& str_ROW_count
oSheet.Range(st_range).Select()
oExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
oExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
oExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
oExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
oExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
oExcel.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).lineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous
oExcel.Charts.Add()
With oExcel.ActiveChart
.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xlColumnClustered
.SetSourceData(Source:=oExcel.Sheets("Лист1").range(st_range))
.PlotBy = Microsoft.Office.Interop.Excel.XlRowCol.xlColumns
.SeriesCollection(1).xValues = "=Лист1!R2C2:R" + str_ROW_count + "C2"
.SeriesCollection(1).Values = "=Лист1!R2C4:R" + str_ROW_count + "C4"
.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
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'очистка БД
Dim i As Integer 'объяявление переменной цикла
For i = 0 To BdDataSet.Таблица1.Rows.Count - 1 'открытие цикла по всем записям в базе данных
BdDataSet.Таблица1(i).Delete() 'удаление i-й записи в базе
Next
Таблица1TableAdapter.Update(BdDataSet)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Hide() 'закрытие окна рекордов
End Sub
End Class
Модульигры
Module Modul_ob9vlenii
Public kartinka AsInteger
Public col_Picturebox AsInteger
Public array_picturebox() As PictureBox
Public PictureBox_Width AsInteger
Public PictureBox_Height AsInteger
Public flag AsBoolean = False
Public idx_pictureBox AsInteger
Public str_data(3) AsString'объявленемассивахранящегоданныеобигроке
Public lvl AsInteger
Public k AsInteger = 0
Public ts AsString
PublicSub create_pictureBox(ByRef a_form_pictebox As peremeshenie_izobrazh)
ReDim array_picturebox(col_Picturebox)
Dim i AsInteger
Dim cur_location_x, cur_location_y AsInteger
Dim var_RND AsNew Random
Dim idx_image AsInteger = -1
Dim array_image(col_Picturebox - 1) AsInteger
SelectCase kartinka
Case 1
PictureBox_Width = 160
PictureBox_Height = 300
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.valencia_1.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 2
PictureBox_Width = 160
PictureBox_Height = 300
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.iniesta_1.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 3
PictureBox_Width = 160
PictureBox_Height = 300
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.pyramida_1.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 4
PictureBox_Width = 160
PictureBox_Height = 300
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.chelsea_1.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 5
PictureBox_Width = 160
PictureBox_Height = 300
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.m9ch_1.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 6
PictureBox_Width = 200
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.vishn9_2.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 7
PictureBox_Width = 200
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.zamok_2.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 8
PictureBox_Width = 200
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.kamen_2.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 9
PictureBox_Width = 200
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.man_u_2.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 10
PictureBox_Width = 200
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.ch_m_2.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 11
PictureBox_Width = 160
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.barsa_3.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 12
PictureBox_Width = 160
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.led_period_3.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 13
PictureBox_Width = 160
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.m_kamen_3.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 14
PictureBox_Width = 160
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.f_m9ch_3.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 15
PictureBox_Width = 160
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.uve_3.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 16
PictureBox_Width = 133
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.barca_4.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 17
PictureBox_Width = 133
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.derevn9_4.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 18
PictureBox_Width = 133
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.miki_4.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 19
PictureBox_Width = 133
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.dino_4.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 20
PictureBox_Width = 133
PictureBox_Height = 200
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.shrek_4.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 21
PictureBox_Width = 160
PictureBox_Height = 150
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.vini_5.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 22
PictureBox_Width = 160
PictureBox_Height = 150
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.ist_igr_5.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 23
PictureBox_Width = 160
PictureBox_Height = 150
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.kerg_5.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 24
PictureBox_Width = 160
PictureBox_Height = 150
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.panda_5.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
Case 25
PictureBox_Width = 160
PictureBox_Height = 150
For i = 0 To col_Picturebox - 1
array_picturebox(i) = New PictureBox
array_picturebox(i).Size = New Size(PictureBox_Width, PictureBox_Height)
array_picturebox(i).SizeMode = PictureBoxSizeMode.StretchImage
cur_location_x = var_RND.Next(a_form_pictebox.Width - 200)
cur_location_y = var_RND.Next(a_form_pictebox.Height - 200)
array_picturebox(i).Location = New Point(cur_location_x, cur_location_y)
array_picturebox(i).Image = a_form_pictebox.tabl_5.Images(i)
array_picturebox(i).BringToFront()
AddHandler array_picturebox(i).MouseDown, AddressOf my_sub_mousedown
AddHandler array_picturebox(i).MouseUp, AddressOf my_sub_mouseup
a_form_pictebox.Controls.Add(array_picturebox(i))
a_form_pictebox.Refresh()
Next i
EndSelect
EndSub
Sub my_sub_mousedown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
idx_pictureBox = Array.IndexOf(array_picturebox, CType(sender, PictureBox))
array_picturebox(idx_pictureBox).BorderStyle = BorderStyle.Fixed3D
sender.cursor = Cursors.Hand
flag = True
EndSub
Sub my_sub_mouseup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
proverka(lvl)
array_picturebox(idx_pictureBox).BorderStyle = BorderStyle.None
sender.cursor = Cursors.Default
flag = False
EndSub
PublicSub zan_v_bd() 'процедура занесения данных в БД
Dim anyrow As DataRow = record.BdDataSet.Таблица1.NewRow 'объявленеие переменной как новой записи в БД
anyrow.Item(1) = str_data(0) 'занесение в запись Ника
anyrow.Item(2) = str_data(1) 'занесение в запсь даты
anyrow.Item(3) = str_data(2) 'занесение в запись времени за которое собрана
record.BdDataSet.Таблица1.Rows.Add(anyrow) 'добавление в БД новой записи
record.Таблица1TableAdapter.Update(record.BdDataSet) 'обновление БД
EndSub
PublicSub proverka(ByVal lvl AsInteger)
SelectCase lvl
Case 1
k = 0
If Math.Abs(array_picturebox(0).Location.X) > 180 And Math.Abs(array_picturebox(0).Location.X) < 380 And Math.Abs(array_picturebox(0).Location.Y) > 180 And Math.Abs(array_picturebox(0).Location.Y) < 520 Then
array_picturebox(0).Location = New Point(200, 200)
array_picturebox(0).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(1).Location.X) > 340 And Math.Abs(array_picturebox(1).Location.X) < 540 And Math.Abs(array_picturebox(1).Location.Y) > 180 And Math.Abs(array_picturebox(1).Location.Y) < 520 Then
array_picturebox(1).Location = New Point(360, 200)
array_picturebox(1).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(2).Location.X) > 500 And Math.Abs(array_picturebox(2).Location.X) < 700 And Math.Abs(array_picturebox(2).Location.Y) > 180 And Math.Abs(array_picturebox(2).Location.Y) < 520 Then
array_picturebox(2).Location = New Point(520, 200)
array_picturebox(2).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(3).Location.X) > 660 And Math.Abs(array_picturebox(3).Location.X) < 860 And Math.Abs(array_picturebox(3).Location.Y) > 180 And Math.Abs(array_picturebox(3).Location.Y) < 520 Then
array_picturebox(3).Location = New Point(680, 200)
array_picturebox(3).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(4).Location.X) > 820 And Math.Abs(array_picturebox(4).Location.X) < 1020 And Math.Abs(array_picturebox(4).Location.Y) > 180 And Math.Abs(array_picturebox(4).Location.Y) < 520 Then
array_picturebox(4).Location = New Point(840, 200)
array_picturebox(4).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(5).Location.X) > 180 And Math.Abs(array_picturebox(5).Location.X) < 380 And Math.Abs(array_picturebox(5).Location.Y) > 480 And Math.Abs(array_picturebox(5).Location.Y) < 820 Then
array_picturebox(5).Location = New Point(200, 500)
array_picturebox(5).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(6).Location.X) > 340 And Math.Abs(array_picturebox(6).Location.X) < 540 And Math.Abs(array_picturebox(6).Location.Y) > 480 And Math.Abs(array_picturebox(6).Location.Y) < 820 Then
array_picturebox(6).Location = New Point(360, 500)
array_picturebox(6).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(7).Location.X) > 500 And Math.Abs(array_picturebox(7).Location.X) < 700 And Math.Abs(array_picturebox(7).Location.Y) > 480 And Math.Abs(array_picturebox(7).Location.Y) < 820 Then
array_picturebox(7).Location = New Point(520, 500)
array_picturebox(7).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(8).Location.X) > 660 And Math.Abs(array_picturebox(8).Location.X) < 860 And Math.Abs(array_picturebox(8).Location.Y) > 480 And Math.Abs(array_picturebox(8).Location.Y) < 820 Then
array_picturebox(8).Location = New Point(680, 500)
array_picturebox(8).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(9).Location.X) > 820 And Math.Abs(array_picturebox(9).Location.X) < 1020 And Math.Abs(array_picturebox(9).Location.Y) > 480 And Math.Abs(array_picturebox(9).Location.Y) < 820 Then
array_picturebox(9).Location = New Point(840, 500)
array_picturebox(9).Enabled = False
k += 1
EndIf
If k = 10 Then
str_data(2) = ts 'запись времени за которое игрок собрал картинку
zan_v_bd()
MsgBox("Вы правильно собрали картинку за " + ts, MsgBoxStyle.Information, "ПОЗДРАВЛЯЮ!!!")
EndIf
Case 2
k = 0
If Math.Abs(array_picturebox(0).Location.X) > 180 And Math.Abs(array_picturebox(0).Location.X) < 420 And Math.Abs(array_picturebox(0).Location.Y) > 180 And Math.Abs(array_picturebox(0).Location.Y) < 420 Then
array_picturebox(0).Location = New Point(200, 200)
array_picturebox(0).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(1).Location.X) > 380 And Math.Abs(array_picturebox(1).Location.X) < 620 And Math.Abs(array_picturebox(1).Location.Y) > 180 And Math.Abs(array_picturebox(1).Location.Y) < 420 Then
array_picturebox(1).Location = New Point(400, 200)
array_picturebox(1).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(2).Location.X) > 580 And Math.Abs(array_picturebox(2).Location.X) < 820 And Math.Abs(array_picturebox(2).Location.Y) > 180 And Math.Abs(array_picturebox(2).Location.Y) < 420 Then
array_picturebox(2).Location = New Point(600, 200)
array_picturebox(2).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(3).Location.X) > 780 And Math.Abs(array_picturebox(3).Location.X) < 1020 And Math.Abs(array_picturebox(3).Location.Y) > 180 And Math.Abs(array_picturebox(3).Location.Y) < 420 Then
array_picturebox(3).Location = New Point(800, 200)
array_picturebox(3).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(4).Location.X) > 180 And Math.Abs(array_picturebox(4).Location.X) < 420 And Math.Abs(array_picturebox(4).Location.Y) > 380 And Math.Abs(array_picturebox(4).Location.Y) < 620 Then
array_picturebox(4).Location = New Point(200, 400)
array_picturebox(4).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(5).Location.X) > 380 And Math.Abs(array_picturebox(5).Location.X) < 620 And Math.Abs(array_picturebox(5).Location.Y) > 380 And Math.Abs(array_picturebox(5).Location.Y) < 620 Then
array_picturebox(5).Location = New Point(400, 400)
array_picturebox(5).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(6).Location.X) > 580 And Math.Abs(array_picturebox(6).Location.X) < 820 And Math.Abs(array_picturebox(6).Location.Y) > 380 And Math.Abs(array_picturebox(6).Location.Y) < 620 Then
array_picturebox(6).Location = New Point(600, 400)
array_picturebox(6).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(7).Location.X) > 780 And Math.Abs(array_picturebox(7).Location.X) < 1020 And Math.Abs(array_picturebox(7).Location.Y) > 380 And Math.Abs(array_picturebox(7).Location.Y) < 620 Then
array_picturebox(7).Location = New Point(800, 400)
array_picturebox(7).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(8).Location.X) > 180 And Math.Abs(array_picturebox(8).Location.X) < 420 And Math.Abs(array_picturebox(8).Location.Y) > 580 And Math.Abs(array_picturebox(8).Location.Y) < 820 Then
array_picturebox(8).Location = New Point(200, 600)
array_picturebox(8).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(9).Location.X) > 380 And Math.Abs(array_picturebox(9).Location.X) < 620 And Math.Abs(array_picturebox(9).Location.Y) > 580 And Math.Abs(array_picturebox(9).Location.Y) < 820 Then
array_picturebox(9).Location = New Point(400, 600)
array_picturebox(9).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(10).Location.X) > 580 And Math.Abs(array_picturebox(10).Location.X) < 820 And Math.Abs(array_picturebox(10).Location.Y) > 580 And Math.Abs(array_picturebox(10).Location.Y) < 820 Then
array_picturebox(10).Location = New Point(600, 600)
array_picturebox(10).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(11).Location.X) > 780 And Math.Abs(array_picturebox(11).Location.X) < 1020 And Math.Abs(array_picturebox(11).Location.Y) > 580 And Math.Abs(array_picturebox(11).Location.Y) < 820 Then
array_picturebox(11).Location = New Point(800, 600)
array_picturebox(11).Enabled = False
k += 1
EndIf
If k = 12 Then
str_data(2) = ts 'запись времени за которое игрок собрал картинку
zan_v_bd()
MsgBox("Вы правильно собрали картинку за " + ts, MsgBoxStyle.Information, "ПОЗДРАВЛЯЮ!!!")
EndIf
Case 3
k = 0
If Math.Abs(array_picturebox(0).Location.X) > 180 And Math.Abs(array_picturebox(0).Location.X) < 380 And Math.Abs(array_picturebox(0).Location.Y) > 180 And Math.Abs(array_picturebox(0).Location.Y) < 420 Then
array_picturebox(0).Location = New Point(200, 200)
array_picturebox(0).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(1).Location.X) > 340 And Math.Abs(array_picturebox(1).Location.X) < 540 And Math.Abs(array_picturebox(1).Location.Y) > 180 And Math.Abs(array_picturebox(1).Location.Y) < 420 Then
array_picturebox(1).Location = New Point(360, 200)
array_picturebox(1).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(2).Location.X) > 500 And Math.Abs(array_picturebox(2).Location.X) < 680 And Math.Abs(array_picturebox(2).Location.Y) > 180 And Math.Abs(array_picturebox(2).Location.Y) < 420 Then
array_picturebox(2).Location = New Point(520, 200)
array_picturebox(2).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(3).Location.X) > 660 And Math.Abs(array_picturebox(3).Location.X) < 860 And Math.Abs(array_picturebox(3).Location.Y) > 180 And Math.Abs(array_picturebox(3).Location.Y) < 420 Then
array_picturebox(3).Location = New Point(680, 200)
array_picturebox(3).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(4).Location.X) > 820 And Math.Abs(array_picturebox(4).Location.X) < 1020 And Math.Abs(array_picturebox(4).Location.Y) > 180 And Math.Abs(array_picturebox(4).Location.Y) < 420 Then
array_picturebox(4).Location = New Point(840, 200)
array_picturebox(4).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(5).Location.X) > 180 And Math.Abs(array_picturebox(5).Location.X) < 380 And Math.Abs(array_picturebox(5).Location.Y) > 380 And Math.Abs(array_picturebox(5).Location.Y) < 620 Then
array_picturebox(5).Location = New Point(200, 400)
array_picturebox(5).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(6).Location.X) > 340 And Math.Abs(array_picturebox(6).Location.X) < 540 And Math.Abs(array_picturebox(6).Location.Y) > 380 And Math.Abs(array_picturebox(6).Location.Y) < 620 Then
array_picturebox(6).Location = New Point(360, 400)
array_picturebox(6).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(7).Location.X) > 500 And Math.Abs(array_picturebox(7).Location.X) < 680 And Math.Abs(array_picturebox(7).Location.Y) > 380 And Math.Abs(array_picturebox(7).Location.Y) < 620 Then
array_picturebox(7).Location = New Point(520, 400)
array_picturebox(7).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(8).Location.X) > 660 And Math.Abs(array_picturebox(8).Location.X) < 860 And Math.Abs(array_picturebox(8).Location.Y) > 380 And Math.Abs(array_picturebox(8).Location.Y) < 620 Then
array_picturebox(8).Location = New Point(680, 400)
array_picturebox(8).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(9).Location.X) > 820 And Math.Abs(array_picturebox(9).Location.X) < 1020 And Math.Abs(array_picturebox(9).Location.Y) > 380 And Math.Abs(array_picturebox(9).Location.Y) < 620 Then
array_picturebox(9).Location = New Point(840, 400)
array_picturebox(9).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(10).Location.X) > 180 And Math.Abs(array_picturebox(10).Location.X) < 380 And Math.Abs(array_picturebox(10).Location.Y) > 580 And Math.Abs(array_picturebox(10).Location.Y) < 820 Then
array_picturebox(10).Location = New Point(200, 600)
array_picturebox(10).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(11).Location.X) > 340 And Math.Abs(array_picturebox(11).Location.X) < 540 And Math.Abs(array_picturebox(11).Location.Y) > 580 And Math.Abs(array_picturebox(11).Location.Y) < 820 Then
array_picturebox(11).Location = New Point(360, 600)
array_picturebox(11).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(12).Location.X) > 500 And Math.Abs(array_picturebox(12).Location.X) < 680 And Math.Abs(array_picturebox(12).Location.Y) > 580 And Math.Abs(array_picturebox(12).Location.Y) < 820 Then
array_picturebox(12).Location = New Point(520, 600)
array_picturebox(12).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(13).Location.X) > 660 And Math.Abs(array_picturebox(13).Location.X) < 860 And Math.Abs(array_picturebox(13).Location.Y) > 580 And Math.Abs(array_picturebox(14).Location.Y) < 820 Then
array_picturebox(13).Location = New Point(680, 600)
array_picturebox(13).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(14).Location.X) > 820 And Math.Abs(array_picturebox(14).Location.X) < 1020 And Math.Abs(array_picturebox(14).Location.Y) > 580 And Math.Abs(array_picturebox(14).Location.Y) < 820 Then
array_picturebox(14).Location = New Point(840, 600)
array_picturebox(14).Enabled = False
k += 1
EndIf
If k = 15 Then
str_data(2) = ts 'запись времени за которое игрок собрал картинку
zan_v_bd()
MsgBox("Вы правильно собрали картинку за " + ts, MsgBoxStyle.Information, "ПОЗДРАВЛЯЮ!!!")
EndIf
Case 4
k = 0
If Math.Abs(array_picturebox(0).Location.X) > 180 And Math.Abs(array_picturebox(0).Location.X) < 360 And Math.Abs(array_picturebox(0).Location.Y) > 180 And Math.Abs(array_picturebox(0).Location.Y) < 420 Then
array_picturebox(0).Location = New Point(200, 200)
array_picturebox(0).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(1).Location.X) > 310 And Math.Abs(array_picturebox(1).Location.X) < 490 And Math.Abs(array_picturebox(1).Location.Y) > 180 And Math.Abs(array_picturebox(1).Location.Y) < 420 Then
array_picturebox(1).Location = New Point(333, 200)
array_picturebox(1).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(2).Location.X) > 430 And Math.Abs(array_picturebox(2).Location.X) < 620 And Math.Abs(array_picturebox(2).Location.Y) > 180 And Math.Abs(array_picturebox(2).Location.Y) < 420 Then
array_picturebox(2).Location = New Point(466, 200)
array_picturebox(2).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(3).Location.X) > 585 And Math.Abs(array_picturebox(3).Location.X) < 750 And Math.Abs(array_picturebox(3).Location.Y) > 180 And Math.Abs(array_picturebox(3).Location.Y) < 420 Then
array_picturebox(3).Location = New Point(599, 200)
array_picturebox(3).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(4).Location.X) > 710 And Math.Abs(array_picturebox(4).Location.X) < 880 And Math.Abs(array_picturebox(4).Location.Y) > 180 And Math.Abs(array_picturebox(4).Location.Y) < 420 Then
array_picturebox(4).Location = New Point(732, 200)
array_picturebox(4).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(5).Location.X) > 840 And Math.Abs(array_picturebox(5).Location.X) < 1020 And Math.Abs(array_picturebox(5).Location.Y) > 180 And Math.Abs(array_picturebox(5).Location.Y) < 420 Then
array_picturebox(5).Location = New Point(865, 200)
array_picturebox(5).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(6).Location.X) > 180 And Math.Abs(array_picturebox(6).Location.X) < 360 And Math.Abs(array_picturebox(6).Location.Y) > 380 And Math.Abs(array_picturebox(6).Location.Y) < 620 Then
array_picturebox(6).Location = New Point(200, 400)
array_picturebox(6).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(7).Location.X) > 310 And Math.Abs(array_picturebox(7).Location.X) < 490 And Math.Abs(array_picturebox(7).Location.Y) > 380 And Math.Abs(array_picturebox(7).Location.Y) < 620 Then
array_picturebox(7).Location = New Point(333, 400)
array_picturebox(7).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(8).Location.X) > 430 And Math.Abs(array_picturebox(8).Location.X) < 620 And Math.Abs(array_picturebox(8).Location.Y) > 380 And Math.Abs(array_picturebox(8).Location.Y) < 620 Then
array_picturebox(8).Location = New Point(466, 400)
array_picturebox(8).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(9).Location.X) > 585 And Math.Abs(array_picturebox(9).Location.X) < 750 And Math.Abs(array_picturebox(9).Location.Y) > 380 And Math.Abs(array_picturebox(9).Location.Y) < 620 Then
array_picturebox(9).Location = New Point(599, 400)
array_picturebox(9).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(10).Location.X) > 710 And Math.Abs(array_picturebox(10).Location.X) < 880 And Math.Abs(array_picturebox(10).Location.Y) > 380 And Math.Abs(array_picturebox(10).Location.Y) < 620 Then
array_picturebox(10).Location = New Point(732, 400)
array_picturebox(10).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(11).Location.X) > 840 And Math.Abs(array_picturebox(11).Location.X) < 1020 And Math.Abs(array_picturebox(11).Location.Y) > 380 And Math.Abs(array_picturebox(11).Location.Y) < 620 Then
array_picturebox(11).Location = New Point(865, 400)
array_picturebox(11).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(12).Location.X) > 180 And Math.Abs(array_picturebox(12).Location.X) < 360 And Math.Abs(array_picturebox(12).Location.Y) > 580 And Math.Abs(array_picturebox(12).Location.Y) < 820 Then
array_picturebox(12).Location = New Point(200, 600)
array_picturebox(12).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(13).Location.X) > 310 And Math.Abs(array_picturebox(13).Location.X) < 490 And Math.Abs(array_picturebox(13).Location.Y) > 580 And Math.Abs(array_picturebox(14).Location.Y) < 820 Then
array_picturebox(13).Location = New Point(333, 600)
array_picturebox(13).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(14).Location.X) > 430 And Math.Abs(array_picturebox(14).Location.X) < 620 And Math.Abs(array_picturebox(14).Location.Y) > 580 And Math.Abs(array_picturebox(14).Location.Y) < 820 Then
array_picturebox(14).Location = New Point(466, 600)
array_picturebox(14).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(15).Location.X) > 585 And Math.Abs(array_picturebox(15).Location.X) < 750 And Math.Abs(array_picturebox(15).Location.Y) > 580 And Math.Abs(array_picturebox(15).Location.Y) < 820 Then
array_picturebox(15).Location = New Point(599, 600)
array_picturebox(15).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(16).Location.X) > 710 And Math.Abs(array_picturebox(16).Location.X) < 880 And Math.Abs(array_picturebox(16).Location.Y) > 580 And Math.Abs(array_picturebox(16).Location.Y) < 820 Then
array_picturebox(16).Location = New Point(732, 600)
array_picturebox(16).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(17).Location.X) > 840 And Math.Abs(array_picturebox(17).Location.X) < 1020 And Math.Abs(array_picturebox(17).Location.Y) > 580 And Math.Abs(array_picturebox(17).Location.Y) < 820 Then
array_picturebox(17).Location = New Point(865, 600)
array_picturebox(17).Enabled = False
k += 1
EndIf
If k = 18 Then
str_data(2) = ts 'запись времени за которое игрок собрал картинку
zan_v_bd()
MsgBox("Вы правильно собрали картинку за " + ts, MsgBoxStyle.Information, "ПОЗДРАВЛЯЮ!!!")
EndIf
Case 5
k = 0
If Math.Abs(array_picturebox(0).Location.X) > 180 And Math.Abs(array_picturebox(0).Location.X) < 380 And Math.Abs(array_picturebox(0).Location.Y) > 180 And Math.Abs(array_picturebox(0).Location.Y) < 370 Then
array_picturebox(0).Location = New Point(200, 200)
array_picturebox(0).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(1).Location.X) > 340 And Math.Abs(array_picturebox(1).Location.X) < 540 And Math.Abs(array_picturebox(1).Location.Y) > 180 And Math.Abs(array_picturebox(1).Location.Y) < 370 Then
array_picturebox(1).Location = New Point(360, 200)
array_picturebox(1).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(2).Location.X) > 500 And Math.Abs(array_picturebox(2).Location.X) < 680 And Math.Abs(array_picturebox(2).Location.Y) > 180 And Math.Abs(array_picturebox(2).Location.Y) < 370 Then
array_picturebox(2).Location = New Point(520, 200)
array_picturebox(2).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(3).Location.X) > 660 And Math.Abs(array_picturebox(3).Location.X) < 860 And Math.Abs(array_picturebox(3).Location.Y) > 180 And Math.Abs(array_picturebox(3).Location.Y) < 370 Then
array_picturebox(3).Location = New Point(680, 200)
array_picturebox(3).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(4).Location.X) > 820 And Math.Abs(array_picturebox(4).Location.X) < 1020 And Math.Abs(array_picturebox(4).Location.Y) > 180 And Math.Abs(array_picturebox(4).Location.Y) < 370 Then
array_picturebox(4).Location = New Point(840, 200)
array_picturebox(4).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(5).Location.X) > 180 And Math.Abs(array_picturebox(5).Location.X) < 380 And Math.Abs(array_picturebox(5).Location.Y) > 320 And Math.Abs(array_picturebox(5).Location.Y) < 520 Then
array_picturebox(5).Location = New Point(200, 350)
array_picturebox(5).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(6).Location.X) > 340 And Math.Abs(array_picturebox(6).Location.X) < 540 And Math.Abs(array_picturebox(6).Location.Y) > 320 And Math.Abs(array_picturebox(6).Location.Y) < 520 Then
array_picturebox(6).Location = New Point(360, 350)
array_picturebox(6).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(7).Location.X) > 500 And Math.Abs(array_picturebox(7).Location.X) < 680 And Math.Abs(array_picturebox(7).Location.Y) > 320 And Math.Abs(array_picturebox(7).Location.Y) < 520 Then
array_picturebox(7).Location = New Point(520, 350)
array_picturebox(7).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(8).Location.X) > 660 And Math.Abs(array_picturebox(8).Location.X) < 860 And Math.Abs(array_picturebox(8).Location.Y) > 320 And Math.Abs(array_picturebox(8).Location.Y) < 520 Then
array_picturebox(8).Location = New Point(680, 350)
array_picturebox(8).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(9).Location.X) > 820 And Math.Abs(array_picturebox(9).Location.X) < 1020 And Math.Abs(array_picturebox(9).Location.Y) > 320 And Math.Abs(array_picturebox(9).Location.Y) < 520 Then
array_picturebox(9).Location = New Point(840, 350)
array_picturebox(9).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(10).Location.X) > 180 And Math.Abs(array_picturebox(10).Location.X) < 380 And Math.Abs(array_picturebox(10).Location.Y) > 480 And Math.Abs(array_picturebox(10).Location.Y) < 680 Then
array_picturebox(10).Location = New Point(200, 500)
array_picturebox(10).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(11).Location.X) > 340 And Math.Abs(array_picturebox(11).Location.X) < 540 And Math.Abs(array_picturebox(11).Location.Y) > 480 And Math.Abs(array_picturebox(11).Location.Y) < 680 Then
array_picturebox(11).Location = New Point(360, 500)
array_picturebox(11).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(12).Location.X) > 500 And Math.Abs(array_picturebox(12).Location.X) < 680 And Math.Abs(array_picturebox(12).Location.Y) > 480 And Math.Abs(array_picturebox(12).Location.Y) < 680 Then
array_picturebox(12).Location = New Point(520, 500)
array_picturebox(12).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(13).Location.X) > 660 And Math.Abs(array_picturebox(13).Location.X) < 860 And Math.Abs(array_picturebox(13).Location.Y) > 480 And Math.Abs(array_picturebox(14).Location.Y) < 680 Then
array_picturebox(13).Location = New Point(680, 500)
array_picturebox(13).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(14).Location.X) > 820 And Math.Abs(array_picturebox(14).Location.X) < 1020 And Math.Abs(array_picturebox(14).Location.Y) > 480 And Math.Abs(array_picturebox(14).Location.Y) < 680 Then
array_picturebox(14).Location = New Point(840, 500)
array_picturebox(14).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(15).Location.X) > 180 And Math.Abs(array_picturebox(15).Location.X) < 380 And Math.Abs(array_picturebox(15).Location.Y) > 630 And Math.Abs(array_picturebox(15).Location.Y) < 820 Then
array_picturebox(15).Location = New Point(200, 650)
array_picturebox(15).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(16).Location.X) > 340 And Math.Abs(array_picturebox(16).Location.X) < 540 And Math.Abs(array_picturebox(16).Location.Y) > 630 And Math.Abs(array_picturebox(16).Location.Y) < 820 Then
array_picturebox(16).Location = New Point(360, 650)
array_picturebox(16).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(17).Location.X) > 500 And Math.Abs(array_picturebox(17).Location.X) < 680 And Math.Abs(array_picturebox(17).Location.Y) > 630 And Math.Abs(array_picturebox(17).Location.Y) < 820 Then
array_picturebox(17).Location = New Point(520, 650)
array_picturebox(17).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(18).Location.X) > 660 And Math.Abs(array_picturebox(18).Location.X) < 860 And Math.Abs(array_picturebox(18).Location.Y) > 630 And Math.Abs(array_picturebox(18).Location.Y) < 820 Then
array_picturebox(18).Location = New Point(680, 650)
array_picturebox(18).Enabled = False
k += 1
EndIf
If Math.Abs(array_picturebox(19).Location.X) > 820 And Math.Abs(array_picturebox(19).Location.X) < 1020 And Math.Abs(array_picturebox(19).Location.Y) > 630 And Math.Abs(array_picturebox(19).Location.Y) < 820 Then
array_picturebox(19).Location = New Point(840, 650)
array_picturebox(19).Enabled = False
k += 1
EndIf
If k = 20 Then
str_data(2) = ts 'запись времени за которое игрок собрал картинку
zan_v_bd()
MsgBox("Вы правильно собрали картинку за " + ts, MsgBoxStyle.Information, "ПОЗДРАВЛЯЮ!!!")
EndIf
EndSelect
EndSub
EndModule