Вход

Пункт 9 в прилож. теме(Информатика)

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 350289
Дата создания 06 июля 2013
Страниц 45
Мы сможем обработать ваш заказ (!) 29 марта в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 310руб.
КУПИТЬ

Содержание

Введение
Глава 1. Аналитическая часть
1.1 Описание Delphi
1.2 Целевая платформа
1.3 История языка
Глава 2. Разработка программы
Листинг программы
Заключение
Приложение 1 Интерфейс программы
Глоссарий
Список использованных источников

Введение

Пункт 9 в прилож. теме(Информатика)

Фрагмент работы для ознакомления

FormTraining: TFormTraining;
implementation
{$R *.dfm}
var ALetters : Array of char; //Массив букв
AWords : Array of String; //Массив слов
AOffers : Array of String; //Массив фраз
typeTest,right,wrong,curcnt : integer;
isTesting : boolean;
const LETTERS = 1;
WORDS = 2;
OFFERS = 3;
//Тест набора символов
procedure TFormTraining.TestLetters(Level : integer);
var i : integer;
begin
//сброс счетчиков
curcnt := 0;
right := 0;
wrong := 0;
TextInput.SetFocus;
typeTest := LETTERS;
Randomize;
i := Random(Length(ALetters));
TestText.Caption := ALetters[i];
TextInput.Text := '';
//установка таймера
case Level of
1: begin
Timer1.Interval := time1Letters;
end;
2: begin
Timer1.Interval := time2Letters;
end;
3: begin
Timer1.Interval := time3Letters;
end;
end;
//запуск таймера
Timer1.Enabled := true;
end;
//Тест набора слов
procedure TFormTraining.TestWords(Level : integer);
var i : integer;
begin
//сброс счетчиков
curcnt := 0;
right := 0;
wrong := 0;
TextInput.SetFocus;
typeTest := WORDS;
Randomize;
i := Random(Length(AWords));
TestText.Caption := AWords[i];
TextInput.Text := '';
//установка таймера
case Level of
1: begin
Timer1.Interval := time1Words;
end;
2: begin
Timer1.Interval := time2Words;
end;
3: begin
Timer1.Interval := time3Words;
end;
end;
//запуск таймера
Timer1.Enabled := true;
end;
//Тест набора предложений
procedure TFormTraining.TestOffers(Level : integer);
var i : integer;
begin
//сброс счетчиков
curcnt := 0;
right := 0;
wrong := 0;
TextInput.SetFocus;
typeTest := OFFERS;
Randomize;
i := Random(Length(AOffers));
TestText.Caption := AOffers[i];
TextInput.Text := '';
//установка таймера
case Level of
1: begin
Timer1.Interval := time1Offers;
end;
2: begin
Timer1.Interval := time2Offers;
end;
3: begin
Timer1.Interval := time3Offers;
end;
end;
//запуск таймера
Timer1.Enabled := true;
end;
//закрыть форму
procedure TFormTraining.ButCloseClick(Sender: TObject);
begin
FormTraining.Close;
end;
//загрузка формы
procedure TFormTraining.FormShow(Sender: TObject);
var ch : char;
i : integer;
f : System.Text;
s : String;
confFile : TIniFile;
begin
//Загрузка алфавита
i := 1;
for ch := 'a' to 'z' do
begin
SetLength(ALetters,i);
ALetters[i-1] := ch;
Inc(i);
end;
i := Length(ALetters)+1;
for ch := 'A' to 'Z' do
begin
SetLength(ALetters,i);
ALetters[i-1] := ch;
Inc(i);
end;
{
i := Length(ALetters)+1;
for ch := 'а' to 'я' do
begin
SetLength(ALetters,i);
ALetters[i-1] := ch;
Inc(i);
end;
i := Length(ALetters)+1;
for ch := 'А' to 'Я' do
begin
SetLength(ALetters,i);
ALetters[i-1] := ch;
Inc(i);
end;
}
//Загрузка слов
AssignFile(f,'words.txt');
Reset(f);
i := 1;
while not eof(f) do
begin
readln(f,s);
SetLength(AWords,i);
AWords[i-1] := s;
Inc(i);
end;
CloseFile(f);
//Загрузка предложений
AssignFile(f,'offers.txt');
Reset(f);
i := 1;
while not eof(f) do
begin
readln(f,s);
SetLength(AOffers,i);
AOffers[i-1] := s;
Inc(i);
end;
CloseFile(f);
ConfFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'prog.ini');
//Загрузка кол-ва повторений
cnt := confFile.ReadInteger('COUNT','cnt',10);
//Загрузка таймеров
//Уровень 1
time1Letters := confFile.ReadInteger('LEVEL1','time1',3000);
time1Words := confFile.ReadInteger('LEVEL1','time2',10000);
time1Offers := confFile.ReadInteger('LEVEL1','time3',20000);
//Уровень 2
time2Letters := confFile.ReadInteger('LEVEL2','time1',2000);
time2Words := confFile.ReadInteger('LEVEL2','time2',7000);
time2Offers := confFile.ReadInteger('LEVEL2','time3',15000);
//Уровень 3
time3Letters := confFile.ReadInteger('LEVEL3','time1',1000);
time3Words := confFile.ReadInteger('LEVEL3','time2',5000);
time3Offers := confFile.ReadInteger('LEVEL3','time3',10000);
ConfFile.Free;
end;
//запуск теста
procedure TFormTraining.ButStartClick(Sender: TObject);
begin
TestLetters(Level);
end;
//обработка срабатывания таймера
procedure TFormTraining.Timer1Timer(Sender: TObject);
var s : string;
i,proc : integer;
begin
if curcnt >= cnt then //проверка на кол-во повторных вводов
begin
Timer1.Enabled := false;
if curcnt = 0 then proc := 0 else proc := Round(100*right/curcnt);
//вывод окна с результатом
ShowMessage(' Правильных нажатий: ' + IntToStr(right) + #10#13 +
' Неправильных: ' + IntToStr(wrong) + #10#13 +
' Процент правильных: ' + IntToStr(proc) + ' %');
if (typeTest = LETTERS) then
TestWords(Level) //вызов следующего теста
else if (typeTest = WORDS) then
TestOffers(Level); //вызов следующего теста
end
else
begin
//обработка счетчиков
s := TextInput.Text;
Inc(curcnt);
if s = TestText.Caption then
Inc(right)
else Inc(wrong);
//вывод текста для проверки
case typeTest of
LETTERS:
begin
Randomize;
i := Random(Length(ALetters));
TestText.Caption := ALetters[i];
TextInput.Text := '';
end;
WORDS:
begin
Randomize;
i := Random(Length(AWords));
TestText.Caption := AWords[i];
TextInput.Text := '';
end;
OFFERS:
begin
Randomize;
i := Random(Length(AOffers));
TestText.Caption := AOffers[i];
TextInput.Text := '';
end;
end;
end;
end;
//остановка теста
procedure TFormTraining.ButStopClick(Sender: TObject);
var proc : integer;
begin
Timer1.Enabled := False;
if curcnt = 0 then
proc := 0
else
proc := Round(100*right/curcnt);
//вывод результатов

Список литературы

1.Архангельский А. Я. «Delphi 2006. Справочное пособие. Язык Delphi, классы, функции Win32 и .NET», Бином-Пресс, 2006 г.
2.Архангельский А. Я. «Программирование в Delphi. Учебник по классическим версиям», Бином-Пресс, 2008 г.
3.Бакнелл Дж. «Фундаментальные алгоритмы и структуры данных в Delphi», Питер, 2006 г.
4.Глушаков С. В., Клевцов А. Л. «Delphi 2007. Самоучитель», АСТ Москва, 2008 г.
5.Кадлец В. «Delphi. Книга рецептов. Практические примеры, трюки и секреты», Наука и техника, 2006 г.
6.Кэнту М. «Delphi 2005. Для профессионалов», Питер, 2006 г.
7.Марков Е. «Delphi 2005 для Win32», БХВ-Петербург, 2005 г.
8.Осипов Д. «Delphi. Профессиональное программирование», Символ-Плюс, 2006 г.
9.Фаронов В. «Delphi 2005. Язык, среда, разработка приложений», Питер, 2007 г.
10.Фаронов В. «Delphi 2005.Руководство по переходу с младших версий», Питер, 2006 г.
11.Хомоненко А. «Delphi 7», БХВ-Петербург, 2005
Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00412
© Рефератбанк, 2002 - 2024