Тесты в делфи

[Олег_Михайлович]

Ребят кто может помочь по программе Тесты

[Serge_Bliznykov]

Сообщение от Олег_Михайлович

Ребят кто может помочь по программе Тесты

Ну, тот, например, кто по этой фразе поймёт, что Вам нужно, какая помощь Вам нужна и что у Вас не получается!

p.s. Вы всерьёз ожидаете, что по одному скудном предложению Вам окажут реальную конкретную помощь?!

p.p.s. если речь идёт о создании системы тестирования учащихся на Delphi - то начните с поиска - подобные темы на форуме уже были!

[Олег_Михайлович]

Только что юзал ни чё не нашел
Ну мне надо предоставить программу Тестирование.
редактор теста у меня код есть всё сохраняется в файл.
Второй код (ищет файл и открывает нужный тест)это само тестирование уже, но там то одни ошибки мучают то ещё что то.. я могу скинуть код, если кто сможет помочь

[Serge_Bliznykov]

но там то одни ошибки мучают то ещё что то.. я могу скинуть код, если кто сможет помочь

погодите, так если у Вас есть код, который работает,но с ошибками??!!
НУ там выкладывайте его (исходный код проекта в архиве) сюда, на форум, Вам обязательно помогут!



p.s. А почему Вы сразу код не выложили?! или Вы хотите с кем-то конкретным из форумчан договориться, чтобы не выкладывать исходный код на форум?!

[Олег_Михайлович]

хорошо.
код сейчас выложу,
1.первый это для создание теста там всё работает
2.код. Там две формы. первый как бы титульник для выбора теста, вторая форма это прохождение теста.

вообщем нужна помощь ваша - программистов:-)


1 код
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, Buttons;

type TTEST = record
Text :string[251]; //Òåêñò âîïðîñà
Otv :Array [1..4] of String [40]; //Ïðàâèëüíûé îòâåò
Rez :Array [1..4] of Byte //Ïðàâèëüíûé îòâåò
end;


TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button1: TButton;
Button2: TButton;
Button3: TButton;
SpinEdit1: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;
Const Kol = 30;//ìàêñèìàëüíîå êîëè÷åñòâî âîïðîñîâ
var
Form1: TForm1;
TEST_: Array [1..Kol] of TTEST; //ìàññèâ Òåñòà
FFile: File of TTEST; //Îïèñàíèå ôàéëà
STEP,STEP_N:integer;
implementation

{$R *.dfm}





procedure TForm1.FormCreate(Sender: TObject);
var
Pos,k,i:integer;
STROK:TTEST;
begin
STEP:=1;
k:=2;
For i:=1 to KOL do
begin
TEST_[I].Text:='';
for K:=1 to 4 do
begin
TEST_[I].Otv[K]:='';
TEST_[I].Rez[K]:=0;
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:byte;
STROK:TTEST;
begin
AssignFile(FFILE, 'TEST.tst');
Rewrite(FFILE);
Button1.Enabled:=False;
Button2.Enabled:=false;
Button3.Enabled:=false;

for i:=1 to STEP_N+1 do
begin
STROK:=TEST_[i];
Write(FFILE, STROK);
end;
CloseFile(FFILE)
end;

procedure TForm1.Button2Click(Sender: TObject);
var I:byte;
begin
if (RadioButton1.Checked=False) and
(RadioButton2.Checked=False) and
(RadioButton3.Checked=False) and
(RadioButton4.Checked=False)
then
begin
ShowMessage('Íå âûáðàí ïðàâèëüíûé îòâåò!!!');
Exit
end;
if STEP=1 then
begin
TEST_[1].Text:=Edit1.Text;
Edit1.Enabled:=False;
STEP_N:=StrToInt(SpinEdit1.Text); //êîë-âî âîïðîñîâ â òåñòå
SpinEdit1.Enabled:=False;
STEP:=STEP+1;
TEST_[STEP].Text:=Edit2.Text;
For I:=1 to 4 do
begin
TEST_[STEP].Otv[I]:=TEdit(FindComponent('Edit'+IntToS tr(I+2))).Text;
if TRadioButton(FindComponent('RadioBu tton'+IntToStr(i))).Checked=true
then TEST_[STEP].Rez[I]:=1;
end;
end;
Button1.Enabled:=true;
if STEP>STEP_N then
begin
Button2.Enabled:=False;
Button3.Enabled:=True;
end
else
begin
STEP:=STEP+1;
Label3.Caption:='Âîïðîñ ¹'+IntToStr(STEP-1);
Edit2.Text:=TEST_[STEP].Text;
For i:=1 to 4 do
begin
TEdit(FindComponent('Edit'+IntToStr (I+2))).Text:=TEST_[STEP].OTV[i];
if TEST_[STEP].Rez[i]=1 then
TRadioButton(FindComponent('RadioBu tton'+IntToStr(i))).Checked:=true
else
TRadioButton(FindComponent('RadioBu tton'+IntToStr(i))).Checked:=false;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:Byte;
begin
STEP:=STEP-1;
Label3.Caption:='Âîïðîñ ¹'+IntToStr(STEP-1);
Edit2.Text:=TEST_[STEP].Text;
For i:=1 to 4 do
begin
TEdit(FindComponent('Edit'+IntToStr (i+2))).Text:=TEST_[STEP].OTV[I];
if TEST_[STEP].Rez[I]= 1 then
TRadioButton(FindComponent('RadioBu tton'+IntToStr(i))).Checked:=True
else
TRadioButton(FindComponent('RadioBu tton'+IntToStr(i))).Checked:=false;
end;
if STEP=2 then
Button1.Enabled:=false;
Button2.Enabled:=True;
end;



end.

[Олег_Михайлович]

2 код
- коменты это я что то пробывал
здесь не находит нужный файл.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

Type TTEST = Record
     TEXT   :String[250];
     OTV    :Array[1..4] of String [40];
     REZ    :Array[1..4] of Byte
    end;
var
  SFILE: TextFile;
  FFIle: File of TTEST;
  FF_R : File of TTEST;
  KOL  : Byte;
  TEST_: TTEST;
{$R *.dfm}
 //òóò äâå ôîðìû, ïåðâàÿ ýòî òèòóëüíèê(ãäå áóäóò ïîêàçûâàòüñÿ ñîçäàííûå òåñòû.)
 //âòîðàÿ ôîðìà ïðîõîæäåíèÿ óæå çàäàííîãî òåñòà è âûâîä ðåçóëüòàòà
procedure TForm1.FormCreate(Sender: TObject);
var
i:Byte;
SF:string;
T_TEXT:Array[1..10] of String[50];
//Left_N,Top_N:integer;
begin
kol:=1;
AssignFile(SFILE,'TEST.tst');
{$I-} Reset(SFILE);{$I+}
if IOResult = 0 then
  begin
  repeat
    Readln(SFILE,SF);
    T_TEXT[KOL]:=SF;
    KOL:=KOL+1;
  until (Eof(SFILE)) or (KOL>10);
  CloseFile(SFILE);
for i:=1 to KOL-1 do
  RadioGroup1.Items.Add(T_TEXT[I]);
  end
  else  ShowMessage('áó');
end;

procedure TForm1.Button1Click(Sender: TObject);
Var N:Byte;
pos:integer;
begin
N:=radioGroup1.ItemIndex+1;
AssignFile(FFILE, 'TEST_'+IntToStr(N)+'.txt');
//if not FileExists('TEST_'+IntToStr(N)+'.txt') then
//ShowMessage('òàêîãî ôàéëà íåò!!!');
  //begin
  //Rewrite(FFILE);
  // pos:=0;
  //end
//else
{$I-} Reset (FFILE); {$I+}
if IOResult = 0 then
begin
 AssignFile(FF_R, 'TEST.$$$');
 //If not FileExists('TEST.$$$') then
 // begin
//Rewrite(FF_R);
 //Pos:=0
  //end
 //ShowMessage('âòîðîãî ôàéëà íåò!!!')
 //else begin
 Reset(FF_R);
 //Pos:=0;
 //if not Eof(FF_R) then
 Repeat
 //while not(Eof(FFILE)) do;
    //begin
    Read(FF_R, TEST_);
  //Pos:=FilePos(FF_R)-1;
    Write(FF_R, TEST_);
    //until
   // end;
 until (Eof(FFILE));
 closeFile(FFILE);
 CloseFile(FF_R); //end;
 Form2.ShowModal ;
 end

 else ShowMessage('Ôàéëà íåò');
 end;


end.

след код . в основном здесь тоже ошибки
прохождение тетстирование

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
Type TTEST=Record
     TEXT  : String [250];                 //Òåêñò âîïðîñà
     OTV   : Array [1..4] of String [100]; //Âàðèàíòû îòâåòîâ
     REZ   : Array [1..4] of Byte;         // Ïðàâèëüíûé îòâåò
end;
Var FF_R : File of TTEST;  //Ðàáî÷èé ôàéë òåñòîâ
    Kol  : Byte;           //Êîëè÷åñòâî âîïðîñîâ â òåêñòå
    KOl_N: Byte;           //Òåêóùèé íîìåð âîïðîñà
    TEST_: TTEST;          //Ñòðîêà çàïèñè ôàéëà
    REZ_N: Byte;           //Êîëè÷åñòâî ïðàâèëüíûõ îòâåòîâ


{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
var I:byte;
pos:integer;
begin
AssignFile(FF_R,'TEST_R.txt');
if not FileExists('TEST_R.txt') then
begin
Rewrite(FF_R);
Pos:=0;
end
else begin
reset(FF_R);
pos:=0;
while not Eof(FF_R) do
begin
Read(FF_R, TEST_);
//Pos:=FilePos(FF_R)-1;
KOL:=FileSize(FF_R)-1;
KOL_N:=1;
REZ_N:=0;

Label1.Visible:=True;
RadioGroup1.Visible:=True;

Form2.Caption:=TEST_.TEXT;
Form2.Height:=420;
Form2.Width:=850;

Label3.Caption:='Âñåãî âîïðîñîâ - '+IntToStr(KOL);
Label3.Top:=20;
Label3.Left:=700;
Label3.Font.Size:=8;

Label4.Caption:='Ïðàâèëüíûõ îòâåòîâ - '+IntToStr(REZ_N);
Label4.Top:=40;
Label4.Left:=700;
Label4.Font.Size:=8;
Label4.Font.Color:=clBlack;

Button1.Caption:='Ñëåäóþùèé';
Button1.Top:=350;
Button1.Left:=720;
Button1.Width:=100;
Button1.Height:=30;

Read(FF_R,TEST_);

Label1.Caption:='Âîïðîñ ¹ '+IntToStr(KOL_N);
Label2.Caption:=TEST_.TEXT;
RadioGroup1.Items.Clear;
 For I:=1 to 4 do
 RadioGroup1.Items.Add(TEST_.OTV[I]);
end;
 end;
 end;
procedure TForm2.FormCreate(Sender: TObject);
begin

end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

во-первых, код нужно форматировать (выделить код и нажать на панели форматирования кнопочку # - появятя теги [ CODE ] и [/CODE]

во-вторых, выкладывать лучше архив с иходным текстом проекта + Unit1.pas + Unit1.DFM файл (форма). Если движок форума не даёт прикрепить архив к сообщению на форуме, выложите на любой бесплатный файловый обменник и сюда ссылочку на скачивание. Не забудьте вложить в архив файл с тестами..

[Олег_Михайлович]

http://www.fayloobmennik.net/2578227

[VIK_aka_TOR]

Сообщение от Олег_Михайлович

http://www.fayloobmennik.net/2578227

пароль... не ? видимо вам все же нужен иной форум... для телепатов и всяких экстрасенсов... если от вас приходится все вытягивать, что бы вам же помочь...

[Олег_Михайлович]

ссылка на скачивание архива там и создание теста и прохождение теста. Кто сможет помогите.разберите и подправьте код.