Разработка клавиатурного тренажёра
Курсовой проект
по дисциплине "Системное
программное обеспечение"
"Разработка клавиатурного
тренажёра”
Реферат
Пояснительная записка: ____ листа, ___ рисунков, ___
источника, ___ приложения.
Целью работы является разработка учебного приложения,
играющего роль клавиатурного тренажёра, с возможностью установок различных
опций.
В результате проделанной работы разработана программа -
клавиатурный тренажер, которая позволяет пользователям различной квалификации
усовершенствовать навыки обращения с клавиатурой персонального компьютера.
Программа написана с использованием инструментальных средств Borland C++Builder 6.0.
Содержание
Введение
1. Объектно-ориентированный анализ
2. Объектно-ориентированное проектирование системы
3. Объектно-ориентированное программирование
4. Тестирование и отладка программы
Заключение
Список использованных источников
Текст программы
Введение
Объектно-ориентированное программирование - это подход к
разработке программного обеспечения, основанный на объектах, а не на процедурах.
Этот подход позволяет максимизировать принципы модульности и "сокрытия
информации".
ООП подразумевает в первую очередь наличие классов. Классы -
это как будто самый мелкий элемент той структуры, которая и формирует
Объектно-Ориентированную концепцию в целом. Каждый класс имеет свои свойства,
свои методы свои события. Непременным свойством истинного ОО-языка является
инкапсуляция, что означает "закупоренность" механизма того или иного
явления в Объектах. Вообще, инкапсуляция основана на области видимости
внутренних переменных Класса. Таким образом, программист зачастую использует
объекты, созданные другими программистами, и абсолютно не задумывается, как все
это устроено, он просто доверяет "производителю объекта" и всецело
занят лишь решением задачи, поставленной конкретно ему.
Разработанное на языке Borland С++ Builder 6.0 по принципам
объектно-ориентированного программирования приложение позволяет пользователю
освоить клавиатуру персонального компьютера.
клавиатурный тренажер программа тестирование
1.
Объектно-ориентированный анализ
Целью анализа является изучение поведения системы, исходя из
функциональных требований к ней. В результате его проведения необходимо
получить описание будущей системы, разработать ее проект. Важнейшей частью
объектно-ориентированного анализа является техническое задание - документ,
представляющий собой описание системы, которую необходимо реализовать на языке,
понятном разработчику системы.
При разработке технического задания используют упорядоченное
описание на естественном языке. Одной из неотъемлемых частей
объектно-ориентированного анализа является построение диаграммы вариантов
использования, позволяющей более наглядно представить возможности будущей
системы (то, что она будет делать). Каждый вариант использования - последовательность
действий отображает отдельную функцию системы.
Для ее построения необходимо:
выбрать актера, который будет являться инициатором
какого-либо действия;
определить функционирование системы при том или ином варианте
использования.
Вариант использования состоит из последовательностей действий
актера и системы.
Данная диаграмма (подобно диаграммам, приведенным ниже)
должна быть построена средствами UML - унифицированного языка моделирования. Он дает
возможность наглядного представления модели, понятного всем разработчикам,
знакомым с UML и позволяет значительно облегчить этапы разработки системы.
Язык UML был разработан в 1997 году Д. Рамбо и Г. Бучем.
Приложение предназначено для широкого использования. Оно
разрабатывается на основании задания на курсовое проектирование по дисциплине
"Системное программное обеспечение".
Назначение разработки: необходимо разработать приложение,
которое будет играть роль клавиатурного тренажера.
Основные функции приложения:
·
Выполнение
тренировочных упражнений в режиме русского языка, английского языка, а также
специальных символов.
·
Установка
необходимых опций: режим тренажера, сложность и время выполнения.
·
Вывод
результатов тренинга в виде гистограммы распределения частоты ошибок набираемых
символов.
Приложение должно работать в среде Windоws XP.
Программу требуется разработать на языке Borland C++Builder 6.0.
Приложение должно осуществлять следующие функции:
·
открытие
приложения;
·
установка
необходимых опций
·
выполнение
упражнения
·
вывод
результата в графическом режиме
·
вывод
справочных данных о программе
Программная документация должна включать разделы:
объектно-ориентированный анализ объектно-ориентированное проектирование
системы, объектно-ориентированное программирование системы, порядок контроля и приемки
системы. Кроме того, документация должна включать в себя текст программы,
список используемых источников, диаграммы.
На рисунке 1 представлена диаграмма вариантов использования (use case diagram) для разрабатываемого
приложения.
Рисунок 1 - Диаграмма вариантов использования
Вариант использования "Просмотр справки":
Пользователь выбирает пункт меню "Справка".
Система выдаёт окно с информацией о программе.
Пользователь закрывает справку.
Вариант использования "Тренинг":
Если пользователь желает задать новые настройки, то выполнить
"Задание настроек".
Если пользователя устраивают настройки по умолчанию (Время
тренинга - 1 минута, Уровень сложности - Начинающий, Режим букв - Русский),
пользователь выбирает пункт меню "Начать тренинг".
До тех пор, пока не истекло время тренинга, система
отображает на экране падающий символ, определённый системой случайным образом.
Если выбран уровень сложности "Начинающий", то
символ падает с низкой скоростью. Если выбран уровень сложности
"Средний", то символ падает со скоростью, в 2 раза большей, чем на
уровне сложности "Начинающий". Если выбран уровень сложности
"Профессионал", то символ падает со скоростью, в 3 раза большей, чем
на уровне сложности "Начинающий".
Система отображает подсказку в виде подсвечивания красным
цветом нужной клавиши на клавиатуре внизу экрана.
Пользователь нажимает клавишу на клавиатуре, которая, как он
считает, соответствует отображённому системой на экране символу.
Если пользователь нажал верную клавишу, то система отображает
на экране следующий символ, определённый системой случайным образом.
Если пользователь нажал неверную клавишу или время для набора
символа истекло, то счётчик ошибок по ошибочно набранному символу увеличивает
своё значение на единицу.
Пользователь нажимает кнопку "Гистограмма ошибок".
Система выдаёт гистограмму распределения частоты ошибок набираемых символов,
построенную на основе значений счётчиков ошибок по каждому символу,
отображённому на экране системой.
Вариант использования "Задание настроек":
Пользователь вводит время тренинга в окно ввода.
Пользователь выбирает уровень сложности в выпадающем списке
(Начинающий, Средний, Профессионал).
Пользователь выбирает переключатель режима букв русского,
латинского алфавитов или специальных символов.
Пользователь нажимает кнопку "Сохранить".
Система сохраняет настройки.
2.
Объектно-ориентированное проектирование системы
Учитывая функции, которые должна обеспечить система, а также
ее специфику, построим диаграммы классов - Class Diagram (см. рисунок 2, 3,4),
которые показывают взаимодействие классов в системе "Клавиатурный
тренажёр" для каждого из вариантов использования. Все классы, которые
должны быть использованы в данной программе, являются стандартными, за
исключением класса Letter.
Класс TForm:
Всего имеется 4 объекта данного класса:
Объект Main - предназначен для выполнения действий выбранных
пользователем (установка опций, выполнение приложения, просмотр справки).
На форме Main расположен один объект класса TMainMenu, предназначенный
выполнения действий выбранных пользователем.
Объект Options - предназначен для установки требуемых
пользователю опций (режим тренажера, сложность и время выполнения).
На форме Options расположены следующие объекты: один объект
класса TComboBox, один объект класса TEdit, один объект класса TUpDown, один объект класса TRadioGroup, один объект класса TLabel, один объект класса TButton, которые используются
пользователем для установок необходимых опций.
Объект Training - предназначен для выполнения упражнения
На форме Training расположены следующие объекты: один объект
класса TPanel, один объект класса TButton, 2 объекта класса TTimer, 104 объекта класса TSpeedButton, которые предназначены
для обеспечения выполнения приложением определенных действий.
Объект Diagram - предназначен для вывода информации о выполненном
упражнении в графическом режиме.
На форме Diagram расположены следующие объекты: один объект
класса TChart. Класс Letter:
Всего имеется 1 объект данного класса: объект bukva предназначен для
формирования и вывода нового символа, соответствующий которому пользователю
необходимо найти и нажать на клавиатуре.
Рисунок 2 - Диаграмма классов для варианта использования
"Тренинг"
Рисунок 3 - Диаграмма классов для варианта использования
"Просмотр справки"
Рисунок 4 - Диаграмма классов для варианта использования
"Задание настроек"
Построим диаграммы последовательности (Interaction Diagram), которые показывают
последовательность действий, выполняемых пользователем и системой, в системе
"Клавиатурный тренажёр" для каждого из вариантов использования. Ось
времени направлена сверху вниз. На диаграмме располагаются объекты классов,
созданных в диаграмме классов. Каждый объект имеет линию жизни.
На рисунке 5 изображена диаграмма последовательности для
варианта использования "Тренинг".
Рисунок 5 - Диаграмма последовательности для варианта
использования "Тренинг"
Сначала передаётся сообщение от объекта Пользователь класса
Пользователь к объекту N2 класса TMenuItem - OnClick (). Затем от объекта N2 класса TMenuItem к объекту Training класса TTraining передаётся сообщение Show (). Далее объект Training класса TTraining передаёт сообщение сам
себе - FormActivate (). Затем объект Training класса TTraining передаёт сообщение
OnTimer () объекту Timer2 класса TTimer. Пока не истекло время тренинга, от
объекта Training класса TTraining объекту Timer1 класса TTimer передаётся
сообщение OnTimer (), от объекта Timer1 класса TTimer - сообщения AddYLet (),
AddEY1EY2 (), DrawLetter (), SetXLet (), SetYLet (), SetEX1EX2 (), SetEY1EY2 (), newbukva (). После этого объект
bukva класса Letter завершает свою линию жизни. Далее начинается линия жизни
объекта Button1 класса TButton. Затем от объекта Пользователь класса
Пользователь к объекту Button1 класса TButton передаётся сообщение Button1Click (). Затем начинается
линия жизни объекта Diagram класса TDiagram. Далее объект Button1 класса TButton передаёт сообщение
объекту Diagram класса TDiagram - FormActivate (). После этого
объект Пользователь класса Пользователь передаёт сообщение FormClose () объекту Diagram
класса TDiagram. После этого объект Diagram класса TDiagram завершает свою
линию жизни. Затем объект Пользователь класса Пользователь передаёт сообщение FormClose () объекту Training класса TTraining. После этого объект
Timer2 класса TTimer, Timer1 класса TTimer, Button1 класса TButton и Training класса TTraining завершают свою линию
жизни.
На рисунке 6 изображена диаграмма последовательности для
варианта использования "Просмотр справки".
Рисунок 6 - Диаграмма последовательности для варианта
использования "Просмотр справки"
Сначала передаётся сообщение от объекта Пользователь класса
Пользователь к объекту N3 класса TMenuItem - OnClick (). Далее объект N3 класса TMenuItem передаёт сообщение сам
себе - ShowMessage ().
На рисунке 7 изображена диаграмма последовательности для
варианта использования "Задание настроек".
Рисунок 7 - Диаграмма последовательности для варианта
использования "Задание настроек"
Сначала передаётся сообщение от объекта Пользователь класса
Пользователь к объекту N1 класса TMenuItem - OnClick (). Затем от объекта N1 класса TMenuItem к объекту Options класса TOptions передаётся сообщение Show (). Далее объект Options класса TOptions передаёт сообщение сам
себе - FormActivate (). Затем объект Options класса TOptions передаёт сообщение Click () объекту RadioGroup1 класса TRadioGroup. После этого объект Options класса TOptions передаёт сообщение OnCloseUp () объекту ComboBox1 класса TComboBox. Далее объект Options класса TOptions передаёт сообщение OnChange () объекту Edit1 класса TEdit. Затем объект Options класса TOptions передаёт сообщение BitBtn1Click () объекту BitBtn1 класса TBitBtn.
Для объекта RadioGroup1 была составлена диаграмма состояний (Statechart Diagram), которая показывает
состояние объекта во время работы системы. Она представлена на рисунке 8.
Рисунок 8 - Диаграмма состояний объекта RadioGroup1 системы
"Клавиатурный тренажёр"
Объект RadioGroup1 может находиться в трёх состояниях:
) выбран первый переключатель;
2) выбран второй переключатель;
) выбран третий переключатель.
Объект может перейти из первого состояния во второе при
условии, что будет выбран английский язык. Объект может перейти из второго
состояния в первое при условии, что будет выбран русский язык. Объект может
перейти из первого состояния в третье при условии, что будет выбран режим
специальных символов. Объект может перейти из третьего состояния в первое при
условии, что будет выбран русский язык. Существует также два вида
псевдосостояний: начальное, в котором находится объект сразу после его создания
(обозначается сплошным кружком), и конечное, которое объект не может покинуть,
если перешел в него (обозначается кружком, обведенным окружностью).
.
Объектно-ориентированное программирование
В соответствии с правилами объектно-ориентированного
программирования каждому из стандартных классов соответствует определенная
группа объектов со своими событиями. В процессе работы программы, по мере
использования того или иного объекта, активизируется событие, принадлежащее
этому объекту, и выполняется последовательность действий (или одно действие),
указанных в нем. Все объекты компонентов размещаются в объектах-формах. Для
каждой формы создается отдельный модуль, в котором осуществляется
программирование задачи. В основном все алгоритмы, помещенные в обработчиках
событий объектов, сводятся к обработке свойств различных объектов, при этом
происходит постоянное обращение к их методам. Поэтому очень важно правильно
выбрать компоненты для каждой формы. Рассмотрим более подробно каждый модуль.
Модуль UnMain. Текст данного модуля должен содержаться в файле
UnMain. cpp, а объявления
(переменных, констант, типов, классов, функций) в файле UnMain. h. Модуль должен содержать
3 функции:
__fastcall TMain:: TMain (TComponent* Owner:
TForm (Owner) - конструктор формы Main.__fastcall
TMain:: N3Click (TObject *Sender), void __fastcall TMain:: N1Click (TObject
*Sender), void __fastcall TMain:: N2Click (TObject *Sender) - предназначены для передачи управления в соответствующие окна.
Модуль UnOptions. Текст модуля содержится в файле UnOptions.
cpp.
Он включает в себя следующие основные функции (события):
TOptions:: TOptions (TComponent* Owner): TForm
(Owner) - конструктор формы Options.
__fastcall TOptions:: FormActivate (TObject *Sender) - установка начального значения в текстовое поле
__fastcall TOptions:: BitBtn1Click (TObject
*Sender) - установка опций
Модуль unTraining. Текст модуля содержится в файле unTraining.
cpp.
Модуль содержит следующие функции:
__fastcall TTraining:: TTraining (TComponent*
Owner): TForm (Owner) - конструктор формы Training.
_SetFont () - возврат шрифтов кнопок в изначальное значение
KeyInput (int TType, char InKey) - анализ правильности нажатой пользователем
клавиши
ConType (int TType) - прорисовка клавиатуры путем отображения на
определенных кнопках определенных символов
KeyLetter (int TType) - выделение на клавиатуре текущей буквы другим
цветом
__fastcall TTraining:: Timer1Timer (TObject
*Sender) - движение буквы вниз
__fastcall TTraining:: FormActivate (TObject *Sender) - установка начальных значений переменным и
объектам
__fastcall TTraining:: FormKeyPress (TObject *Sender, char &Key) - анализ нажатой пользователем клавиши
__fastcall TTraining:: Timer2Timer (TObject *Sender) - отсчет времени выполнения приложения
__fastcall TTraining:: Button1Click (TObject *Sender) - отображение диаграммы ошибок
Модуль unDiagram. Текст модуля содержится в файле unDiagram. cpp.
Модуль содержит следующие функции:
__fastcall TDiagram:: TDiagram (TComponent* Owner): TForm (Owner) - конструктор формы Diagram.
__fastcall TDiagram:: FormActivate (TObject *Sender) - построение диаграммы ошибок.
Текст программы и использующихся в ней классов приведены в
приложении А.
.
Тестирование и отладка программы
Объектом испытания является программа Train, находящаяся в папке
Клавиатурный тренажёр (листинг программы находится в приложении А).
Испытания проводятся с целью проверки правильности
функционирования программы и выявления имеющихся недостатков.
Приложение работает в среде Windоws XP.
Программу разработана на языке Borland C++Builder 6.0.
Для проведения испытания программы Train необходимо войти в Borland C++Builder 6.0 (или более новой
версии) и из папки Клавиатурный тренажёр загрузить файл проекта Train. bpr или исполняемый файл Train. ехе и проверить работу
всех вариантов использования системы. Разработанное приложение может
использоваться на персональном компьютере с операционной системой Windows.
Испытания проводятся по следующему алгоритму:
а) запустить на выполнение файл Train. bpr, находящийся в папке Train и среде программирования
Borland C++ Builder 6.0 (см. рисунок Б.1);
в) в появившейся на экран форме необходимо ввести время
тренинга в окно ввода, выбрать уровень сложности в выпадающем списке
(Начинающий, Средний, Профессионал), выбрать переключатель режима букв
русского, латинского алфавитов или специальных символов и нажать кнопку
"Сохранить";
г) при запуске на выполнение файла Train. bpr в появившейся на экран
форме необходимо выбрать интересующий пункт, например "Справка" (см.
рисунок Б.3) и прочитать её;
д) при запуске на выполнение файла Train. bpr в появившейся на экран
форме необходимо выбрать интересующий пункт, например "Начать
тренинг" (см. рисунок Б.4);
е) в появившейся на экран форме необходимо нажимать на
клавиатуре клавиши с теми же символами, что отображены на падающей букве (см.
рисунок Б.4);
ж) по истечении времени необходимо посмотреть результаты
тренинга, отображённые на гистограмме распределения частоты ошибок набираемых
символов (см. рисунок Б.5).
Проведённые испытания показали, что программа работает верно
и без каких либо ошибок.
Заключение
В результате проделанной работы было выполнено:
·
Объектно-ориентированный
анализ приложения "Клавиатурный тренажер", результатом которого
явилось техническое задание, построенное в виде диаграммы вариантов
использования.
·
Проектирование
системы, в результате которого были выделены классы и экземпляры классов
(объекты) и определены отношения между ними. Проект системы был представлен в
виде диаграммы классов.
·
Реализация
программы в среде Borland C++Builder 6.0 под Windows XP.
В соответствии с полученным результатом работы программы
можно сделать вывод, что разработанная программа работает верно, а требования
технического задания выполнены в полном объеме.
Список
использованных источников
1. 1
Архангельский А. Я Программирование в C++Builder 6.0. - М.: ЗАО "Издательство
БИНОМ", 2003. - 1152 с.
2. Якобсон
А., Буч Г., Рамбо Дж. Унифицированный процесс разработки программного
обеспечения. - СПб.: Питер, 2002. - 496 с.
Текст
программы
Приложение А
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
//
---------------------------------------------------------------------------("UnMain.
cpp", Main);("UnOptions. cpp", Options);("UnTraining.
cpp", Training);("UnDiagram. cpp", Diagram);
//
---------------------------------------------------------------------------WinMain
(HINSTANCE, HINSTANCE, LPSTR, int)
{
{>Initialize ();>Title="Клавиатурный
тренажёр";>CreateForm (__classid (TMain), &Main);>CreateForm
(__classid (TOptions), &Options);>CreateForm (__classid (TTraining),
&Training);>CreateForm (__classid (TDiagram), &Diagram);>Run ();
}(Exception &exception)
{>ShowException (&exception);
}(.)
{
{Exception ("");
}(Exception &exception)
{>ShowException (&exception);
}
}0;
}
//
---------------------------------------------------------------------------
// ---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "UnMain. h"
#include "UnOptions. h"
#include "UnTraining. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"*Main;Time =
1, Lang = 0, Lev = 0;
//
---------------------------------------------------------------------------
__fastcall TMain:: TMain (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TMain:: N3Click (TObject *Sender)
{
ShowMessage (" В программе заданы настройки по
умолчанию (Время тренинга - 1 минута, Уровень сложности - Начинающий, Режим
букв - Русский). Если Вы желаете задать новые настройки, то выберите пункт меню
Задание настроек. В открывшемся окне выберите уровень сложности в выпадающем
списке (Начинающий, Средний, Профессионал), переключатель режима букв русского,
латинского алфавитов или специальных символов, введите время тренинга в окно
ввода и нажмите кнопку Сохранить. Выберите пункт меню Начать тренинг. Нажимайте
клавишу на клавиатуре, которая, как вы считаете, соответствует отображённому
системой на экране символу. Внизу экрана отображается подсказка в виде
клавиатуры с подсвеченной нужной клавишей. По истечении времени тренинга Вы
можете нажать кнопку Гистограмма ошибок и увидеть гистограмму распределения
частоты ошибок набираемых символов. ");
}
// ---------------------------------------------------------------------------__fastcall
TMain:: N1Click (TObject *Sender)
{>Show ();
}
//
---------------------------------------------------------------------------__fastcall
TMain:: N2Click (TObject *Sender)
{>Show ();
}
// ---------------------------------------------------------------------------
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "unOptions. h"
#include "unTraining. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"*Options;
//
---------------------------------------------------------------------------
__fastcall TOptions:: TOptions (TComponent*
Owner)
: TForm (Owner)
{
//
---------------------------------------------------------------------------__fastcall
TOptions:: RadioGroup1Click (TObject *Sender)
{->Enabled = true;
}
//
---------------------------------------------------------------------------__fastcall
TOptions:: FormActivate (TObject *Sender)
{Time;->Text = Time;
}
//
---------------------------------------------------------------------------__fastcall
TOptions:: BitBtn1Click (TObject *Sender)
{int Time,Lang,Lev;= StrToInt (Edit1->Text);=
RadioGroup1->ItemIndex;= ComboBox1->ItemIndex;->Enabled = false;(Lev)
{case 0: Training->Timer1->Interval =
100;;1: Training->Timer1->Interval = 50;;2:
Training->Timer1->Interval = 25;;
}();
}
//
---------------------------------------------------------------------------__fastcall
TOptions:: ComboBox1CloseUp (TObject *Sender)
{->Enabled = true;
}
//
---------------------------------------------------------------------------__fastcall
TOptions:: Edit1Change (TObject *Sender)
{->Enabled = true;
}
// ---------------------------------------------------------------------------
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "UnTraining. h"
#include "UnDiagram. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"Letter
{private:XLet;YLet;EY1;EX1;EX2;:EY2;letter;count;alfa;setXLet
(int X)
{XLet = X;
};setYLet (int Y)
{YLet = Y;
};AddYLet (int Y)
{YLet += Y;
};setEX1EX2 (int X1, int X2)
{EX1 = X1;= X2;
};setEY1EY2 (int Y1, int Y2)
{EY1 = Y1;= Y2;
};AddEY1EY2 (int Y1, int Y2)
{EY1 += Y1;
EY2 += Y2;
};newbukva (int TType)
{(TType == 0)
{= random (32) +1;(alfa)
{case 1: letter = 'а'; break;2: letter = 'б';
break;3: letter = 'в'; break;4: letter = 'г'; break;5: letter = 'д'; break;6:
letter = 'е'; break;7: letter = 'ё'; break;8: letter = 'ж'; break;9: letter =
'з'; break;10: letter = 'и'; break;11: letter = 'й'; break;12: letter = 'к';
break;13: letter = 'л'; break;14: letter = 'м'; break;15: letter = 'н';
break;16: letter = 'о'; break;17: letter = 'п'; break;18: letter = 'р';
break;19: letter = 'с'; break;20: letter = 'т'; break;21: letter = 'у';
break;22: letter = 'ф'; break;23: letter = 'х'; break;24: letter = 'ц';
break;25: letter = 'ч'; break;26: letter = 'ш'; break;27: letter = 'щ';
break;28: letter = 'ъ'; break;29: letter = 'ы'; break;30: letter = 'ь';
break;31: letter = 'э'; break;32: letter = 'ю'; break;33: letter = 'я'; break;
}
}(TType == 1)
{= random (26) +1;(alfa)
{case 1: letter = 'a'; break;2: letter = 'b';
break;3: letter = 'c'; break;4: letter = 'd'; break;5: letter = 'e'; break;6:
letter = 'f'; break;7: letter = 'g'; break;8: letter = 'h'; break;9: letter =
'i'; break;10: letter = 'j'; break;11: letter = 'k'; break;12: letter = 'l';
break;13: letter = 'm'; break;14: letter = 'n'; break;15: letter = 'o';
break;16: letter = 'p'; break;17: letter = 'q'; break;18: letter = 'r';
break;19: letter = 's'; break;20: letter = 't'; break;21: letter = 'u';
break;22: letter = 'v'; break;23: letter = 'w'; break;24: letter = 'x';
break;25: letter = 'y'; break;26: letter = 'z'; break;
}
}(TType == 2)
{= random (23) +1;(alfa)
{case 1: letter = '1'; break;2: letter = '2';
break;3: letter = '3'; break;4: letter = '4'; break;5: letter = '5'; break;6:
letter = '6'; break;7: letter = '7'; break;8: letter = '8'; break;9: letter =
'9'; break;10: letter = '0'; break;11: letter = '-'; break;12: letter = '=';
break;13: letter = '\\'; break;14: letter = '`'; break;15: letter = ' [';
break;16: letter = '] '; break;17: letter = '; '; break;18: letter = '"';
break;19: letter = ','; break;20: letter = '. '; break;21: letter = '/';
break;22: letter = '*'; break;23: letter = '+'; break;
}
}+= 1;
};DrawLetter ()
{Training->Canvas->Brush->Color = clRed;>Canvas->Ellipse
(EX1,EY1,EX2,EY2);>Canvas->TextOutA (XLet,YLet,letter);
};
};bukva; // Объект - экземпляр класса
Letter*Training;
//
---------------------------------------------------------------------------
__fastcall TTraining:: TTraining (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------present;input;i,count;QMistakes
[33] =
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};Mistakes
[33] = {'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','ъ','э','ю','я'};_SetFont
()
{ Training->SpeedButton2->Font->Color =
clBlack;>SpeedButton13->Font->Color =
clBlack;>SpeedButton14->Font->Color = clBlack;>SpeedButton15->Font->Color
= clBlack;>SpeedButton16->Font->Color =
clBlack;>SpeedButton17->Font->Color =
clBlack;>SpeedButton18->Font->Color =
clBlack;>SpeedButton19->Font->Color =
clBlack;>SpeedButton20->Font->Color =
clBlack;>SpeedButton21->Font->Color = clBlack;>SpeedButton22->Font->Color
= clBlack;>SpeedButton23->Font->Color =
clBlack;>SpeedButton24->Font->Color =
clBlack;>SpeedButton25->Font->Color =
clBlack;>SpeedButton26->Font->Color =
clBlack;>SpeedButton27->Font->Color =
clBlack;>SpeedButton28->Font->Color = clBlack;>SpeedButton29->Font->Color
= clBlack;>SpeedButton30->Font->Color =
clBlack;>SpeedButton31->Font->Color =
clBlack;>SpeedButton32->Font->Color =
clBlack;>SpeedButton33->Font->Color = clBlack;>SpeedButton34->Font->Color
= clBlack;>SpeedButton35->Font->Color =
clBlack;>SpeedButton36->Font->Color =
clBlack;>SpeedButton37->Font->Color =
clBlack;>SpeedButton38->Font->Color =
clBlack;>SpeedButton39->Font->Color =
clBlack;>SpeedButton40->Font->Color = clBlack;>SpeedButton41->Font->Color
= clBlack;>SpeedButton42->Font->Color =
clBlack;>SpeedButton43->Font->Color =
clBlack;>SpeedButton44->Font->Color =
clBlack;>SpeedButton45->Font->Color =
clBlack;>SpeedButton46->Font->Color =
clBlack;>SpeedButton47->Font->Color =
clBlack;>SpeedButton48->Font->Color = clBlack;>SpeedButton49->Font->Color
= clBlack;>SpeedButton50->Font->Color =
clBlack;>SpeedButton51->Font->Color =
clBlack;>SpeedButton52->Font->Color =
clBlack;>SpeedButton53->Font->Color = clBlack;>SpeedButton54->Font->Color
= clBlack;>SpeedButton55->Font->Color = clBlack;>SpeedButton56->Font->Color
= clBlack;>SpeedButton57->Font->Color =
clBlack;>SpeedButton58->Font->Color =
clBlack;>SpeedButton59->Font->Color =
clBlack;>SpeedButton60->Font->Color = clBlack;>SpeedButton98->Font->Color
= clBlack;>SpeedButton93->Font->Color =
clBlack;>SpeedButton22->Font->Color =
clBlack;>SpeedButton21->Font->Color =
clBlack;>SpeedButton20->Font->Color =
clBlack;>SpeedButton34->Font->Color =
clBlack;>SpeedButton33->Font->Color = clBlack;>SpeedButton2->Font->Size
= 12;>SpeedButton13->Font->Size =
12;>SpeedButton14->Font->Size = 12;>SpeedButton15->Font->Size
= 12;>SpeedButton16->Font->Size =
12;>SpeedButton17->Font->Size = 12;>SpeedButton18->Font->Size
= 12;>SpeedButton19->Font->Size =
12;>SpeedButton20->Font->Size = 12;>SpeedButton21->Font->Size
= 12;>SpeedButton22->Font->Size =
12;>SpeedButton23->Font->Size = 12;>SpeedButton24->Font->Size
= 12;>SpeedButton25->Font->Size =
12;>SpeedButton26->Font->Size = 12;>SpeedButton27->Font->Size
= 12;>SpeedButton28->Font->Size = 12;>SpeedButton29->Font->Size
= 12;>SpeedButton30->Font->Size =
12;>SpeedButton31->Font->Size = 12;>SpeedButton32->Font->Size
= 12;>SpeedButton33->Font->Size =
12;>SpeedButton34->Font->Size = 12;>SpeedButton35->Font->Size
= 12;>SpeedButton36->Font->Size = 12;>SpeedButton37->Font->Size
= 12;>SpeedButton38->Font->Size =
12;>SpeedButton39->Font->Size = 12;>SpeedButton40->Font->Size
= 12;>SpeedButton41->Font->Size =
12;>SpeedButton42->Font->Size = 12;>SpeedButton43->Font->Size
= 12;>SpeedButton44->Font->Size = 12;>SpeedButton45->Font->Size
= 12;>SpeedButton46->Font->Size =
12;>SpeedButton47->Font->Size = 12;>SpeedButton48->Font->Size
= 12;>SpeedButton49->Font->Size =
12;>SpeedButton50->Font->Size = 12;>SpeedButton51->Font->Size
= 12;>SpeedButton52->Font->Size = 12;>SpeedButton53->Font->Size
= 12;>SpeedButton54->Font->Size =
12;>SpeedButton55->Font->Size = 12;>SpeedButton56->Font->Size
= 12;>SpeedButton57->Font->Size =
12;>SpeedButton58->Font->Size = 12;>SpeedButton59->Font->Size
= 12;>SpeedButton60->Font->Size = 12;>SpeedButton33->Font->Size
= 12;>SpeedButton34->Font->Size =
12;>SpeedButton20->Font->Size = 12;>SpeedButton21->Font->Size
= 12;>SpeedButton22->Font->Size =
12;>SpeedButton98->Font->Size = 12;>SpeedButton92->Font->Size
= 12;>SpeedButton93->Font->Size = 12;>SpeedButton94->Font->Size
= 12;>SpeedButton98->Font->Size =
12;>SpeedButton104->Font->Size = 12;
}KeyInput (int TType, char InKey)
{(TType == 0)(InKey)
{case - 23: input = 'й'; break;- 10: input = 'ц';
break;- 13: input = 'у'; break;- 22: input = 'к'; break;- 27: input = 'е';
break;- 19: input = 'н'; break;- 29: input = 'г'; break;- 8: input = 'ш';
break;- 7: input = 'щ'; break;- 25: input = 'з'; break;- 11: input = 'х';
break;- 6: input = 'ъ'; break;- 12: input = 'ф'; break;- 5: input = 'ы';
break;- 30: input = 'в'; break;- 32: input = 'а'; break;- 17: input = 'п';
break;- 16: input = 'р'; break;- 18: input = 'о'; break;- 21: input = 'л';
break;- 28: input = 'д'; break;- 26: input = 'ж'; break;- 3: input = 'э';
break;- 1: input = 'я'; break;- 9: input = 'ч'; break;- 15: input = 'с';
break;- 20: input = 'м'; break;- 24: input = 'и'; break;- 14: input = 'т';
break;- 4: input = 'ь'; break;- 31: input = 'б'; break;- 2: input = 'ю';
break;- 72: input = 'ё'; break;
}(TType == 2)(InKey)
{case 44: input = ','; break;46: input = '. ';
break;47: input = '/'; break;42: input = '*'; break;43: input = '+'; break;59:
input = '; '; break;39: input = '"'; break;96: input = '`'; break;49:
input = '1'; break;50: input = '2'; break;51: input = '3'; break;52: input =
'4'; break;53: input = '5'; break;54: input = '6'; break;55: input = '7';
break;56: input = '8'; break;57: input = '9'; break;48: input = '0'; break;91:
input = ' ['; break;93: input = '] '; break;45: input = '-'; break;61: input =
'='; break;92: input = '\\'; break;
}(TType == 1)(InKey)
}(bukva. letter! = input)
{for (i=0; i<33; i++)(bukva. letter ==
Mistakes [i])
{QMistakes [i] =QMistakes [i] +1;;
}false;
}(bukva. letter == input)
{bukva. setXLet (313);. setYLet (5);. setEX1EX2
(305,330);. setEY1EY2 (0,25);
_SetFont ();true;
}
};ConType (int TType)
{int Lang;(TType == 0)
{ Training->SpeedButton2->Caption
="ё";>SpeedButton13->Caption
="я";>SpeedButton14->Caption ="ч";>SpeedButton15->Caption
="с";>SpeedButton16->Caption
="м";>SpeedButton17->Caption
="и";>SpeedButton18->Caption
="т";>SpeedButton19->Caption
="ь";>SpeedButton20->Caption
="б";>SpeedButton21->Caption
="ю";>SpeedButton22->Caption =".
";>SpeedButton24->Caption
="ф";>SpeedButton25->Caption
="ы";>SpeedButton26->Caption
="в";>SpeedButton27->Caption
="а";>SpeedButton28->Caption
="п";>SpeedButton29->Caption ="р";>SpeedButton30->Caption
="о";>SpeedButton31->Caption
="л";>SpeedButton32->Caption
="д";>SpeedButton33->Caption
="ж";>SpeedButton34->Caption
="э";>SpeedButton36->Caption
="й";>SpeedButton37->Caption
="ц";>SpeedButton38->Caption
="у";>SpeedButton39->Caption ="к";>SpeedButton40->Caption
="е";>SpeedButton41->Caption
="н";>SpeedButton42->Caption ="г";>SpeedButton43->Caption
="ш";>SpeedButton44->Caption
="щ";>SpeedButton45->Caption
="з";>SpeedButton46->Caption
="х";>SpeedButton47->Caption ="ъ";
};(TType == 1)
{ Training->SpeedButton13->Caption
="z";>SpeedButton14->Caption
="x";>SpeedButton15->Caption ="c";>SpeedButton16->Caption
="v";>SpeedButton17->Caption
="b";>SpeedButton18->Caption
="n";>SpeedButton19->Caption
="m";>SpeedButton20->Caption
=",";>SpeedButton21->Caption =". ";>SpeedButton22->Caption
="/";>SpeedButton24->Caption
="a";>SpeedButton25->Caption ="s";>SpeedButton26->Caption
="d";>SpeedButton27->Caption
="f";>SpeedButton28->Caption
="g";>SpeedButton29->Caption
="h";>SpeedButton30->Caption
="j";>SpeedButton31->Caption ="k";>SpeedButton32->Caption
="l";>SpeedButton33->Caption =";
";>SpeedButton34->Caption ="'";>SpeedButton36->Caption
="q";>SpeedButton37->Caption
="w";>SpeedButton38->Caption
="e";>SpeedButton39->Caption
="r";>SpeedButton40->Caption
="t";>SpeedButton41->Caption
="y";>SpeedButton42->Caption
="u";>SpeedButton43->Caption
="i";>SpeedButton44->Caption
="o";>SpeedButton45->Caption
="p";>SpeedButton46->Caption ="
[";>SpeedButton47->Caption ="] ";[0] = 'a'; Mistakes [1] =
'b'; Mistakes [2] = 'c'; Mistakes [3] = 'd'; Mistakes [4] = 'e'; Mistakes [5] =
'f';[6] = 'g'; Mistakes [7] = 'h'; Mistakes [8] = 'i'; Mistakes [9] = 'j';
Mistakes [10] = 'k';[11] = 'l'; Mistakes [12] = 'm'; Mistakes [13] = 'n';
Mistakes [14] = 'o'; Mistakes [15] = 'p';[16] = 'q'; Mistakes [17] = 'r';
Mistakes [18] = 's'; Mistakes [19] = 't'; Mistakes [20] = 'u';[21] = 'v';
Mistakes [22] = 'w'; Mistakes [23] = 'x'; Mistakes [24] = 'y'; Mistakes [25] =
'z';
}(TType == 2)
{ Training->SpeedButton2->Caption
="`";>SpeedButton20->Caption
=",";>SpeedButton21->Caption =".
";>SpeedButton22->Caption
="/";>SpeedButton58->Caption ="-";>SpeedButton59->Caption
="=";>SpeedButton60->Caption
="\\";>SpeedButton93->Caption
="*";>SpeedButton98->Caption
="+";>SpeedButton104->Caption =".
";>SpeedButton46->Caption =" [";>SpeedButton47->Caption
="] ";>SpeedButton33->Caption =";
";>SpeedButton34->Caption ="\"";[0] = '`'; Mistakes
[1] = '1'; Mistakes [2] = '2'; Mistakes [3] = '3'; Mistakes [4] = '4'; Mistakes
[5] = '5';[6] = '6'; Mistakes [7] = '7'; Mistakes [8] = '8'; Mistakes [9] =
'9'; Mistakes [10] = '0';[11] = '-'; Mistakes [12] = '='; Mistakes [13] = '\\';
Mistakes [14] = ' ['; Mistakes [15] = '] ';[16] = '; '; Mistakes [17] =
'"'; Mistakes [18] = ','; Mistakes [19] = '. '; Mistakes [20] = '/';[21] =
'*'; Mistakes [22] = '*'; Mistakes [23] = '+';
}
};KeyLetter (int TType)
{(TType == 0)
{(bukva. alfa)
{ case 1: //
а>SpeedButton27->Font->Color =
clRed;>SpeedButton27->Font->Size =
14;>SpeedButton27->Font->Style << fsBold;;2: //
б>SpeedButton20->Font->Color =
clRed;>SpeedButton20->Font->Size = 14;>SpeedButton20->Font->Style
<< fsBold;;3: // в>SpeedButton26->Font->Color =
clRed;>SpeedButton26->Font->Size =
14;>SpeedButton26->Font->Style << fsBold;;4: //
г>SpeedButton42->Font->Color =
clRed;>SpeedButton42->Font->Size =
14;>SpeedButton42->Font->Style << fsBold;;5: //
д>SpeedButton32->Font->Color = clRed;>SpeedButton32->Font->Size
= 14;>SpeedButton32->Font->Style << fsBold;;6: //
е>SpeedButton40->Font->Color =
clRed;>SpeedButton40->Font->Size =
14;>SpeedButton40->Font->Style << fsBold;;7: //
ё>SpeedButton2->Font->Color = clRed;>SpeedButton2->Font->Size
= 14;>SpeedButton2->Font->Style << fsBold;;8: //
ж>SpeedButton33->Font->Color =
clRed;>SpeedButton33->Font->Size =
14;>SpeedButton33->Font->Style << fsBold;;9: //
з>SpeedButton45->Font->Color = clRed;>SpeedButton45->Font->Size
= 14;>SpeedButton45->Font->Style << fsBold;;10: //
и>SpeedButton17->Font->Color =
clRed;>SpeedButton17->Font->Size =
14;>SpeedButton17->Font->Style << fsBold;;11: //
й>SpeedButton36->Font->Color =
clRed;>SpeedButton36->Font->Size = 14;>SpeedButton36->Font->Style
<< fsBold;;12: // к>SpeedButton39->Font->Color =
clRed;>SpeedButton39->Font->Size =
14;>SpeedButton39->Font->Style << fsBold;;13: //
л>SpeedButton31->Font->Color =
clRed;>SpeedButton31->Font->Size =
14;>SpeedButton31->Font->Style << fsBold;;14: //
м>SpeedButton16->Font->Color = clRed;>SpeedButton16->Font->Size
= 14;>SpeedButton16->Font->Style << fsBold;;15: //
н>SpeedButton41->Font->Color =
clRed;>SpeedButton41->Font->Size =
14;>SpeedButton41->Font->Style << fsBold;;16: //
о>SpeedButton30->Font->Color =
clRed;>SpeedButton30->Font->Size = 14;>SpeedButton30->Font->Style
<< fsBold;;17: // п>SpeedButton28->Font->Color =
clRed;>SpeedButton28->Font->Size =
14;>SpeedButton28->Font->Style << fsBold;;18: //
р>SpeedButton29->Font->Color = clRed;>SpeedButton29->Font->Size
= 14;>SpeedButton29->Font->Style << fsBold;;19: //
с>SpeedButton15->Font->Color =
clRed;>SpeedButton15->Font->Size =
14;>SpeedButton15->Font->Style << fsBold;;20: //
т>SpeedButton18->Font->Color =
clRed;>SpeedButton18->Font->Size = 14;>SpeedButton18->Font->Style
<< fsBold;;21: // у>SpeedButton38->Font->Color =
clRed;>SpeedButton38->Font->Size =
14;>SpeedButton38->Font->Style << fsBold;;22: //
ф>SpeedButton24->Font->Color =
clRed;>SpeedButton24->Font->Size =
14;>SpeedButton24->Font->Style << fsBold;;23: //
х>SpeedButton46->Font->Color = clRed;>SpeedButton46->Font->Size
= 14;>SpeedButton46->Font->Style << fsBold;;24: //
ц>SpeedButton37->Font->Color =
clRed;>SpeedButton37->Font->Size =
14;>SpeedButton37->Font->Style << fsBold;;25: // ч>SpeedButton14->Font->Color
= clRed;>SpeedButton14->Font->Size =
14;>SpeedButton14->Font->Style << fsBold;;26: //
ш>SpeedButton43->Font->Color =
clRed;>SpeedButton43->Font->Size =
14;>SpeedButton43->Font->Style << fsBold;;27: //
щ>SpeedButton44->Font->Color = clRed;>SpeedButton44->Font->Size
= 14;>SpeedButton44->Font->Style << fsBold;;28: //
ъ>SpeedButton47->Font->Color =
clRed;>SpeedButton47->Font->Size =
14;>SpeedButton47->Font->Style << fsBold;;29: //
ы>SpeedButton25->Font->Color = clRed;>SpeedButton25->Font->Size
= 14;>SpeedButton25->Font->Style << fsBold;;30: // ь>SpeedButton19->Font->Color
= clRed;>SpeedButton19->Font->Size =
14;>SpeedButton19->Font->Style << fsBold;;31: //
э>SpeedButton34->Font->Color =
clRed;>SpeedButton34->Font->Size = 14;>SpeedButton34->Font->Style
<< fsBold;;32: // ю>SpeedButton21->Font->Color =
clRed;>SpeedButton21->Font->Size =
14;>SpeedButton21->Font->Style << fsBold;;33: //
я>SpeedButton13->Font->Color =
clRed;>SpeedButton13->Font->Size =
14;>SpeedButton13->Font->Style << fsBold;;
}
}(TType == 1)
{(bukva. alfa)
{ case 1: // a>SpeedButton24->Font->Color
= clRed;>SpeedButton24->Font->Size =
14;>SpeedButton24->Font->Style << fsBold;;2: //
b>SpeedButton17->Font->Color =
clRed;>SpeedButton17->Font->Size =
14;>SpeedButton17->Font->Style << fsBold;;3: //
c>SpeedButton15->Font->Color = clRed;>SpeedButton15->Font->Size
= 14;>SpeedButton15->Font->Style << fsBold;;4: //
d>SpeedButton26->Font->Color =
clRed;>SpeedButton26->Font->Size =
14;>SpeedButton26->Font->Style << fsBold;;5: // e>SpeedButton38->Font->Color
= clRed;>SpeedButton38->Font->Size = 14;>SpeedButton38->Font->Style
<< fsBold;;6: // f>SpeedButton27->Font->Color =
clRed;>SpeedButton27->Font->Size =
14;>SpeedButton27->Font->Style << fsBold;;7: //
g>SpeedButton28->Font->Color = clRed;>SpeedButton28->Font->Size
= 14;>SpeedButton28->Font->Style << fsBold;;8: //
h>SpeedButton29->Font->Color =
clRed;>SpeedButton29->Font->Size =
14;>SpeedButton29->Font->Style << fsBold;;9: //
i>SpeedButton43->Font->Color =
clRed;>SpeedButton43->Font->Size = 14;>SpeedButton43->Font->Style
<< fsBold;;10: // j>SpeedButton30->Font->Color =
clRed;>SpeedButton30->Font->Size =
14;>SpeedButton30->Font->Style << fsBold;;11: //
k>SpeedButton31->Font->Color =
clRed;>SpeedButton31->Font->Size =
14;>SpeedButton31->Font->Style << fsBold;;12: //
l>SpeedButton32->Font->Color = clRed;>SpeedButton32->Font->Size
= 14;>SpeedButton32->Font->Style << fsBold;;13: //
m>SpeedButton19->Font->Color =
clRed;>SpeedButton19->Font->Size =
14;>SpeedButton19->Font->Style << fsBold;;14: // n>SpeedButton18->Font->Color
= clRed;>SpeedButton18->Font->Size =
14;>SpeedButton18->Font->Style << fsBold;;15: //
o>SpeedButton44->Font->Color =
clRed;>SpeedButton44->Font->Size =
14;>SpeedButton44->Font->Style << fsBold;;16: //
p>SpeedButton45->Font->Color = clRed;>SpeedButton45->Font->Size
= 14;>SpeedButton45->Font->Style << fsBold;;17: //
q>SpeedButton36->Font->Color =
clRed;>SpeedButton36->Font->Size =
14;>SpeedButton36->Font->Style << fsBold;;18: //
r>SpeedButton39->Font->Color = clRed;>SpeedButton39->Font->Size
= 14;>SpeedButton39->Font->Style << fsBold;;19: // s>SpeedButton25->Font->Color
= clRed;>SpeedButton25->Font->Size =
14;>SpeedButton25->Font->Style << fsBold;;20: //
t>SpeedButton40->Font->Color =
clRed;>SpeedButton40->Font->Size = 14;>SpeedButton40->Font->Style
<< fsBold;;21: // u>SpeedButton42->Font->Color =
clRed;>SpeedButton42->Font->Size =
14;>SpeedButton42->Font->Style << fsBold;;22: //
v>SpeedButton16->Font->Color =
clRed;>SpeedButton16->Font->Size =
14;>SpeedButton16->Font->Style << fsBold;;23: //
w>SpeedButton37->Font->Color = clRed;>SpeedButton37->Font->Size
= 14;>SpeedButton37->Font->Style << fsBold;;24: //
x>SpeedButton14->Font->Color =
clRed;>SpeedButton14->Font->Size =
14;>SpeedButton14->Font->Style << fsBold;;25: //
y>SpeedButton41->Font->Color =
clRed;>SpeedButton41->Font->Size = 14;>SpeedButton41->Font->Style
<< fsBold;;26: // z>SpeedButton13->Font->Color =
clRed;>SpeedButton13->Font->Size =
14;>SpeedButton13->Font->Style << fsBold;;
}
}(TType == 2)
{(bukva. alfa)
{ case 1: //
1>SpeedButton48->Font->Color =
clRed;>SpeedButton48->Font->Size = 14;>SpeedButton48->Font->Style
<< fsBold;;2: // 2>SpeedButton49->Font->Color =
clRed;>SpeedButton49->Font->Size =
14;>SpeedButton49->Font->Style << fsBold;;3: //
3>SpeedButton50->Font->Color = clRed;>SpeedButton50->Font->Size
= 14;>SpeedButton50->Font->Style << fsBold;;4: //
4>SpeedButton51->Font->Color =
clRed;>SpeedButton51->Font->Size =
14;>SpeedButton51->Font->Style << fsBold;;5: //
5>SpeedButton52->Font->Color =
clRed;>SpeedButton52->Font->Size =
14;>SpeedButton52->Font->Style << fsBold;;6: // 6>SpeedButton53->Font->Color
= clRed;>SpeedButton53->Font->Size =
14;>SpeedButton53->Font->Style << fsBold;;7: //
7>SpeedButton54->Font->Color =
clRed;>SpeedButton54->Font->Size = 14;>SpeedButton54->Font->Style
<< fsBold;;8: // 8>SpeedButton55->Font->Color = clRed;>SpeedButton55->Font->Size
= 14;>SpeedButton55->Font->Style << fsBold;;9: //
9>SpeedButton56->Font->Color =
clRed;>SpeedButton56->Font->Size =
14;>SpeedButton56->Font->Style << fsBold;;10: // 0>SpeedButton57->Font->Color
= clRed;>SpeedButton57->Font->Size =
14;>SpeedButton57->Font->Style << fsBold;;11: // -
>SpeedButton58->Font->Color =
clRed;>SpeedButton58->Font->Size =
14;>SpeedButton58->Font->Style << fsBold;;12: //
=>SpeedButton59->Font->Color =
clRed;>SpeedButton59->Font->Size = 14;>SpeedButton59->Font->Style
<< fsBold;;13: // \\>SpeedButton60->Font->Color =
clRed;>SpeedButton60->Font->Size =
14;>SpeedButton60->Font->Style << fsBold;;14: //
`>SpeedButton2->Font->Color = clRed;>SpeedButton2->Font->Size
= 14;>SpeedButton2->Font->Style << fsBold;;15: // [>SpeedButton46->Font->Color
= clRed;>SpeedButton46->Font->Size =
14;>SpeedButton46->Font->Style << fsBold;;16: //
]>SpeedButton47->Font->Color =
clRed;>SpeedButton47->Font->Size = 14;>SpeedButton47->Font->Style
<< fsBold;;17: //;>SpeedButton33->Font->Color =
clRed;>SpeedButton33->Font->Size =
14;>SpeedButton33->Font->Style << fsBold;;18: //
">SpeedButton34->Font->Color =
clRed;>SpeedButton34->Font->Size =
14;>SpeedButton34->Font->Style << fsBold;;19:
//,>SpeedButton20->Font->Color = clRed;>SpeedButton20->Font->Size
= 14;>SpeedButton20->Font->Style << fsBold;;20:
//.>SpeedButton21->Font->Color =
clRed;>SpeedButton21->Font->Size =
14;>SpeedButton21->Font->Style << fsBold;;21: //
/>SpeedButton22->Font->Color =
clRed;>SpeedButton22->Font->Size = 14;>SpeedButton22->Font->Style
<< fsBold;;22: // *>SpeedButton93->Font->Color =
clRed;>SpeedButton93->Font->Size =
14;>SpeedButton93->Font->Style << fsBold;;23: //
+>SpeedButton98->Font->Color = clRed;>SpeedButton98->Font->Size
= 14;>SpeedButton98->Font->Style << fsBold;;
}
}
};__fastcall TTraining:: FormActivate (TObject
*Sender)
{i;int Time,Lang,Lev;(i=0; i<33; i++)[i] = 0;
_SetFont ();. count = 0;= Now ();
randomize ();(Lang);. newbukva (Lang);
KeyLetter (Lang);->Enabled = true;->Enabled
= true;. setXLet (313);. setYLet (10);. setEX1EX2 (305,330);. setEY1EY2
(0,25);. DrawLetter ();
}
//
---------------------------------------------------------------------------__fastcall
TTraining:: Timer1Timer (TObject *Sender)
{i;int Lang;>Refresh ();. AddYLet (5);.
AddEY1EY2 (5,5);. DrawLetter ();(bukva. EY2 > 320)
{for (i=0; i<33; i++)(bukva. letter ==
Mistakes [i])
{QMistakes [i] =QMistakes [i] +1;;
}. setXLet (313);. setYLet (5);. setEX1EX2
(305,330);. setEY1EY2 (0,25);
_SetFont ();. newbukva (Lang);(Lang);
}
}
// ---------------------------------------------------------------------------__fastcall
TTraining:: FormKeyPress (TObject *Sender, char &Key)
{int Lang;(KeyInput (Lang,Key) == true)
{. newbukva (Lang);(Lang);
}
}
//
---------------------------------------------------------------------------__fastcall
TTraining:: Timer2Timer (TObject *Sender)
{int Time;short h,m,s,ms;->Caption
="";->Caption = "Прошло " + TimeToStr (Now () - present)
+ " из "+IntToStr (Time) +" мин. ";(Now () -
present,h,m,s,ms);(m == Time)
{Timer1->Enabled=false;->Enabled =
false;>Refresh ();("Ваше время истекло!");= bukva.
count;->Visible = true;
}
}
//
---------------------------------------------------------------------------__fastcall
TTraining:: FormClose (TObject *Sender,&Action)
{->Enabled=false;->Enabled =
false;->Visible = false;
}
//
---------------------------------------------------------------------------__fastcall
TTraining:: Button1Click (TObject *Sender)
{>ShowModal ();->Visible = false;
}
//
---------------------------------------------------------------------------
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "UnDiagram. h"
#include "UnTraining. h"
#include "UnOptions. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*. dfm"
//
---------------------------------------------------------------------------
__fastcall TDiagram:: TDiagram (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TDiagram:: FormActivate (TObject *Sender)
{int Lang;char Mistakes [32];int QMistakes
[32];int count;i;(Lang == 0)(i=0; i<33; i++)
{if (QMistakes [i]! = 0)->Add (QMistakes [i]
*100/count,AnsiString (Mistakes [i]) +"-"+FloatToStr (QMistakes [i]
*100/count) +"%");
}(Lang == 1)(i=0; i<26; i++)
{if (QMistakes [i]! = 0)->Add (QMistakes [i]
*100/count,AnsiString (Mistakes [i]) +"-"+FloatToStr (QMistakes [i]
*100/count) +"%");
}(Lang == 2)(i=0; i<23; i++)
{if (QMistakes [i]! = 0)->Add (QMistakes [i]
*100/count,AnsiString (Mistakes [i]) +"-"+FloatToStr (QMistakes [i]
*100/count) +"%");
}
}
//
---------------------------------------------------------------------------__fastcall
TDiagram:: FormClose (TObject *Sender,&Action)
{->Clear ();>Close ();
}
//
---------------------------------------------------------------------------
РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ
Приложение Б
(обязательное)
Рисунок 1 - Главное меню программы
Рисунок 2 - Задание настроек
Рисунок 3 - Просмотр справки
Рисунок 4 - Тренинг
Рисунок 5 - Гистограмма ошибок