Контрольная работа: Розробка програмного продукту "Тестер"

end ;

end ;

end ;

closefile(f);

MINUTE:=((18*15) div 60)+1;

Time:=MINUTE*60*1000;

end ;

end .

// модуль головної форми

unit Main;

interface

uses

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

Dialogs, Menus, ArrayM, StdCtrls, ExtCtrls, ComCtrls;

Type

TStatus=(tsActiv,tsNotActiv);

TForm1 = class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

AboutProc: TMenuItem;

StartTest: TMenuItem;

N5: TMenuItem;

CloseTest: TMenuItem;

Panel1: TPanel;

RadioGroup1: TRadioGroup;

Button1: TButton;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;