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

Размещено на http://www.allbest.ru/

Українська інженерно-педагогічна академія

Інформатики та комп`ютерних технологій

КУРСОВА РОБОТА

з дисципліни «Прикладне програмування»

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

Студента 2 курсу ДКТ-К1-1 групи

напряму підготовки Проф. освіта

спеціальності 7.010104.36

студента Лісаєв Д.В.

Керівник ст. викладач, доц. Ящун Т.В.

Зміст

• 1. ТЕХНІЧНЕ ЗАВДАННЯ
• 1.1 Вступ
• 1.2 Підстави для розробки
• 1.3 Призначення розробки
• 1.4 Вимоги до прикладної системи
• 1.4.1 Вимоги до функціональних характеристик
• 1.4.2 Вимоги до надійності
• 1.4.3 Умови експлуатації
• 1.4.4 Вимоги до складу й параметрів технічних засобів
• 1.4.5 Вимоги до інформаційної й програмної сумісності
• 1.4.6 Вимоги до маркування й упакування
• 1.4.7 Вимоги до транспортування й зберігання
• 1.5 Вимоги до допоміжної документації
• 1.6 Вимоги до функціональної частини прикладної системи
• 1.6.1 Вимоги до набору функціональних блоків
• 1.6.2 Вимоги до інтерфейсу користувача
• 1.6.3 Вимоги до взаємодії із зовнішніми даними
• 1.7 Порядок контролю й приймання
• 2. КАЛЕНДАРНИЙ ПЛАН
• 3. ВСТУП
• 4. СХЕМА АЛГОРИТМУ
• 5. ОПИС ОСНОВНИХ ЕЛЕМЕНТІВ УПРАВЛІННЯ ТА ЇХНЬОГО ПРИЗНАЧЕННЯ
• 5.1 Стисла характеристика ігрової програми
• 5.2 Використані елементи управління та їхнє призначення
• 5.2.1 Реалізація функціональності ігрової програми
• 5.2.2 Реалізація операцій введення-виведення даних
• 5.2.3 Реалізація зв'язку з базою даних
• 6. СЦЕНАРІЙ РОБОТИ ПРОГРАМНОГО ПРОДУКТУ
• 6.1 Умова гри
• 6.2 Інтерфейс гри
• 6.2.1 Титульна форма
• 6.2.2 Форма Реєстрації
• 6.2.3 Форма Головного меню
• 6.2.4 Форма відображення статистики
• 6.2.5 Форма з інформацією про автора гри
• 6.2.6 Форма з інформацією про гру
• 6.2.7 Форми з ігровими полями
• 7. ІНСТРУКЦІЯ КОРИСТУВАЧА
• 8. КЕРІВНИЦТВО СИСТЕМНОГО ПРОГРАМІСТА
• ЛІТЕРАТУРА
• ДОДАТОК

1. ТЕХНІЧНЕ ЗАВДАННЯ

1.1Вступ

Предметом розробки є Ігрова програма «Пізнавальні Ігри».

Область застосування - ігрова пізнавальна діяльність дітей дошкільного віку з метою їх подальшого розвитку

Початок робіт - І квартал 2013 року.

Закінчення робіт - ІІ квартал 2013 року.

Виконавець - студент групи ДКТ-К1-1 Лісаєв Д. В.

1.2Підстави для розробки

Завдання, видане на основі витягу із протоколу № 9 засідання кафедри інформатики та комп'ютерних технологій УІПА від «12» лютого 2013 р.

1.3 Призначення розробки

Ігрова програма «Пізнавальні Ігри» призначений для ігрового навчання дітей шкільного віку з метою розвитку їхньої пам'яті, мислення, ерудиції та інших інтелектуальних якостей.

1.4.Вимоги до прикладної системи

1.4.1 Вимоги до функціональних характеристик

Ігрова програма «Пізнавальні Ігри» має виконувати такі функції:

· відображення титульної форми гри;

· реєстрація гравця або завантаження гравця;

· відображення головного меню гри;

· вибір гри;

· відображення форми з питаннями та відведеними полями для відповіді;

· реалізація перенесення гравцем правильної відповіді у відведене для неї місце на формі, у випадку гри «Транспорт» реалізація гравцем кліку на правильну відповідь;

· відображення повідомлення про правильність (неправильність) відповіді;

· у разі гри «Транспорт» при виборі правильної відповіді, відображення наступної форми;

· Збереження стану гри в будь який момент гри з форми головного меню;

· завантаження збереженої гри для її продовження;

· відображення книги рекордів гри;

· формування книги рекордів гри у текстовому процесорі MS Word;

· формування книги рекордів гри у табличному процесорі MS Excel;

· відображення інформації про автора;

· відображення довідкової інформації про правила гри;

· реалізація виходу з гри.

ігрова програма навчання шкільний

1.4.2 Вимоги до надійності

Ігрова програма «Пізнавальні ігри» має зберігати працездатність при експлуатації його некваліфікованими користувачами, а також має безвідмовно виконувати свої функції при нормальних заданих умовах.

1.4.3 Умови експлуатації

Умови експлуатації ігрової програми «Пізнавальні Ігри» збігаються з умовами стабільної експлуатації сучасних персональних комп'ютерів.

1.4.4 Вимоги до складу й параметрів технічних засобів

Для стабільної роботи ігрової програми «Пізнавальні Ігри» необхідний персональний комп'ютер типу Pentium із процесором,тактова частота якого не нижче 100 Мгц.

1.4.5 Вимоги до інформаційної й програмної сумісності

Персональний комп'ютер, використовуваний для функціонування ігрової програми «Пізнавальні Ігри», має працювати під управлінням операційної системи Microsoft Windows 98 або більш пізньої версії.

1.4.6 Вимоги до маркування й упакування

Для перенесення ігрової програми «Пізнавальні Ігри» з метою його встановлення на персональних комп'ютерах потрібен один диск типу CD-R.

1.4.7 Вимоги до транспортування й зберігання

Транспортування ігрової програми «Пізнавальні Ігри» доцільно робити на CD-R, зазначених у попередньому пункті.

1.5 Вимоги до допоміжної документації

Ігрова програма «Пізнавальні Ігри» має супроводжуватися такими документами:

· технічне завдання;

· сценарій роботи програми;

· інструкція користувача.

Зазначені документи мають забезпечувати експлуатацію системи й відповідати діючим стандартам.

1.6 Вимоги до функціональної частини прикладної системи

1.6.1 Вимоги до набору функціональних блоків

Ігрова програма «Пізнавальні Ігри» має складатися з таких функціональних блоків:

· блоки реєстрації гравця;

· блок підрахування балів;

· блок виведення результатів гри;

· блок відображення довідкової інформації.

1.6.2 Вимоги до інтерфейсу користувача

Ігрова програма «Пізнавальні Ігри» повинна мати сучасний стандартизований, інтуїтивно зрозумілий інтерфейс, прийнятий для Windows-програм.

1.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. ОПИС ОСНОВНИХ ЕЛЕМЕНТІВ УПРАВЛІННЯ ТА ЇХНЬОГО ПРИЗНАЧЕННЯ

5.1 Стисла характеристика ігрової програми

Ігрова програма «Пізнавальні Ігри» - це програма, яка дозволяє обирати певну гру з виду дитячих пізнавальних ігор, заробляти бали за правильні відповіді, формує книгу рекордів ігор та дозволяє її переглядати у текстовому процесор MS Word та табличному процесорі MS Excel. Розроблена програма також реалізує функції збереження незакінченої гри та подальшого продовження гри з міста її збереження. Програма надає користувачеві довідку з правил гри та порядку користування програмою, інформацію про розробника гри.

5.2 Використані елементи управління та їхнє призначення

5.2.1 Реалізація функціональності ігрової програми

Для реалізації функціональності системи використовуються такі командні об'єкти, як Button та MainMenu (рис. 5.1,5.2).

Командна кнопка Button

За допомогою командних кнопок Button в ігровій програмі здійснюється перехід між ігровими формами, вводяться дані гравця, виконуються операції по відображенню книги рекордів гри в текстовому процесорі MS Word та табличному процесорі MS Excel.

Меню користувача MainMenu

За допомогою меню користувача в ігровій прогрмі виконуються такі основні функції: вибір режимів гри, початок гри, збереження та завантаження гри, виведення інформації про автора та довідкової інформації.



Рис. 5.1. Елементи управління Button

Рис. 5.2. Елементи управління MainMenu

5.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 на формі виведення статистичних даних відображуються дані з бази даних рекордів.

5.2.3 Реалізація зв'язку з базою даних

Для здійснення зв'язку з базою даних рекордів використовуються елементи управління TableAdapter, BindingSource та DataSet (рис. 5.4).

Рис. 5.4. Елементи зв'язку з базами даних

Елементи для зв'язку з базою даних є взаємопов'язані та з'являються у проекті за результатами роботи майстру зв'язку з базами даних Мастер конфигурации адаптера данных.

6. СЦЕНАРІЙ РОБОТИ ПРОГРАМНОГО ПРОДУКТУ

6.1 Умова гри

Суть гри полягає в тому, що потрібно правильно дати відповідь на питання з поданих варіантів відповідей. Якщо питання вгадано, виводиться повідомлення і нараховується 1 бал, а у разі помилки виводиться повідомлення про неправильну відповідь.

6.2 Інтерфейс гри

6.2.1 Титульна форма

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

Призначення командних кнопок:

· Об Авторе - перегляд інформації про автора програми;

· Продолжить - перехід до форми реєстрації гравця.

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

На формі «Реєстрація» гравець може зареєструватися.

Призначення командних кнопок:

· Ок - підтвердження реєстраційних даних, перехід до головної форми гри;

· Загрузить - завантаження раніше збереженої гри.

6.2.3 Форма Головного меню

На формі «Головного меню» розташовано меню користувача, де можна обрати гру, переглянути довідкову інформацію, зберегти та завантажити гру, переглянути статистику та закрити програму.

Призначення командних кнопок:

· Выбор игры - відображення меню користувача з метою вибору гри

· Рекорды - відображення форми статистики

· Информация - відображення форми «інформації про ігри»

· Сохранить - збереження поточної гри

· Загрузить - завантаження збереженої раніше гри

· Звук Вкл/Выкл - увімкнення та вимкнення звуку

· Выход - завершення роботи програми

6.2.4 Форма відображення статистики

На формі «Рекорды» відображено таблицю рекордів гри. Також на формі є кнопки, за допомогою яких таблицю рекордів можна вивести у MS Word та MS Excel.

Призначення командних кнопок:

· Книга в Word - відкриття текстового процесору MS Word та створення книги рекордів гри у табличному виді у текстовому документі MS Word;

· Книга в Excel - відкриття табличного процесору MS Excel та створення книги рекордів гри у табличному виді у рабочій книзі MS Excel та представлення результатів гри у вигляді діаграми.

· ОК - закриття форми.

6.2.5 Форма з інформацією про автора гри

Призначення командних кнопок:

· ОК - закриття форми.

6.2.6 Форма з інформацією про гру

Призначення командних кнопок:

· К Выбору игры - закриття форми.

6.2.7 Форми з ігровими полями

Призначення командних кнопок:

· Завершить, к выбору гры и кнопка Главная - закриття форми і перехід до головного меню.

7. ІНСТРУКЦІЯ КОРИСТУВАЧА

Функції	Дії користувача	Інформація на екрані
Запуск програми	Для запуску програми необхідно запустити (подвійним натисканням миші) файл завантаження
Початок гри	Після запускупрограми відображуеться форма привітання, для початку гри слід натиснути на кнопку «продолжить», після чого відкриється форма реєстрації
Реєстрація гравця	На формі реєстрації слід у текстове поле ввести свої дані
Робота з головною формою гри	На головній формі можна обрати одну з п'яти ігор, переглянути статистику, інформацію про програму, зберегти та завантажити гру, ввімкнути та вимкнути звук, Та закрити гру.
Гра в активному режимі	На формі гри потрібно перетягрути правильну відповідь (картинку) у відведене поле, крім гри «Транспорт» в якій необхідно клікати на правильну відповідь
Якщо відповідь правильна	Якщо відповідь правильна відображається надпис, а у разі гри «Транспорт» зявляється повідомлення і потрібно натиснути кнопку «Ок»
Якщо відповідь неправильна	Якщо відповідь не правильна відображається надпис, а у разі гри «Транспорт» зявляється повідомлення і потрібно натиснути кнопку «Ок»
Робота з книгою рекордів	Для занесення результатів гри в книгу рекордів слід відповісти хоча б один раз правильно
Збереження гри	На формі головного меню слід натиснути кнопку «Сохранить»
Завершення гри	Для виходу з гри слід виконати команду «Выход» головного меню

8. КЕРІВНИЦТВО СИСТЕМНОГО ПРОГРАМІСТА

Для коректного функціонування всі файли ігрової програми мають знаходитися в одній теці на жорсткому диску персонального комп'ютера. В теці з програмою мають знаходитися такі файли:

Познавальные Игры.exe

Книга рекордов.mdb

fonfo.mp3

fonfru.mp3

Fonovaya_muzika_-_iz_m_f_Masha_i_Medved_minusovka__(get-tune.net).mp3

Vigr.mp3

Неизвестен_-_Фоновая_музыка_для_игр_-_(mp3poisk.net) .mp3

Правильно.mp3

Фонвремена.mp3

Фонзверьки.mp3

фонтранспорт.mp3

Для можливості відображення книги рекордів в текстовому процесорі MS Word та табличному процесорі MS Excel необхідно інсталювати на персональний комп'ютер ліцензійні версії пакету MS Office.

ЛІТЕРАТУРА

1. Методичні вказівки з курсового проектування по дисципліні «Прикладне програмування» / М.А. Бондаренко -- Харків: УІПА, 2003. - 28 с.

2. Методичні вказівки з організації та планування самостійної роботи студентів з дисципліни «Прикладне програмування» за кредитно-модульною організацією навчального процесу на 2 курсі. Для спеціальності 6.010100.36 «Професійне навчання. Комп'ютерні технології в управлінні та навчанні» / Т.В. Ящун. - Харків: УІПА, 2008. - 125 с.

3. Волченков Н.Г. Программирование на Visual Basic 6: В 3-х ч. - М.: ИНФРА-М, 2002. - 288 с.

4. Проценко В.С., Чаленко П.И., Сорока Р.А. Техника программирования. - К.: Выща шк., 1990 - 183 с.

5. Фролов Г.Д., Кузнецов Э.И. Элементы информатики. - М.: Высш. шк., 1989 - 304 с.

6. Симпсон Г. Профессиональная работа на персональном компьютере. - Финансы и статистика, 1988. - 226с.

7. Корнелл Г., Моррисон Дж. Программирование на VB .NET: учебный курс. - Спб.: Питер, 2002. - 400 с.

8. Самоучитель Visual Basic .NET / Д. Зак. - Киев: BHV; Спб.: Питер, 2003. - 558 с.

9. Поль Киммел. Visual Basic .NET. Искусство программирования / Пер. с англ. - Спб.: ООО «ДиасофтЮП», 2003. - 720 с.

ДОДАТОК

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

Public Class Главная

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

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

AxWindowsMediaPlayer1.URL = filename2

End Sub

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

Me.Hide()

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

End Sub

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

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

Me.Hide()

End Sub

End Class

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

Public Class Об_Авторе

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

Me.Hide()

Главная.Show()

End Sub

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

End Sub

End Class

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

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

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

TextBox1.Clear()

End Sub

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

If TextBox1.Text = "" Then

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

Else

n_i = TextBox1.Text

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

Me.Hide()

Form1.Show()

End If

End Sub

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

Dim MyDialog As New OpenFileDialog

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

Timer1.Enabled = True

Timer1.Start()

If MyDialog.ShowDialog = DialogResult.OK Then

Dim Temp As String = MyDialog.Filter.ToUpper

If Temp.EndsWith("TXT") Then

Dim objStreamReader As System.IO.StreamReader

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

Dim strReader As String

strReader = objStreamReader.ReadLine

Name = CStr(strReader)

strReader = objStreamReader.ReadLine

p_o = CStr(strReader)

strReader = objStreamReader.ReadLine

objStreamReader.Close()

End If

End If

End Sub

End Class

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

Public Class Form1

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

Me.Close()

End Sub

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

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

End Sub

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

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

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

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

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

Me.Hide()

End Sub

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

End Sub

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

Dim SaveFile As New SaveFileDialog

SaveFile.DefaultExt = "*.txt"

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

Timer2.Stop()

Timer2.Enabled = False

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

Dim objStreamWrite As System.IO.StreamWriter

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

objStreamWrite.WriteLine(Name)

objStreamWrite.WriteLine(p_o)

objStreamWrite.Close()

End If

End Sub

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

Рекорды.Show()

Me.Hide()

End Sub

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

Dim MyDialog As New OpenFileDialog

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

Timer1.Enabled = True

Timer1.Start()

If MyDialog.ShowDialog = DialogResult.OK Then

Dim Temp As String = MyDialog.Filter.ToUpper

If Temp.EndsWith("TXT") Then

Dim objStreamReader As System.IO.StreamReader

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

Dim strReader As String

strReader = objStreamReader.ReadLine

Name = CStr(strReader)

strReader = objStreamReader.ReadLine

p_o = CStr(strReader)

strReader = objStreamReader.ReadLine

objStreamReader.Close()

End If

End If

End Sub

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

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

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

End Sub

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

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

End Sub

End Class

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

Public Class Рекорды

Structure records

<VBFixedString(10)>

Public n_i As String

Public p_o As Integer

End Structure

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

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

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

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

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

anyrow.Item(1) = n_i.ToString

anyrow.Item(2) = p_o.ToString

anyrow.Item(3) = Now.ToString

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

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

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

End Sub

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

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

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

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

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

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

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

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

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

With objDoc.Paragraphs.Item(1)

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

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

End With

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

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

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

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

With objDoc.Tables.Item(1)

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

End With

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

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

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

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

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

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

Next i

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

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

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

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

Next n

Next i

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

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

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

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

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

End If

End Sub

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

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

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

objExcel.SheetsInNewWorkbook = 1

objExcel.Workbooks.Add()

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

osheet = objExcel.ActiveWorkbook.ActiveSheet

Dim i, j As Integer

With osheet

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

objExcel.Selection.merge()

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

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

objExcel.Selection.font.bold = True

For j = 1 To 2

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

Next j

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

For j = 1 To 2

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

Next j

Next i

End With

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

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

osheet.Range(st_range).Select()

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

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

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

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

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

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

objExcel.Charts.Add()

With objExcel.ActiveChart

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

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

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

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

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

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

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

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

.HasTitle = True

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

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

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

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

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

.HasLegend = False

End With

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

objExcel.ActiveWorkbook.Close()

objExcel = Nothing

objExcel.Quit()

End Sub

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

Form1.Show()

Me.Hide()

End Sub

End Class

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

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

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

Me.Hide()

Form1.Show()

End Sub

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

End Sub

End Class

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

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

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

AxWindowsMediaPlayer1.close()

Me.Hide()

Form1.Show()

End Sub

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

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

Me.Hide()

End Sub

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

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

Me.Hide()

End Sub

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

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

AxWindowsMediaPlayer1.URL = muzica

End Sub

End Class

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

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

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

Me.Hide()

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

End Sub

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

Me.Hide()

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

End Sub

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

End Sub

End Class

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

Public flag As Boolean

Public flag2 As Boolean

Public flag3 As Boolean

Public flag4 As Boolean

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

If flagok = True Then

Me.Controls.Clear()

InitializeComponent()

End If

End Sub

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

Label1.Visible = False

End Sub

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

Label2.Visible = False

End Sub

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

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

p_o += 1

k_o += 1

PictureBox8.Visible = False

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

Label1.Visible = True

Timer3.Enabled = True

PictureBox10.Enabled = False

flag2 = False

PictureBox10.BorderStyle = BorderStyle.None

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag2 = True

End If

End Sub

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

sender.cursor() = Cursors.Hand

PictureBox10.BorderStyle = BorderStyle.Fixed3D

flag2 = True

PictureBox10.BringToFront()

End Sub

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

sender.cursor() = Cursors.Default

PictureBox10.BorderStyle = BorderStyle.None

flag2 = False

End Sub

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

If flag = True Then

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

End If

If flag2 = True Then

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

End If

If flag3 = True Then

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

End If

If flag4 = True Then

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

End If

End Sub

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

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

p_o += 1

k_o += 1

PictureBox7.Visible = False

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

Label1.Visible = True

Timer3.Enabled = True

PictureBox9.Enabled = False

flag = False

PictureBox9.BorderStyle = BorderStyle.None

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag = True

End If

End Sub

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

sender.cursor() = Cursors.Default

PictureBox9.BorderStyle = BorderStyle.None

flag = False

End Sub

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

sender.cursor() = Cursors.Hand

PictureBox9.BorderStyle = BorderStyle.Fixed3D

flag = True

PictureBox9.BringToFront()

End Sub

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

sender.cursor() = Cursors.Hand

PictureBox11.BorderStyle = BorderStyle.Fixed3D

flag3 = True

PictureBox11.BringToFront()

End Sub

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

sender.cursor() = Cursors.Default

PictureBox11.BorderStyle = BorderStyle.None

flag3 = False

End Sub

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

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

p_o += 1

k_o += 1

PictureBox4.Visible = False

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

Label1.Visible = True

Timer3.Enabled = True

PictureBox12.Enabled = False

flag4 = False

PictureBox12.BorderStyle = BorderStyle.None

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag4 = True

End If

End Sub

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

sender.cursor() = Cursors.Hand

PictureBox12.BorderStyle = BorderStyle.Fixed3D

flag4 = True

PictureBox12.BringToFront()

End Sub

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

sender.cursor() = Cursors.Default

PictureBox12.BorderStyle = BorderStyle.None

flag4 = False

End Sub

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

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

p_o += 1

k_o += 1

PictureBox6.Visible = False

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

Label1.Visible = True

Timer3.Enabled = True

PictureBox11.Enabled = False

flag3 = False

PictureBox11.BorderStyle = BorderStyle.None

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

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

Label2.Visible = True

Timer4.Enabled = True

k_o += 1

flag3 = True

End If

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

End Class

Public Class Транспорт

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

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

Me.Hide()

End Sub

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

AxWindowsMediaPlayer1.close()

Form1.Show()

Me.Hide()

End Sub

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

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

Me.Hide()

End Sub

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

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

AxWindowsMediaPlayer1.URL = filenametr

End Sub

End Class

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

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

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

Me.Hide()

End Sub

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

End Sub

End Class

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

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

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

wmp.URL = filename3

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

p_o += 1

k_o += 1

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

Me.Hide()

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

End Sub

End Class

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

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

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

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

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

p_o += 1

k_o += 1

Me.Hide()

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

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

End Sub

End Class

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

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

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

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

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

p_o += 1

k_o += 1

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



Me.Hide()

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

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

End Sub

End Class

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

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

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

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

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

p_o += 1

k_o += 1

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

Me.Hide()

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

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

End Sub

End Class

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

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

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

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

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

p_o += 1

k_o += 1

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

Me.Hide()

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

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

End Sub

End Class

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

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

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

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

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

p_o += 1

k_o += 1

Me.Hide()

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

k_o += 1

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

End Sub

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

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

Form1.Show()

Me.Hide()

End Sub

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

End Sub

End Class

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

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

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

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

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

p_o += 1

k_o += 1

Me.Hide()

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

End Sub

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

k_o += 1

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

End Sub

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