Розроблення ігрової навчальної програми 'Пізнавальні ігри: пори року, фрукти й овочі, фруктове асорті, хто що їсть, транспорт' для дітей молодшого віку
Українська
інженерно-педагогічна академія
Інформатики
та комп‘ютерних технологій
КУРСОВА
РОБОТА
з
дисципліни «Прикладне програмування»
на
тему: «Розроблення ігрової навчальної програми «Пізнавальні ігри: пори року,
фрукти й овочі, фруктове асорті, хто що їсть, транспорт» для дітей молодшого
віку»
Студента 2 курсу ДКТ-К1-1 групи
напряму підготовки Проф. освіта
спеціальності 7.010104.36
студента Лісаєв Д.В.
Керівник ст. викладач, доц. Ящун
Т.В.
Зміст
1. ТЕХНІЧНЕ ЗАВДАННЯ
.1 Вступ
.2 Підстави для розробки
.3 Призначення розробки
.4 Вимоги до прикладної системи
.4.1 Вимоги до функціональних
характеристик
.4.2 Вимоги до надійності
.4.3 Умови експлуатації
.4.4 Вимоги до складу й
параметрів технічних засобів
.4.5 Вимоги до інформаційної й
програмної сумісності
.4.6 Вимоги до маркування й
упакування
.4.7 Вимоги до транспортування
й зберігання
.5 Вимоги до допоміжної
документації
.6 Вимоги до функціональної
частини прикладної системи
.6.1 Вимоги до набору
функціональних блоків
.6.2 Вимоги до інтерфейсу
користувача
.6.3 Вимоги до взаємодії із
зовнішніми даними
.7 Порядок контролю й приймання
. КАЛЕНДАРНИЙ ПЛАН
. ВСТУП
. СХЕМА АЛГОРИТМУ
. ОПИС ОСНОВНИХ ЕЛЕМЕНТІВ
УПРАВЛІННЯ ТА ЇХНЬОГО ПРИЗНАЧЕННЯ
.1 Стисла характеристика
ігрової програми
.2 Використані елементи
управління та їхнє призначення
.2.1 Реалізація
функціональності ігрової програми
.2.2 Реалізація операцій
введення-виведення даних
.2.3 Реалізація зв’язку з базою
даних
. СЦЕНАРІЙ РОБОТИ ПРОГРАМНОГО
ПРОДУКТУ
.1 Умова гри
.2 Інтерфейс гри
.2.1 Титульна форма
.2.2 Форма Реєстрації
.2.3 Форма Головного меню
.2.4 Форма відображення
статистики
.2.5 Форма з інформацією про
автора гри
.2.6 Форма з інформацією про
гру
.2.7 Форми з ігровими полями
. ІНСТРУКЦІЯ КОРИСТУВАЧА
. КЕРІВНИЦТВО СИСТЕМНОГО
ПРОГРАМІСТА
ЛІТЕРАТУРА
ДОДАТОК
1. ТЕХНІЧНЕ ЗАВДАННЯ
.1Вступ
Предметом розробки є Ігрова програма
«Пізнавальні Ігри».
Область застосування - ігрова
пізнавальна діяльність дітей дошкільного віку з метою їх подальшого розвитку
Початок робіт - І квартал 2013 року.
Закінчення робіт - ІІ квартал 2013
року.
Виконавець - студент групи ДКТ-К1-1
Лісаєв Д. В.
.2Підстави для розробки
Завдання, видане на основі витягу із
протоколу № 9 засідання кафедри інформатики та комп’ютерних технологій УІПА від
«12» лютого 2013 р.
.3 Призначення розробки
Ігрова програма «Пізнавальні Ігри»
призначений для ігрового навчання дітей шкільного віку з метою розвитку їхньої
пам'яті, мислення, ерудиції та інших інтелектуальних якостей.
.4.Вимоги до прикладної системи
.4.1 Вимоги до функціональних
характеристик
Ігрова програма «Пізнавальні Ігри»
має виконувати такі функції:
· відображення
титульної форми гри;
· реєстрація гравця
або завантаження гравця;
· відображення
головного меню гри;
· вибір гри;
· відображення форми
з питаннями та відведеними полями для відповіді;
· реалізація
перенесення гравцем правильної відповіді у відведене для неї місце на формі, у
випадку гри «Транспорт» реалізація гравцем кліку на правильну відповідь;
· відображення
повідомлення про правильність (неправильність) відповіді;
· у разі гри
«Транспорт» при виборі правильної відповіді, відображення наступної форми;
· Збереження стану
гри в будь який момент гри з форми головного меню;
· завантаження
збереженої гри для її продовження;
· відображення книги
рекордів гри;
· формування книги
рекордів гри у текстовому процесорі MS Word;
· формування книги
рекордів гри у табличному процесорі MS Excel;
· відображення
інформації про автора;
· відображення
довідкової інформації про правила гри;
· реалізація виходу з
гри.
ігрова програма навчання шкільний
1.4.2 Вимоги до надійності
Ігрова програма «Пізнавальні ігри»
має зберігати працездатність при експлуатації його некваліфікованими
користувачами, а також має безвідмовно виконувати свої функції при нормальних
заданих умовах.
.4.3 Умови експлуатації
Умови експлуатації ігрової програми
«Пізнавальні Ігри» збігаються з умовами стабільної експлуатації сучасних
персональних комп'ютерів.
1.4.4 Вимоги до складу й параметрів
технічних засобів
Для стабільної роботи ігрової
програми «Пізнавальні Ігри» необхідний персональний комп'ютер типу Pentium із
процесором,тактова частота якого не нижче 100 Мгц.
.4.5 Вимоги до інформаційної й
програмної сумісності
Персональний комп'ютер,
використовуваний для функціонування ігрової програми «Пізнавальні Ігри», має
працювати під управлінням операційної системи Microsoft Windows 98 або більш
пізньої версії.
.4.6 Вимоги до маркування й
упакування
Для перенесення ігрової програми
«Пізнавальні Ігри» з метою його встановлення на персональних комп'ютерах
потрібен один диск типу CD-R.
1.4.7 Вимоги до транспортування й
зберігання
Транспортування ігрової програми
«Пізнавальні Ігри» доцільно робити на CD-R, зазначених у попередньому пункті.
.5 Вимоги до допоміжної документації
Ігрова програма «Пізнавальні Ігри»
має супроводжуватися такими документами:
· технічне завдання;
· сценарій роботи
програми;
· інструкція
користувача.
Зазначені документи мають
забезпечувати експлуатацію системи й відповідати діючим стандартам.
1.6 Вимоги до функціональної частини
прикладної системи
.6.1 Вимоги до набору функціональних
блоків
Ігрова програма «Пізнавальні Ігри»
має складатися з таких функціональних блоків:
· блоки реєстрації
гравця;
· блок підрахування
балів;
· блок виведення
результатів гри;
· блок відображення
довідкової інформації.
.6.2 Вимоги до інтерфейсу
користувача
Ігрова програма «Пізнавальні Ігри»
повинна мати сучасний стандартизований, інтуїтивно зрозумілий інтерфейс,
прийнятий для Windows-програм.
.6.3 Вимоги до взаємодії із
зовнішніми даними
Під час гри у «Пізнавальні Ігри»
гравець має можливість вводити такі дані та виконувати такі дії:
· Вводити особисті
дані під час реєстрації;
· Обирати бажану
гру(із 5 можливих);
· Мишкою переміщувати
картинки із зображеннями, клікати на кнопки із зображеннями;
· Переглядати довідкову
інформацію.
Під час функціонування ігрова
програма «Пізнавальні Ігри» має відображувати гравцю таку інформацію:
· титульну форму гри;
· головне меню гри;
· результат гри;
· Ігрові поля.
1.7 Порядок контролю й приймання
Результати роботи розглядаються й
затверджуються на засіданнях кафедри Інформатики й комп'ютерних технологій.
По закінченню робіт мають бути
представлені такі документи:
· Ігрова програма;
· Інструкція
користувача;
· Розділ
пояснювальної записки курсової роботи з дисципліни «Прикладне програмування».
2. КАЛЕНДАРНИЙ ПЛАН
Етап
|
Найменування етапу
|
Термін виконання
|
Результат
|
Форма показу
|
|
|
початок
|
кінець
|
|
|
1
|
Створення початкового варіанта технічного
завдання на розробку ігрової програми
|
04.02.13
|
05.02.13
|
Друкована форма технічного завдання
|
Екранна і друкована форма «Технічне завдання»
|
2
|
Проектування та створення макета
користувальницького інтерфейсу ігрової програми
|
05.02.13
|
15.02.13
|
Проект Visual Basic
|
Екранна форма Visual Basic
|
3
|
Програмування ігрової програми
|
20.02.13
|
6.03.13
|
Проект Visual Basic
|
Екранна форма Visual Basic
|
4
|
Додавання обмежень у програму шляхом
програмування всіх правил гри
|
06.03.13
|
08.03.13
|
Проект Visual Basic
|
Екранна форма Visual Basic
|
5
|
Формування книги рекордів у файлі і в базі
даних, накопичення статистики гри
|
08.03.13
|
10.03.13
|
Проект Visual Basic
|
Екранна форма Visual Basic
|
7
|
Формування книги рекордів в MS Word в
табличному вигляді
|
10.03.13
|
12.03.13
|
Проект Visual Basic и книга MS Word
|
Екранна форма MS Word и Visual Basic
|
8
|
Формування книги рекордів в MS Excel в
табличному вигляді та у вигляді діаграми
|
12.03.13
|
14.03.13
|
Проект Visual Basic і файл MS Excel
|
Екранна форма MS Excel и Visual Basic
|
9
|
Програмування гри з комп'ютером
|
15.03.13
|
25.03.13
|
Проект Visual Basic
|
Екранна форма в Visual Basic
|
10
|
Озвучування програми та оптимізація
програмного коду
|
27.03.13
|
03.04.13
|
Проект Visual Basic
|
Екранна форма Visual Basic
|
11
|
Розробка пояснювальної записки і допоміжної
документації. Здача ігрової програми
|
04.04.13
|
09.04.13
|
Проект Visual Basic
|
Екранна і друкована форма курсової роботи
|
3. ВСТУП
В наш час для людей різного віку
найзручнішим способом отримання інформації про життя навколишнього світу є
Інтернет а засобом є комп’ютер, в такі часи і пізнавальна діяльність дітей
більше зосереджується саме на комп’ютерах, адже с кожним роком змінюється світ IT
технологій. Дітям стає дедалі цікавіше сидіти за комп’ютером аніж гуляти на
вулиці. Так як попит на комп’ютерні ігри зростає у батьків є більше часу на
свої справи водночас коли їх діти хоч і не активно розвиваються, маю на увазі
прогулянки з друзями,спортивні ігри і т.д.,але все ж таки пізнають світ у своїх
домівках і за своїми комп’ютерами. Для таких потреб і потрібно конструювати
ігри для дошкільнят. Саме з цих переконань я і з конструював свою ігрову
програму, який називається «Пізнавальні ігри».
Моя ігрова програма направлена на
начальну і пізнавальну діяльність дітей дошкільного віку, саме діти цього
періоду тільки починають своє пізнання в цьому житті, а для того щоб ця
пізнавальна діяльність була якомога цікавішою ми представляємо її дітям у
вигляді комп’ютерних ігор, що не аби як впливає на їхню зацікавленість. Такі
ігри необхідні дітям для розвитку пам’яті в моєму випадку - запам’ятовування
видів транспорту, фруктів і овочів, пір року, тварин з продуктами їх
харчування. Після неодноразового перегравання цих ігор, діти повинні навчитися
логічно мислити для того щоб встановлювати взаємозв’язки між компонентами у грі
в нашому випадку цими компонентами є картинки з зображеннями які необхідно буде
переміщувати з логічною установкою.
Ігрову програму «Пізнавальні Ігри» я
виконав у середовищі програмування Visual
Studio, на мові Visual
Basic. Net.
Ця мова програмування для починаючого програміста є найпростішою і
найзрозумілішою, вона не вимагає дуже великих затрат часу тому я і програмував
саме на ній. Середовище наглядного програмування Microsoft
Visual Studio
є дуже зручним способом проявити свої уміння у програмуванні починаючого рівня,
у мові програмування Visual
Basic. NET
досить зрозумілі оператори і методи опрацювання даних. Я можу совітувати іншим
людям саме цю мову проектування, і думаю інші програмісти мого оточення мене
підтримають.
Я сподіваюсь, що моя перша
комп’ютерна, хоч і міні гра допоможе комусь у пізнанні світу.
4. СХЕМА АЛГОРИТМУ
5. ОПИС ОСНОВНИХ ЕЛЕМЕНТІВ
УПРАВЛІННЯ ТА ЇХНЬОГО ПРИЗНАЧЕННЯ
.1 Стисла характеристика ігрової
програми
Ігрова програма «Пізнавальні Ігри» -
це програма, яка дозволяє обирати певну гру з виду дитячих пізнавальних ігор,
заробляти бали за правильні відповіді, формує книгу рекордів ігор та дозволяє
її переглядати у текстовому процесор MS Word та табличному процесорі MS Excel.
Розроблена програма також реалізує функції збереження незакінченої гри та подальшого
продовження гри з міста її збереження. Програма надає користувачеві довідку з
правил гри та порядку користування програмою, інформацію про розробника гри.
.2 Використані елементи управління
та їхнє призначення
.2.1 Реалізація функціональності ігрової
програми
Для реалізації функціональності
системи використовуються такі командні об’єкти, як Button та MainMenu (рис.
5.1,5.2).
Командна кнопка Button
За допомогою командних кнопок Button
в ігровій програмі здійснюється перехід між ігровими формами, вводяться дані
гравця, виконуються операції по відображенню книги рекордів гри в текстовому
процесорі MS Word та табличному процесорі MS Excel.
Меню користувача MainMenu
За допомогою меню користувача в
ігровій прогрмі виконуються такі основні функції: вибір режимів гри, початок
гри, збереження та завантаження гри, виведення інформації про автора та
довідкової інформації.
Рис. 5.1. Елементи управління Button
Рис. 5.2. Елементи управління
MainMenu
.2.2 Реалізація операцій
введення-виведення даних
Для відображення інформації в
ігровій програмі використовуються елементи управління Label та DataGrid (рис.
5.2). Для введення текстової інформації, необхідної для роботи програми
використовується текстове поле TextBox (рис. 5.2). Для відображення малюнків,
що підвищують наочність ігрової програми використовується елемент управління
PictureBox (рис. 5.2).
Напис Label
За допомогою написів Label в ігровій
програмі на екранних формах здійснюється відображення такої текстової
інформації: пояснювальні написи, зашифроване і відгадане слова, введені букви.
Рис. 5.3. Елементи управління Label,
TextBox, PictureBox, DataGrid
Текстове поле TextBox
За допомогою текстового поля TextBox
здійснюється введення даних гравця.
Зображення PictureBox
За допомогою елемента для виведення
малюнків PictureBox в ігровій програмі виводяться яскраво оформлені екранні
форми, графічно відображується кількість спроб вгадати слово, що залишилися.
Таблиця даних DataGrid
За допомогою елемента DataGridView
на формі виведення статистичних даних відображуються дані з бази даних
рекордів.
.2.3 Реалізація зв’язку з базою
даних
Для здійснення зв’язку з базою даних
рекордів використовуються елементи управління TableAdapter,
BindingSource та DataSet (рис. 5.4).
Рис. 5.4. Елементи зв’язку з базами
даних
Елементи для зв’язку з базою даних є
взаємопов’язані та з’являються у проекті за результатами роботи майстру зв’язку
з базами даних Мастер конфигурации адаптера данных.
6. СЦЕНАРІЙ РОБОТИ ПРОГРАМНОГО
ПРОДУКТУ
.1 Умова гри
Суть гри полягає в тому, що потрібно
правильно дати відповідь на питання з поданих варіантів відповідей. Якщо
питання вгадано, виводиться повідомлення і нараховується 1 бал, а у разі
помилки виводиться повідомлення про неправильну відповідь.
.2 Інтерфейс гри
.2.1 Титульна форма
При запуску ігрової програми
відкривається титульна форма, за допомогою командних кнопок можна почати гру,
переглянути довідкову інформацію про автора.
Призначення командних кнопок:
· Об Авторе -
перегляд інформації про автора програми;
· Продолжить -
перехід до форми реєстрації гравця.
6.2.2 Форма Реєстрації
На формі «Реєстрація» гравець може
зареєструватися.
Призначення командних кнопок:
· Ок - підтвердження
реєстраційних даних, перехід до головної форми гри;
· Загрузить -
завантаження раніше збереженої гри.
.2.3 Форма Головного меню
На формі «Головного меню»
розташовано меню користувача, де можна обрати гру, переглянути довідкову
інформацію, зберегти та завантажити гру, переглянути статистику та закрити
програму.
Призначення командних кнопок:
· Выбор игры -
відображення меню користувача з метою вибору гри
· Рекорды -
відображення форми статистики
· Информация -
відображення форми «інформації про ігри»
· Сохранить -
збереження поточної гри
· Загрузить -
завантаження збереженої раніше гри
· Звук Вкл/Выкл -
увімкнення та вимкнення звуку
· Выход - завершення
роботи програми
.2.4 Форма відображення статистики
На формі «Рекорды» відображено
таблицю рекордів гри. Також на формі є кнопки, за допомогою яких таблицю
рекордів можна вивести у MS Word та MS Excel.
Призначення командних кнопок:
· Книга в Word -
відкриття текстового процесору MS Word та створення книги рекордів гри у
табличному виді у текстовому документі MS Word;
· Книга в Excel -
відкриття табличного процесору MS Excel та створення книги рекордів гри у
табличному виді у рабочій книзі MS Excel та представлення результатів гри у
вигляді діаграми.
· ОК - закриття
форми.
6.2.5 Форма з інформацією про автора
гри
Призначення командних кнопок:
· ОК - закриття
форми.
.2.6 Форма з інформацією про гру
Призначення командних кнопок:
· К Выбору игры -
закриття форми.
.2.7 Форми з ігровими полями
Призначення командних кнопок:
· Завершить, к выбору
гры и кнопка Главная - закриття форми і перехід до головного меню.
7. ІНСТРУКЦІЯ КОРИСТУВАЧА
Функції
|
Дії користувача
|
Інформація на екрані
|
Запуск програми
|
Для запуску програми необхідно запустити
(подвійним натисканням миші) файл завантаження
|
|
Початок гри
|
Після запускупрограми відображуеться форма
привітання, для початку гри слід натиснути на кнопку «продолжить», після чого
відкриється форма реєстрації
|
|
Реєстрація гравця
|
На формі реєстрації слід у текстове поле
ввести свої дані
|
|
Робота з головною формою гри
|
На головній формі можна обрати одну з п’яти
ігор, переглянути статистику, інформацію про програму, зберегти та
завантажити гру, ввімкнути та вимкнути звук, Та закрити гру.
|
|
Гра в активному режимі
|
На формі гри потрібно перетягрути правильну
відповідь (картинку) у відведене поле, крім гри «Транспорт» в якій необхідно
клікати на правильну відповідь
|
|
Якщо відповідь правильна
|
Якщо відповідь правильна відображається
надпис, а у разі гри «Транспорт» зявляється повідомлення і потрібно натиснути
кнопку «Ок»
|
|
Якщо відповідь неправильна
|
Якщо відповідь не правильна відображається
надпис, а у разі гри «Транспорт» зявляється повідомлення і потрібно натиснути
кнопку «Ок»
|
|
Робота з книгою рекордів
|
Для занесення результатів гри в книгу рекордів
слід відповісти хоча б один раз правильно
|
|
Збереження гри
|
На формі головного меню слід натиснути кнопку
«Сохранить»
|
|
Завершення гри
|
Для виходу з гри слід виконати команду «Выход»
головного меню
|
|
8. КЕРІВНИЦТВО СИСТЕМНОГО
ПРОГРАМІСТА
Для коректного функціонування всі
файли ігрової програми мають знаходитися в одній теці на жорсткому диску
персонального комп’ютера. В теці з програмою мають знаходитися такі файли:
Познавальные Игры.exe
Книга
рекордов.mdb.mp3.mp3_muzika_-_iz_m_f_Masha_i_Medved_minusovka__(get-tune.net).mp3.mp3
Неизвестен_-_Фоновая_музыка_для_игр_-_(mp3poisk.net)
.mp3
Правильно.mp3
Фонвремена.mp3
Фонзверьки.mp3
фонтранспорт.mp3
Для можливості відображення книги
рекордів в текстовому процесорі MS Word та табличному процесорі MS Excel
необхідно інсталювати на персональний комп’ютер ліцензійні версії пакету MS
Office.
ЛІТЕРАТУРА
1.
Методичні вказівки з курсового проектування по дисципліні «Прикладне
програмування» / М.А. Бондаренко - Харків: УІПА, 2003. - 28 с.
2.
Методичні вказівки з організації та планування самостійної роботи студентів
з дисципліни «Прикладне програмування» за кредитно-модульною організацією
навчального процесу на 2 курсі. Для спеціальності 6.010100.36 «Професійне
навчання. Комп’ютерні технології в управлінні та навчанні» / Т.В. Ящун. -
Харків: УІПА, 2008. - 125 с.
.
Волченков Н.Г. Программирование на Visual Basic 6: В 3-х ч. - М.:
ИНФРА-М, 2002. - 288 с.
.
Проценко В.С., Чаленко П.И., Сорока Р.А. Техника программирования. - К.:
Выща шк., 1990 - 183 с.
.
Фролов Г.Д., Кузнецов Э.И. Элементы информатики. - М.: Высш. шк., 1989 -
304 с.
.
Симпсон Г. Профессиональная работа на персональном компьютере. - Финансы
и статистика, 1988. - 226с.
.
Корнелл Г., Моррисон Дж. Программирование на VB .NET: учебный курс. -
Спб.: Питер, 2002. - 400 с.
.
Самоучитель Visual Basic .NET / Д. Зак. - Киев: BHV; Спб.: Питер, 2003.
- 558 с.
.
Поль Киммел. Visual Basic .NET. Искусство программирования / Пер. с
англ. - Спб.: ООО «ДиасофтЮП», 2003. - 720 с.
ДОДАТОК
Титульна форма «Главная»
Class ГлавнаяSub Главная_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Loadfilename2 As String = Application.StartupPath + "\" +
"vigr.mp3".URL = filename2SubSub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click.Hide()
Регистрация.Show()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Об_Авторе.Show().Hide()SubClass
Форма інформації про розробника гри
«Об Авторе»
Class Об_АвтореSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click.Hide()
Главная.Show()SubSub
Об_Авторе_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.LoadSubClass
Форма «Реєстрації»
Class РегистрацияSub
Регистрация_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load.Clear()SubSub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.ClickTextBox1.Text = ""
Then("Введите свои данные", MsgBoxStyle.Critical, "Внимание,
ошибка!")_i = TextBox1.Text.Label1.Text = CStr("Профиль: " +
n_i).Hide().Show()IfSubSub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.ClickMyDialog As New OpenFileDialog.Filter
= " text(*.txt)|*.txt".Enabled = True.Start()MyDialog.ShowDialog =
DialogResult.OK ThenTemp As String =
MyDialog.Filter.ToUpperTemp.EndsWith("TXT") ThenobjStreamReader As
System.IO.StreamReader= System.IO.File.OpenText(MyDialog.FileName)strReader As
String= objStreamReader.ReadLine= CStr(strReader)= objStreamReader.ReadLine_o =
CStr(strReader)= objStreamReader.ReadLine.Close()IfIfSubClass
Форма «Головне меню»
Главная.AxWindowsMediaPlayer1.close()
Времена_Года.Show().Hide()SubSub
ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ToolStripMenuItem2.Click
Главная.AxWindowsMediaPlayer1.close()
Кто_что_ест.Show().Hide()SubSub
ТранспортToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ТранспортToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Транспорт.Show().Hide()SubSub
ФруктовоеАссортиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ФруктовоеАссортиToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Фруктовое_Ассорти.Show().Hide()SubSub
ФруктыИОвощиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ФруктыИОвощиToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()
Фрукты_и_Овощи.Show().Hide()SubSub
ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ВыходToolStripMenuItem.Click.Close()SubSub
ОбАвтореToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs)
Об_Авторе.Show()SubSub
ИнформацияToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ИнформацияToolStripMenuItem.Click
Информация_об_Играх.Show()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Главная.AxWindowsMediaPlayer1.close()
Времена_Года.Show().Hide()SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Главная.AxWindowsMediaPlayer1.close()
Транспорт.Show().Hide()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Главная.AxWindowsMediaPlayer1.close()
Кто_что_ест.Show().Hide()SubSub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
Главная.AxWindowsMediaPlayer1.close()
Фруктовое_Ассорти.Show().Hide()SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Главная.AxWindowsMediaPlayer1.close()
Фрукты_и_Овощи.Show().Hide()SubSub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.LoadSubSub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.ClickSaveFile
As New SaveFileDialog.DefaultExt = "*.txt".Filter = "txt
Files|*.txt".Stop().Enabled = False(SaveFile.ShowDialog() =
DialogResult.OK) And (SaveFile.FileName.Length) > 0 ThenobjStreamWrite As
System.IO.StreamWriter=
System.IO.File.CreateText(SaveFile.FileName).WriteLine(Name).WriteLine(p_o).Close()IfSubSub
РекордыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles РекордыToolStripMenuItem.Click
Рекорды.Show().Hide()SubSub
ЗагрузитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ЗагрузитьToolStripMenuItem.ClickMyDialog As New
OpenFileDialog.Filter = " text(*.txt)|*.txt".Enabled = True.Start()MyDialog.ShowDialog
= DialogResult.OK ThenTemp As String =
MyDialog.Filter.ToUpperTemp.EndsWith("TXT") ThenobjStreamReader As
System.IO.StreamReader= System.IO.File.OpenText(MyDialog.FileName)strReader As
String= objStreamReader.ReadLine= CStr(strReader)= objStreamReader.ReadLine_o =
CStr(strReader)= objStreamReader.ReadLine.Close()IfIfSubSub
ВклToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ВклToolStripMenuItem.Clickfilename2 As String =
Application.StartupPath + "\" + "vigr.mp3"
Главная.AxWindowsMediaPlayer1.URL =
filename2SubSub ВыклToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ВыклToolStripMenuItem.Click
Главная.AxWindowsMediaPlayer1.close()SubClass
Форма відображення статистики
«Рекорды»
Class Рекордыrecords
<VBFixedString(10)>n_i As
Stringp_o As IntegerStructureSub Рекорды_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет
загрузить данные в таблицу "Книга_рекордовDataSet1.ЛДВ_рекорды". При
необходимости она может быть перемещена или
удалена..ЛДВ_рекордыTableAdapter.Fill(Me.Книга_рекордовDataSet.ЛДВ_рекорды)
'TODO: данная строка кода позволяет
загрузить данные в таблицу "Книга_рекордовDataSet1.ЛДВ_рекорды". При
необходимости она может быть перемещена или удалена.anyrow As DataRow =
Книга_рекордовDataSet.ЛДВ_рекорды.NewRow.Item(1) = n_i.ToString.Item(2) =
p_o.ToString.Item(3) = Now.ToString
Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Add(anyrow)
'добавление строки в таблицу
ЛДВ_рекордыTableAdapter.Update(Книга_рекордовDataSet)
'обновление набора данных РекордыDataSet1
ЛДВ_рекордыTableAdapter.Fill(Книга_рекордовDataSet.ЛДВ_рекорды)SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Clickobjword As New
Microsoft.Office.Interop.Word.ApplicationobjDoc As New
Microsoft.Office.Interop.Word.Documentn, i As Integer 'объявление
вспомогательных переменных.Visible = True 'приложение Word становиться
видимым(Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count - 1) >= 0 Then 'если БД
не пустая
' objword =
CreateObject("Word.Application") 'создание приложения типа Word=
objword.Documents.Add 'Добавляет новый документ в Word.Activate() 'делает новый
документ активнымobjDoc.Paragraphs.Item(1)
.Range.Text = "Книга
рекордов" 'вводит текст "Книга рекордов"
.Range.Font.Bold = True 'Делает
шрифт жирнымWith.Paragraphs.Add() 'добавляет новый
абзац.Tables.Add(objDoc.Paragraphs.Item(2).Range, Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count
+ 1, Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count)
'создает таблицу размером с БД
'изменение стиля первой
строкиobjDoc.Tables.Item(1)
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn =
TrueWith.Tables(1).Style = "Сетка
таблицы".Tables(1).Range.ParagraphFormat.Alignment =
Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
'вывод названя столбцов БД в
таблицуi = 1 To Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count.Tables.Item(1).Cell(1,
i).Range.Text = Книга_рекордовDataSet.ЛДВ_рекорды.Columns(i -
1).ColumnName.Tables.Item(1).Cell(1, i).Range.Font.Size = 14i
'Вывод записей БД в таблицуi = 2 To
Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 1n = 1 To
Книга_рекордовDataSet.ЛДВ_рекорды.Columns.Count.Tables.Item(1).Cell(i,
n).Range.Text = Книга_рекордовDataSet.ЛДВ_рекорды.Item(i - 2).Item(n -
1)ni.Paragraphs.Item(1).Range.ParagraphFormat.Alignment =
Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
'устанавливает выравнивание первого абзаца по
середине.Paragraphs.Item(1).Range.Font.Size = 20 'устанавливает размер шрифта
первого абзаца.SaveAs2(FileName:="таблица1.doc")'если база данных
пустая("База данных пустая!!!", MsgBoxStyle.Critical,
"!!!")IfSubSub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.ClickobjExcel As New
Microsoft.Office.Interop.Excel.Application.Visible = True
'видимый.SheetsInNewWorkbook = 1.Workbooks.Add()osheet As New Microsoft.Office.Interop.Excel.Worksheet=
objExcel.ActiveWorkbook.ActiveSheeti, j As Integerosheet
.Range("A1:b1").Select().Selection.merge().Selection.value
= "Таблица рекордов".Selection.HorizontalAlignment =
Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCenter.Selection.font.bold =
Truej = 1 To 2
.Cells(2, j).value =
Книга_рекордовDataSet.ЛДВ_рекорды.Columns(j).ColumnNameji = 0 To
Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count - 1j = 1 To 2
.Cells(i + 3, j).value =
Книга_рекордовDataSet.ЛДВ_рекорды.Item(i).Item(j)jiWithstr_ROW_count As String
= Trim(CStr(Книга_рекордовDataSet.ЛДВ_рекорды.Rows.Count + 2))st_range As
String = "A1:B" &
str_ROW_count.Range(st_range).Select().Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).lineStyle
= Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).lineStyle
=
Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).lineStyle
=
Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).lineStyle
= Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideVertical).lineStyle
=
Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous.Selection.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlInsideHorizontal).lineStyle
= Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous.Charts.Add()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 =
FalseWith.ActiveWorkbook.SaveAs(Filename:="Рекорды.xlsx").ActiveWorkbook.Close()=
Nothing.Quit()SubSub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click.Show().Hide()SubClass
Форма «Информация об играх»
Class Информация_об_ИграхSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click.Hide().Show()SubSub Label1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Label1.ClickSubClass
Форма гри «Времена года»
Class Времена_годаSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click.close().Hide().Show()SubSub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Информация_Времена_Года.Show().Hide()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Времена_Года_Игровое_поле_.Show().Hide()SubSub
Времена_Года_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Loadmuzica As String = Application.StartupPath + "\" +
"фонвремена.mp3".URL = muzicaSubClass
Форма інформації про ігри
«Правила»Class Информация_Времена_ГодаSub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click.Hide()
Времена_Года_Игровое_поле_.Show()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click.Hide()
Времена_Года.Show()SubSub Информация_Времена_Года_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.LoadSubClass
Class Времена_Года_Игровое_поле_flag
As Booleanflag2 As Booleanflag3 As Booleanflag4 As BooleanSub Времена_Года_Игровое_поле__Load(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadflagok
= True Then.Controls.Clear()()IfSubSub Timer3_Tick(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick.Visible = FalseSubSub
Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer4.Tick.Visible = FalseSubSub PictureBox10_MouseMove_1(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox10.MouseMovePictureBox10.Location.X > 465 And
PictureBox10.Location.X < 657 And PictureBox10.Location.Y > 255 And
PictureBox10.Location.Y < 429 Then_o += 1_o += 1.Visible = False.Location =
New System.Drawing.Point(496, 433).Visible = True.Enabled = True.Enabled = False=
False.BorderStyle = BorderStyle.NonePictureBox10.Location.X > 112 And
PictureBox10.Location.X < 304 And PictureBox10.Location.Y > 25 And
PictureBox10.Location.Y < 201 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox10.Location.X > 465 And PictureBox10.Location.X < 657 And
PictureBox10.Location.Y > 25 And PictureBox10.Location.Y < 201
Then.Visible = True.Enabled = True_o += 1= TruePictureBox10.Location.X > 112
And PictureBox10.Location.X < 304 And PictureBox10.Location.Y > 255 And
PictureBox10.Location.Y < 429 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox10_MouseDown_1(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox10_MouseUp_1(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub Времена_Года_Игровое_поле__MouseMove_1(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Handles MyBase.MouseMoveflag = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox9.Width / 2, e.Location.Y -
PictureBox9.Height / 2)Ifflag2 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y -
PictureBox10.Height / 2)Ifflag3 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y -
PictureBox11.Height / 2)Ifflag4 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox12.Width / 2, e.Location.Y -
PictureBox12.Height / 2)IfSubSub PictureBox9_MouseMove_1(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox9.MouseMovePictureBox9.Location.X > 112 And PictureBox9.Location.X
< 304 And PictureBox9.Location.Y > 25 And PictureBox9.Location.Y < 201
Then_o += 1_o += 1.Visible = False.Location = New System.Drawing.Point(142,
204).Visible = True.Enabled = True.Enabled = False= False.BorderStyle =
BorderStyle.NonePictureBox9.Location.X > 465 And PictureBox9.Location.X <
657 And PictureBox9.Location.Y > 255 And PictureBox9.Location.Y < 429
Then.Visible = True.Enabled = True_o += 1= TruePictureBox9.Location.X > 465
And PictureBox9.Location.X < 657 And PictureBox9.Location.Y > 25 And
PictureBox9.Location.Y < 201 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox9.Location.X > 112 And PictureBox9.Location.X < 304 And
PictureBox9.Location.Y > 255 And PictureBox9.Location.Y < 429
Then.Visible = True.Enabled = True_o += 1= TrueIfSubSub
PictureBox9_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox9_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox11_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox12.MouseMovePictureBox12.Location.X > 112 And
PictureBox12.Location.X < 304 And PictureBox12.Location.Y > 255 And
PictureBox12.Location.Y < 429 Then_o += 1_o += 1.Visible = False.Location =
New System.Drawing.Point(140, 432).Visible = True.Enabled = True.Enabled =
False= False.BorderStyle = BorderStyle.NonePictureBox12.Location.X > 112 And
PictureBox12.Location.X < 304 And PictureBox12.Location.Y > 25 And
PictureBox12.Location.Y < 201 Then.Visible = True.Enabled = True_o += 1= TruePictureBox12.Location.X
> 465 And PictureBox12.Location.X < 657 And PictureBox12.Location.Y >
255 And PictureBox12.Location.Y < 429 Then.Visible = True.Enabled = True_o
+= 1= TruePictureBox12.Location.X > 465 And PictureBox12.Location.X < 657
And PictureBox12.Location.Y > 25 And PictureBox12.Location.Y < 201
Then.Visible = True.Enabled = True_o += 1= TrueIfSubSub
PictureBox12_MouseDown_1(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox12_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox11.MouseMovePictureBox11.Location.X > 465 And
PictureBox11.Location.X < 657 And PictureBox11.Location.Y > 25 And PictureBox11.Location.Y
< 201 Then_o += 1_o += 1.Visible = False.Location = New
System.Drawing.Point(496, 204).Visible = True.Enabled = True.Enabled = False=
False.BorderStyle = BorderStyle.NonePictureBox11.Location.X > 112 And
PictureBox11.Location.X < 304 And PictureBox11.Location.Y > 25 And
PictureBox11.Location.Y < 201 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox11.Location.X > 465 And PictureBox11.Location.X < 657 And
PictureBox11.Location.Y > 255 And PictureBox11.Location.Y < 429 Then.Visible
= True.Enabled = True_o += 1= TruePictureBox11.Location.X > 112 And
PictureBox11.Location.X < 304 And PictureBox11.Location.Y > 255 And
PictureBox11.Location.Y < 429 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub Button1_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Времена_года.AxWindowsMediaPlayer1.close().Show().Hide()SubClass
Class ТранспортSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Транспорт2.Show().Hide()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click.close().Show().Hide()SubSub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Транспорт_игра1.Show().Hide()SubSub
Транспорт_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Loadfilenametr As String = Application.StartupPath +
"\" + "фонтранспорт.mp3".URL = filenametrSubClass
Class Транспорт2Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Транспорт.Show().Hide()SubSub
Транспорт2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.LoadSubClass
Class Транспорт_игра1Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3".URL =
filename3.Show("Правильно")_o += 1_o += 1
транспорт_игра2.Show().Hide()SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click_o += 1.Show("Неправильный ответ")SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click_o += 1.Show("Неправильный ответ")SubSub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click_o += 1.Show("Неправильный ответ")SubSub
Транспорт_игра1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.LoadSubClass
Class транспорт_игра2Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL =
filename3.Show("Правильно")_o += 1_o += 1.Hide()
транспорт_игра3.Show()SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click_o += 1.Show("Неправильный ответ")SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click_o += 1.Show("Неправильный ответ")SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click_o += 1.Show("Неправильный ответ")SubSub
транспорт_игра2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClassClass транспорт_игра3Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL =
filename3.Show("Правильно")_o += 1_o += 1
Трансорт_игра_4.Show()
Me.Hide()SubSub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click_o
+= 1.Show("Неправильный ответ")SubSub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click_o +=
1.Show("Неправильный ответ")SubSub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click_o +=
1.Show("Неправильный ответ")SubSub Button5_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
транспорт_игра3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Трансорт_игра_4Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL =
filename3.Show("Правильно")_o += 1_o += 1
Трансорт_игра_5.Show().Hide()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click_o += 1.Show("Неправильный ответ")SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click_o += 1.Show("Неправильный ответ")SubSub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click_o += 1.Show("Неправильный ответ")SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Трансорт_игра_4_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Трансорт_игра_5Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL =
filename3.Show("Правильно")_o += 1_o += 1
Трансорт_игра_6.Show().Hide()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click_o += 1.Show("Неправильный ответ")SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click_o += 1.Show("Неправильный ответ")SubSub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click_o += 1.Show("Неправильный ответ")SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Трансорт_игра_5_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClassClass Трансорт_игра_6Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL =
filename3.Show("Правильно")
p_o += 1_o += 1.Hide()
Трансорт_игра_7.Show()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click_o += 1.Show("Неправильный ответ")SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click_o += 1.Show("Неправильный ответ")SubSub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click_o += 1.Show("Неправильный ответ")SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Трансорт_игра_6_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Трансорт_игра_7Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL =
filename3.Show("Правильно")_o += 1_o += 1.Hide()
Трансорт_игра_8.Show()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click_o += 1.Show("Неправильный ответ")SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click_o += 1.Show("Неправильный ответ")SubSub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click_o += 1.Show("Неправильный ответ")SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Трансорт_игра_7_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Трансорт_игра_8Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Clickfilename3 As String = Application.StartupPath +
"\" + "правильно.mp3"
Транспорт_игра1.wmp.URL = filename3.Show("Правильно")_o
+= 1_o += 1.Hide()
Трансорт_игра_9.Show()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click_o += 1.Show("Неправильный ответ")SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click_o += 1.Show("Неправильный ответ")SubSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click_o += 1.Show("Неправильный ответ")SubSub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Транспорт.AxWindowsMediaPlayer1.close().Show().Hide()SubSub
Трансорт_игра_8_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Трансорт_игра_9Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Транспорт_игра1.Show().Hide()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Транспорт.AxWindowsMediaPlayer1.close().Hide().Show()SubSub
Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label1.ClickSubSub Трансорт_игра_9_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.LoadSubClass
Class Кто_что_естSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Кто_что_ест2.Show().Hide()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click.Show().Hide()SubSub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Игра_Кто_что_ест.Show().Hide()SubSub
Кто_что_ест_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Loadfilenametr As String = Application.StartupPath +
"\" + "фонзверьки.mp3".URL = filenametrSubClass
Class Кто_что_ест2Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Кто_что_ест.Show().Hide()SubSub
Кто_что_ест2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.LoadSubClass
Class Игра_Кто_что_естflag As
Booleanflag2 As Booleanflag3 As Booleanflag4 As Booleanflag5 As BooleanSub
PictureBox11_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseMovePictureBox11.Location.X
> 36 And PictureBox11.Location.X < 156 And PictureBox11.Location.Y >
150 And PictureBox11.Location.Y < 257 Then_o += 1_o += 1.Visible =
False.Location = New System.Drawing.Point(36, 150).Visible = True.Enabled = True.Enabled
= False.BorderStyle = BorderStyle.None= FalsePictureBox11.Location.X > 458
And PictureBox11.Location.X < 580 And PictureBox11.Location.Y > 150 And
PictureBox11.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox11.Location.X > 178 And PictureBox11.Location.X < 300 And
PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TruePictureBox11.Location.X > 323
And PictureBox11.Location.X < 439 And PictureBox11.Location.Y > 150 And
PictureBox11.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox11.Location.X > 599 And PictureBox11.Location.X < 730 And
PictureBox11.Location.Y > 150 And PictureBox11.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TrueIfSubSub
PictureBox11_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox11_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox11.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox12_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox12_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseMovePictureBox12.Location.X
> 458 And PictureBox12.Location.X < 580 And PictureBox12.Location.Y >
150 And PictureBox12.Location.Y < 257 Then_o += 1_o += 1.Visible =
False.Location = New System.Drawing.Point(458, 150).Visible = True.Enabled =
True.Enabled = False.BorderStyle = BorderStyle.None=
FalsePictureBox12.Location.X > 36 And PictureBox12.Location.X < 156 And
PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TruePictureBox12.Location.X > 178
And PictureBox12.Location.X < 300 And PictureBox12.Location.Y > 150 And
PictureBox12.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox12.Location.X > 323 And PictureBox12.Location.X < 439 And
PictureBox12.Location.Y > 150 And PictureBox12.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TruePictureBox12.Location.X > 599
And PictureBox12.Location.X < 730 And PictureBox12.Location.Y > 150 And
PictureBox12.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox12_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox12.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox13_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox13_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox13.MouseMovePictureBox13.Location.X > 178 And
PictureBox13.Location.X < 300 And PictureBox13.Location.Y > 150 And
PictureBox13.Location.Y < 257 Then_o += 1_o += 1.Visible = False.Location =
New System.Drawing.Point(178, 150).Visible = True.Enabled = True.Enabled =
False.BorderStyle = BorderStyle.None= FalsePictureBox13.Location.X > 36 And
PictureBox13.Location.X < 156 And PictureBox13.Location.Y > 150 And
PictureBox13.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox13.Location.X > 323 And PictureBox13.Location.X < 439 And
PictureBox13.Location.Y > 150 And PictureBox13.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TruePictureBox13.Location.X > 458
And PictureBox13.Location.X < 580 And PictureBox13.Location.Y > 150 And
PictureBox13.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox13.Location.X > 599 And PictureBox13.Location.X < 730 And
PictureBox13.Location.Y > 140 And PictureBox13.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TrueIfSubSub
PictureBox13_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox13.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= False.BringToFront()SubSub
PictureBox14_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox14_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox14.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub
PictureBox14_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox14.MouseMovePictureBox14.Location.X > 323 And
PictureBox14.Location.X < 439 And PictureBox14.Location.Y > 150 And
PictureBox14.Location.Y < 257 Then_o += 1_o += 1.Visible = False.Location =
New System.Drawing.Point(323, 150).Visible = True.Enabled = True.Enabled =
False.BorderStyle = BorderStyle.None= FalsePictureBox14.Location.X > 36 And
PictureBox14.Location.X < 156 And PictureBox14.Location.Y > 150 And
PictureBox14.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1= TruePictureBox14.Location.X
> 178 And PictureBox14.Location.X < 300 And PictureBox14.Location.Y >
150 And PictureBox14.Location.Y < 257 Then.Visible = True.Enabled = True_o
+= 1= TruePictureBox14.Location.X > 458 And PictureBox14.Location.X < 580
And PictureBox14.Location.Y > 150 And PictureBox14.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TruePictureBox14.Location.X > 599
And PictureBox14.Location.X < 730 And PictureBox14.Location.Y > 150 And
PictureBox14.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox15_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox15.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= True.BringToFront()SubSub PictureBox15_MouseUp(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Handles PictureBox15.MouseUp.cursor() = Cursors.Default.BorderStyle =
BorderStyle.None= FalseSubSub Игра_Кто_что_ест_MouseMove(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
MyBase.MouseMoveflag = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox11.Width / 2, e.Location.Y -
PictureBox11.Height / 2)Ifflag2 = True Then.Location = New System.Drawing.Point(e.Location.X
- PictureBox12.Width / 2, e.Location.Y - PictureBox12.Height / 2)Ifflag3 = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox13.Width / 2,
e.Location.Y - PictureBox13.Height / 2)Ifflag4 = True Then.Location = New System.Drawing.Point(e.Location.X
- PictureBox14.Width / 2, e.Location.Y - PictureBox14.Height / 2)Ifflag5 = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox15.Width / 2,
e.Location.Y - PictureBox15.Height / 2)IfPictureBox11.Location = New System.Drawing.Point(36,
150) And PictureBox15.Location = New System.Drawing.Point(599, 150)
And.Location = New System.Drawing.Point(323, 150) And PictureBox13.Location =
New System.Drawing.Point(178, 150) And.Location = New System.Drawing.Point(458,
150) Then.Visible = True.Visible = TrueIfSubSub PictureBox15_MouseMove(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Handles PictureBox15.MouseMovePictureBox15.Location.X > 599 And
PictureBox15.Location.X < 730 And PictureBox15.Location.Y > 150 And
PictureBox15.Location.Y < 257 Then_o += 1_o += 1.Visible = False.Location =
New System.Drawing.Point(599, 150).Visible = True.Enabled = True.Enabled =
False.BorderStyle = BorderStyle.None= FalsePictureBox15.Location.X > 458 And
PictureBox15.Location.X < 580 And PictureBox15.Location.Y > 150 And
PictureBox15.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox15.Location.X > 178 And PictureBox15.Location.X < 300 And
PictureBox15.Location.Y > 150 And PictureBox15.Location.Y < 257
Then.Visible = True.Enabled = True_o += 1= TruePictureBox15.Location.X > 323
And PictureBox15.Location.X < 439 And PictureBox15.Location.Y > 150 And
PictureBox15.Location.Y < 257 Then.Visible = True.Enabled = True_o += 1= TruePictureBox15.Location.X
> 36 And PictureBox15.Location.X < 156 And PictureBox15.Location.Y >
150 And PictureBox15.Location.Y < 257 Then.Visible = True.Enabled = True_o
+= 1= TrueIfSubSub Игра_Кто_что_ест_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Loadflagok = True
Then.Controls.Clear()()IfSubSub Timer4_Tick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Timer4.Tick.Visible = FalseSubSub
Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer3.Tick.Visible = FalseSubSub Button2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button2.Click.Refresh().Show().Hide()
Кто_что_ест.AxWindowsMediaPlayer1.close()SubClass
Class Фруктовое_АссортиSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Фруктовое_Ассорти2.Show().Hide()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click.Show().Hide().close()SubSub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
фрукты_игра.show().Hide()
Фрукты_игра.Update()
Фрукты_игра2.Update()SubSub
Фруктовое_Ассорти_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Loadfilaname As String = Application.StartupPath + "\"
+ "fonfru.mp3".URL = filanameSubClass
Class Фруктовое_Ассорти2Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Фруктовое_Ассорти.Show().Hide()SubSub
Фруктовое_Ассорти2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Фрукты_играflag As
Booleanflag2 As Booleanflag3 As Booleanflag4 As BooleanSub
Фрукты_игра_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMoveflag = True Then.Location
= New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y -
PictureBox2.Height / 2).BringToFront()Ifflag2 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y -
PictureBox6.Height / 2).BringToFront()Ifflag3 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y -
PictureBox7.Height / 2).BringToFront()Ifflag4 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y -
PictureBox8.Height / 2).BringToFront()IfPictureBox2.Location = New
System.Drawing.Point(524, 439) And PictureBox6.Location = New
System.Drawing.Point(151, 436) And.Location = New System.Drawing.Point(646,
143) And PictureBox8.Location = New System.Drawing.Point(15, 149) Then.Visible
= True.Visible = TrueIfSubSub Фрукты_игра_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Loadflagok = True
Then.Controls.Clear()()IfSubSub PictureBox2_MouseDown(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox2.MouseDown.cursor() = Cursors.Hand.BorderStyle =
BorderStyle.Fixed3D= TrueSubSub PictureBox2_MouseMove(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox2.MouseMovePictureBox2.Location.X > 520 And PictureBox2.Location.X
< 750 And PictureBox2.Location.Y > 437 And PictureBox2.Location.Y <
552 Then_o += 1_o += 1.Location = New System.Drawing.Point(524, 439).Visible = True.Visible
= True.Enabled = True.Enabled = False.BorderStyle = BorderStyle.None=
FalsePictureBox2.Location.X > 11 And PictureBox2.Location.X < 146 And
PictureBox2.Location.Y > 13 And PictureBox2.Location.Y < 263 Then.Visible
= True.Enabled = True_o += 1= TruePictureBox2.Location.X > 17 And
PictureBox2.Location.X < 277 And PictureBox2.Location.Y > 433 And
PictureBox2.Location.Y < 550 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox2.Location.X > 643 And PictureBox2.Location.X < 765 And
PictureBox2.Location.Y > 14 And PictureBox2.Location.Y < 253 Then.Visible
= True.Enabled = True_o += 1= TrueIfSubSub PictureBox2_MouseUp(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox2.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox6.MouseMovePictureBox6.Location.X > 17 And PictureBox6.Location.X
< 277 And PictureBox6.Location.Y > 433 And PictureBox6.Location.Y <
550 Then_o += 1_o += 1.Location = New System.Drawing.Point(151, 436).Visible =
True.Visible = True.Enabled = True.Enabled = False.BorderStyle =
BorderStyle.None= FalsePictureBox6.Location.X > 11 And PictureBox6.Location.X
< 146 And PictureBox6.Location.Y > 13 And PictureBox6.Location.Y < 263
Then.Visible = True.Enabled = True_o += 1= TruePictureBox6.Location.X > 520
And PictureBox6.Location.X < 750 And PictureBox6.Location.Y > 437 And
PictureBox6.Location.Y < 552 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox6.Location.X > 643 And PictureBox6.Location.X < 765 And
PictureBox6.Location.Y > 14 And PictureBox6.Location.Y < 253 Then.Visible
= True.Enabled = True_o += 1= TrueIfSubSub PictureBox6_MouseUp(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox6.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox7.MouseMovePictureBox7.Location.X > 643 And PictureBox7.Location.X
< 765 And PictureBox7.Location.Y > 14 And PictureBox7.Location.Y < 253
Then_o += 1_o += 1.Location = New System.Drawing.Point(646, 143).Visible =
True.Visible = True.Enabled = True.Enabled = False.BorderStyle = BorderStyle.None=
FalsePictureBox7.Location.X > 11 And PictureBox7.Location.X < 146 And
PictureBox7.Location.Y > 13 And PictureBox7.Location.Y < 263 Then.Visible
= True.Enabled = True_o += 1= TruePictureBox7.Location.X > 520 And
PictureBox7.Location.X < 750 And PictureBox7.Location.Y > 437 And
PictureBox7.Location.Y < 552 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox7.Location.X > 17 And PictureBox7.Location.X < 277 And
PictureBox7.Location.Y > 433 And PictureBox7.Location.Y < 550 Then.Visible
= True.Enabled = True_o += 1= TrueIfSubSub PictureBox7_MouseUp(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox7.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox8.MouseMovePictureBox8.Location.X > 11 And PictureBox8.Location.X
< 146 And PictureBox8.Location.Y > 13 And PictureBox8.Location.Y < 263
Then_o += 1_o += 1.Location = New System.Drawing.Point(15, 149).Visible =
True.Visible = True.Enabled = True.Enabled = False.BorderStyle =
BorderStyle.None= FalsePictureBox8.Location.X > 643 And PictureBox8.Location.X
< 765 And PictureBox8.Location.Y > 14 And PictureBox8.Location.Y < 253
Then.Visible = True.Enabled = True_o += 1= TruePictureBox8.Location.X > 520
And PictureBox8.Location.X < 750 And PictureBox8.Location.Y > 437 And
PictureBox8.Location.Y < 552 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox8.Location.X > 17 And PictureBox8.Location.X < 277 And
PictureBox8.Location.Y > 433 And PictureBox8.Location.Y < 550
Then.Visible = True.Enabled = True_o += 1= TrueIfSubSub Timer1_Tick(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick.Visible = FalseSubSub Timer2_Tick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Timer2.Tick.visible = FalseSubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Фрукты_игра2.Show().Hide()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Фруктовое_Ассорти.AxWindowsMediaPlayer1.close().Show().Hide()SubClassClass
Фрукты_игра2flag As Booleanflag2 As Booleanflag3 As Booleanflag4 As Boolean
Public flag5 As BooleanSub
PictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox2.MouseMovePictureBox2.Location.X > 213 And PictureBox2.Location.X
< 483 And PictureBox2.Location.Y > 9 And PictureBox2.Location.Y < 128
Then_o += 1_o += 1.Location = New System.Drawing.Point(367, 12).Visible =
True.Visible = True.Enabled = True.Enabled = False.BorderStyle =
BorderStyle.None= FalsePictureBox2.Location.X > 9 And PictureBox2.Location.X
< 119 And PictureBox2.Location.Y > 9 And PictureBox2.Location.Y < 228
Then.Visible = True.Enabled = True_o += 1= TruePictureBox2.Location.X > 595
And PictureBox2.Location.X < 727 And PictureBox2.Location.Y > 10 And
PictureBox2.Location.Y < 251 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox2.Location.X > 479 And PictureBox2.Location.X < 730 And
PictureBox2.Location.Y > 409 And PictureBox2.Location.Y < 540
Then.Visible = True.Enabled = True_o += 1= TruePictureBox2.Location.X > 22
And PictureBox2.Location.X < 280 And PictureBox2.Location.Y > 423 And
PictureBox2.Location.Y < 543 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox2_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox6.MouseMovePictureBox6.Location.X > 9 And PictureBox6.Location.X
< 119 And PictureBox6.Location.Y > 9 And PictureBox6.Location.Y < 228
Then_o += 1_o += 1.Location = New System.Drawing.Point(12, 117).Visible =
True.Visible = True.Enabled = True.Enabled = False.BorderStyle =
BorderStyle.None= FalsePictureBox6.Location.X > 213 And
PictureBox6.Location.X < 483 And PictureBox6.Location.Y > 9 And
PictureBox6.Location.Y < 128 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox6.Location.X > 595 And PictureBox6.Location.X < 727 And
PictureBox6.Location.Y > 10 And PictureBox6.Location.Y < 251 Then.Visible
= True.Enabled = True_o += 1= TruePictureBox6.Location.X > 479 And
PictureBox6.Location.X < 730 And PictureBox6.Location.Y > 409 And
PictureBox6.Location.Y < 540 Then.Visible = True.Enabled = True_o += 1= TruePictureBox6.Location.X
> 22 And PictureBox6.Location.X < 280 And PictureBox6.Location.Y > 423
And PictureBox6.Location.Y < 543 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseMovePictureBox7.Location.X
> 22 And PictureBox7.Location.X < 280 And PictureBox7.Location.Y > 423
And PictureBox7.Location.Y < 543 Then_o += 1_o += 1.Location = New
System.Drawing.Point(147, 427).Visible = True.Visible = True.Enabled =
True.Enabled = False.BorderStyle = BorderStyle.None=
FalsePictureBox7.Location.X > 479 And PictureBox7.Location.X < 730 And
PictureBox7.Location.Y > 409 And PictureBox7.Location.Y < 540
Then.Visible = True.Enabled = True_o += 1= TruePictureBox7.Location.X > 595
And PictureBox7.Location.X < 727 And PictureBox7.Location.Y > 10 And
PictureBox7.Location.Y < 251 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox7.Location.X > 213 And PictureBox7.Location.X < 483 And
PictureBox7.Location.Y > 9 And PictureBox7.Location.Y < 128 Then.Visible
= True.Enabled = True_o += 1= TruePictureBox7.Location.X > 9 And
PictureBox7.Location.X < 119 And PictureBox7.Location.Y > 9 And
PictureBox7.Location.Y < 228 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox7_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox8_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox8.MouseMovePictureBox8.Location.X > 479 And PictureBox8.Location.X
< 730 And PictureBox8.Location.Y > 409 And PictureBox8.Location.Y <
540 Then_o += 1_o += 1.Location = New System.Drawing.Point(483, 412).Visible =
True.Visible = True.Enabled = True.Enabled = False.BorderStyle =
BorderStyle.None= FalsePictureBox8.Location.X > 22 And PictureBox8.Location.X
< 280 And PictureBox8.Location.Y > 423 And PictureBox8.Location.Y <
543 Then.Visible = True.Enabled = True_o += 1= TruePictureBox8.Location.X >
595 And PictureBox8.Location.X < 727 And PictureBox8.Location.Y > 10 And
PictureBox8.Location.Y < 251 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox8.Location.X > 213 And PictureBox8.Location.X < 483 And
PictureBox8.Location.Y > 9 And PictureBox8.Location.Y < 128 Then.Visible
= True.Enabled = True_o += 1= TruePictureBox8.Location.X > 9 And
PictureBox8.Location.X < 119 And PictureBox8.Location.Y > 9 And
PictureBox8.Location.Y < 228 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox10_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox10.MouseMovePictureBox10.Location.X > 595 And
PictureBox10.Location.X < 727 And PictureBox10.Location.Y > 10 And
PictureBox10.Location.Y < 251 Then_o += 1_o += 1.Location = New
System.Drawing.Point(599, 126).Visible = True.Visible = True.Enabled =
True.Enabled = False.BorderStyle = BorderStyle.None=
FalsePictureBox10.Location.X > 22 And PictureBox10.Location.X < 280 And
PictureBox10.Location.Y > 423 And PictureBox10.Location.Y < 543
Then.Visible = True.Enabled = True_o += 1= TruePictureBox10.Location.X > 479
And PictureBox10.Location.X < 730 And PictureBox10.Location.Y > 409 And
PictureBox10.Location.Y < 540 Then.Visible = True.Enabled = True_o += 1=
TruePictureBox10.Location.X > 213 And PictureBox10.Location.X < 483 And
PictureBox10.Location.Y > 9 And PictureBox10.Location.Y < 128
Then.Visible = True.Enabled = True_o += 1= TruePictureBox10.Location.X > 9
And PictureBox10.Location.X < 119 And PictureBox10.Location.Y > 9 And
PictureBox10.Location.Y < 228 Then.Visible = True.Enabled = True_o += 1=
TrueIfSubSub PictureBox10_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click.Hide().Update().Show()
Фруктовое_Ассорти.AxWindowsMediaPlayer1.close()SubSub
Фрукты_игра2_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMoveflag = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2, e.Location.Y
- PictureBox2.Height / 2).BringToFront()Ifflag2 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y -
PictureBox6.Height / 2).BringToFront()Ifflag3 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y -
PictureBox7.Height / 2).BringToFront()Ifflag4 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y -
PictureBox8.Height / 2).BringToFront()Ifflag5 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y -
PictureBox10.Height / 2).BringToFront()IfPictureBox2.Location = New
System.Drawing.Point(367, 12) And PictureBox6.Location = New
System.Drawing.Point(12, 117) And.Location = New System.Drawing.Point(147, 427)
And PictureBox8.Location = New System.Drawing.Point(483, 412) And
PictureBox10.Location = New System.Drawing.Point(599, 126) Then.Visible =
True.Visible = TrueIfSubSub Timer1_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Timer1.Tick.Visible = FalseSubSub
Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer2.Tick.Visible = FalseSubSub Фрукты_игра2_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadflagok = True
Then.Controls.Clear()()IfSubClass
Class Фрукты_и_ОвощиSub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click.Hide()
Фрукты_и_Овощи2.Show()SubSub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Фрукты_Овощи.Refresh().Hide()
Фрукты_Овощи.Show()SubSub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click.Hide().Show()SubSub Фрукты_и_Овощи_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadfon As String =
Application.StartupPath + "\" + "fonfo.mp3".URL =
fonSubClass
Class Фрукты_и_Овощи2Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click.Hide()
Фрукты_Овощи.Show()SubSub
Фрукты_и_Овощи2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.LoadSubClass
Class Фрукты_Овощиflag As
Booleanflag2 As Booleanflag3 As Booleanflag4 As Booleanflag5 As Booleanflag6 As
Booleanflag7 As Booleanflag8 As Booleanflag9 As Booleanflag10 As BooleanSub
PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox1.MouseMovePictureBox1.Location.X > 0 And PictureBox1.Location.X
< 155 And PictureBox1.Location.Y > 55 And PictureBox1.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1_o += 1.Location = New
System.Drawing.Point(5, 50).Enabled = False.BorderStyle = BorderStyle.None=
FalseIfPictureBox1.Location.X > 490 And PictureBox1.Location.X < 570 And
PictureBox1.Location.Y > 55 And PictureBox1.Location.Y < 515 Then.Visible
= True.Enabled = True_o += 1.Enabled = True= TrueIfSubSub
Фрукты_Овощи_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMoveflag = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox1.Width / 2,
e.Location.Y - PictureBox1.Height / 2).BringToFront()Ifflag2 = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox2.Width / 2,
e.Location.Y - PictureBox2.Height / 2).BringToFront()Ifflag3 = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox3.Width / 2,
e.Location.Y - PictureBox3.Height / 2).BringToFront()Ifflag4 = True
Then.Location = New System.Drawing.Point(e.Location.X - PictureBox4.Width / 2,
e.Location.Y - PictureBox4.Height / 2).BringToFront()Ifflag5 = True Then.Location
= New System.Drawing.Point(e.Location.X - PictureBox5.Width / 2, e.Location.Y -
PictureBox5.Height / 2).BringToFront()Ifflag6 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox6.Width / 2, e.Location.Y -
PictureBox6.Height / 2).BringToFront()Ifflag7 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox7.Width / 2, e.Location.Y -
PictureBox7.Height / 2).BringToFront()Ifflag8 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox8.Width / 2, e.Location.Y -
PictureBox8.Height / 2).BringToFront()Ifflag9 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox9.Width / 2, e.Location.Y -
PictureBox9.Height / 2).BringToFront()Ifflag10 = True Then.Location = New
System.Drawing.Point(e.Location.X - PictureBox10.Width / 2, e.Location.Y -
PictureBox10.Height / 2).BringToFront()IfPictureBox1.Location = New
System.Drawing.Point(5, 50) And PictureBox6.Location = New
System.Drawing.Point(4, 144) And PictureBox5.Location = New System.Drawing.Point(586,
437) And PictureBox7.Location = New System.Drawing.Point(595, 249) And.Location
= New System.Drawing.Point(591, 164) And PictureBox2.Location = New
System.Drawing.Point(591, 335) And PictureBox3.Location = New
System.Drawing.Point(5, 406) And PictureBox10.Location = New
System.Drawing.Point(2, 229) And.Location = New System.Drawing.Point(584, 45)
And PictureBox8.Location = New System.Drawing.Point(3, 316) Then.Visible =
True.Visible = TrueIfSubSub PictureBox1_MouseDown(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox1.MouseDown.cursor() = Cursors.Hand.BorderStyle =
BorderStyle.Fixed3D= TrueSubSub PictureBox1_MouseUp(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox1.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub Фрукты_Овощи_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Loadflagok = True
Then.Controls.Clear()()IfSubSub PictureBox4_MouseUp(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox4.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub PictureBox4_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox4.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox6_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox6_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox6.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox6_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox6.MouseMovePictureBox6.Location.X > 0 And PictureBox6.Location.X
< 155 And PictureBox6.Location.Y > 55 And PictureBox6.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1_o += 1.Location = New
System.Drawing.Point(4, 144).Enabled = False.BorderStyle = BorderStyle.None=
FalseIfPictureBox6.Location.X > 490 And PictureBox6.Location.X < 570 And
PictureBox6.Location.Y > 55 And PictureBox6.Location.Y < 515 Then.Visible
= True.Enabled = True_o += 1.Enabled = True= TrueIfSubSub
PictureBox7_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox7.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox7.MouseMovePictureBox7.Location.X > 0 And PictureBox7.Location.X
< 155 And PictureBox7.Location.Y > 55 And PictureBox7.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1= TrueIfPictureBox7.Location.X >
490 And PictureBox7.Location.X < 570 And PictureBox7.Location.Y > 55 And
PictureBox7.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(595, 249).Enabled = False=
False.BorderStyle = BorderStyle.NoneIfSubSub PictureBox7_MouseDown(ByVal sender
As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox7.MouseDown.cursor() = Cursors.Hand.BorderStyle =
BorderStyle.Fixed3D= TrueSubSub PictureBox4_MouseMove(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox4.MouseMovePictureBox4.Location.X > 0 And PictureBox4.Location.X
< 155 And PictureBox4.Location.Y > 55 And PictureBox4.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1= TrueIfPictureBox4.Location.X >
490 And PictureBox4.Location.X < 570 And PictureBox4.Location.Y > 55 And
PictureBox4.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(591, 164).Enabled = False=
False.BorderStyle = BorderStyle.NoneIfSubSub PictureBox2_MouseDown(ByVal sender
As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown.cursor()
= Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox2.MouseMovePictureBox2.Location.X > 0 And PictureBox2.Location.X
< 155 And PictureBox2.Location.Y > 55 And PictureBox2.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1= TrueIfPictureBox2.Location.X >
490 And PictureBox2.Location.X < 570 And PictureBox2.Location.Y > 55 And
PictureBox2.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(591, 335).Enabled = False=
False.BorderStyle = BorderStyle.NoneIfSubSub PictureBox2_MouseUp(ByVal sender
As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox2.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub PictureBox3_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox3_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox3.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub PictureBox3_MouseMove(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Handles PictureBox3.MouseMovePictureBox3.Location.X > 0 And
PictureBox3.Location.X < 155 And PictureBox3.Location.Y > 55 And
PictureBox3.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(5, 406).Enabled = False.BorderStyle =
BorderStyle.None= FalseIfPictureBox3.Location.X > 490 And
PictureBox3.Location.X < 570 And PictureBox3.Location.Y > 55 And PictureBox3.Location.Y
< 515 Then.Visible = True.Enabled = True_o += 1.Enabled = True= TrueIfSubSub
PictureBox10_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox10.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox10_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox10.MouseMovePictureBox10.Location.X > 0 And
PictureBox10.Location.X < 155 And PictureBox10.Location.Y > 55 And
PictureBox10.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(2, 229).Enabled = False.BorderStyle =
BorderStyle.None= FalseIfPictureBox10.Location.X > 490 And
PictureBox10.Location.X < 570 And PictureBox10.Location.Y > 55 And
PictureBox10.Location.Y < 515 Then.Visible = True.Enabled = True_o +=
1.Enabled = True= TrueIfSubSub PictureBox10_MouseDown(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox10.MouseDown.cursor() = Cursors.Hand.BorderStyle =
BorderStyle.Fixed3D= TrueSubSub PictureBox8_MouseMove(ByVal sender As
System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox8.MouseMovePictureBox8.Location.X > 0 And PictureBox8.Location.X
< 155 And PictureBox8.Location.Y > 55 And PictureBox8.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1_o += 1.Location = New
System.Drawing.Point(3, 316).Enabled = False.BorderStyle = BorderStyle.None=
FalseIfPictureBox8.Location.X > 490 And PictureBox8.Location.X < 570 And
PictureBox8.Location.Y > 55 And PictureBox8.Location.Y < 515 Then.Visible
= True.Enabled = True_o += 1.Enabled = True= TrueIfSubSub
PictureBox8_MouseUp(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseUp.cursor() =
Cursors.Default.BorderStyle = BorderStyle.None= FalseSubSub
PictureBox8_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox8.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox9.MouseMovePictureBox9.Location.X > 0 And PictureBox9.Location.X
< 155 And PictureBox9.Location.Y > 55 And PictureBox9.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1= TrueIfPictureBox9.Location.X >
490 And PictureBox9.Location.X < 570 And PictureBox9.Location.Y > 55 And
PictureBox9.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(584, 45).Enabled = False=
False.BorderStyle = BorderStyle.NoneIfSubSub PictureBox9_MouseUp(ByVal sender
As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox9.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub PictureBox9_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox9.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox5_MouseDown(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox5.MouseDown.cursor() =
Cursors.Hand.BorderStyle = BorderStyle.Fixed3D= TrueSubSub
PictureBox5_MouseMove(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
PictureBox5.MouseMovePictureBox5.Location.X > 0 And PictureBox5.Location.X
< 155 And PictureBox5.Location.Y > 55 And PictureBox5.Location.Y < 515
Then.Visible = True.Enabled = True_o += 1= TrueIfPictureBox5.Location.X >
490 And PictureBox5.Location.X < 570 And PictureBox5.Location.Y > 55 And
PictureBox5.Location.Y < 515 Then.Visible = True.Enabled = True_o += 1_o +=
1.Location = New System.Drawing.Point(586, 437).Enabled = False= False.BorderStyle
= BorderStyle.NoneIfSubSub PictureBox5_MouseUp(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox5.MouseUp.cursor() = Cursors.Default.BorderStyle = BorderStyle.None=
FalseSubSub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click.Hide().Show()
Фрукты_и_Овощи.AxWindowsMediaPlayer1.close()SubSub
Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Timer1.Tick.Visible = FalseSubSub Timer2_Tick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Timer2.Tick.Visible = FalseSubSub
Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label5.ClickSubClass