-
Forum: Object-Pascal / Delphi-Language
by timmy19,
16. Jan 2012
Jetzt komm ich nochmal mit dem Programm.
Möchte das Programm erweitern mit Subtraktion und Muliplikation.
Habe das MainMenu auch schon erstellt. Aber wie mach ich es jetzt, das dich die Vorzeichen ändern und man dann das jeweilige rechnen kann, wenn ich auf den Teil im MainMenu drücke.
Habe es bisher so:
procedure TForm1.Addition1Click(Sender: TObject);
begin
Label5.Enabled:= true ;...
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Zumindest gibt er mir jetzt nur eine showmessage aus. Aber die "komplett richtig" showmessage will er mir immer noch nicht ausgeben. :(
if IntToStr(Ergebnis) = EditZahl5.Text then
begin
if InttoStr(gggT) = EditZahl6.Text then
showmessage('Sehr gut gemacht!')
else
showmessage('Das ist nicht ganz richtig, versuch es noch einmal')
end
else
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Hoffe ich habe es richtig gemacht, habs so geschrieben:
if IntToStr(Ergebnis) = EditZahl5.Text then
begin
if InttoStr(gggT) = EditZahl6.Text then
Showmessage('Sehr gut gemacht, weiter so!!!')
else
showmessage('Das war nicht richtig, versuch es noch einmal!') ;
end
else
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Ok, jetzt gibt er mir wenigstens Showmessages aus. Aber teilweise auch 2 Stück, wie kann man das lösen?
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Das kapier ich jetzt grad gar nicht, kannst dus mir genauer erklären? Tut mir echt leid...
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Nein, ich will eine auch Showmessage ausgeben, wenn das Ergebnis falsch ist.
Zudem gibt er mir nicht gerade gar keine Showmessage aus auch wenn das Ergebnis richtig ist...
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Jetzt läuft das Programm zwar, aber es wird mir nicht die Rückmeldung gegeben ob das Ergebnis richtig war. Was ist da jetzt wieder falsch?
Und wie stellt man Randomize so ein, das es z.B. nur die Zahlen 2-10 ausgibt?
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
Zahl1:= random(10) ;
Zahl2:= random(10) ;
Zahl3:=random(6) ;
Zahl4:=random(6) ;
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Ich bekomms aber nicht hin...
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Sollte das die Probleme lösen? Hat es aber nicht.
Beide Probleme weiterhin da. :(
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Trotzdem zeigt er mir noch den "Anweisung erforderlich, aber "Integer" gefunden" -Fehler an.
Und der "Operator oder Semikolon fehlt"-Fehler bei "ggTeiler(c,d,gggT)" auch.
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Eine "private" Prozedur zum Teiler ausrechnen, die dadurch aufgerufen werden soll.
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Danke. Trotzdem werden nun noch 3 Fehler angezeigt, welche wären:
-Weiterhin "Operator oder Semikolon fehlt" und "Anweisung erforderlich,aber Ausdruck vom Typ Integer gefunden" bei "ggTeiler(c,d,gggT)"
- "Nicht genügend wirkliche Parameter" beim Vergleich.
danke, das du mir so hilfst! :)
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Ich zeig mal kurz den Quelltext:
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
Zahl1:= random(10) ;
Zahl2:= random(10) ;
Zahl3:=random(6) ;
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
OK, soweit bin ich jetzt. Nun:
Wie überprüfe ich dann das Ergebnis eines Bruchs? Weil der Besteht ja aus 2 Editfeldern...
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Genau! Kannst du mir da weiterhelfen?
OK, ich lösch die anderen randomize!
-
Forum: Object-Pascal / Delphi-Language
by timmy19,
22. Dez 2011
Hallo,
ich habe mal wieder ein Problem.
Ich möchte ein Bruchrechenprogramm mit Selbsteingabe schreiben.
Habe schon die Randomize-Ausgabe von Brüchen.
Nun möchte ich, das man die Lösung selbst eingeben kann und das Programm dann nur noch überprüft.
Zerbreche mir seit Tagen den Kopf darüber, wie das gehen soll.