Calculadora en delphi 7

keikurono · #1 04-03-2007

si ese es mi problema tambien, pero el chiste es que solo hayga un edit pero ...nemesio aver explica mejor eso de como utizar eso de OnKeyPress del Edit y de key:=#0(en donde lo pongo), ademas No encuentro el comando del edit que hace que uno escriba de derecha a izquierda como en los verdaderas calculadorass no recuerdo ese comando porfa diganlo psss

dec · #2 04-03-2007

Hola,

Respecto del "key := #0"... lo sitúas en el miso evento "OnKeyPress": fíjate que "key" es un parámetro que se pasa como referencia en dicho método, de modo que tú puedes operar sobre el mismo, por ejemplo asignándole el valor que dices.

Respecto de la alineación del texto en un "TEdit"... si en tu versión de Delphi no cuentas con una propiedad "AlignText" o "Alignment", o "TextAlign" (ahora mismo no recuerdo su nombre exacto) puedes probar en todo caso el componente que preparó Román y cuya lógica y código fuente puedes encontrar aquí: "Alineando texto en un TEdit".

joHn je@N · #3 04-03-2007

dec solo una pregunta. ¿En que version de Delphi aparece la propiedad en un Edit de Alinear el Texto?. (Uso Delphi7 y no la tiene

)

No he visto el código de Roman pero, si es complicado mejor usa un Memo o un RichEdit.

Saludos

dec · #4 04-03-2007

Hola,

Creo que es a partir del Delphi que acompaña a BDS 2005 que ya se encuentra dicha propiedad (y algunas más añadidas al "TEdit" y otros componentes). También contarás con ella en BDS 2006 y creo que también en Turbo Delphi.

En cuanto al código de Román... no, hombre, aparte de que no es nada complicado (desde mi punto de vista, por otro lado nada privilegiado), digo, además de eso Román lo comenta pormenorizadamente.

joHn je@N · #5 04-03-2007

Ya he visto el código de roman solo me queda hacerle una reverencia.
Que bueno tener a gente como roman en el foro.

Pero como eudy se dice ser un novato, "instalar o agregar" el componente le sería más complicado.

Saludos

Julián · #6 04-03-2007

Cita:

Empezado por keikurono

...pero el chiste es que solo hayga un edit pero ...

Pues eso tampoco compila

vtdeleon · #7 04-03-2007

Cita:

Empezado por dec

y creo que también en Turbo Delphi.

En los turbo no está eso. Y nunca lo habia visto en versiones anteriores

, me sorprendo ahora. Siempre he usado los trucos o componentes de terceros para alinear.

Saludos

[seoane] · #8 04-03-2007

Y el truco de Marcos:

Código Delphi [-]  SysLocale.MiddleEast := true;
  Edit1.BiDiMode := bdRightToLeft

fidel · #9 05-03-2007

Hola:

Si es para practicar o por otra razón puedes hacerte la calculadora, pero si no llama desde Delphi a la de windows y ya está.

Código Delphi [-]ShellExecute(Handle, 'open', 'calc.exe', nil, nil, SW_SHOW);

Un saludo.

keikurono · #10 06-03-2007

aver que les parece este codigo....
Solucion al problema de la calcu en delphi!!!!!

Código Delphi [-] 
unit calcu_Until;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
arreg1=array[1..100,1..100] of string;
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
w:boolean;
B:arreg1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
    begin
        w:=true;
    end;
procedure TForm1.Button2Click(Sender: TObject);//boton suma
    begin
       if edit1.Text<>'' then
            if W=true then
                begin
                   B[1,1]:=edit1.Text;
                   B[1,2]:='+';
                   W:=false;
                   edit1.Text:='';
                   edit1.SetFocus;
                end
           else
               begin
                     B[2,1]:=edit1.Text;
                          if B[1,2]='+' then
                                B[1,1]:=floattostr(strtofloat(B[1,1])+strtofloat(B[2,1]));
                          if B[1,2]='/' then
                                if B[2,1]<>'0' then
                                       B[1,1]:=floattostr(strtofloat(B[1,1])/strtofloat(B[2,1]))
                                else
                                       MESSAGEDLG('EL DIVIDENDO DEVE DE SER <>0',mTInformation,[mbok],0);
                          if B[1,2]='-' then
                                B[1,1]:=floattostr(strtofloat(B[1,1])-strtofloat(B[2,1]));
                          if B[1,2]='*' then
                                B[1,1]:=floattostr(strtofloat(B[1,1])*strtofloat(B[2,1]));
                    B[1,2]:='+';
                    edit1.Text:=B[1,1];
                    edit1.SetFocus;
                    W:=false;
                    B[2,1]:='';
             end;
 
end;
procedure TForm1.Button3Click(Sender: TObject);//BOTON RESTA
begin
       if edit1.Text<>'' then
              if W=true then
                  begin
                      B[1,1]:=edit1.Text;
                      B[1,2]:='-';
                      W:=false;
                      edit1.Text:='';
                      edit1.SetFocus;
                 end
             else
                  begin
                       B[2,1]:=edit1.Text;
                            if B[1,2]='+' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])+strtofloat(B[2,1]));
                            if B[1,2]='-' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])-strtofloat(B[2,1]));
                            if B[1,2]='*' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])*strtofloat(B[2,1]));
                            if B[1,2]='/' then
                                  if B[2,1]<>'0' then
                                      B[1,1]:=floattostr(strtofloat(B[1,1])/strtofloat(B[2,1]))
                                  else
                                      MESSAGEDLG('EL DIVIDENDO DEVE DE SER DISTINTO DE CERO',mTInformation,[mbok],0);                            
                            B[1,2]:='-';
                            edit1.Text:=B[1,1];
                            edit1.SetFocus;
                            W:=false;
                            B[2,1]:='';
                    end;
end;
procedure TForm1.Button4Click(Sender: TObject);//BOTON POR
     begin
         if edit1.Text<>'' then
              if W=true then 
                 begin
                     B[1,1]:=edit1.Text;
                     B[1,2]:='*';
                     W:=false;
                     edit1.Text:='';
                     edit1.SetFocus;
                 end
             else
                 begin
                      B[2,1]:=edit1.Text;
                            if B[1,2]='+' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])+strtofloat(B[2,1]));
                            if B[1,2]='-' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])-strtofloat(B[2,1]));
                            if B[1,2]='*' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])*strtofloat(B[2,1]));
                            if B[1,2]='/' then
                                   if B[2,1]<>'0' then
                                           B[1,1]:=floattostr(strtofloat(B[1,1])/strtofloat(B[2,1]))
                                   else
                                           MESSAGEDLG('EL DIVIDENDO DEVE DE SER DISTINTO DE CERO',mTInformation,[mbok],0);

                            B[1,2]:='*';
                            edit1.Text:=B[1,1];
                            edit1.SetFocus;
                            W:=false;
                            B[2,1]:='';
                   end;
end;
procedure TForm1.Button5Click(Sender: TObject);//boton entre
  begin
       if edit1.Text<>'' then
             if W=true then
                 begin
                      B[1,1]:=edit1.Text;
                      B[1,2]:='/';
                      W:=false;
                      edit1.Text:='';
                      edit1.SetFocus;
                 end
             else
                 begin
                      B[2,1]:=edit1.Text;
                           if B[1,2]='+' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])+strtofloat(B[2,1]));
                           if B[1,2]='-' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])-strtofloat(B[2,1]));
                           if B[1,2]='*' then
                                  B[1,1]:=floattostr(strtofloat(B[1,1])*strtofloat(B[2,1]));
                           if B[1,2]='/' then
                                 if B[2,1]<>'0' then
                                       B[1,1]:=floattostr(strtofloat(B[1,1])/strtofloat(B[2,1]))
                           else
                                 MESSAGEDLG('EL DIVIDENDO DEVE DE SER DISTINTO DE CERO',mTInformation,[mbok],0);
                           
                       B[1,2]:='/';
                       edit1.Text:=B[1,1];
                       edit1.SetFocus;
                       W:=false;
                       B[2,1]:='';
               end;
 
end;
procedure TForm1.Button1Click(Sender: TObject);//boton igual 
   begin
        if (B[2,1]='')and(B[1,2]<>'')then
             B[2,1]:=edit1.Text;
        if B[1,2]='+' then
             B[1,1]:=floattostr(strtofloat(B[1,1])+strtofloat(B[2,1]));
        if B[1,2]='-' then
             B[1,1]:=floattostr(strtofloat(B[1,1])-strtofloat(B[2,1]));
        if B[1,2]='*' then
             B[1,1]:=floattostr(strtofloat(B[1,1])*strtofloat(B[2,1]));
        if B[1,2]='/' then
             if B[2,1]<>'0' then
                  B[1,1]:=floattostr(strtofloat(B[1,1])/strtofloat(B[2,1]))
             else
                  MESSAGEDLG('EL DIVIDENDO DEVE DE SER DISTINTO DE CERO',mTInformation,[mbok],0);
        B[2,1]:='';
        B[1,2]:='';
        edit1.Text:=B[1,1];
        w:=TRUE;
 
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
       if not (key in ['0'..'9',#8]) then
          begin
              key:=#0;
              beep;
          end;
  end;
end.

keikurono · #11 10-03-2007

La nota es que es muy larga porque siempre repito este codigo en los 4 botones (+, -, *, /)

Código SQL [-] if B[1,2]='+' then
             B[1,1]:=floattostr(strtofloat(B[1,1])+strtofloat(B[2,1]));
        if B[1,2]='-' then
             B[1,1]:=floattostr(strtofloat(B[1,1])-strtofloat(B[2,1]));
        if B[1,2]='*' then
             B[1,1]:=floattostr(strtofloat(B[1,1])*strtofloat(B[2,1]));
        if B[1,2]='/' then
             if B[2,1]<>'0' then
                  B[1,1]:=floattostr(strtofloat(B[1,1])/strtofloat(B[2,1]))
             else
                  MESSAGEDLG('EL DIVIDENDO DEVE DE SER DISTINTO DE CERO',mTInformation,[mbok],0);

Alguien save eso de como utilizar en un project como estos, eso de prosedimiento ???, por que con eso se acortaria mejor

.

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
calculadora de conjuntos...insercion, union,etc	sakuragi	JAVA	3	19-02-2009 16:46:59
Calculadora	Epunamun	OOP	3	19-12-2005 22:33:11
Calculadora licencia GNU	bismarck_sierra	Varios	0	05-04-2005 06:56:33
Componente Calculadora	Gustavo Gowdak	OOP	4	23-01-2005 13:19:14
Ejecutar la calculadora en una posición de la pantalla	cybergerman	OOP	11	27-09-2004 09:13:33