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 }
public
{ Public-Deklarationen }
Seite:integer;
dummy:integer;
i:integer;
e_depressiv,e_zwanghaft,e_hysterisch,e_dummy,e_schizoid:integer;
end;
var
Form2: TForm2;
type TFragen =
record
Frage:
string;
Kategorie: byte;
IndexDerFrageZumGegenrechnen:integer;
GewaehlteAntwort:byte;
end;
const
depressiv = 0;
hysterisch = 1;
zwanghaft = 2;
schizoid = 3;
dummy = 4;
var Fragen:
array [1..50]
of TFragen;
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;
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[1].Frage:='
Bei Diskussionen halte ich mich her zurück. ';
fragen[1].Kategorie:= 0 ;
fragen[2].Frage:='
Die meisten Menschen sind mir zu neugierig. ';
fragen[2].Kategorie:= 3 ;
fragen[3].Frage:='
Ich habe viele Klamotten im Schrank, die mir zum Anziehen zu schade sind.';
fragen[3].Kategorie:= 2 ;
end;
procedure TForm2.Button2Click(Sender: TObject);
var i :integer;
begin
case seite
of
0:
begin
label_text.Caption:='
';
label_frage.caption:=fragen[1].Frage;
Radiobutton1.show;
Radiobutton2.show;
Radiobutton3.show;
Radiobutton4.show;
Radiobutton5.show;
label3.Show;
label4.Show;
Seite:=seite+2;
end;
1..3:
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 fragen[seite].GewaehlteAntwort := 2;
if radiobutton2.Checked
then fragen[seite].GewaehlteAntwort := 1;
if radiobutton3.Checked
then fragen[seite].GewaehlteAntwort := 0;
if radiobutton4.Checked
then fragen[seite].GewaehlteAntwort := 0;
if radiobutton5.Checked
then fragen[seite].GewaehlteAntwort := 0;
radiobutton1.Checked := false;
radiobutton2.Checked := false;
radiobutton3.Checked := false;
radiobutton4.Checked := false;
radiobutton5.Checked := false;
seite:= seite +1;
end;
end;
4:
begin
while i < 4
do
if fragen[i].Kategorie= 0
then e_depressiv := e_depressiv + fragen[i].GewaehlteAntwort;
// irgendwo hier
if fragen[i].Kategorie= 1
then e_hysterisch := e_hysterisch + fragen[i].GewaehlteAntwort;
//muss der Fehler
if fragen[i].Kategorie= 2
then e_zwanghaft := e_zwanghaft + fragen[i].GewaehlteAntwort;
//liegen
if fragen[i].Kategorie= 3
then e_schizoid := e_schizoid + fragen[i].GewaehlteAntwort;
if fragen[i].Kategorie= 4
then e_dummy := e_dummy + fragen[i].GewaehlteAntwort;
i:=i+1
end;
End;
messagedlg('
e_depressiv='+inttostr(e_depressiv)+
'
:: e_hysterisch='+inttostr(e_hysterisch)+
'
::e_zwanghaft ='+inttostr(e_zwanghaft)+
'
:: e_schizoid ='+inttostr(e_schizoid)+
'
::',mtinformation,[mbok],1);
end;
end.