Разработка и внедрение программы обучения работе с клавиатурой

Размещено на http://www.allbest.ru/

Содержание

Введение

1 Разработка эскизного и технического проектов программы

1.1 Задание на курсовую работу по дисциплине "Программирование на языке высокого уровня"

1.2 Назначение и область применения

1.3 Технические характеристики

1.3.1 Постановка задачи

1.3.2 Описание алгоритма

1.3.3 Организация входных и выходных данных

1.3.4 Выбор состава технических и программных средств

2. Разработка рабочего проекта

2.1 Разработка программы

2.2 Спецификация программы

2.3 Текст программы

2.4 Описание программы

2.5 Тестирование программы

3. Внедрение

Список использованных источников

Приложение

Введение

Курсовая работа по программированию на языке высокого уровня написана в Интегрированной среде разработки (ИСР) Delphi, которая предоставляет пользователю формы, где размещаются с помощью мыши необходимые компоненты, имеющиеся в библиотеке Delphi. С помощью простых манипуляций мышью можно изменять размеры и расположение этих компонент. При этом в процессе проектирования можно постоянно видеть результат - изображение формы и расположенных на ней компонентов. А самое главное заключается в том, что во время проектирования формы редактор кода Delphi автоматически генерирует код программы, включая в нее соответствующие фрагменты, описывающие данный компонент. В соответствующих диалоговых окнах можно изменить заданные по умолчанию свойства компонентов и, при необходимости, написать обработчики событий.

Компоненты могут быть визуальными, видимыми при работе приложения, и невизуальными, выполняющим некоторые служебные функции, они отображаются в виде значка в процессе проектирования и не видны при работе приложения.

Borland Delphi 7 Studio может работать в среде операционных систем от Windows 98 до Windows XP.

1 Разработка эскизного и технического проектов программы

1.1 Задание на курсовую работу по дисциплине "Программирование на языке высокого уровня"

Студент группы: ЗИН-709-01 Соловьев Владимир

№ контракт 09700050609006

Тема: Игры.

«Составить программу обучения работе с клавиатурой»

Условие задачи:

Составить программу обучения работе с клавиатурой. Программа должна выдавать на экран буквы, цифры, слова и фразы, которые следует набрать на клавиатуре, и оценивать правильность и скорость набора. В программе предусмотреть три уровня подготовленности обучающегося.

1.2 Назначение и область применения

В данной работе необходимо разработать игру, представляющую собой программу обучения работе с клавиатурой.

Область применения: может быть применена в качестве проведения свободного времени для повышения уровня скорости набора на клавиатуре начинающими пользователями и т. п.

Поскольку ставится задача разработать приложение для Windows, то использоваться программа может под управлением Windows 9х, Windows XP и т. п.

1.3 Технические характеристики

1.3.1 Постановка задачи

В условии задачи необходимо составить программу обучения работе с клавиатурой.

Программа должна выдавать на экран буквы, цифры, слова и фразы, которые следует набрать на клавиатуре, и оценивать правильность и скорость набора.

В программе предусмотреть три уровня подготовленности обучающегося.

Для правильной работы программы необходимо, чтобы данная программа должна быть написана абсолютно правильно с точки зрения синтаксиса.

1.3.2 Описание алгоритма

В программе решаются следующие независимые задачи:

1) ввод данных;

2) проверка на корректность ввода;

3) вывод на экран количества ошибок пользователя;

4) вывод общего количества символов;

5) вывод средней скорости набора;

6) отображение результатов игры.

Задача решается следующим образом:

1) вначале выбирается уровень сложности игры;

2) после этого программа выдает на экран сформированные слова и фразы, а также набор чисел и т. п., а игрок должен воспроизвести данные символы с максимально возможной точностью и скоростью набора. Обобщенный алгоритм представлен на рисунке 1(блок-схема)

Размещено на http://www.allbest.ru/

Рисунок 1 Блок - схема алгоритма

1.3.3 Организация входных и выходных данных

В данной задаче входными данными являются данные, вводимые с клавиатуры компьютера.

Выходными данными является результат работы программы (количество ошибок при вводе и т. п.).

1.3.4 Выбор состава технических и программных средств

При решении данной задачи необходимо использовать интегральную среду разработки программ Delphi.

Это обусловлено тем, что среда Delphi позволяет достаточно быстро разрабатывать приложения для Windows.

Технические характеристики компьютера:

Pentium 3 и выше;

Объем оперативной памяти не менее 256 Мб;

Жесткий диск объемом не менее 2 Гб.

Именно эти параметры создают условия для полноценной работы IDE Delphi 7 и программ, созданных в этой среде.

Дополнительных средств (принтер, сканер, дополнительные дисководы и т. д.) не требуется.

2. Разработка рабочего проекта

2.1 Разработка программы

Данная программа разрабатывалась для функционирования в среде Windows.

Данное приложение для Windows разработано в среде визуального программирования. Визуальное программирование строится на тесном взаимодействии двух процессов:

процесс конструирования Windows-окна;

процесс написания кода, придающего элементам этого окна и программе в целом необходимую функциональность.

В данном приложении проект Windows-окна представлен в виде графической схемы, на которой расположены все визуальные и невизуальные компоненты разрабатываемого интерфейса. Таким образом, для разработки данного приложения используется среда визуального программирования Delphi. Главное окно программы показано на рисунке 2.

Рисунок 2. Окно главной формы

1-компонент Form1

Caption = Программа обучения работе с клавиатурой

2-компонент TPanel

BevelInner = bvLowered

TabOrder = 0

3-компонент TButton

Caption = 'Button1'

TabOrder = 0

Visible = False

OnClick = Button1Click

end

4-компонент TGroupBox1

Caption = ввод

Enabled = False

TabOrder = 1

5-компонент TEdit

TabOrder = 0

OnKeyPress = Edit1KeyPress

end

6 -компонент TGroupBox2

Caption = количество ошибок

TabOrder = 0

7 -компонент TLabel

Alignment = taCenter

BiDiMode = bdLeftToRight

Caption = '0'

ParentBiDiMode = False

WordWrap = True

end

8-компонент TTable1

Active = True

TableName = 'Basa.DBF'

Left = 368

Top = 84

end

9-компонент TQuery1

SQL.Strings = (

'select * '

'from basa'

'where dif=:uroven'

'')

ParamData = <

item

DataType = ftInteger

Name = 'uroven'

ParamType = ptUnknown

Value = 0

end>

end

10-компонент TDataSource1

DataSet = Table1

end

11-компонент TTimer1

Enabled = False

OnTimer = Timer1Timer

end

Ниже на рисунке 3 показано создание меню программы.



Рисунок 3. Окно MainMenu

12- компонент TMainMenu

object N1: TMenuItem

Caption = файл

object N2: TMenuItem

Caption = выход

OnClick = N2Click

end

end

object N3: TMenuItem

Caption = действия

object N4: TMenuItem

Caption=Начать обучение

ShortCut = 116

OnClick = N4Click

end

object N5: TMenuItem

Caption =Закончить обучение

Enabled = False

ShortCut = 117

OnClick = N5Click

end

object N6: TMenuItem

Caption = Справочник

OnClick = N6Click

end

2.2 Спецификация программы

Исполняемый файл программы имеет название Game.exe и расположен на компакт диске в каталоге «5_3_9».

Состав проекта приведен на следующей странице в табл. 1.

Табл.1. Состав проекта

Наименование	Обозначение	Примечание
Game.res	файл ресурсов	Содержит пиктограммы, графические изображения
dict_entr_unit.pas	файл программного модуля	Определяет функциональность формы
dict_unit.pas	файл программного модуля	Определяет функциональность формы
main_unit.pas	файл программного модуля	Определяет функциональность формы
uroven_unit.pas	файл программного модуля	Определяет функциональность формы
Game.exe	Загрузочный файл	Обеспечивает запуск программы
Game.dpr	Файл проекта	Связывает все файлы, из которых состоит приложение
Game.dof	Файл параметров проекта	Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы
dict_entr_unit.dfm	Файл формы	Содержит список свойств всех компонентов, включенных в форму
dict_unit.dfm	Файл формы	Содержит список свойств всех компонентов, включенных в форму
main_unit.dfm	Файл формы	Содержит список свойств всех компонентов
uroven_unit.dfm	Файл формы	Содержит список свойств всех компонентов, включенных в данную форму
dict_entr_unit.dcu	Объектный файл для report_unit.pas	Откомпилированная версия report_unit.pas
dict_unit.dcu	Объектный файл для Place_unit.pas	Откомпилированная версия Place_unit.pas
main_unit.dcu	Объектный файл для main_unit.pas	Откомпилированная версия main_unit.pas
uroven_unit.dcu	Объектный файл для fly_unit.pas	Откомпилированная версия fly_unit.pas

2.3 Текст программы

В данном параграфе приводится полный листинг программы.

unit dict_entr_unit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons;

type

Tdict_entr_form = class(TForm)

Edit1: TEdit;

ComboBox1: TComboBox;

Label1: TLabel;

Label2: TLabel;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure FormResize(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

dict_entr_form: Tdict_entr_form;

flag:Boolean;

implementation

uses main_unit, DB, DBTables;

{$R *.dfm}

procedure Tdict_entr_form.FormResize(Sender: TObject);

begin

BitBtn1.Left:=Width div 2 - BitBtn1.Width-10;

BitBtn2.Left:=Width div 2 + 10;

end;

procedure Tdict_entr_form.BitBtn1Click(Sender: TObject);

begin

If ComboBox1.ItemIndex=-1 then

begin

ComboBox1.SetFocus;

ShowMessage('Введите "Уровень сложности"');

Exit;

end;

If Edit1.Text='' then

begin

Edit1.SetFocus;

ShowMessage('Введите "Фраза"');

Exit;

end;

with main_form.Table1, dict_entr_form do

begin

If flag then Insert else Edit;

FieldValues['dif']:=ComboBox1.ItemIndex;

FieldValues['Value0']:=Edit1.Text;

Post;

ModalResult:=mrOk;

end;

end;

end.

unit dict_unit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, Menus;

type

Tdict_form = class(TForm)

Panel2: TPanel;

Panel3: TPanel;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure N1Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var dict_form: Tdict_form;

implementation

uses main_unit, dict_entr_unit;

{$R *.dfm}

procedure Tdict_form.N1Click(Sender: TObject);

begin

try

dict_entr_form:=Tdict_entr_form.Create(self);

dict_entr_unit.flag:=True;

dict_entr_form.ShowModal;

finally

dict_entr_form.Free

end;

end;

procedure Tdict_form.FormResize(Sender: TObject);

begin

BitBtn1.Left:=Width div 2 - BitBtn1.Width div 2;

end;

procedure Tdict_form.N2Click(Sender: TObject);

begin

try

dict_entr_form:=Tdict_entr_form.Create(self);

dict_entr_unit.flag:= False;

with main_form.Table1, dict_entr_form do

begin

ComboBox1.ItemIndex:=FieldValues['dif'];

Edit1.Text:=FieldValues['Value0'];

end;

dict_entr_form.ShowModal;

finally

dict_entr_form.Free

end;

end;

procedure Tdict_form.N3Click(Sender: TObject);

begin

if MessageDlg('Удалить?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

main_form.Table1.Delete;

end;

end;

end.

unit main_unit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, DB, DBTables, StdCtrls, ExtCtrls, Grids, DBGrids,dateUtils;

type

Tmain_form = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Table1: TTable;

Query1: TQuery;

Button1: TButton;

DataSource1: TDataSource;

Panel1: TPanel;

GroupBox1: TGroupBox;

Edit1: TEdit;

Timer1: TTimer;

Panel2: TPanel;

Label2: TLabel;

Panel3: TPanel;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Label1: TLabel;

Label3: TLabel;

GroupBox4: TGroupBox;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Timer1Timer(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

main_form: Tmain_form;

uroven:Integer;

Flag_begin:Boolean;

Time_begin:TTime;

Error:Integer;

implementation

uses dict_unit, uroven_unit;

{$R *.dfm}

procedure Tmain_form.Button1Click(Sender: TObject);

begin

Self.SetFocus;

with Table1 do begin

Active := False;

DatabaseName := GetCurrentDir;

TableType := ttDBase;

TableName := 'Basa';

if not Table1.Exists then begin

with FieldDefs do begin

Clear;

Add('Dif',ftInteger,0,true);

Add('Value0',ftString,255,true);

end;

with IndexDefs do begin

Clear;

end;

CreateTable;

end;

end;

end;

procedure Tmain_form.N2Click(Sender: TObject);

begin

close;

end;

procedure Tmain_form.FormCloseQuery(Sender: TObject;

var CanClose: Boolean);

begin

if MessageDlg('Выйти?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

CanClose:=True

else

CanClose:=False;

end;

procedure Tmain_form.N6Click(Sender: TObject);

begin

try

dict_form:=Tdict_form.Create(self);

dict_form.ShowModal;

finally

dict_form.Free;

end;

end;

procedure Tmain_form.N4Click(Sender: TObject);

begin uroven:=-1;

try

uroven_form:=Turoven_form.Create(self);

uroven_form.ShowModal;

finally

uroven_form.Free;

end;

If uroven>-1 then

begin

Query1.Close;

Query1.Params.ParamValues['Uroven']:=uroven;

Query1.Open;

If Query1.RecordCount>=0 then

begin

Panel1.Caption:=Query1.Fields[1].AsString;

end;

Time_begin:=Now;

Timer1.Enabled:=True;

Label1.Caption:='0';

Label3.Caption:='0';

Label2.Font.Color:=clBlue;

N5.Enabled:=True; N4.Enabled:=False;

GroupBox1.Enabled:=True;

Edit1.SetFocus;

Label2.Caption:= 'Enter - следующая фраза';

End;

end;

procedure Tmain_form.FormCreate(Sender: TObject);

begin

Flag_begin:=False;

end;

procedure Tmain_form.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then

begin

If not Query1.Eof then

begin

If Edit1.Text<>Panel1.Caption then

begin

ShowMessage('Фраза введена неверно!!!');

Exit;

end;

Query1.Next;

Panel1.Caption:=Query1.Fields[1].AsString;

Edit1.Text:='';

end

else

begin

Label2.Caption:='ВСЕ !!!';

Label2.Font.Color:=clRed;

Timer1.Enabled:=False;

N5.Enabled:=False;

N4.Enabled:=True;

Exit;

end;

end

else

begin

If Panel1.Caption[Length(Edit1.Text)+1]=key then

Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+1)

else

Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);

end;

end;

procedure Tmain_form.Timer1Timer(Sender: TObject);

begin

Panel2.Caption:=TimeToStr(Now-Time_begin);

if (Label4.Caption<>'0') and (SecondsBetween(Time_begin,Now)<>0) then

Lbel3.Caption:=FloatToStrF(StrToInt(Label4.Caption)/SecondsBetween(Time_begin,Now),ffFixed,15,2)

else

Label3.Caption:='0';

end;

procedure Tmain_form.N5Click(Sender: TObject);

begin

Label2.Caption:='ВСЕ !!!';

Label2.Font.Color:=clRed;

Timer1.Enabled:=False;

GroupBox1.Enabled:=False;

N4.Enabled:=True;

N5.Enabled:=False;

end;

end.

unit uroven_unit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

Turoven_form = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure FormResize(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

uroven_form: Turoven_form;

implementation

uses main_unit;

{$R *.dfm}

procedure Turoven_form.FormResize(Sender: TObject);

begin

BitBtn1.Left:=Width div 2 -BitBtn1.Width -5;

BitBtn2.Left:=Width div 2 +5;

end;

procedure Turoven_form.BitBtn1Click(Sender: TObject);

begin

if RadioButton1.Checked then main_unit.uroven:=0;

if RadioButton2.Checked then main_unit.uroven:=1;

if RadioButton3.Checked then main_unit.uroven:=2;

ModalResult:=mrOk;

end;end.

2.4 Описание программы

Условие задачи:

Составить программу обучения работе с клавиатурой. Программа должна выдавать на экран буквы, цифры, слова и фразы, которые следует набрать на клавиатуре, и оценивать правильность и скорость набора. В программе предусмотреть три уровня подготовленности обучающегося.

Область применения: программа может быть применена при обучении работе на клавиатуре и т. п.

Поскольку ставится задача разработать приложение для Windows, то использоваться программа может под управлением Windows 9х, Windows XP и т. п.

В данной задаче входными данными являются уровень сложности - число; строки символов из базы данных; данные, вводимые с клавиатуры компьютера.

Выходными данными является результат работы программы: количество ошибок при вводе фразы, количество символов, скорость набора, время и т. п.).

При решении данной задачи необходимо использовать интегральную среду разработки программ Delphi, так как среда Delphi позволяет достаточно быстро разрабатывать приложения для Windows.

Технические характеристики компьютера:

Pentium 3 и выше;

Объем оперативной памяти не менее 256 Мб;

Жесткий диск объемом не менее 10 Гб.

Именно эти параметры создают условия для полноценной работы IDE Delphi 7 и программ, созданных в этой среде.

Дополнительных средств (принтер, сканер, дополнительные дисководы и т. д.) не требуется.

2.5 Тестирование программы

Данное приложение выполняет несколько заданий:

1) ввод данных;

2) проверка на корректность ввода;

3) вывод на экран количества ошибок пользователя;

4) вывод общего количества символов;

5) вывод средней скорости набора;

6) отображение результатов игры.

3. Внедрение

Для работы данного приложения требуется: Pentium 3 и выше; объем оперативной памяти не менее 256 Мб; жесткий диск объемом не менее 10 Гб. Дополнительных средств (принтер, сканер, дополнительные дисководы и т. д.) не требуется. В процессе выполнения программы оператору необходимо сделать следующие действия:

В самом начале необходимо запустить приложение, активизировав файл Game.exe, находящийся на компакт диске (…/5_3_9/Game.exe).

На рисунке 4 отображено главное окно программы

Рисунок 4 Главное окно программы

игра программа клавиатура оператор

В программе предусмотрен:

1) ввод данных;

2) проверка на корректность ввода;

3) вывод на экран количества ошибок пользователя;

4) вывод общего количества символов;

5) вывод средней скорости набора;

6) отображение результатов игры.

Для того чтобы начать работу с программой необходимо выбрать кнопку «Начать обучение» в меню «Действия» или нажав кнопку F5.

После этого на экране появится окно выбора уровня сложности игры (рис.5).

Рисунок 5. Выбор уровня сложности игры

После выбора пользователем необходимого уровня сложности необходимо нажать кнопку Выбрать для начала игры либо отмена для прекращения игры.

После того, как нажата кнопка выбрать, программа выдает на экран различные символы и т. п., а пользователю необходимо вводить данные с максимальным уровнем безошибочности и максимальной скоростью.

На экране также отображается информация о количестве ошибок, о количестве символов и о средней скорости набора (рисунок 6).

Рисунок 6 Сообщение: количество ошибок, колич. символов, средняя скорость набора

Список использованных источников

1. Delphi: быстрый старт. - СПб.: БХВ - Петербург, 2002. - 288 с.: ил.

2. Turbo Pascal / С.А. Немнюгин. - СПб: Издательство «Питер», 2000. - 496 с.: ил.

3. Александровский А.Д. Delphi 5.0. Разработка корпоративных приложений. - М.: ДМК, 2004. - 512 с.: ил. (Серия «Для программистов»).

4. Бобровский С. DEIPhI 7:Учебный курс СПб:Издательство «Питер»,2005.

5. Власов А.Я. Справочник по программированию на Object Pascal. Киев, 2001г.

6. Изучаем Delphi. - СПб.: Питер, 2000. - 352 с.: ил.

7. Культин Н. Програмирование на Object Pascal. Киев, 2005.

8. Культин Н.Б. Delphi 6. Программирование на Object Pascal. -СПб.: БХВ-Петербург, 2003.

9. Турбо Паскаль 7.0 Начальный курс/Фаронов В/мп/2007/576с

10. Фаронов В.В. Delphi 6. Учебный курс. М.: Издатель Молгачева С.В., 2003.

Приложение

Окно таблицы базы данных

Размещено на Allbest.ru