Курсовая работа: Побудова клавіатурного тренажера

}

//Зчитуємо дані, які задав користувач на вкладці Опції----------------------

void __fastcall TTrainForm::Button1Click(TObject *Sender)

{

if (ukrainian->Checked==true)

rezhim=2; else

if (russian->Checked==true)

rezhim=3; else rezhim=1;

if (prof->Checked==true)

rivenj=2; else rivenj=1;

chas=StrToInt(time->Text);

Options->Hide();

}

//---------------------------------------------------------------------------

void __fastcall TTrainForm::N7Click(TObject *Sender)

{

Application->MessageBoxA("Програму розробив студент ІІ курсу Факультета інформатики Шанта А. П.","Про Автора...",MB_OK);

}

//Після вибору Файл->Тренажер виконується наступне----------------------------

void __fastcall TTrainForm::N4Click(TObject *Sender)

{

TrainUkr->Hide();

TrainRus->Hide();

TrainEng->Hide();

Options->Hide();

Application->MessageBoxA("Натисніть Enter, щоб розпочати тренування"," Увага!",MB_OK);

PTimer->Show(); sec=0; min=0; Timer1->Enabled=true;

Timer2->Enabled=true;

Pravilno->Caption=0; Corect=0;