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;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
schizoid,hysterisch,depressiv,luegen,zwanghaft:integer;
Seite:integer;
//frage:array of tfrage;
frage:
array[1..100,0..2,0..2]
of string;
dummy:integer;
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Radiobutton1.Hide;
Radiobutton2.Hide;
Radiobutton3.Hide;
Radiobutton4.Hide;
Radiobutton5.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.';
Frage[1,0,0]:='
Bei Diskussionen halte ich mich her zurück.';
Frage[2,0,0]:='
Die meisten Menschen sind mir zu neugierig.';
Frage[3,0,0]:='
Ich spiele gerne Fußball.';
Frage[4,0,0]:='
Ich werde bestimmt mal im Lotto gewinnen. ';
Frage[1,1,0]:='
d';
Frage[2,1,0]:='
s.';
Frage[3,1,0]:='
z';
Frage[4,1,0]:='
dummy';
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
case seite
of
0:
begin
label_text.Caption:='
';
label_frage.caption:=frage[1,0,0];
Radiobutton1.show;
Radiobutton2.show;
Radiobutton3.show;
Radiobutton4.show;
Radiobutton5.show;
Seite:=seite+1;
end;
1..4:
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
label_frage.caption:=frage[seite+1,0,0];
if radiobutton1.Checked=true
then
begin
if frage[(seite+1),1,0]= '
d'
then depressiv:=depressiv+2 ;
if frage[(seite+1),1,0]= '
s'
then schizoid:=schizoid+2 ;
if frage[(seite+1),1,0]= '
z'
then zwanghaft:=zwanghaft+2 ;
if frage[(seite+1),1,0]= '
h'
then hysterisch:=hysterisch+2 ;
if frage[(seite+1),1,0]= '
l'
then luegen:=luegen+1 ;
if frage[(seite+1),1,0]= '
dummy'
then dummy:=dummy+0 ;
end;
if radiobutton2.Checked=true
then
begin
if frage[seite+1,1,0]= '
d'
then depressiv:=depressiv+1 ;
if frage[seite+1,1,0]= '
s'
then schizoid:=schizoid+1 ;
if frage[seite+1,1,0]= '
z'
then zwanghaft:=zwanghaft+1 ;
if frage[seite+1,1,0]= '
h'
then hysterisch:=hysterisch+1 ;
if frage[seite+1,1,0]= '
l'
then luegen:=luegen+1 ;
if frage[seite+1,1,0]= '
dummy'
then dummy:=dummy+0 ;
end;
messagedlg('
Depressiv:'+inttostr(depressiv)+'
, schizoid:'+inttostr(schizoid)+'
,zwanghaft:'+inttostr(zwanghaft)+'
,lügen:'+inttostr(luegen)+'
.',mtinformation,[mbok],1);
Radiobutton1.Checked:=false;
Radiobutton2.Checked:=false;
Radiobutton3.Checked:=false;
Radiobutton4.Checked:=false;
Radiobutton5.Checked:=false;
seite:=seite+1;
end;
5:
begin
form2.Hide;
form3.show;
form3.label_depressiv.caption:=inttostr(depressiv);
form3.label_schizoid.caption:=inttostr(schizoid);
form3.label_zwanghaft.caption:=inttostr(zwanghaft);
form3.label_hysterisch.caption:=inttostr(hysterisch);
//form3.label_luegen.caption:=inttostr(luegen);
end;
end;
end;
end.