Задача: Клавиатурный тренажёр.

[vitamin.rulez]

Сообщение от Nanochka

Могу помочь с клавиатурным тренажором! я в прошлом году его делала, сдала на 5! есть и код проги и сама прога, но ПОМОГИТЕ с КРИПТОСИТЕМОЙ ЭЛЬ-ГАМАЛЯ!!!!

Поделись пжл, я бы тебе помог но я незнаю такого)

[Zeraim]

OnKeyPress - в нём читай какую кнопку нажали и сравнивай с тем что написано в твоём мемо. Тока не забудь поставить KeyPreview = true иначе не будет работать.

[Nanochka]

unit USimulator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, StdCtrls, ExtCtrls, Math, ToolWin, ComCtrls;

type
  Tsimulator = class(TForm)
    MainMenu1: TMainMenu;
    MenuFile: TMenuItem;
    MenuHelp: TMenuItem;
    HelpAbout: TMenuItem;
    Timer1: TTimer;
    Panel1: TPanel;
    Label3: TLabel;
    Panel2: TPanel;
    Label1: TLabel;
    Start: TMenuItem;
    Label2: TLabel;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    Stop: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    N2: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure HelpAboutClick(Sender: TObject);
    procedure StartClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  simulator: Tsimulator;
  t,k,g:integer;
  Hour, Min, Sec, MSec :Word;
  Hour1, Min1, Sec1, MSec1 :Word;
  MYKEY:Char;
implementation

uses UAbout;

{$R *.dfm}

procedure Tsimulator.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := t;
end;

procedure Tsimulator.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=label3.Caption then
  begin
    label1.caption:='ok';
    Randomize;
    k:=RandomRange(192, 255);
    MYKEY:=Chr((k));
    label3.Caption:=MYKEY;
    Label2.Caption:=Label2.Caption+Key;
  end
else
  begin
    label1.caption:='ошибка ';
    Label1.Caption:=Label1.Caption+Key;
    g:=g+1;
    label5.caption:=IntToStr(g);
  end;
end;

procedure Tsimulator.HelpAboutClick(Sender: TObject);
begin
   AboutBox.ShowModal;
end;

procedure Tsimulator.StartClick(Sender: TObject);
var Present : TDateTime;
begin
   Present:= Now;
   DecodeTime(Present, Hour, Min, Sec, MSec);
  Timer1.Enabled:=false;
  Randomize;
  k:=RandomRange(192, 255);
  MYKEY:=Chr((k));
  label3.Caption:=MYKEY;
end;

procedure Tsimulator.StopClick(Sender: TObject);
 var
   Present : TDateTime;
begin
   Present:= Now;
   DecodeTime(Present, Hour1, Min1, Sec1, MSec1);
   ShowMessage('Тренировка окончена' );
   label4.Caption:='Время: Часы '+ IntToStr(Hour1-Hour)+'   Минуты '+ IntToStr(Min1-Min) +'  Секунды '+ IntToStr(Sec1-Sec);
end;

end.

[vitamin.rulez]

Сообщение от Nanochka

unit USimulator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, StdCtrls, ExtCtrls, Math, ToolWin, ComCtrls;

type
  Tsimulator = class(TForm)
    MainMenu1: TMainMenu;
    MenuFile: TMenuItem;
    MenuHelp: TMenuItem;
    HelpAbout: TMenuItem;
    Timer1: TTimer;
    Panel1: TPanel;
    Label3: TLabel;
    Panel2: TPanel;
    Label1: TLabel;
    Start: TMenuItem;
    Label2: TLabel;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    Stop: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    N2: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure HelpAboutClick(Sender: TObject);
    procedure StartClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  simulator: Tsimulator;
  t,k,g:integer;
  Hour, Min, Sec, MSec :Word;
  Hour1, Min1, Sec1, MSec1 :Word;
  MYKEY:Char;
implementation

uses UAbout;

{$R *.dfm}

procedure Tsimulator.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := t;
end;

procedure Tsimulator.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=label3.Caption then
  begin
    label1.caption:='ok';
    Randomize;
    k:=RandomRange(192, 255);
    MYKEY:=Chr((k));
    label3.Caption:=MYKEY;
    Label2.Caption:=Label2.Caption+Key;
  end
else
  begin
    label1.caption:='ошибка ';
    Label1.Caption:=Label1.Caption+Key;
    g:=g+1;
    label5.caption:=IntToStr(g);
  end;
end;

procedure Tsimulator.HelpAboutClick(Sender: TObject);
begin
   AboutBox.ShowModal;
end;

procedure Tsimulator.StartClick(Sender: TObject);
var Present : TDateTime;
begin
   Present:= Now;
   DecodeTime(Present, Hour, Min, Sec, MSec);
  Timer1.Enabled:=false;
  Randomize;
  k:=RandomRange(192, 255);
  MYKEY:=Chr((k));
  label3.Caption:=MYKEY;
end;

procedure Tsimulator.StopClick(Sender: TObject);
 var
   Present : TDateTime;
begin
   Present:= Now;
   DecodeTime(Present, Hour1, Min1, Sec1, MSec1);
   ShowMessage('Тренировка окончена' );
   label4.Caption:='Время: Часы '+ IntToStr(Hour1-Hour)+'   Минуты '+ IntToStr(Min1-Min) +'  Секунды '+ IntToStr(Sec1-Sec);
end;

end.

Спасибо большое!!!