unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm2 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
label_vorname: TLabel;
label_nachname: TLabel;
Button1: TButton;
label_text: TLabel;
Button2: TButton;
label_frage: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
//Tfrage = array[0..1] of string;
private
{ Private-Deklarationen }
e_depressiv,e_zwanghaft,e_hysterisch,e_dummy,e_luegen,e_schizoid:integer;
public
{ Public-Deklarationen }
Seite:integer;
dummy:integer;
i:integer;
end;
var
Form2: TForm2;
type TFragen =
record
Frage:
string;
Kategorie: byte;
IndexDerFrageZumGegenrechnen:integer;
GewaehlteAntwort:byte;
end;
const depressiv = 1;
const hysterisch = 2;
const zwanghaft = 3;
const schizoid = 4;
const dummy = 5;
const luegen = 6;
var Fragen:
array [0..50]
of TFragen;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
//form2.Button2.SetFocus;
Radiobutton1.Hide;
Radiobutton2.Hide;
Radiobutton3.Hide;
Radiobutton4.Hide;
Radiobutton5.Hide;
label4.Hide;
label3.Hide;
label_text.caption:=
'
Lieber Testteilnehmer,'+#13+#10+'
Liebe Testteilnehmerin,'+#13+#10+#13+#10+
'
dies ist ein Test, der Ihr Freizeitverhalten untersuchen wird. Ich bitte Sie, alle Fragen so zu ' +#13+#10+
'
beantworten, dass Ihre Antworten am besten Ihrer Einstellung entsprechen. Neben jeder Frage '+#13+#10+'
sehen Sie fünf Antwortmöglichkeiten. Die Kästchen dazwischen geben jeweils Zwischenwerte an,'+#13+#10+
'
damit Sie ihre Antworten'+#13+#10+'
besser abstufen können. Lassen Sie bitte keine Frage aus und entscheiden Sie spontan, welche '+#13+#10+
'
Antwort am besten zu Ihnen passt.';
fragen[0].Frage:='
Bei Diskussionen halte ich mich her zurück. ';
fragen[0].Kategorie:= 1 ;
fragen[1].Frage:='
Die meisten Menschen sind mir zu neugierig. ';
fragen[1].Kategorie:= 4 ;
fragen[2].Frage:='
Ich habe viele Klamotten im Schrank, die mir zum Anziehen zu schade sind.';
fragen[2].Kategorie:= 3 ;
fragen[3].Frage:='
Ich spiele gerne Fußball.';
fragen[3].Kategorie:= 5 ;
fragen[4].Frage:='
Ich werde bestimmt mal im Lotto gewinnen.';
fragen[4].Kategorie:= 2 ;
fragen[5].Frage:='
Ich fühle mich mit regelmäßigem Tagesablauf am wohlsten.';
fragen[5].Kategorie:= 3 ;
fragen[6].Frage:='
Ich brache viel Zeit für mich. ';
fragen[6].Kategorie:= 4 ;
fragen[7].Frage:='
Ich habe schnell Mitleid. ';
fragen[7].Kategorie:= 1 ;
fragen[7].IndexDerFrageZumGegenrechnen :=32;
fragen[8].Frage:='
Ein Umzug in eine völlig neue Gegend wäre nichts für mich.';
fragen[8].Kategorie:= 3 ;
fragen[8].IndexDerFrageZumGegenrechnen:= 24;
fragen[9].Frage:='
Immer mit den gleichen Leuten unterwegs zu sein ist mir zu langweilig';
fragen[9].Kategorie:= 2 ;
fragen[9].IndexDerFrageZumGegenrechnen:= 34;
fragen[10].Frage:='
Man sollte lieber seine Meinung für sich behalten, um keinen Streit zu provozieren.';
fragen[10].Kategorie:= 1 ;
fragen[11].Frage:='
Mein Verhalten ist immer einwandfrei.';
fragen[11].Kategorie:= 6 ;
end;
procedure TForm2.Button2Click(Sender: TObject);
var i :integer ;
begin
case seite
of
0:
begin
label_text.Caption:='
';
label_frage.caption:=fragen[seite].Frage;
Radiobutton1.show;
Radiobutton2.show;
Radiobutton3.show;
Radiobutton4.show;
Radiobutton5.show;
label3.Show;
label4.Show;
Seite:=seite+1;
end;
1..11:
begin
if
(radiobutton1.Checked = false)
and
(radiobutton1.Checked = false)
and
(radiobutton2.Checked = false)
and
(radiobutton3.Checked = false)
and
(radiobutton4.Checked = false)
and
(radiobutton5.Checked = false)
then
begin
messagedlg('
Du hast keine Auswahl getroffen', mterror, [mbok], 1);
abort;
end
else
begin
label_frage.caption := fragen[seite].Frage;
if radiobutton1.Checked
then
begin
if fragen[seite].Kategorie= 1
then e_depressiv:=e_depressiv +2;
if fragen[seite].Kategorie= 2
then e_hysterisch:=e_hysterisch +2;
if fragen[seite].Kategorie= 3
then e_zwanghaft:=e_zwanghaft +2;
if fragen[seite].Kategorie= 4
then e_schizoid:=e_schizoid +2;
if fragen[seite].Kategorie= 5
then e_dummy:=e_dummy +2;
if fragen[seite].Kategorie= 6
then e_luegen:=e_luegen +1;
end;
if radiobutton2.Checked
then
begin
if fragen[seite].Kategorie= 1
then e_depressiv:=e_depressiv +1;
if fragen[seite].Kategorie= 2
then e_hysterisch:=e_hysterisch +1;
if fragen[seite].Kategorie= 3
then e_zwanghaft:=e_zwanghaft +1;
if fragen[seite].Kategorie= 4
then e_schizoid:=e_schizoid +1;
if fragen[seite].Kategorie= 5
then e_dummy:=e_dummy +1;
if fragen[seite].Kategorie= 6
then e_luegen:=e_luegen +1;
end;
if radiobutton3.Checked
then
begin
if fragen[seite].Kategorie= 1
then e_depressiv:=e_depressiv +0;
if fragen[seite].Kategorie= 2
then e_hysterisch:=e_hysterisch +0;
if fragen[seite].Kategorie= 3
then e_zwanghaft:=e_zwanghaft +0;
if fragen[seite].Kategorie= 4
then e_schizoid:=e_schizoid +0;
if fragen[seite].Kategorie= 5
then e_dummy:=e_dummy +0;
if fragen[seite].Kategorie= 6
then e_luegen:=e_luegen +0;
end;
if radiobutton4.Checked
then
begin
if fragen[seite].Kategorie= 1
then e_depressiv:=e_depressiv +0;
if fragen[seite].Kategorie= 2
then e_hysterisch:=e_hysterisch +0;
if fragen[seite].Kategorie= 3
then e_zwanghaft:=e_zwanghaft +0;
if fragen[seite].Kategorie= 4
then e_schizoid:=e_schizoid +0;
if fragen[seite].Kategorie= 5
then e_dummy:=e_dummy +0;
if fragen[seite].Kategorie= 6
then e_luegen:=e_luegen +0;
end;
if radiobutton5.Checked
then
begin
if fragen[seite].Kategorie= 1
then e_depressiv:=e_depressiv +0;
if fragen[seite].Kategorie= 2
then e_hysterisch:=e_hysterisch +0;
if fragen[seite].Kategorie= 3
then e_zwanghaft:=e_zwanghaft +0;
if fragen[seite].Kategorie= 4
then e_schizoid:=e_schizoid +0;
if fragen[seite].Kategorie= 5
then e_dummy:=e_dummy +0;
if fragen[seite].Kategorie= 6
then e_luegen:=e_luegen +0;
end;
radiobutton1.Checked := false;
radiobutton2.Checked := false;
radiobutton3.Checked := false;
radiobutton4.Checked := false;
radiobutton5.Checked := false;
seite:= seite +1;
end;
end;
12:
begin
form3.label_depressiv.caption := inttostr(e_depressiv);
form3.label_zwanghaft.caption := inttostr(e_zwanghaft);
form3.label_schizoid.caption := inttostr(e_schizoid);
form3.label_hysterisch.caption := inttostr(e_hysterisch);
form3.label_luegen.caption := inttostr(e_luegen);
form2.Hide;
form3.Show;
End;
end;
end;
end.