Taschenrechner

[Enten Mann]

Mein Code sieht so aus aber wenn ich denn Rechner starte kommt das fenster und ist sofort wieder weg.

Habe ich was falsch das es es sofort weg geht?

Delphi-Quellcode:

unit Unit1; {Name der Unit}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Header: TImage;
    imgZahl1: TImage;
    imgZahl2: TImage;
    imgZahl3: TImage;
    imgZahl4: TImage;
    imgZahl5: TImage;
    imgZahl6: TImage;
    imgZahl7: TImage;
    imgZahl8: TImage;
    imgZahl9: TImage;
    imgZahl0: TImage;

    edInput: TEdit;

    imgLinks: TImage;
    imgGeteilt: TImage;
    imgBack: TImage;
    imgExp: TImage;
    imgGleich: TImage;
    imgMinus: TImage;
    imgPlus: TImage;
    imgRechts: TImage;
    imgPunkt: TImage;

  { Procedure Starts }
     procedure imgZahl1Click(Sender: TObject);
  { Procedure Ends }
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
  end;

var
  Form1: TForm1; //Hier werden die Globalen Variablen definiert
  
implementation

{$R *.DFM}

procedure TForm1.imgGleichClick(Sender: TObject); //Unser OnClick-Ereignis
var
  zahl1, zahl2, ergebnis: integer; //Unsere Variablen
begin
  edInput.Text:=IntToStr(2*StrToInt(Edit1.Text))
end;


procedure TForm1.imgZahl1Click(Sender: TObject);
begin
edInput.Text := edInput.Text + inttostr((Sender as TImage).Tag);
end;

procedure TForm1.imgExp1Click(Sender: TObject);
var
kreistreffer,quadrattreffer:double;
y,x:integer;
r:cardinal;
begin
r := 1000;
kreistreffer := 0;
quadrattreffer := (2 * r + 1) * (2 * r + 1);
for y := r-(r*2) to r do
  for x := -r to r do
    if x*x + y*y <= r*r then
      kreistreffer := kreistreffer + 1;
edInput.Text:=FloatToStr( 4*kreistreffer / quadrattreffer) { 3.141549 }
end;
end.

[Blackheart]

So wird das nix mit Dir, wenn du nicht einmal einen Doppelklick auf eine Komponente hinkriegst.
du solltest Dir "Unbedingt" noch mal einige Anfängertutorials reinziehen. :wink:

[Enten Mann]

ohja habs gesehen :D

Ich brauche mal die Delphi Hilfe Datei

[rawsoul]

Mag sein, dass ich es überlesen habe - aber wieso willst du Pi berechnen? Bei meinen anfänglichen Taschenrechnerprojekten habe ich eine Konstante festgelegt.

Und von welcher HilfeDatei redest du?

[angos]

Zitat:

Zitat von Enten Mann

Ja habe ich sieht man ja auch im Code ich sehe keine Fehler.

Hi,

das sieht man leider nicht am Code. Klick mal das jeweilge Image auf deinem Formular an und prüf dann mal im Objektinspektor unter Ereignisse, ob die jeweilige Funktion unter OnClick zugewiesen ist!


Gruß

Ansgar

PS: Arbeite dich mal da durch, das erklärt schon einiges: Delphi-Treff Tutorials

[Enten Mann]

THX werde ich ma durchlesen

[Enten Mann]

Zitat:

Zitat von rawsoul

Mag sein, dass ich es überlesen habe - aber wieso willst du Pi berechnen? Bei meinen anfänglichen Taschenrechnerprojekten habe ich eine Konstante festgelegt.

Und von welcher HilfeDatei redest du?

Bei Delphi 7 oder so gibt es bestimmt ne gute hilfe datei mit erklärungen und beispielen

[rawsoul]

Die hat doch TurboDelphi Explorer auch, wenn ich mich nicht irre. Ansonsten kann ich dir MSDN empfehlen.

[Enten Mann]

Zitat:

Zitat von rawsoul

Die hat doch TurboDelphi Explorer auch, wenn ich mich nicht irre. Ansonsten kann ich dir MSDN empfehlen.

ok werde ma schauen aber hat jemand vllt die hilfe datei von delphi 7?

würde mich echt freuen

[rawsoul]

Wenn du eine eigene hast, wieso brauchst dann noch zusätzliche? Letztendlich wird das gleiche drinstehen.

[Enten Mann]

Erledigt die hälfte is deutsch die ander hälfte englisch schon doof :D

[Mokuba01]

Das ist (nehme ich mal an) auch bei allen anderen so. Zumindist be mir.
Da hilft nur:
1. Selber übersetzen
oder:
2. auf diese Übersetzungswebsite gehen

Gruß Mokuba01

[everdream]

Hm, der "=" Button dürfte noch sehr interessant werden...
Wenn man sowas wie Klammern und andere Verkettungen drin hat, wird das ganze ja schon etwas anspruchsvoller... Würde das mit "Token" lösen, aber das dürfte ja für einen totalen Anfänger noch etwas zu schwer sein. Wie könnte man sowas denn einfacher lösen?

Wie siehts denn bei dir aus, Enten Mann? Hast du mal ein Tutorial durchgearbeitet?

[patti]

An seiner Stelle würde ich sowieso keinen Mathe-Parser schreiben, da dieser wohl deutlich zu kompliziert werden würde. Ich würde das Programm wie den Windows eigenen Taschenrechner aufbauen, d.h. eine Zahl nach der anderen mit Zwischen-Ergebnissen, etc.

@Enten-Mann: Wie schaut's aus? Hast du das, was ich dir geschrieben habe, schon umgesetzt?

Patti

[Andy090778]

für was PI berechnen?

änder mal

Delphi-Quellcode:

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ExtCtrls;

in

Delphi-Quellcode:

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ExtCtrls, Math;

und schon kennt Delphi das Schlüsselwort Pi und liefert ein Pi auf 20 Stellen genau.

[biby90]

wie hast du denn die konstanten angelegt?

[DeddyH]

Welche Konstanten? Und weshalb kaperst Du 3 1/2 Jahre alte Threads?

[himitsu]

Meinst du das mit dem Pi?

Nimm 'nen Button, und darin kopierst du FloatToStr(Pi) in dein Edit.
(Unit Math natürlich noch einbinden)

[biby90]

hatte nicht weiter gelesen sorry.
ja nee ich meinte konstanten für die buttons.
nee ohne pi. aber ist ja jetzt auch egal habs fast