Курсовая работа: Составить программу обучения работе с клавиатурой
Таблица 2
| Наименование | Обозначение | Примечание |
| pezataite.dof | Файл параметров проекта | Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы |
| pezataite.dpr | Файл проекта | Связывает все файлы, из которых состоит приложение |
| pezataite.cfg | Файл, содержащий настройки проекта | Содержит информацию о том, какие окна открыты и в каких позициях они расположены. |
| pezataite.res | Файл ресурсов | Содержит пиктограммы, графические изображения |
| Unit1.pas | Файл программного модуля для формы Form1 | Определяет функциональность формы Form1 |
| Unit1.dfm | Файл формы Form1 | Содержит список свойств всех компонентов, включённых в форму Form1 |
| Unit1.dcu | Объектный файл для Unit1.pas | Откомпилированная версия Unit1.pas |
| fonovi.bmp budilnik.bmp | Файлы рисунков программы | Загружаются во время работы программы |
2.4 Текст программы
Текст программы для формы – Form1[2] :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel; // для вывода случайно сгенерированных слов
Edit1: TEdit; // для ввода текста с клавиатуры
Button1: TButton; // завершение работы с программой
Label2: TLabel; // вывод количества правильно набранных слов
MainMenu1: TMainMenu; // меню работы программы на время
N1: TMenuItem; // выпадающий список
Timer1: TTimer; // временной таймер
N2: TMenuItem; // тест на время для новичков
N3: TMenuItem; // тест на время – средняя скорость
N4: TMenuItem; // тест на время для профессионалов
Button2: TButton; // сброс значений
Label3: TLabel; // комментарий
Panel1: TPanel; // контейнер
Image1: TImage; // окно для загрузки картинок
Panel2: TPanel; // контейнер
Label4: TLabel; // вывод отсчета обратного времени
Timer2: TTimer;
// при появлении формы выводится случайно сгенерированное слово
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObect); // обр. кнопки "завершить"