taschenrechner (erweiterung)

[safak67]

Hi,

ich habe ein taschenrechner programmiert, ich habe einige fehler drin.. Die ganze Eingabe(sring) die ich mache soll im Label stehen, also erst wenn ich auf gleich klicke soll er berechnen.. Ich weiß aber nicht wie das ganz genau geht und was in der berechnung verändern muss..

also ich hab das soweit gemacht das das in der anzeige steht.. Wie soll ich das jetzt berechnen..?

Delphi-Quellcode:

unit Calculator_Main;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Buttons, StdCtrls;

type
  TFormTR = class(TForm)
    Sp7: TSpeedButton;
    Sp8: TSpeedButton;
    Sp9: TSpeedButton;
    Sp4: TSpeedButton;
    Sp5: TSpeedButton;
    Sp6: TSpeedButton;
    Sp1: TSpeedButton;
    Sp2: TSpeedButton;
    Sp3: TSpeedButton;
    Sp0: TSpeedButton;
    DecimalSep: TSpeedButton;
    SpErgebnis: TSpeedButton;
    SpPlus: TSpeedButton;
    SpMinus: TSpeedButton;
    SpMal: TSpeedButton;
    SpDurch: TSpeedButton;
    LabelAnzeige: TLabel;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpZahlClick(Sender: TObject);
    procedure SpZeichenClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure spErgebnisClick(Sender: TObject);
  private
    { Private-Deklarationen }
    zahl1,zahl2 : real;
    op : char;
    SpArray : ARRAY[0..9] OF TSpeedButton;
  public
    { Public-Deklarationen }
  end;

var
  FormTR: TFormTR;

implementation

{$R *.DFM}

procedure TFormTR.FormCreate(Sender: TObject);
begin
   SpArray [0] := Sp0;
   SpArray [1] := Sp1;
   SpArray [2] := Sp2;
   SpArray [3] := Sp3;
   SpArray [4] := Sp4;
   SpArray [5] := Sp5;
   SpArray [6] := Sp6;
   SpArray [7] := Sp7;
   SpArray [8] := Sp8;
   SpArray [9] := Sp9;
end;

procedure TFormTR.SpeedButton1Click(Sender: TObject);
begin
LabelAnzeige.Caption := '0';
end;

procedure TFormTR.spErgebnisClick(Sender: TObject);
  var Formular,Seg1,Seg2: string;
begin
  Formular := LabelAnzeige.Caption;
  if pos('+',Formular) > 1 then
  begin
    Seg1 := copy(Formular,1,pos('+',Formular) - 1);
    Seg2 := copy(Formular,pos('+',Formular) + 1,length(Formular));
  end;
  ShowMessage(Seg1+'+'+Seg2);

end;

procedure TFormTR.SpZahlClick(Sender: TObject);
VAR Nr : INTEGER;
begin
   if LabelAnzeige.caption='0' then LabelAnzeige.caption:='';
   if LabelAnzeige.caption='Error' then LabelAnzeige.caption:='';

   LabelAnzeige.caption := LabelAnzeige.caption + TSpeedButton(Sender).Caption;

end;

procedure TFormTR.SPZeichenClick(Sender: TObject);
begin

  if LabelAnzeige.caption='Error' then LabelAnzeige.caption:='0';
  if sender = spPlus then
    begin
      //zahl1:=StrToFloat(LabelAnzeige.caption);
      //LabelAnzeige.caption:='0';
      op:='+'
    end;
  if sender = spMinus then
    begin
      //zahl1:=StrToFloat(LabelAnzeige.caption);
      //LabelAnzeige.caption:='0';
      op:='-'
    end;
  if sender = spMal then
    begin
      //zahl1:=StrToFloat(LabelAnzeige.caption);
      //LabelAnzeige.caption:='0';
      op:='x'
    end;
  if sender = spDurch then
    begin
      //zahl1:=StrToFloat(LabelAnzeige.caption);
      //LabelAnzeige.caption:='0';
      op:='/'
    end;

  LabelAnzeige.caption := LabelAnzeige.caption + op;
  {
  if sender = spErgebnis then
  begin
    zahl2:=StrToFloat(LabelAnzeige.Caption);
    case op of
    '+':LabelAnzeige.caption:=FloatToStr(zahl1+zahl2);
    '-':LabelAnzeige.caption:=FloatToStr(zahl1-zahl2);
    'x':LabelAnzeige.caption:=FloatToStr(zahl1*zahl2);
    '/':if zahl2 <> 0 then
           LabelAnzeige.caption:=FloatToStr(zahl1/zahl2)
        else
           LabelAnzeige.caption:='Division durch Null nicht moeglich'
    end
  end
  }
end;

end.

edit: ich hab das so geändert das das mit der anzeige funktioniert, das problem ist jett nur noch die berechnung.. wie mache ich die berechnung

[messie]

Das ist schon ein wenig aufwändiger. Im Moment wertest Du das Event aus, was die Operatortasten schicken:

Delphi-Quellcode:

if sender = spPlus then
  begin
    zahl1:=StrToFloat(LabelAnzeige.caption);
    LabelAnzeige.caption:='0';
    op:='+'
  end;

Wenn Du die ausgeschriebene Aufgabe lösen willst, musst Du das so modifizieren, dass Du das op-Zeichen zum bisherigen Text im Feld zufügst. Beim Drücken der = Taste musst Du den String dann zerlegen, nach Rechenzeichen durchsuchen und nach Rechenregeln behandeln.

Grüße, Messie

[Sharky]

Zitat:

Zitat von safak67

Hi,

ich habe ein taschenrechner programmiert, ...

Hai safak67,

wenn ich diesen Beitrag lese muss ich mich fragen ob Du den taschenrechner programmiert hast oder ob Du nur irgendwelchen Code zusammen kopiert hast?

Verstehe das nicht falsch! Aber Du lernst nicht zu programmieren wenn Du fremden Code in dein Programm einbindest ohne zu verstehen was er macht.

[safak67]

ich hab das selber programmiert, danach wurde es nur von dem lehrer korrigiert, deswegen diese kommentarzeilen.. Ich weiß nur nicht wie ich das mit der berechnung machen soll

[messie]

Zitat:

Zitat von Sharky

Du lernst nicht zu programmieren wenn Du fremden Code in dein Programm einbindest ohne zu verstehen was er macht.

Ich denke schon: wenn sie/er versucht, anhand von Beispielen und fremdem Code die Funktionen zu verstehen und so damit zu spielen, dass sie hinterher selbst weiterentwickelt werden können.

Grüße, Messie

Edit: kein rotes Fenster gehabt

@safak67: den Hinweis habe ich oben schon gegeben

[safak67]

ich hab das ja programm aber geändert, wie erteile ich die strings und berechne es dann?

[Highttower]

Hallo,
das hier ist nur nen denk ansatz, runterprogrammieren musst du ihn selbst:

Delphi-Quellcode:

function rechne(s: string) : real;
var 
    I : Integer;
    tmp : String;
begin
   result:=0;
    for I := 0 to Length(S) do
    begin
        if NOT ((S[I]='+') OR (S[I]='andres Rechenzeichen')OR (S[I]='andres Rechenzeichen')..... then begin
            tmp:= tmp +S[I];
      end
      else
      if(S[I]='+') then
      result := addiere(result,StrToFloat(tmp));
      if (S[I]='andres Rechenzeichen') then
      result := tuwas(StrToFloat(tmp));
      .....
    end;
end;

function addiere(k : real; j : real) : real;
begin
   result := k+j;
end;


....

Hoffe das hilft,

Highttower

[messie]

Zitat:

Zitat von safak67

ich hab das ja programm aber geändert, wie erteile ich die strings und berechne es dann?

Ergänzend: mach es wie mit dem Auge. Wenn Du eine Aufgabe hinschreibst, zerlegst Du sie ja auch beim Draufsehen.

Grüße, Messie

[safak67]

ja aber wie mache ich das genau..?

wenn ich z.B 2+4*5-3 habe muss er doch punkt vor strichrechnung machen, wie spreche jetzt die 4*5 an das er das zu erst berechnet.. allgemein weiß ich nicht wie man das mit der berechnung macht

[Satty67]

Na wie gesagt, wie mit dem Auge. Ich persönlich würde es so machen:

Operator suchen, der Vorrang hat und umschließende Ausdrücke auswerten

2+4*5-3 | * wird gefunden, mit Ausdrück davor/danach berechnen
2+20-3 | * / nicht gefunden, also geht es mit + - weiter
22-3
19 | kein operator übrig (Ausnahme Vorzeichen), ergo Ergebnis

Könnte man rekursiv lösen.

*****

bei 2+4*5-3 findest du "*", hast also eine Position im String, dort zerlegst Du den String und hast jetzt 2+4 und 5-3.

Im Ersten ermittelst Du die Zahl von rechts und im zweiten die Zahl von links.

Danach einfach die Zahlen mit dem Operator bearbeiten (den Du Dir irgendwo gemerkt hast).