jackiie
Anmeldungsdatum: 11.01.2006
Beiträge: 2
|
 Verfasst am: 11. Jan 2006 20:03 Titel: der beliebte taschenrechner :/ |
 |
|
hi!
also wir sollen von der schule aus einen taschenrechner programmieren. der soll dem taschenrechner von windows ähneln, nur nicht mit so vielen funktionen. er soll nur die grundrechenarten beinhalten. jetzt die frage, wie bekomme ich es hin, dass wenn ich auf einen button klicke (sagen wir mal auf 1) der das auch auf dem "display" anzeigt (quasi genau wie beim windows-taschenrechner)
anders gesagt: wenn ich auf knöpfe drücke soll das so aussehen=>
3+3 und wenn man dann auf "=" drückt soll nur das ergebnis da stehen...ich bin äußerst weit  mein bisheriger quellcode sieht so aus weil ich im moment ein brett vorm kopf hab und nich weiss wie ich das machen soll...unser lehrer meinte das das schwer is aber zu machen is mit meinen grundlagen...
| Code: |
unit rechner;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
display: TEdit;
beins: TButton;
bzwei: TButton;
bdrei: TButton;
bvier: TButton;
bfuenf: TButton;
bsechs: TButton;
bsieben: TButton;
bacht: TButton;
bneun: TButton;
bnull: TButton;
bplus: TButton;
bminus: TButton;
bmal: TButton;
bgeteilt: TButton;
bgleich: TButton;
procedure bgleichClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.bgleichClick(Sender: TObject);
var eins, zwei, drei, vier, fuenf, sechs, sieben, acht, neun, null, x, y, erg: REAL;
begin
eins := strtofloat (beins.caption);
zwei := strtofloat (bzwei.Caption);
drei := strtofloat (bdrei.Caption);
vier := strtofloat (bvier.Caption);
fuenf := strtofloat (bfuenf.Caption);
sechs := strtofloat (bsechs.Caption);
sieben := strtofloat (bsieben.Caption);
acht := strtofloat (bacht.Caption);
neun := strtofloat (bneun.Caption);
null := strtofloat (bnull.caption);
end;
END.
|
achja und ich verwende das programm delphi
thx im voraus!
_________________
mfG jackie! |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
