AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Tippspiel!

Ein Thema von delphi-noob · begonnen am 24. Jun 2004 · letzter Beitrag vom 19. Aug 2004
Antwort Antwort
delphi-noob

Registriert seit: 24. Jun 2004
Ort: marl
7 Beiträge
 
#1

Re: Tippspiel!

  Alt 24. Jun 2004, 22:35
Danke erstmal für die Hilfe und sory nochmal für den "etwas" dumm erstellten text!
Ich hänge komplett an dem Quelltext fest!
Also ich habe geschafft:

Label1 = Gebe eine Zahl zwischen 1 und 10 ein
edit1 = Dort soll die Zahl eingegeben werden!
button1 = Drauf drücken/ doppelklick code

Zitat:
procedure TForm1.ratenClick(Sender: TObject);

function Zufallszahl(Von, bis: Integer): Integer;
begin
Result := Random(Succ(0 - 10)) + Von;
end;


var eingabe : Integer;
begin
Eingabe:=StrToInt(Edit1.Text);
if Eingabe=3
then label2.Caption:='Das war ein sehr guter Tipp!'
else
if Eingabe<3
then label2.Caption:='die zahl ist leider kleiner als 1'
else label2.Caption:='die zahl ist leider groeßer als 10';

end;

end.
Label2 = Ausgabefeld für [Zahl zu groß oder zu klein],[Generierte Zahl] und [Richtig oder Falsch]
Bitte meldet euch auch auf ICQ (295853370)
bei mir!
Ist wirlich dringend wegen einem Schulprojekt!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz