Hjælp til lommeregner..

Du kan ikke bestille færdige projekter her.
Der er ingen nemme genveje - du må selv i gang med projektet.
Løber du ind i problemer undervejs, er du velkommen til at søge hjælp til specifikke problemer her.

her er lidt at starte med (- + divide og nulstil

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Counter: TEdit;
    Label4: TLabel;
    Devide: TSpeedButton;
    Reset: TSpeedButton;
    Add: TSpeedButton;
    Minus: TSpeedButton;
    Multiply: TSpeedButton;
    procedure DevideClick(Sender: TObject);
    procedure ResetClick(Sender: TObject);
    procedure AddClick(Sender: TObject);
    procedure MinusClick(Sender: TObject);
    procedure MultiplyClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
var

FirstNumber,SecondNumber,Count: Integer;

procedure TForm1.DevideClick(Sender: TObject);
begin
FirstNumber  := StrToInt(Edit1.Text);
SecondNumber := StrToInt(Edit2.Text);
Edit3.Text :=IntToStr(FirstNumber Div SecondNumber);
Count := Count + 1;
Counter.Text := IntToStr(Count);
end;

procedure TForm1.ResetClick(Sender: TObject);

begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
end;

procedure TForm1.AddClick(Sender: TObject);
begin
FirstNumber  := StrToInt(Edit1.Text);
SecondNumber := StrToInt(Edit2.Text);
Edit3.Text :=IntToStr(FirstNumber + SecondNumber);
Count := Count + 1;
Counter.Text := IntToStr(Count);
end;

procedure TForm1.MinusClick(Sender: TObject);
begin
FirstNumber  := StrToInt(Edit1.Text);
SecondNumber := StrToInt(Edit2.Text);
Edit3.Text :=IntToStr(FirstNumber - SecondNumber);
Count := Count + 1;
Counter.Text := IntToStr(Count);
end;

procedure TForm1.MultiplyClick(Sender: TObject);
begin
Counter.Text := IntToStr(Count);
FirstNumber := StrToInt(Edit1.Text);
SecondNumber :=StrToInt(Edit2.Text);
Edit3.Text  := IntToStr (FirstNumber * SecondNumber);
Count := Count + 1;
Counter.Text := IntToStr(Count);

end;

Initialization
Count:= 0;
end.

okay, men laver det i programmet delphi også skal jeg jo først lave knapperne?

det er op til dig hvilke knapper du vil bruge,

iøvrigt count kan du bare fjerne det er en funktion som kun tæller op hvormange beregninger der er foretaget.

ud fra mit eksempel kan du se du skal bruge 5 knapper - + x divider og reset

navngiv knapperne som der står i eksemplet f.eks + (Add) tildel den eventen ved click:
begin
FirstNumber  := StrToInt(Edit1.Text);
SecondNumber := StrToInt(Edit2.Text);
Edit3.Text :=IntToStr(FirstNumber + SecondNumber);

er lidt i tidsnød nu men vender tilbage i aften hvis du har spørgsmål

hvis du ønsker at lave grafik til knappen kan du vælge en speedbutton og vælge et glyph til knappen....