Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12

Gauge1: TGauge;

MainMenu1: TMainMenu;

File1: TMenuItem;

Save1: TMenuItem; exit1: TMenuItem;

Help2: TMenuItem;

About1: TMenuItem;

Contents1: TMenuItem;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

N1: TMenuItem;

Timer1: TTimer;

Label2: TLabel; procedure FormActivate(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure SelectorClick(Sender: TObject);

Продолжение приложения 1 procedure About1Click(Sender: TObject); procedure Save1Click(Sender: TObject); procedure Contents1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var
Form1: TForm1; x:Real; implementation uses Unit2, Unit3; const
N_ANSWERS=4;
N_LEVEL=4; var answer: array[1..N_ANSWERS] of Tlabel; //альтернативные ответы selector: array[1..N_ANSWERS+1] of TRadioButton;// кнопки выбора ответа f:TextFile; fn:string; // имя файла вопросов level:array[1..N_LEVEL] of integer;// сумма, соотв. уровню mes:array[1..N_LEVEL] of string; // сообщение, соотв. уровню score:array[1..N_ANSWERS] of integer; // очки за выбор ответа summa:integer; // набрано очков vopros:integer; // номер текущего вопроса otv:integer; // номер выбранного ответа
// установка формы в исходное состояние

Продолжение приложения 1
Procedure ResetForm(frm:Tform1); var i:integer; begin form1.label2.visible:=false; form1.Save1.Visible:=false; form1.Gauge1.Visible:=false;
Form1.Memo1.Visible:=false; for i:=1 to N_ANSWERS do begin answer[i].width:=frm.ClientWidth-answer[i].left-5; answer[i].Visible:=false; selector[i].Visible:=false; end; frm.Label5.width:=frm.ClientWidth-frm.Label5.left-5; frm.Image1.Visible:=false; end;
// Определение достигнутого уровня procedure Itog(summa:integer;frm:TForm1); var i:integer; buf:string; begin

Form1.label2.visible:=true; form1.Save1.Visible:=true;

Form1.Gauge1.Visible:=true;

Form1.Label5.font.size:=11; buf:=''; str(summa:5,buf);

Продолжение приложения 1 buf:='Результаты вашего тестирования'+chr(13)+'Вы ответили правильно на:'+buf+' из 10 вопросов'; i:=1; while (summa < level[i]) and (iForm1.Image1.Picture.Width then scaleX:=1 else scaleX:=w/Form1.Image1.Picture.Width; if h>Form1.Image1.Picture.Height then scaleY:=1 else scaleY:=h/Form1.Image1.Picture.Height; if scaleY

Скачали данный реферат: Привалов, Устиния, Rabinovich, Сысоев, Ермолаев, Рогачёв, Ия.
Последние просмотренные рефераты на тему: реферат ссср, как сделать шпору, конспект лекций, классификация реферат.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12

Поделитесь этой записью или добавьте в закладки