Разработка программы психотестирования
Категория реферата: Рефераты по информатике, программированию
Теги реферата: решебник по русскому языку, шпаргалки по праву бесплатно
Добавил(а) на сайт: Назар.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата
uses Testfrm;
{$R *.DFM}
procedure tfrmmain.runtest; var f:file of ttest; begin frmmain.hide; assignfile(f,testfilename); try reset(f); except showmessage('Файл теста не найден!'); exit end; testnum:=1; while not eof(f) do begin try read(f,test[testnum]); inc(testnum); except showmessage('Ошибка в файле теста'); frmmain.show; exit end end; closefile(f); frmTest.show; end;
procedure TfrmMain.SpeedButton1Click(Sender: TObject); begin testfilename:='Time.tst'; runtest end;
procedure TfrmMain.SpeedButton2Click(Sender: TObject); begin testfilename:='Agress.tst'; runtest end;
procedure TfrmMain.SpeedButton3Click(Sender: TObject); begin testfilename:='health.tst'; runtest end;
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); begin if messagedlg('Вы действительно хотите выйти?',mtwarning,[mbyes,mbno],0)=mrno then action:=canone end;
end.
unit Testfrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, testtypes;
type
TfrmTest = class(TForm)
Image1: TImage; rb1: TRadioButton; rb2: TRadioButton; rb3: TRadioButton;
Label1: TLabel;
SpeedButton1: TSpeedButton; procedure load; procedure rb1Click(Sender: TObject); procedure rb2Click(Sender: TObject); procedure rb3Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations } public defque:byte; end;
var frmTest: TfrmTest;
implementation
{$R *.DFM}
uses mainfrm, Resfrm;
procedure tfrmtest.load;
begin label1.caption:=test[defque].text; rb1.Caption:=test[defque].quest[1]; rb2.Caption:=test[defque].quest[2]; rb3.Caption:=test[defque].quest[3]; speedbutton1.enabled:=false; rb1.Enabled:=true; rb2.Enabled:=true; rb3.Enabled:=true; rb1.Checked:=false; rb2.Checked:=false; rb3.Checked:=false; if rb3.caption='' then rb3.hide else rb3.Show end;
procedure TfrmTest.FormActivate(Sender: TObject); begin testcount:=0; defque:=1; load end;
procedure TfrmTest.rb1Click(Sender: TObject); begin speedbutton1.Enabled:=true; rb1.Enabled:=false; rb2.Enabled:=false; rb3.Enabled:=false; inc(testcount,test[defque].count[1]) end;
Рекомендуем скачать другие рефераты по теме: реферат слово, шпорі по философии.
Предыдущая страница реферата | 3 4 5 6 7 8 9 10 11 12 13 | Следующая страница реферата