Taschenrechner 2.0 - Der Multi-Rechner

[LDProgrammierer]

Also gut hier eine völlig neue Version des Taschenrechnes, die nun in der Mitte des Bildschirms startet und mehrere Funktionen hat Wie : Umfang/Flächeninhalt von : Quadrat, Rechteck
Flächeninhalt vom Dreieck und Prozentrechnen, ich habe bei der Gelegenheit auch gleich das PageControl getestet. Natürlich sind auch die Grundrechenarten vorhanen, und ein XPManifest hab ich auch eingebaut, das verleiht dem Programm einen guten Stil. Auf dem Bild ist leider nur die Seite mit den Grundrechenarten zuseheh. mfg

[p80286]

vielleicht sollten zunächst einmal die noch vorhandenen Unebenheiten beseitigt werden.
Es wäre schön wenn der Benutzer einen Hinweis bekäme welches Zeichen er als Dezimalkomma nutzen darf und welches wenn überhaupt als Tausender-Trennzeichen.
Wie oben schon erwähnt fehlt der Umgang mit leeren Eingabefeldern, und bei der Prozentrechnung hat es mich ja schon gejuckt mir den Ausgangswert berechnen zu lassen, aber das ging irgendwie so nicht!

Gruß
K-H

@orNEC hübsch (die Rose)

[OrNEC]

Zitat von blackfin:

Angeber

Also so hab ich angefangen, aber natürlich mit eurer Hilfe. Wie denn sonst.

[blackfin]

War auch nur scherzhaft gemeint

[LDProgrammierer]

Ich weiß leider überhaupt nicht wie man eine Eingabe abfängt, könnte mir bitte jemand den Source-Code geben? Wäre sehr hilfreich. LDProgrammierer

[aurikel_Max]

Zitat von LDProgrammierer:

Ich weiß leider überhaupt nicht wie man eine Eingabe abfängt, könnte mir bitte jemand den Source-Code geben? Wäre sehr hilfreich. LDProgrammierer

Nun, du könntest mehrere Sachen machen .. um zB. dafür zu sorgen, dass nur Zahlen (und zB. Punkte) eingegeben werden, musst du das OnKeyPress-Ereignis von deinem Editfeld abfangen. Ich benutze hierzu Variante 3 von diesem Link (dies fängt allerdings nur Buchstaben ab).

Wenn du zB. auf eine Division durch 0 prüfen möchtest, so würde ich bei einer Division prüfen, ob der Divisor 0 ist. (if StrToFloat(edDivisor.Text) = 0 then ...)

[LDProgrammierer]

Danke ich werde ausprobieren ob es geht.

[LDProgrammierer]

Also ich habe das mit dem dividieren durch null verhindern leider irgenwie nicht geschafft obwohl ich folgenden Code verwendet habe if strtofloat(edit2.Text)= 0 then ShowMessage ('Durch null darf nicht dividiert werden'); dann kann er das Programm das öffnen, jedoch zeigt er nicht die Nachricht die ich gezeigt haben wollte, selbst wenn ich durch null dividiere. Wenn ich jedoch folgenden code schreibe :if strtofloat(edit2.Text)= 5 then ShowMessage ('Durch null darf nicht dividiert werden'); , also das er bei fünf eine Meldung ausgeben, soll und sonst weder Position noch irgendwas anderes am Code verändere erscheint doch eine Meldung. Was soll ich tun? Ich habe das Gefühl das liegt daran, das dann die Meldung floating point division by zero ausgegeben wird. Bitte helft mir

[Satty67]

Wenn eine Exception ausgelöst wird (hier Division durch 0) wird der nachfolgende Code bis zum Ende des Try Except bzw. Finally Block abgebrochen.

Vorm Berechnen auf 0 prüfen:

Delphi-Quellcode:

if strtofloat(edit2.Text)= 0 then 
  ShowMessage ('Durch null darf nicht dividiert werden')
else
  Berechnen;

[aurikel_Max]

Zitat von LDProgrammierer:

Also ich habe das mit dem dividieren durch null verhindern leider irgenwie nicht geschafft obwohl ich folgenden Code verwendet habe if strtofloat(edit2.Text)= 0 then ShowMessage ('Durch null darf nicht dividiert werden'); dann kann er das Programm das öffnen, jedoch zeigt er nicht die Nachricht die ich gezeigt haben wollte, selbst wenn ich durch null dividiere. Wenn ich jedoch folgenden code schreibe :if strtofloat(edit2.Text)= 5 then ShowMessage ('Durch null darf nicht dividiert werden'); , also das er bei fünf eine Meldung ausgeben, soll und sonst weder Position noch irgendwas anderes am Code verändere erscheint doch eine Meldung. Was soll ich tun? Ich habe das Gefühl das liegt daran, das dann die Meldung floating point division by zero ausgegeben wird. Bitte helft mir

Ehm .. ich bin mir nicht sicher, hast du nach deinem IF StrToFloat(edDivisor.Text) = 0 auch ein Exit? Denn es darf ja nichts mehr geschehen, wenn du durch 0 dividierst.
Also:

Delphi-Quellcode:

IF StrToFloat(edDivisor.Text) = 0 THEN
begin
    ShowMessage('..');
    Exit;
end;

[himitsu]

Ich würde auch noch auf StrToFloatDef und TryStrToFloat hinweisen.