Гра "Що спільного?"
Особливості розробки гри "Що спільного?" з використанням засобів візуального програмування. Дослідження і аналіз об'єкту програмування. Використані програмні засоби. Вимоги до апаратного та програмного забезпечення. Створення та налагодження програми.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 23.05.2016 |
| Размер файла | 234,8 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Зміст
- Вступ
- 1. Загальна частина
- 1.1 Постановка задачі
- 1.2 Дослідження і аналіз об'єкту програмування
- 1.3 Використані програмні засоби
- 1.4 Вимоги до апаратного та програмного забезпечення
- 2. Спеціальна частина
- 2.1 Створення та налагодження програми
- 2.2 Опис програми та її алгоритмів
- 2.3 Інструкція програміста
- 2.4 Інструкція оператора
- Висновки
- Список використаних джерел
- Додатки
Вступ
Візуальне програмування - спосіб створення програм шляхом маніпулювання графічними об'єктами замість написання програмного коду в текстовому вигляді.
Візуальне програмування дозволяє програмувати, використовуючи графічні або символьні елементи, якими можна маніпулювати інтерактивним чином згідно з деякими правилами, причому просторове графічних об'єктів використовувати в якості елементів синтаксису програми.
Індустрія відеоігор або індустрія інтерактивних розваг - економічний сектор, пов'язаний з розробкою, просуванням та продажем відеоігор. У неї входить велика кількість спеціальностей, за якими працюють тисячі людей по всьому світу.
Середовище розробки програмних засобів (ГОЕ, яке містить редактор вихідного коду, компілятор чи/або інтерпретатор, засоби автоматизації збірки та засоби для спрощення розробки графічною інтерфейсу користувача використовувалось при розробці цієї гри. Середовища для візуального програмування також надають змогу конструювати програми шляхом оперування графічними об'єктами. Багато сучасних візуальних середовищ програмування використовуються для реалізації принципів об'єктно-орієнтованого підходу у розробці програмного забезпечення.
1. Загальна частина
1.1 Постановка задачі
Основне завдання даного проекту полягає в розробці гри "Що спільного?" з використанням засобів візуального програмування.
"Що спільного?" - це розважальна гра на одного гравця. Під час запуску гри гравцю потрібно ввести свій нікнейм. В грі є можливість налаштовувати зовнішній вигляд вікна гри.
Програма складається з трьох вікон:
Вікно привітання (гравець обов'язково повинен ввести свій нікнейм і натиснути на клавішу, для початку гри).
Вікно з картинками та полем для вводу відповідного слова.
Вікно з налаштуванням зовнішнього виду вікна та музикального супроводу.
Ввід слова потрібно здійснювати безпосередньо з клавіатури.
Програма розроблена для використання користувачами віком від 6 років.
1.2 Дослідження і аналіз об'єкту програмування
"Що спільного?" - розважальна гра, суть якої полягає у тому, щоб вгадати спільну ознаку чи суть картинок. Набула своєї популярності в період з 2013 по 2015 роки завдяки розповсюдженні в соціальних мережах Вконтакте, Однокласники, Мой Мир та інші. Вигляд онлайн-гри "Що спільного":
Щоб грати, потрібно уважно подивитись на 4 картинки, помітити якусь спільну ознаку між ними та увести слово за допомогою клавіатури. Грати можна до безкінечності. Також ця гра надає можливість непогано провести час, підвищити IQ, покращити зорову пам'ять, логіку та інтуїцію не тільки дітям, а й дорослим.
1.3 Використані програмні засоби
На даний момент існує безліч операційних систем, але найбільш популярні Юнікс-подібні операційні системи, сімейство Microsoft Windows і ряд систем Мас OS X.
Вибір операційної системи залежить від потреб користувача. Вибір середовища програмування залежить також від потреб програміста і, можливо, від його особистих переконань. Зараз існує безліч середовищ програмування для будь-якої мови. Для мови C/C++ можна виділити MS Visual Studio, C++ Builder, Qt Creator, для Pascal - Delphi, TurboPascal, для Java - Eclipse.
Операційна система. В якості операційної системи, для якої була реалізована програма, обрана система з серії Microsoft Windows. Головною причиною є те, що сім'я систем Microsoft на сьогоднішній день найпоширеніша, і в той же час є багатофункціональною системою. Даною програмою бажано користуватися на комп'ютерах з операційною системою Windows ХР.
Візуальне програмування - спосіб створення програм шляхом маніпулювання графічними об'єктами замість написання програмного коду в текстовому вигляді.
Візуальне програмування дозволяє програмувати, використовуючи графічні або символьні елементи, якими можна маніпулювати інтерактивним чином згідно з деякими правилами, причому просторове графічних об'єктів використовувати в якості елементів синтаксису програми. Значна частина візуальних мов програмування базується на ідеї "фігур і ліній", де фігури (прямокутники, овали та ін.) розглядаються як суб'єкти і з'єднуються лініями (стрілками, дугами тощо), які представляють собою відношення.
Мови візуального програмування можуть бути додатково класифіковані залежно від типу і ступеня візуального вираження, на типи:
Природно-візуальні мови мають невід'ємне візуальне вираження, для якого немає очевидного текстового еквіваленту (наприклад, графічна мова G в середовищі LabVIEW).
Візуально-перетворені мови є невізуальними мовами з накладеним візуальним представленням.
Візуальне середовище програмування - Інтегроване середовище розробки програмних засобів (IDE, яке містить редактор вихідного коду, компілятор чи/або інтерпретатор, засоби автоматизації збірки та засоби для спрощення розробки графічного інтерфейсу користувача. Середовища для візуального програмування також надають змогу конструювати програми шляхом оперування графічними об'єктами. Багато сучасних візуальних середовищ програмування використовуються для реалізації принципів об'єктно - орієнтованого підходу у розробці програмного забезпечення.
Середовище розробки програми C++ Builder 6 - середовище
програмування, яке об'єднує в собі комплекс об'єктних бібліотек {STL, VCL, CLX, MFC та ін), компілятор, відлагоджувальник, редактор коду і багато інших компонентів.
Мова реалізації C++ - мова програмування високого рівня з підтримкою декількох парадигм програмування: об'єктно-орієнтованої, узагальненої та процедурної. C++ було розроблено на основі мови програмування С. Крім можливостей, які дає С, C++ представляє свої гнучкі і ефективні засоби визначення нових типів, застосування яких значно полегшує та спрощує технологію програмування. Використовуючи визначення нових типів програміст може розділяти свою програму на простіші частини, які легше проконтролювати. Такий метод побудови програм часто називають абстракцією даних. Інформація про типи міститься в деяких об'єктах типів, визначених користувачем.
Все, чим ми маніпулюємо в програмі, може розглядатися як об'єкт. Програмування із застосуванням таких об'єктів називають об'єктно-орієнтованим, В результаті раціонального використання цього методу одержуємо набагато коротші, доступніші для розуміння та легше контрольовані програми.
1.4 Вимоги до апаратного та програмного забезпечення
Системні вимоги до ПК:
ОС: MS Windows ХР;
Процесор: Intel Pentium II 400 МГц;
Оперативна пам'ять: 128 МБ ОЗП;
Вільне місце на жорсткому диску: 50Мб
2. Спеціальна частина
2.1 Створення та налагодження програми
В даній курсовій роботі розроблено гру "Що спільного?", з використанням засобів візуального програмування та мови програмування C++.
Програма являє собою незалежне застосування, яке не потребує встановлення, а також наявності додаткового програмного забезпечення.
Під час проектування поставленої задачі було створено головне вікно програми. Дане вікно виконує функції привітання та початку гри, де користувач повинен ввести свій нікнейм (якщо це не відбулося, програма видає помилку, вказуючи, користувачеві, що потрібно заповнити поле реєстрації) і після цього почати гру. Для реалізації запису нового гравця було використано компонент Edit та Button. Після натискання кнопки початку гри, запускається рядок загрузки, який реалізований за допомогою компонента CGauge. Графічний інтерфейс зроблено за допомогою компонентів Image, Label та Panel. Завдяки компонентам типу Timer реалізовано графічні особливості вікна привітання.
Після того, як рядок загрузки доходить до ста відсотків, відкривається вікно гри. Щоб почати гру користувач повинен натиснути на кнопку "Начать", типу Button. Після натискання кнопки в вікні гри з'являються картинки, пов'язані між собою, спільним словом. Картинки в форму передаються за допомогою компонентів типу TDBImage і завантажуються із посилань, які зберігаються в базі даних в головній папці проекту. В лівому верхньому кутку реалізований годинник компонентами Timer і StaticText, який користувач може ввімкнути або вимкнути у третьому вікні "Налаштування". Також на формі гри за допомогою компонента MainMenu реалізований рядок меню, в якому можна вибрати різні дії з грою. Такі як: почати нову гру, відкрити вікно налаштувань та вихід з гри. Компоненти на формі зібрані в окремі групи за допомогою компонента GroupBox. Ввід відповідного слова відбувається з клавіатури в компонент Edit і при натисканні клавіші "Далее>>" зрівнюється зі значенням та розміром слова в базі даних. Якщо слово вгадане, то користувачу виводитися повідомлення - "Правильно", за допомогою функції ShowMessage. В іншому випадку компонент Edit очищається і користувач вводить нове слово. Графічний інтерфейс зроблено за допомогою компонентів Image та Label. Також розроблено музичний супровід, за допомогою функцій PlaySound та MessageBeeep. Коли всі слова відгадано, користувачу виводиться повідомлення: "Вітаємо! Ви відгадали всі картинки!" і на цьому гра завершується. Користувач повертається в початкове вікно привітання та виходить з гри за допомогою компонента Button.
Вікно налаштувань відкривається через Головне меню та містить в собі три типи налаштування: показ часу, звук та розширення форми в якій іде гра. Керування формою налаштувань відбувається за допомогою елементів BitBtn, які мають значення Ok (Підтвердження змін) або Abort (Відміна). Всі елементи в цьому вікні згруповані за допомогою компонента GroupBox, і окремо розділені на три групи за допомогою компонентів RadioGroup.
Після збереження змін в формі налаштувань, користувач повертається у вікно гри. Щоб вийти з ігрового вікна можна скористатися кнопкою Головного меню - Вихід, або натиснути на хрестик в правому верхньому кутку форми. При цьому з'явиться вікно, яке попереджує користувача про вихід з гри. І користувач так само повертається в початкове вікно привітання та виходить з гри за допомогою компонента Button.
2.2 Опис програми та її алгоритмів
Діаграма прецедентів - модель очікуваних функцій системи і середовища, в якому відбувається виконання бізнес-процесів. Ця модель слугує для узгодження питань між замовником і розробниками.
На рисунку 1. представлені функції системи у вигляді діаграми прецедентів, на якій виділено 1 актор, котрий являється гравцем.
Рисунок 1 - UML - діаграма прецедентів
Основні алгоритми програми. У даній курсовій роботі було розроблено гру, головними подіями якої, є натискання кнопки "Далее". Розглянемо одну з подій відпускання картинки над чарункою. (рис.2)
Рисунок 2 - Алгоритм гри (Натискання кнопки "Далее")
2.3 Інструкція програміста
Гра "Що спільного?" на основі класів написана на мові С++
Проект являє собою віконне застосування.
Автор: Приходько Руслан Юрійович
Мова програмування: С++;
Середовище програмування: Embarcadero Rad Studio XE2.
Мінімальні вимоги до ПК:
ОЗУ 32МБ;
Відеокарта 64MB;
Windows XP;
Процесор: Intel Pentium II 400 МГц;
Оперативна пам'ять: 128 МБ ОЗП;
Вільне місце на жорсткому диску: 50Мб
Наявність клавіатури та миші.
2.4 Інструкція оператора
Щоб запустити програму, двічі клацніть на піктограму "Що спільного" в папці "Гра", на робочому столі.
Після запуску відкриється головне вікно гри, в якому необхідно ввести нікнейм та натиснути на клавішу "Начать игру!"
Для того щоб зайти у налаштування, натискаємо, на головному меню, кнопку "Игра", і в ньому обираємо пункт "Настройки".
Обираємо пункт меню "Игра - > Настройки"
Після чого відкривається нове вікно "Настройки". У цьому вікні можна обирати розширення вікна гри, вмикати/вимикати звук та вмикати/вимикати показ часу.
візуальне програмування гра
Висновки
В ході написання курсової роботи був реалізований підхід до створення програми-гри, яка дозволяє користувачу покращити свій рівень IQ. Реалізація була здійснена за допомогою візуальних компонентів середовища C++ Builder.
Для реалізації поставленої задачі, мною було розглянуто додатковий теоретичний матеріал по інструментальним засобам візуального програмування.
Мовою програмування було обрано C++, середовище програмування: C++ Builder на платформі MS Windows.
Під час роботи над курсовим проектом було отримано поглиблені знання в області програмування. Робота була написана як додаток на формах для зручності користувача.
Список використаних джерел
1. Навчальний курс C і C++ // Березин Б.И. Березин С.Б. Диалог-МИФИ 2005. - 288 с.
2. C++ Руководство для начинающих // Герберт Шилдт Вильямс, 2-е издание 2005. - 669 с.
3. Как програмировать на C++ // Дейтел Х. Дейтел П. "Издательство БИНОМ", 2000.1024с.
Додатки
Додаток А
Код програми
Unit1. cpp
// ---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "mmsystem. h"
#include "windows. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "cgauges"
#pragma resource "*. dfm"
TForm1 *Form1;
int p1=0;
AnsiString path=ExtractFilePath (Application->ExeName);
// ---------------------------------------------------------------------------
__fastcall TForm1:: TForm1 (TComponent* Owner): TForm (Owner)
{
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "GlsShutdn. wav";
if (FileExists (Path))
{
PlaySound (String (Path). w_str (),0,SND_ASYNC);
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Button1Click (TObject *Sender)
{
if (Edit1->Text=="")
{
Edit1->Color=clRed;
MessageBeep (MB_ICONHAND);
}
else
{
Timer2->Enabled = false;
Edit1->Color=clWindow;
Form1->Panel2->Visible=true;
Form1->CGauge1->Visible=true;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка музыки";
CGauge1->Progress=p1;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка картинок";
CGauge1->Progress+=20;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка скинов";
CGauge1->Progress+=10;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка подсказок";
CGauge1->Progress+=10;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка моделей интерфейса";
CGauge1->Progress+=20;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка настроек";
CGauge1->Progress+=20;
Sleep (1000);
Form1->Refresh ();
Form1->Label2->Caption="Загрузка справки";
CGauge1->Progress+=10;
Sleep (1000);
CGauge1->Progress+=10;
Form1->Panel2->Visible=false;
Form1->CGauge1->Visible=false;
PlaySound (NULL, 0, 0);
Form1->Hide ();
Form3->Show ();
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Timer1Timer (TObject *Sender)
{
Edit1->Color=clWindow;
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Edit1KeyUp (TObject *Sender, WORD &Key, TShiftState Shift)
{
if (Key==VK_RETURN)
{
Form1->Button1Click (Sender);
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: FormClose (TObject *Sender, TCloseAction &Action)
{
Form1->Show ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Timer2Timer (TObject *Sender)
{
Form1->CGauge1->Visible=false;
Form1->StaticText1->Visible=true;
Form1->CGauge1->Progress=0;
Form1->CGauge1->Progress=+10;
Form1->CGauge1->Progress=+10;
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Timer3Timer (TObject *Sender)
{
Application->Terminate ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm1:: Button2Click (TObject *Sender)
{
Application->Terminate ();
}
// ---------------------------------------------------------------------------
Unit2. cpp
// ---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit2. h"
#include "Unit1. h"
#include "Unit3. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma classgroup "Vcl. Controls. TControl"
#pragma resource "*. dfm"
TDM *DM;
// ---------------------------------------------------------------------------
__fastcall TDM:: TDM (TComponent* Owner): TDataModule (Owner)
{
}
// ---------------------------------------------------------------------------
void __fastcall TDM:: DataModuleCreate (TObject *Sender)
{
ADOConnection1->Close ();
AnsiString path=ExtractFilePath (Application->ExeName);
path = path + "Курсач1_1. mdb";
DM->ADOConnection1->ConnectionString="Provider=Microsoft. Jet. OLEDB.4.0; Data Source=" + path + "; Persist Security Info=False";
ADOConnection1->Open ();
ADOGame1->Open ();
}
// ---------------------------------------------------------------------------
void __fastcall TDM:: DataModuleDestroy (TObject *Sender)
{
ADOConnection1->Close ();
}
// ---------------------------------------------------------------------------
Unit3. cpp
// ---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
#include "Unit5. h"
#include "windows. h"
#include "mmsystem. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"
TForm3 *Form3;
int h,w;
AnsiString f;
int g,zz=0;
// ---------------------------------------------------------------------------
__fastcall TForm3:: TForm3 (TComponent* Owner): TForm (Owner)
{
h=600; w=800;
Form3->ClientHeight=h;
Form3->ClientWidth=w;
f=DM->ADOGame1->FieldByName ("Kolvo_bykv") - >AsString;
g=StrToInt (f);
zz=0;
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Button1Click (TObject *Sender)
{
DM->ADOGame1->First ();
Form3->Edit2->Text=DM->ADOGame1->FieldByName ("Slovo") - >AsString;
f=DM->ADOGame1->FieldByName ("Kolvo_bykv") - >AsString;
Form3->Label4->Caption=g;
Form3->Нажмите->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto1") - >AsString);
Form3->на->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto2") - >AsString);
Form3->кнопку->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto3") - >AsString);
Form3->Начать->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto4") - >AsString);
while (! DM->ADOGame1->Eof)
{
Form3->Edit2->Text=DM->ADOGame1->FieldByName ("Slovo") - >AsString;
f=DM->ADOGame1->FieldByName ("Kolvo_bykv") - >AsString;
g=StrToInt (f);
Form3->Label4->Caption=g;
Edit1->MaxLength=g;
Form3->Нажмите->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto1") - >AsString);
Form3->на->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto2") - >AsString);
Form3->кнопку->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto3") - >AsString);
Form3->Начать->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto4") - >AsString);
if (Form3->Edit1->Text==Form3->Edit2->Text)
{
zz++;
Form3->Edit1->Text="";
ShowMessage ("Правильно");
}
else
{
zz++;
Form3->Edit1->Text="";
}
DM->ADOGame1->Next ();
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: N4Click (TObject *Sender)
{
Form3->Close ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: N5Click (TObject *Sender)
{
Form5->Show ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: FormClose (TObject *Sender, TCloseAction &Action)
{
ShowMessage ("Выход из игры!");
PlaySound (NULL,0,0);
Form1->Show ();
Form1->Panel1->Visible=false;
Form1->Panel2->Visible=false;
Form1->StaticText1->Visible=true;
Form1->CGauge1->Visible=false;
Form1->Timer2->Enabled=true;
Form1->Timer3->Enabled=true;
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "GlsRingin. wav";
if (FileExists (Path))
{
PlaySound (String (Path). w_str (),0,SND_ASYNC);
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Timer1Timer (TObject *Sender)
{
Form3->StaticText1->Caption=Now (). TimeString ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: FormShow (TObject *Sender)
{
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "с. wav";
if (FileExists (Path))
{
PlaySound (String (Path). w_str (),0,SND_ASYNC|SND_LOOP);
}
Form3->Label2->Visible=false;
Form3->Label3->Visible=false;
Form3->Edit2->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: N3Click (TObject *Sender)
{
Form4->ShowModal ();
if (Form4->ModalResult==mrOk)
{
if (Form4->RadioGroup3->ItemIndex==0)
{
Form3->Height=600;
Form3->Width=800;
Form3->Position=poDesktopCenter;
Form3->Image1->Align=alClient;
Form3->StaticText1->Left=128;
Form3->StaticText1->Top=24;
Form3->GroupBox1->Left=272;
Form3->GroupBox1->Top=16;
Form3->Label2->Left=272;
Form3->Label2->Top=272;
Form3->Label3->Left=440;
Form3->Label3->Top=272;
Form3->GroupBox2->Left=272;
Form3->GroupBox2->Top=296;
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "bla111. jpg";
if (FileExists (Path))
{
Image1->Picture->LoadFromFile (String (Path). w_str ());
}
}
if (Form4->RadioGroup3->ItemIndex==1)
{
Form3->Height=677;
Form3->Width=1024;
Form3->Position=poDesktopCenter;
Form3->Image1->Align=alClient;
Form3->StaticText1->Left=290;
Form3->StaticText1->Top=104;
Form3->GroupBox1->Left=410;
Form3->GroupBox1->Top=96;
Form3->Label2->Left=410;
Form3->Label2->Top=360;
Form3->Label3->Left=578;
Form3->Label3->Top=360;
Form3->GroupBox2->Left=410;
Form3->GroupBox2->Top=384;
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "bla11. jpg";
if (FileExists (Path))
{
Image1->Picture->LoadFromFile (String (Path). w_str ());
}
}
if (Form4->RadioGroup3->ItemIndex==2)
{
Form3->Height=768;
Form3->Width=1366;
Form3->Position=poDesktopCenter;
Form3->Image1->Align=alClient;
Form3->StaticText1->Left=408;
Form3->StaticText1->Top=80;
Form3->GroupBox1->Left=544;
Form3->GroupBox1->Top=80;
Form3->Label2->Left=544;
Form3->Label2->Top=360;
Form3->Label3->Left=712;
Form3->Label3->Top=360;
Form3->GroupBox2->Left=544;
Form3->GroupBox2->Top=392;
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "bla1. jpg";
if (FileExists (Path))
{
Image1->Picture->LoadFromFile (String (Path). w_str ());
}
}
// // // // // // // // // // // // // // // // // // // // // // // // // // // //
if (Form4->RadioGroup1->ItemIndex==0)
{
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "с. wav";
if (FileExists (Path))
{
PlaySound (String (Path). w_str (),0,SND_ASYNC);
}
}
if (Form4->RadioGroup1->ItemIndex==1)
{
PlaySound (NULL,0,0);
}
// // // // // // // // // // // // // // // // // // // // // // // // // // // //
if (Form4->RadioGroup2->ItemIndex==0)
{
Form3->StaticText1->Visible=true;
}
if (Form4->RadioGroup2->ItemIndex==1)
{
Form3->StaticText1->Visible=false;
}
// // // // // // // // // // // // // // // // // // // // // // // // // // // /
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton9Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Edit1->Text=Form3->Edit1->Text+ ( (TButton*) Sender) - >Caption;
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton8Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Б";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton7Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"В";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton6Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Г";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton5Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Д";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton4Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Е";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton33Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ё";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton32Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ж";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton31Click (TObject *Sender)
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"3";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton30Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"И";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton3Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Й";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton29Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"К";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton28Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Л";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton27Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"М";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton26Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Н";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton25Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"О";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton24Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"П";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton23Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Р";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton22Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"С";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton21Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Т";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton2Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"У";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton17Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ф";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton20Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Х";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton15Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ц";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton19Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ч";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton18Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ш";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton14Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Щ";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton16Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ъ";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton13Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ы";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton12Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ь";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton11Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Э";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton10Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Ю";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: SpeedButton1Click (TObject *Sender)
{
if (Form3->Edit1->Text. Length () <g)
{
Form3->Edit1->Text=Form3->Edit1->Text+"Я";
}
if (Form3->Edit1->Text. Length () <g)
{
Form3->Button1->Enabled=false;
}
else
{
Form3->Button1->Enabled=true;
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: N2Click (TObject *Sender)
{
DM->ADOGame1->First ();
Form3->Edit2->Text=DM->ADOGame1->FieldByName ("Slovo") - >AsString;
f=DM->ADOGame1->FieldByName ("Kolvo_bykv") - >AsString;
Form3->Label4->Caption=g;
Form3->Нажмите->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto1") - >AsString);
Form3->на->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto2") - >AsString);
Form3->кнопку->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto3") - >AsString);
Form3->Начать->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto4") - >AsString);
PlaySound (NULL,0,0);
AnsiString Path=ExtractFilePath (Application->ExeName);
Path = Path + "с. wav";
if (FileExists (Path))
{
PlaySound (String (Path). w_str (),0,SND_ASYNC);
}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Button2Click (TObject *Sender)
{
DM->ADOGame1->First ();
Form3->Edit2->Text=DM->ADOGame1->FieldByName ("Slovo") - >AsString;
f=DM->ADOGame1->FieldByName ("Kolvo_bykv") - >AsString;
Form3->Label4->Caption=g;
Form3->Нажмите->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto1") - >AsString);
Form3->на->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto2") - >AsString);
Form3->кнопку->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto3") - >AsString);
Form3->Начать->Picture->LoadFromFile (DM->ADOGame1->FieldByName ("Foto4") - >AsString);
}
// ---------------------------------------------------------------------------
Размещено на Allbest.ru
...Подобные документы
Дослідження та аналіз об’єкту програмування. Основні архітектурні риси JavaScript. Переваги CSS розмітки. Структура HTML-документа. Вимоги до апаратного та програмного забезпечення. Опис програми та її алгоритмів. Оцінка вартості програмного продукту.
дипломная работа [1,0 M], добавлен 01.09.2016Концепції об'єктно-орієнтованого програмування. Спеціалізовані засоби розробки програмного забезпечення мовою Delphi. Загальні питання побудови та використання сучасних систем об’єктно-орієнтованного та візуального проектування програмних засобів.
курсовая работа [201,4 K], добавлен 01.04.2016Концепції об'єктно-орієнтованого програмування. Методи створення класів. Доступ до методів базового класу. Структура даних, функції. Розробка додатку на основі діалогових вікон, програми меню. Засоби розробки програмного забезпечення мовами Java та С++.
курсовая работа [502,5 K], добавлен 01.04.2016Розробка програми на мові програмування С++ з використанням об'єктно-орієнтованого програмування. Робота з файлами, графікою, класами, обробка числової інформації. Графічні засоби мови програмування. Алгоритм задачі та допоміжні програмні засоби.
курсовая работа [102,5 K], добавлен 14.03.2013Сучасні засоби обчислювальної техніки, їх внесок в розробку програмного забезпечення. Порівняльний аналіз мов програмування. Методика створення програми для знайдення оптимального розподілу задачі по мережі, таким чином, щоб час розв’язку був мінімальним.
курсовая работа [26,6 K], добавлен 25.10.2009Створення комп'ютерної програми на мові програмування С++ для ведення обліку мобільних телефонів на складі-магазині. Вимоги до апаратного та програмного забезпечення. Схема зв'язку між складовими частинами програми. Інструкція користувача, тестування.
дипломная работа [4,2 M], добавлен 06.06.2012Загальні відомості середовища програмування Delphi, умови та особливості ефективного застосування його можливостей. Методологія розробки прикладного програмного забезпечення, його характеристика та структура, елементи, головні вимоги до функціональності.
курсовая работа [6,7 M], добавлен 11.09.2014Аналіз навігаційних технологій у сучасних AVL системах. Структура системи і вимоги до апаратного забезпечення, розробка алгоритмів функціонування окремих програмних модулів. Вибір мови програмування і СУБД. Тестовий варіант програмного забезпечення.
дипломная работа [1,8 M], добавлен 17.12.2015Основні поняття мови програмування Паскаль, синтаксис. Поняття і види алгоритму; елементи, що використовуються при побудові описів програм: символи, слова, вирази, команди. Рекомендації щодо інсталяції. Вимоги до апаратного та програмного забезпечення.
творческая работа [1,3 M], добавлен 01.02.2011Дослідження середовища візуального програмування Delphi. Вивчення процесу створення навчальної програми "Електронний словник". Опис графічного інтерфейсу. Характеристика структури та основних процедур даної програми. Аналіз роботи з програмним кодом.
курсовая работа [831,2 K], добавлен 01.03.2014Розробка програми для моделювання роботи алгоритму Дейкстри мовою C# з використанням об’єктно-орієнтованих принципів програмування. Алгоритм побудови робочого поля. Програмування графічного інтерфейсу користувача. Тестування програмного забезпечення.
курсовая работа [991,4 K], добавлен 06.08.2013Об’єктно-орієнтоване програмування мовою С++. Основні принципи об’єктно-орієнтованого програмування. Розробка класів з використанням технології візуального програмування. Розробка класу classProgressBar. Базовий клас font. Методи тестування програми.
курсовая работа [211,3 K], добавлен 19.08.2010Відомості про мови програмування та методи програмування. Системні вимоги програми. Керівництво програміста та керівництво користувача. Використання консольного додатку візуального середовища Visual Studio 2010. Запуск програми "Толковый словарь".
курсовая работа [791,1 K], добавлен 18.01.2015Основні принципи об’єктно-орієнтованого програмування. Типові середовища програмування та особливості мови С++. Етапи проектування БД. Розробка програмного забезпечення для реалізації створення бази відеофільмів. Основні положення та моделі БД.
курсовая работа [2,7 M], добавлен 24.03.2011Редагування за допомогою текстового редактора NotePad вхідного файлу даних. Програмна реалізація основного алгоритму з використанням засобів об'єктно-орієнтованого програмування. Об’ява та опис класів і об'єктів. Розробка допоміжних програмних засобів.
курсовая работа [69,4 K], добавлен 14.03.2013Характеристика технології візуального проектування і програмування, суть якої полягає в тому, що область розробки бере на себе більшу частину рутинної роботи. Огляд середовища швидкої розробки, в якій як мова програмування використовується мова Delphi.
курсовая работа [2,8 M], добавлен 27.02.2012Широкі можливості по використанню комп'ютерних навчальних систем. Розробка навчальної системи мультимедійного посібника з дисципліни "Інформатика і ОТ" на тему "Особливості мови програмування С++. Вказівники". Вимоги до розробки навчальної програми.
курсовая работа [2,9 M], добавлен 23.11.2010Аналіз особливостей мови програмування Java та середовища Android Studio. Розробка програмного забезпечення для якісного та ефективного вивчення іноземних слів. Побудова базових алгоритмів і структури даних. Вибір мови програмування, реалізація програми.
курсовая работа [335,3 K], добавлен 11.01.2015Серверна мова програмування PHP. База даних MySQL. Мова та стандарти XML. Рівні та способи взаємодії засобів розробки. Засоби трансформації XML. Розробка інтернет-додатку з використанням PHP, MYSQL, XML. Розрахунок трудомісткості створення системи.
дипломная работа [1,8 M], добавлен 19.08.2012Аналіз сучасного стану технологій програмування. Засоби реалізації об'єктів в мові C++, структура даних і функцій. Розробка програмного продукту - гри "трикутники", з використовуванням моделей, класів і функцій об’єктно-орієнтованого програмування.
курсовая работа [117,8 K], добавлен 14.03.2013
