Автор работы: Пользователь скрыл имя, 06 Января 2014 в 06:04, курсовая работа
В ходе работы была создана программа позволяющая научиться «слепому» методу набора текста. По истечении разработки поставленной задачи, на мой взгляд, все поставленные цели были достигнуты. Программа имеет интуитивно понятный интерфейс и обширную область применения
Введение 3
I. Язык программирования Delphi 4
1.1. Описание среды языка Delphi. 4
2.1. Описание тренажера. 8
2.1.1 Минимальные технические требования. 9
2.1.2 Инструкция пользователю. 10
2.2.4 Аналоги программы 11
Заключение. 13
Список литературы 14
Приложение 16
up:=press-1;
if press >=4 then //если допущено 4 ошибки
begin
showmessage('Вы допустили
form1.N4.Click;
press:=0;
up:=press;
end;
end;
end;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
showmessage('Автор: Жунусова Асем, КРиС.');
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
up:=up+1;
n4.Checked:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label2.Caption:=timetostr(now)
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Showmessage('Программа
end;
procedure TForm1.N4Click(Sender: TObject);
var f1:textfile;
begin
i:=1;
label11.Caption:='0';
label10.Visible:=true;
procent:=0;
e:=0;
f:=0;
Opendialog1.filter:='текстовые файлы *.txt';
opendialog1.Execute;
if fileexists(opendialog1.
begin
j:=0;
button2.Click;
image2.Canvas.MoveTo(15,113);
osx:=15;
osy:=113;
label1.Caption:='0 %';
x:=0;
setlength(stroka,i);
assignfile(f1,opendialog1.
reset(f1);
read(f1,stroka);
closefile(f1);
image1.Canvas.Font.Height:=40;
image1.Canvas.Font.Name:='MS Referense Sans Serif';
image1.Canvas.Font.Color:=
Image1.Canvas.Rectangle(0,0,
image1.Canvas.TextOut(187,5,
label3.caption:=' ';
label6.caption:=' ';
press:=0;
label9.Caption:=inttostr(
obsk:=0;
label6.Caption:=floattostr(
label3.Caption:=floattostr(x)+
for i:=1 to length (stroka) do
begin
e:=e+1;
end;
e:= 100/e;
i:=1;
button1.Click;
end
else
showmessage('Файл не найден!!');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
image2.Canvas.Font.Color:=
image2.Canvas.Brush.Color:=
image2.Canvas.Rectangle(0,0,
image2.Canvas.TextOut(15,2,'-0 c. -- 10 c. -- 20 с. -- 30 c. -- 40 с. -- 50 c. -- 60 с. -- 70 c. -- 80 с. -- 90 c. -- 100 с.');
image2.Canvas.Font.Color:=
image2.Canvas.TextOut(2,5,'с')
image2.Canvas.TextOut(2,16,'к'
image2.Canvas.TextOut(2,27,'о'
image2.Canvas.TextOut(2,38,'р'
image2.Canvas.TextOut(2,51,'о'
image2.Canvas.TextOut(2,62,'с'
image2.Canvas.TextOut(2,73,'т'
image2.Canvas.TextOut(2,84,'ь'
image2.Canvas.TextOut(420,10,'
image2.Canvas.TextOut(420,25,'
image2.Canvas.TextOut(420,40,'
image2.Canvas.TextOut(420,55,'
image2.Canvas.TextOut(420,70,'
image2.Canvas.TextOut(420,85,'
image2.Canvas.TextOut(420,100,
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
shape1.Width:=35;
if (stroka[i]='`') or (stroka[i]='ё') then
begin
shape1.Left:=2;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='1') then
begin
shape1.Left:=38;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='2') then
begin
shape1.Left:=72;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='3') then
begin
shape1.Left:=104;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='4') then
begin
shape1.Left:=140;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='5') then
begin
shape1.Left:=174;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='6') then
begin
shape1.Left:=208;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='7') then
begin
shape1.Left:=242;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='8') then
begin
shape1.Left:=274;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='9') then
begin
shape1.Left:=310;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='0') then
begin
shape1.Left:=345;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='-') then
begin
shape1.Left:=379;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='=') then
begin
shape1.Left:=413;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='\') then
begin
shape1.Left:=446;
shape1.Top:=258;
colshape:=1;
end;
if (stroka[i]='q') or (stroka[i]='й') then
begin
shape1.Left:=54;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='w') or (stroka[i]='ц') then
begin
shape1.Left:=88;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='у') or (stroka[i]='e') then
begin
shape1.Left:=122;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='r') or (stroka[i]='к') then
begin
shape1.Left:=156;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='е') or (stroka[i]='t') then
begin
shape1.Left:=190;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='y') or (stroka[i]='н') then
begin
shape1.Left:=224;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='г') or (stroka[i]='u') then
begin
shape1.Left:=258;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='i') or (stroka[i]='ш') then
begin
shape1.Left:=292;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='щ') or (stroka[i]='o') then
begin
shape1.Left:=326;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='p') or (stroka[i]='з') then
begin
shape1.Left:=360;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='х') or (stroka[i]='[') then
begin
shape1.Left:=394;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]=']') or (stroka[i]='ъ') then
begin
shape1.Left:=428;
shape1.Top:=293;
colshape:=1;
end;
if (stroka[i]='ф') or (stroka[i]='a') then
begin
shape1.Left:=70;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='s') or (stroka[i]='ы') then
begin
shape1.Left:=104;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='в') or (stroka[i]='f') then
begin
shape1.Left:=138;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='а') or (stroka[i]='f') then
begin
shape1.Left:=172;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='g') or (stroka[i]='п') then
begin
shape1.Left:=206;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='р') or (stroka[i]='h') then
begin
shape1.Left:=240;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='j') or (stroka[i]='о') then
begin
shape1.Left:=274;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='л') or (stroka[i]='k') then
begin
shape1.Left:=308;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='l') or (stroka[i]='д') then
begin
shape1.Left:=342;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='ж') or (stroka[i]=';') then
begin
shape1.Left:=376;
shape1.Top:=328;
colshape:=1;
end;
if stroka[i]='э' then
begin
shape1.Left:=410;
shape1.Top:=328;
colshape:=1;
end;
if (stroka[i]='я') or (stroka[i]='z') then
begin
shape1.Left:=86;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='x') or (stroka[i]='ч') then
begin
shape1.Left:=120;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='с') or (stroka[i]='c') then
begin
shape1.Left:=154;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='v') or (stroka[i]='м') then
begin
shape1.Left:=188;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='и') or (stroka[i]='b') then
begin
shape1.Left:=222;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='n') or (stroka[i]='т') then
begin
shape1.Left:=256;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='ь') or (stroka[i]='m') then
begin
shape1.Left:=290;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]=',') or (stroka[i]='б') then
begin
shape1.Left:=324;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='ю') or (stroka[i]='.') then
begin
shape1.Left:=358;
shape1.Top:=364;
colshape:=1;
end;
if (stroka[i]='/') or (stroka[i]='.') then
begin
shape1.Left:=392;
shape1.Top:=364;
colshape:=1;
end;
if stroka[i]=' ' then
begin
shape1.Left:=136;
shape1.Top:=398;
shape1.height:=35;
shape1.width:=241;
colshape:=1;
end;
if colshape=1 then
begin
shape1.Visible:=true;
end;
colshape:=0;
end;
procedure TForm1.N11Click(Sender: TObject);
var f1:textfile;
begin
i:=1;
label11.Caption:='0';
label10.Visible:=true;
procent:=0;
e:=0;
f:=0;
if fileexists('Задание 1.txt')=true then
begin
j:=0;
button2.Click;
image2.Canvas.MoveTo(15,113);
osx:=15;
osy:=113;
label1.Caption:='0 %';
x:=0;
setlength(stroka,i);
assignfile(f1,'Задание 1.txt');
reset(f1);
read(f1,stroka);
closefile(f1);
image1.Canvas.Font.Height:=40;
image1.Canvas.Font.Name:='MS Referense Sans Serif';
image1.Canvas.Font.Color:=
Image1.Canvas.Rectangle(0,0,
image1.Canvas.TextOut(187,5,
label3.caption:=' ';
label6.caption:=' ';
press:=0;
label9.Caption:=inttostr(
obsk:=0;
label6.Caption:=floattostr(
label3.Caption:=floattostr(x)+
for i:=1 to length (stroka) do
begin
e:=e+1;
end;
e:= 100/e;
i:=1;
button1.Click;
end
else
showmessage('Файл не найден!!');
end;
procedure TForm1.N21Click(Sender: TObject);
var f1:textfile;
begin
i:=1;
label11.Caption:='0';
label10.Visible:=true;
procent:=0;
e:=0;
f:=0;
if fileexists('Задание 2.txt')=true then
begin
j:=0;
button2.Click;
image2.Canvas.MoveTo(15,113);
osx:=15;
osy:=113;
label1.Caption:='0 %';
x:=0;
setlength(stroka,i);
assignfile(f1,'Задание 2.txt');
reset(f1);
read(f1,stroka);
closefile(f1);
image1.Canvas.Font.Height:=40;
image1.Canvas.Font.Name:='MS Referense Sans Serif';
image1.Canvas.Font.Color:=
Image1.Canvas.Rectangle(0,0,
image1.Canvas.TextOut(187,5,
label3.caption:=' ';
label6.caption:=' ';
press:=0;
label9.Caption:=inttostr(
obsk:=0;
label6.Caption:=floattostr(
label3.Caption:=floattostr(x)+
for i:=1 to length (stroka) do
begin
e:=e+1;
end;
e:= 100/e;
i:=1;
button1.Click;
end
else
showmessage('Файл не найден!!');
end;
procedure TForm1.N31Click(Sender: TObject);
var f1:textfile;
begin
i:=1;
label11.Caption:='0';
label10.Visible:=true;
procent:=0;
e:=0;
f:=0;
if fileexists('Задание 3.txt')=true then
begin
j:=0;
button2.Click;
image2.Canvas.MoveTo(15,113);
osx:=15;
osy:=113;
label1.Caption:='0 %';
x:=0;
setlength(stroka,i);
assignfile(f1,'Задание 3.txt');
reset(f1);
read(f1,stroka);
closefile(f1);
image1.Canvas.Font.Height:=40;
image1.Canvas.Font.Name:='MS Referense Sans Serif';
image1.Canvas.Font.Color:=
Image1.Canvas.Rectangle(0,0,
image1.Canvas.TextOut(187,5,
label3.caption:=' ';
label6.caption:=' ';
press:=0;
label9.Caption:=inttostr(
obsk:=0;
label6.Caption:=floattostr(
label3.Caption:=floattostr(x)+
for i:=1 to length (stroka) do
begin
e:=e+1;
end;
e:= 100/e;
i:=1;
button1.Click;
end
else
showmessage('Файл не найден!!');
end;
end.
г.Семей 20__г.