unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Image1: TImage; Image2: TImage; Image3: TImage; Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Image2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure Timer3Timer(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } var eingabe:string; x,computer,s,m,n:integer; procedure TForm1.Button1Click(Sender: TObject); begin randomize; timer1.Interval:=200;// 0.2 sekunde. timer1.Enabled :=true;//Timer starten timer2.Interval:=200;// 0.2 sekunde. timer2.Enabled :=true;//Timer starten timer3.Interval:=200;// 0.2 sekunde. timer3.Enabled :=true;//Timer starten eingabe:=Edit1.Text; if (eingabe='Stein') or (eingabe='stein') then x:=0 else if (eingabe='Schere') or (eingabe='schere') then x:=1 else if (eingabe='Papier') or (eingabe='papier') then x:=2 else ShowMessage('Überprüfe deine Eingabe auf Rechtschreibung :)') ; computer:=random(3); Edit2.Text:=inttostr(computer); if (x=0) and (computer=0) then begin Image1.Picture.LoadFromFile('steinl.jpg'); Image2.Picture.LoadFromFile('steinr.jpeg'); end; if (x=1) and (computer=1) then begin Image1.Picture.LoadFromFile('scherel.jpg'); Image2.Picture.LoadFromFile('scherer.jpeg'); end; if (x=2) and (computer=2) then begin Image1.Picture.LoadFromFile('papierl.jpg'); Image2.Picture.LoadFromFile('papierr.jpeg'); end; if (x=0) and (computer=1) then begin Image1.Picture.LoadFromFile('steinl.jpg'); Image2.Picture.LoadFromFile('scherer.jpeg'); end; if (x=0) and (computer=2) then begin Image1.Picture.LoadFromFile('steinl.jpg'); Image2.Picture.LoadFromFile('papierr.jpeg'); end; if (x=1) and (computer=0) then begin Image1.Picture.LoadFromFile('scherel.jpg'); Image2.Picture.LoadFromFile('steinr.jpeg'); end; if (x=1) and (computer=2) then begin Image1.Picture.LoadFromFile('scherel.jpg'); Image2.Picture.LoadFromFile('papierr.jpeg'); end; if (x=2) and (computer=0) then begin Image1.Picture.LoadFromFile('papierl.jpg'); Image2.Picture.LoadFromFile('steinr.jpeg'); end; if (x=2) and (computer=1) then begin Image1.Picture.LoadFromFile('papierl.jpg'); Image2.Picture.LoadFromFile('scherer.jpeg'); end; end; procedure TForm1.FormCreate(Sender: TObject); begin timer1.Enabled:=false;//timer Deaktiviern timer2.Enabled:=false;//timer Deaktiviern timer3.Enabled:=false;//timer Deaktiviern end; procedure TForm1.Image2Click(Sender: TObject); begin end; procedure TForm1.Timer1Timer(Sender: TObject); begin n:=0; if n<=10 then begin Image1.Picture.LoadFromFile('steinl.jpg'); sleep(200); Image2.Picture.LoadFromFile('papierr.jpeg'); sleep(200); n:=n+1; Edit3.Text:=inttostr(n); end else timer1.Enabled :=false;//Timer starten end; procedure TForm1.Timer2Timer(Sender: TObject); begin m:=0; if m<=10 then begin Image1.Picture.LoadFromFile('scherel.jpg'); sleep(200); Image2.Picture.LoadFromFile('steinr.jpeg'); sleep(200); m:=m+1; Edit4.Text:=inttostr(m); end else timer2.Enabled :=false;//Timer starten end; procedure TForm1.Timer3Timer(Sender: TObject); begin s:=0; if s<=10 then begin Image1.Picture.LoadFromFile('papierl.jpg'); sleep(200); Image2.Picture.LoadFromFile('scherer.jpeg'); sleep(200); s:=s+1; Edit5.Text:=inttostr(s); end else timer3.Enabled :=false;//Timer starten end; end.