boton de signo = calculadora

[skinnerpro]

Hola tengo un problema con el boton de signo "=" es el que da el resultado

Ver la imagen (http://s1.subirimagenes.com/imagenes/previo/thump_15223482007-10-12_213814.gif)

eh intentado de diversas maneras y no que funciona


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Edit1: TEdit;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure Button14Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button14Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button14.caption
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Clear;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button12.caption;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button13.caption;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button15.caption;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
edit1.Text := edit1.Text + button17.caption;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
cero: integer;
begin
cero := 0;
edit1.text := edit1.text + inttostr(cero);
end;

procedure TForm1.Button6Click(Sender: TObject);
var
cero: integer;
begin
cero := 1;
edit1.text := edit1.text + inttostr(cero);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
dos: integer;
begin
dos := 2;
edit1.text := edit1.text + inttostr(dos);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
tres: integer;
begin
tres := 3;
edit1.text := edit1.text + inttostr(tres);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
cuatro: integer;
begin
cuatro := 4;
edit1.text := edit1.text + inttostr(cuatro);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
cinco: integer;
begin
cinco := 5;
edit1.text := edit1.text + inttostr(cinco);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
seis: integer;
begin
seis := 6;
edit1.text := edit1.text + inttostr(seis);
end;

procedure TForm1.Button10Click(Sender: TObject);
var
siete: integer;
begin
siete := 7;
edit1.text := edit1.text + inttostr(siete);
end;

procedure TForm1.Button8Click(Sender: TObject);
var
ocho: integer;
begin
ocho := 8;
edit1.text := edit1.text + inttostr(ocho);
end;

procedure TForm1.Button9Click(Sender: TObject);
var
nueve: integer;
begin
nueve := 9;
edit1.text := edit1.text + inttostr(nueve);
end;

end.


aca esta la aplicacion solo le falta el boton = que es el que da el resultado final

Bajar (http://rapidshare.com/files/62169842/calculadora_z.rar)

[Caral]

Hola
Para mi el concepto esta interesante, pero para hacer una operacion matematica tendrias que separar el simbolo de la opercion.
En este caso el simbolo esta incluido en la operacion, asi no creo que se pueda.
hay otras maneras de hacerlo.
Para mi habria que reestruccturar el concepto, por supuesto me puedo equivocar.
Saludos

[Caral]

Hola
Aqui esta tu calculadora, se puede mejorar, eso seguro.
Saludos

[Caral]

Hola
Esto si que es molesto.
Te sirvió?, era lo que necesitabas?, quedaron bien los cambios?, etc,etc,etc.
Normalmente cuando se hace un favor a alguien, sea como sea, las reglas de educación dicen que hay que decir GRACIAS, aunque sea por nada, por tomarse el tiempo en leer el hilo.
No es la primera vez que pasa y tomo nota, no trabajo aquí, como tampoco lo hacen los demás, no somos libros de referencia.
Saludos

[dec]

Hola,


Hola

Esto si que es molesto.

Te sirvió?, era lo que necesitabas?, quedaron bien los cambios?, etc,etc,etc.

Normalmente cuando se hace un favor a alguien, sea como sea, las reglas de educación dicen que hay que decir GRACIAS, aunque sea por nada, por tomarse el tiempo en leer el hilo.

No es la primera vez que pasa y tomo nota, no trabajo aquí, como tampoco lo hacen los demás, no somos libros de referencia.
Saludos


Sin estar en desacuerdo contigo, de hecho la propia guía de estilo viene a encarecer aquello de que es de bien nacidos ser agradecidos, lo cierto es que han pasado 10 horas desde que publicaste el mensaje (y fin de semana que es) Caral, y, es probable que el compañero se desconectase, o en todo caso aún no pudiera agradecer... lo que no sabe.

PD. O tal vez me estoy perdiendo algo. Pero vamos... :)

PD2. Por lo demás, la calculadora que enviaste tiene muy buena pinta. ;)

[Caral]

Hola
Gracias Dec, puede que tengas razón.
Saludos

[dec]

Hola,

La cosa es que sólo el tiempo dará razón. Y que, pase lo que pase, creo que podremos llegar a la siguiente conclusión: hay personas agradecidas y hay personas desagradecidas. Pero creo que esto no es genético, se puede ir a mejor o a peor en todo caso.

Tal vez esto es así desde el principio de los tiempos... y tal vez sea así hasta el final de ellos. Conclusión, por tanto, que, una vez asumida, te ayuda en los casos en que te encuentras personas desagradecidas, porque, no podía ser de otro modo, es fatal.

PD. No hablo de nadie en concreto (una de las cosas que pasa con las personas desagradecidas es que su conocimiento suele durar poco en el cerebro de las personas agradecidas, si bien esto es ventajoso y no lo es, porque el olvido tiene doble filo), ¿eh? Vamos, que no me estoy refiriendo a nadie. Estoy... ¡filosofando! :D :D

[Caral]

Hola
Hoy amaneciste filosofando, me parece muy bien, eso denota inteligencia y sentido del humor.
Hay que tomarse las cosas del que viene, suelo dar y no pedir, esa es mi norma, pero cuando se da y se piensa que se ha hecho algo, solo algo y revisas como en este caso en que han bajado el arreglo tres veces, piensas, 1= el que lo solicito, 2 y 3 alguien que le intereso el tema, que cuesta ser amable, agradecido, creo que poco comparado a lo que se puede recibir en este club de los que verdaderamente saben.
Tampoco me hagas mucho caso, estoy como tu (Filosofando), hoy es el dia del filosofo :D:D:D
Saludos

[skinnerpro]

Hola muchas gracias por la calculadora

si me sirvio

disculpen la demora

se me corto la luz y por eso no pude acceder al mensaje

saludos