Código de Delphi - Calculadora

sin imagen de perfil

Calculadoragráfica de visualizaciones


Delphi

Publicado el 11 de Noviembre del 2009 por Dario
17.959 visualizaciones desde el 11 de Noviembre del 2009
Calculadora que incorpora unas pequeñas funciones matemáticas que trabajan de forma independiente a los cálculos comunes.
Desarrollada en Delphi 7.

Versión 1
estrellaestrellaestrellaestrellaestrella(6)

Publicado el 11 de Noviembre del 2009gráfica de visualizaciones de la versión: Versión 1
17.960 visualizaciones desde el 11 de Noviembre del 2009
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (6)

8 de Diciembre del 2010
estrellaestrellaestrellaestrellaestrella
no seas odioso payaso
Responder
11 de Septiembre del 2011
estrellaestrellaestrellaestrellaestrella
Es un codigo que puede servir de ejemplo para que mas personas lo modifiquen y ademas lo mejoren!!!
Responder
11 de Septiembre del 2011
estrellaestrellaestrellaestrellaestrella
Espero a mas personas les sea realmente util esta informacion!!! Pues para mi lo fue
Responder
Imágen de perfil
19 de Agosto del 2015
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Lodwin Acosta
20 de Abril del 2018
estrellaestrellaestrellaestrellaestrella
esta es mi calculadora casi completa solo unos cuantos errores mejor dicho en las funiones de sumas resta y etc que si no tiene valores y los marca dicen que son invalidos


unit calculadora;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Objects, FMX.Controls.Presentation, FMX.Edit, FMX.Layouts, FMX.Memo;

type
TForm1 = class(TForm)
B0: TButton;
B3: TButton;
B1: TButton;
B2: TButton;
BMulti: TButton;
B6: TButton;
B4: TButton;
B5: TButton;
BDicion: TButton;
B7: TButton;
B8: TButton;
B9: TButton;
BIgual: TButton;
BSuma: TButton;
BBorrar: TButton;
BCuadrado: TButton;
BRaiz: TButton;
BPorciento: TButton;
BPunto: TButton;
BResta: TButton;
Display: TLabel;
Display2: TLabel;
procedure B0Click(Sender: TObject);
procedure B1Click(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure B3Click(Sender: TObject);
procedure B4Click(Sender: TObject);
procedure B5Click(Sender: TObject);
procedure B6Click(Sender: TObject);
procedure B7Click(Sender: TObject);
procedure B8Click(Sender: TObject);
procedure B9Click(Sender: TObject);
procedure BPuntoClick(Sender: TObject);
procedure BBorrarClick(Sender: TObject);
procedure BSumaClick(Sender: TObject);
procedure BIgualClick(Sender: TObject);
procedure BRestaClick(Sender: TObject);
procedure BMultiClick(Sender: TObject);
procedure BDicionClick(Sender: TObject);
procedure BCuadradoClick(Sender: TObject);
procedure BRaizClick(Sender: TObject);
procedure BPorcientoClick(Sender: TObject);

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

var
Form1: TForm1;

op : Char;
acumulador : double;
acumulador2 : double;

implementation

{$R *.fmx}
{$R *.SmXhdpiPh.fmx ANDROID}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.LgXhdpiTb.fmx ANDROID}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TForm1.B0Click(Sender: TObject);
begin

Display.Text := Display.Text + '0';

end;

procedure TForm1.B1Click(Sender: TObject);
begin


Display.Text := Display.Text + '1';


end;

procedure TForm1.B2Click(Sender: TObject);
begin


Display.Text := Display.Text + '2';


end;

procedure TForm1.B3Click(Sender: TObject);
begin


Display.Text := Display.Text + '3';


end;

procedure TForm1.B4Click(Sender: TObject);
begin


Display.Text := Display.Text + '4';


end;

procedure TForm1.B5Click(Sender: TObject);
begin


Display.Text := Display.Text + '5';


end;

procedure TForm1.B6Click(Sender: TObject);
begin


Display.Text := Display.Text + '6';


end;

procedure TForm1.B7Click(Sender: TObject);
begin


Display.Text := Display.Text + '7';


end;

procedure TForm1.B8Click(Sender: TObject);
begin


Display.Text := Display.Text + '8';


end;

procedure TForm1.B9Click(Sender: TObject);
begin


Display.Text := Display.Text + '9';


end;

procedure TForm1.BBorrarClick(Sender: TObject);
begin

Display.Text := copy (Display.Text, 1, length (Display.Text) -1);
Display2.Text := '';
acumulador := 0;
acumulador2 := 0;
BPunto.Enabled:= true;

end;

procedure TForm1.BCuadradoClick(Sender: TObject);

var
error: Integer;
acumulador: real;
begin
Val(Display.text,acumulador,error);
if error = 0 then
Display.Text := floattostr(sqr(acumulador))
else
Display.Text := '';
Display.Tag := 0;

end;

procedure TForm1.BDicionClick(Sender: TObject);


begin

op := '/';
acumulador2 := strtofloat (Display.Text);
acumulador := strtofloat (Display.Text);
Display.Text := '';
Display.tag := 0;
BPunto.Enabled:= true;
end;

procedure TForm1.BPorcientoClick(Sender: TObject);
begin

Display.text := FloatToStr(StrToFloat(Display.text) / 100);
end;

procedure TForm1.BIgualClick(Sender: TObject);
begin

if op = '+' then
acumulador := acumulador + strtofloat (Display.Text);



if op = '-' then
acumulador := acumulador - strtofloat (Display.Text);

if op = '*' then
acumulador := acumulador * strtofloat (Display.Text);

if op = '/' then
acumulador := acumulador / strtofloat (Display.Text);

Display2.Text := floattostr(acumulador2)+ op + Display.text;
Display.Text := floattostr (acumulador);


end;

procedure TForm1.BMultiClick(Sender: TObject);

begin
op := '*';
acumulador2 := strtofloat (Display.Text);
acumulador := strtofloat (Display.Text);
Display.Text := '';
Display.tag := 0;
BPunto.Enabled:= true;
end;

procedure TForm1.BPuntoClick(Sender: TObject);
begin

Display.Text := Display.Text + '.';
BPunto.Enabled:= false;
end;

procedure TForm1.BRaizClick(Sender: TObject);

var

error: Integer;
acumulador: real;

begin

Val(Display.text,acumulador,error);
if error = 0 then
Display.Text := floattostr(sqrt(acumulador))
else
Display.Text := '';
Display.Tag := 0;

end;

procedure TForm1.BRestaClick(Sender: TObject);
begin

op := '-';
acumulador2 := strtofloat (Display.Text);
acumulador := strtofloat (Display.Text);
Display.Text := '';
Display.tag := 0;
BPunto.Enabled:= true;

end;

procedure TForm1.BSumaClick(Sender: TObject);

begin

op := '+';
acumulador2 := strtofloat (Display.Text);
acumulador := strtofloat (Display.Text);
Display.Text := '';
Display.tag := 0;
BPunto.Enabled:= true;

end;

end.
Responder
manuel jimenez
13 de Septiembre del 2018
estrellaestrellaestrellaestrellaestrella
Hola, cómo quedó tu calculadora? puedes mostrarnos la interface? gracias
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s1898