Taschenrechner mit Grundrechenarten

[Dannyjoe]

Hallo!

Ich habe mal, obder besser gesagt, mein Vater und ich, haben mal einen Taschenrechner programmiert...

Da ich ein Anfänger bin, hat mir mein vater(Hat ein HBCI Modul geschrieben) geholfen, wie man die Idee des Programmes in Quelltext schreibt...

Bewertet mal bitte das Ergebnis!

[Ultimator]

Man kann mehrere Kommata eingeben, unterbinde das besser ;-)

[Nicodius]

ähhhhm.. bei mir is das fenster nen desktop weiter8hab aber leider nur einen) vieeeel zu weit rechts .. ich seh nix nur wie es sich beim "wiederherstellen" mit animation von windows weit nach rechts wandert

[Stevie]

Erstmal herzlich willkommen!!! :party:

Positiv aufgefallen ist mir als erstes, dass das Teil Punkt-vor-Strich-Rechnung beherrscht! :thumb: (jaja, kann nicht jeder TR)
Schön wäre es auch noch, wenn ich per Tastatur meine Rechnung eingeben könnte. Und das Teil darf ruhig etwas kleiner (ich mein das Formular und die Buttons) sein...

Ansonsten weiter so!

P.S.: Das Setzten der Position auf poScreenCenter sollte das Problem mit der Position beheben...

[Dannyjoe]

Zitat:

Zitat von Ultimator

Man kann mehrere Kommata eingeben, unterbinde das besser ;-)

Ja, dass ist mir auch schon aufgefallen, doch wie kann ich das in den Quelltext einbauen?

Gruß, Dannyjoe

P.S.: Habe das ganze jetzt nochmal kleiner gemacht, und das memo rausgeschmissen...
wenn mir irgendjemand sagen könnte, wie ich eine "History" in die memo schreiben kann, bitte posten

[Ultimator]

Du kannst im OnKeyDown des Edits mit

Delphi-Quellcode:

begin
if chr(Key=',') then
  begin
   if (Key in Edit3.Text) then
    Key:=#0;
   end;
end;

Ungetestet.

[Steve]

Hi,

Klick auf "+/-" bei leerem Eingabefeld ergibt

Zitat:

---------------------------
Trechner
---------------------------
Zugriffsverletzung bei Adresse 00455EFD in Modul 'TRechner.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

Gruß
Stephan :dance:

[Dannyjoe]

Zitat:

Zitat von Ultimator

Du kannst im OnKeyDown des Edits mit

Delphi-Quellcode:

begin
if chr(Key=',') then
  begin
   if (Key in Edit3.Text) then
    Key:=#0;
   end;
end;

Ungetestet.

Dann sagt er mir:

Zitat:

[Fehler] Main1.pas(217): Inkompatible Typen
[Fehler] Main1.pas(219): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Main1.pas(220): Inkompatible Typen: 'Word' und 'Char'
[Fataler Fehler] TRechner.dpr(5): Verwendete Unit 'Main1.pas' kann nicht compiliert werden

[Nicodius]

geniestreich ultimator "chr(Key=',')" kann ja nicht klappen ^^

[Dannyjoe]

Zitat:

Zitat von Steve

Hi,

Klick auf "+/-" bei leerem Eingabefeld ergibt

Zitat:

---------------------------
Trechner
---------------------------
Zugriffsverletzung bei Adresse 00455EFD in Modul 'TRechner.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------

Gruß
Stephan :dance:

Ja, das wollte ich dann mit nem MessageDlg ausgeben, der dann so aussieht:

Delphi-Quellcode:

if eingabe.text:= '' then
    MessageDlg('Du musst zuerst eine Zahl eingeben, bevor das Vorzeichen geändert werden kann.',mtError,[mbOK],0);

doch dann kommt der Fehler beim Compilieren:

Zitat:

der Ausdruckstyp muss Boolean sein

[Birzenbae]

so jetzt stimmts:

Delphi-Quellcode:

if eingabe.text= '' then
    MessageDlg('Du musst zuerst eine Zahl eingeben, bevor das Vorzeichen geändert werden kann.',mtError,[mbOK],0);

denn mit ':=' sagst du ihm, dass er eingabe.text als leer definieren soll du musst einen boolean-operator benutzen in dem fall das '='.
Aber sonst gut gemacht :thumb: .

[Dannyjoe]

Ja, danke.... hab ich auch gerade von meinem vater erfahren...

Zitat:

= vergleicht, ob etwas Gleich ist, und
:= setzt für eine Variable,etc. einen Wert ein

Also hier die geänderte Variante, der die das Vorzeichen ohne "Fehlermeldung" ändert... Das mit den Kommata hab ich aber noch nicht verstanden... :roll: :wiejetzt:

[Zacherl]

Ändere noch das mit der position, denn bei mir seh ich nichts von einem rechner.

[Dannyjoe]

So... Hab jetzt auch die Posotion geändert...
Ich hofe, das past so...
Das kommt höchstwahrscheinlich, weil ich auf meinem 19" monitor ne Auflösung von 1600 x 1200 benutze..

Die Aktuelle Version ist ganz oben, oder ein direktlink hier: http://www.delphipraxis.net/download.php?id=7824

gruß, dannyjoe

[Birzenbae]

lol kenn ich wenn man auflösung zu hoch stellt hab nämlich auch nen 19", ich muss immer darauf achten, dass die Form in der mitte ist un nich am rand beim Kompilieren, sollteste auch beherzigen.

[Ultimator]

Zitat:

Zitat von Nicodius

geniestreich ultimator "chr(Key=',')" kann ja nicht klappen ^^

Jaaajaaa! :-P
Ich meinte ja auch

Delphi-Quellcode:

if (chr(Key)=',') then
usw...

;-)

[Nicodius]

:mrgreen: :firejump: :firejump: :mrgreen:

:dp:


[backtotopic] mir gefällt das mit . vor strich auch sehr gut :thumb: :thumb:

[Durg]

Ähm hmm ja ... ich muss sagen für dein erstes mal (auch wenn ich selber noch anfänger bin) find ich den TR gut wie auch enige andere schon gesagt haben find ich das mit dem Punkt vor Strich sehr gut, hat meiner noch nicht ;) wird aber noch.
Ansonsten wenn noch ein paar kleine Fehler drin schon nen :thumb: von mir.

edit: btw. Ulitmator dein Vorschlag funktioniert entweder nicht oder ich versteh etwas falsch hab nämlich mal versucht, das bei ihm einzubauen.

[Dannyjoe]

Zitat:

Zitat von Durg

edit: btw. Dannyjoe dein Vorschlag funktioniert entweder nicht oder ich versteh etwas falsch hab nämlich mal versucht, das bei ihm einzubauen.

Meinst du die History??

Das müsste iegentlich mit Memo.Lines.Add oder so ähnlich gehen...

Gruß, Dannyjoe

[Durg]

Ups haha sorry bin beim scrollen wohl ein wenig verrutscht meinte Ultimators vorschlag zu dem Komma.
sry nochmal kann halt mal in der hektik passieren. Habs auch schon oben geändert ;) :oops: