Delphi kann so einfach sein
Delphi kann so einfach sein



Delphi kann so einfach sein

  Startseite
    Profi
    Basisprofi
    Basics
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



http://myblog.de/delphi-starthilfe

Gratis bloggen bei
myblog.de





Ratespiel

Das Spiel mit dem PC

 


 

 var rRandom, rVersuche:real;

procedure TForm1.B_NeuesSpielClick(Sender: TObject);
begin

rVersuche:=0;
randomize;
rRandom:=random(100)+1;
E_Versuche.Text:=' ';
E_Antwort.Text:=' ';
E_Tipp.Text:=' ';

end;

procedure TForm1.B_AntworteClick(Sender: TObject);
var rTipp:real;
begin

rVersuche:=rVersuche+1;
E_Versuche.Text:=FloatToStr(rVersuche);
rTipp:=StrToFloat(E_Tipp.Text);

IF rTipp=rRandom THEN
  begin
    E_Antwort.Text:='Treffer - Juhu';
    Form1.color:=clGreen;
  end
ELSE
  begin
    IF rTipp      begin
        E_Antwort.Text:='Ich bin größer';
        Form1.color:=clRed;
      end
    ELSE
      begin
        E_Antwort.Text:='Ich bin kleiner';
        Form1.Color:=clRed;
      end;
  end;

end;

end. 

 

 

 

 

7.10.12 22:53
 
Letzte Einträge: Fragen die ich beantworten werde


bisher 0 Kommentar(e)     TrackBack-URL

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)



 Smileys einfügen



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung