Necesito ayuda - Pascal - Lazarus

[olbeup]

Hola Juampi,

Con esto puedes avanzar un poco.

Esto al principio

Código Delphi [-]
const
  WVK_BACKDELETE  = #8;
  WVK_SUM         = #43;
  WVK_REST        = #45;
  WVK_EQUAL       = #61;
  WVK_NULL        = #0;
  WVK_EMPTY       = '';

type
  TCalculatorReg = record
    NumberStr: String;
    KeyPred: Char;
    KeyNext: Char;
    SubTotal: Integer;
  end;

Y esto en los eventos correspondientes.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', WVK_SUM, WVK_REST, WVK_EQUAL, WVK_BACKDELETE]) then
    Key := WVK_NULL;
end;

procedure TForm1.Button1Click(Sender: TObject);

  function IsNumeric(S: Char): Boolean;
  begin
    Result := (S in ['0'..'9']);
  end;

  function IsSum(S: Char): Boolean;
  begin
    Result := (S = '+');
  end;

  function IsRest(S: Char): Boolean;
  begin
    Result := (S = '-');
  end;

var
  Calc: TCalculatorReg;
  nI: Integer;
  S: String;
  Key: Char;
begin
  FillChar(Calc, SizeOf(Calc), #0);
  Key := WVK_NULL;
  S := Edit1.Text;

  for nI := 1 to Length(S) do
  begin
    if IsNumeric(S[nI]) then
      Calc.NumberStr := Calc.NumberStr + S[nI]
    else
      if IsSum(S[nI]) then
        Key := WVK_SUM
      else
        if IsRest(S[nI]) then
          Key := WVK_REST
        else
          Key := WVK_EQUAL;

    if (Key <> WVK_EMPTY) and (Calc.KeyPred <> WVK_EMPTY) and (Calc.KeyNext = WVK_EMPTY) then
      Calc.KeyNext := Key;

    if (Key <> WVK_EMPTY) and (Calc.KeyPred = WVK_EMPTY) and (Calc.KeyNext = WVK_EMPTY) then
      Calc.KeyPred := Key;

    Key := WVK_NULL;

    if (Calc.KeyPred <> WVK_EMPTY) and (Calc.KeyNext = WVK_EMPTY) then
      if (Calc.SubTotal = 0) then
      begin
        Calc.SubTotal := StrToInt(Calc.NumberStr);
        Calc.NumberStr := WVK_EMPTY;
      end;

    if (Calc.KeyPred <> WVK_EMPTY) and (Calc.KeyNext <> WVK_EMPTY) then
    begin
      if (Calc.KeyPred = WVK_SUM) then
        Calc.SubTotal := Calc.SubTotal + StrToInt(Calc.NumberStr);
      if (Calc.KeyPred = WVK_REST) then
        Calc.SubTotal := Calc.SubTotal - StrToInt(Calc.NumberStr);
      Calc.NumberStr := WVK_EMPTY;
      Calc.KeyPred := Calc.KeyNext;
      Calc.KeyNext := WVK_NULL;
    end;
  end;

  Label2.Caption := IntToStr(Calc.SubTotal);
end;

Un Saludo.

p.d.: Sólo funciona con enteros y al final tienes que poner un = para que lo sume todo, ya lo modificas como quieras.

[Juampi]

@[AgustinOrtu]

Estuve hablando con un amigo y al parecer el array dinámico no era lo que yo creía que era, y tampoco me permitiría tener "infinitos" números, que para eso pensara en punteros. Voy a tener que leer un poco sobre eso, tanto sobre arrays dinámicos como sobre punteros.

@Casimiro Notevi

¿Es posible hacer la calculadora de Windows solo con variables?, de ser así, sé menos programación de lo que creía que sabía. ¿Cómo manejas solamente con variables que el usuario ingrese todos los números que se le plazca?.

Repito la consigna por las dudas, mi idea no es hacer una calculadora cualquiera, es hacerla como la de Windows, que el usuario me puede ingresar n + n como me puede ingresar n + n + n - n -n + n / n * n + n... + n. Sinceramente no sé cómo guardar todos esos valores utilizando solo variables, no digo que no sea posible, sencillamente no me doy cuenta.

@olbeup

Hay varias líneas de ese código que no sé leer, no las termino de entender, pero veré si lo copio y ejecutándolo y probando logro entenderlo al completo.

Saludos y gracias, les aviso cuando logre algo como la gente, jeje.

[[AgustinOrtu]]

Con un arreglo dinamico podes tener tantos numeros como memoria tengas disponible (ok no es del todo precisa esa afirmacion, es un poco exagerado, pero podemos verlo de esa manera)

Si te fijas en como estan implementadas las estructuras que contienen datos (el ejemplo mas facil son las listas) veras que usan un arreglo dinamico, el cual van haciendo crecer a medida que hace falta meter mas elementos. Para eso estas clases van llevando la cuenta de cuantos elementos hay, cual es el tamaño actual del arreglo, realizan el "ensanchamiento" cuando es necesario, etc.

Obviamente esto tiene un coste, porque los arreglos tratan de posiciones contiguas de memoria: si yo primero digo que hay un arreglo con 10 posiciones, se reserva en memoria 10 posiciones contiguas; si ahora quiero tener 15, necesito 15 posiciones. Si en donde estaba parado tengo para sumar las 5 posiciones, genial; pero si no, tengo que buscar una porcion de memroia en donde me entre un arreglo de 15 y despues moverlo.
Todo esto se maneja de memoria automatica incluso si queres operar a un nivel "tan bajo" como es el de los arreglos dinamicos. Uno simplemente lo redimensiona, con el mismo codigo que mostre arriba, llamando a System.SetLength(variableArreglo, tamanoDeseado) y Delphi/Lazarus se encarga del resto.

Si queres poder usar el arreglo dinamico, quiza requiera un poco mas de trabajo, aunque como aprendizaje esta buenisimo. Si queres usar algo ya hecho, en tu caso lo mas ideal seria una lista. No es estoy muy al dia con el tema de las clases en Lazarus, pero si realmente trata de ser lo mas Delphi-compatible posible, supongo que habra una clase TList en la unidad Classes.pas. Ejemplos y documentacion de esta clase hay por doquier. El problema que tiene esta clase es que el tipo de los elementos que guarda son punteros, porque permite guardar cualquier cosa. Va a implicar que aprendas a usar casting, lo cual a esta altura me parece demasiado

Tambien podes considerar utilizar la version generica, TList<T>. Esta soluciona el problema del tipo que comentaba en el parrafo anterior. En pocas palabras, es lo mismo que la TList, pero esta permite solamente tener elementos del tipo que le indica el programador, esto lo hace mas seguro y comodo de usar ya que te olvidas del tema de punteros. Pero de nuevo, creo que te voy a marear demasiado con tanta informacion

[axesys]

Te recomiendo que investigues sobre tplex y tpyacc, son metacompiladores que te pueden tokenizar y calcular las expresiones de una cadena.

http://freecode.com/projects/dyacclex

[Juampi]

@[AgustinOrtu]

Gracias por la aclaración, y dado lo que me dijiste ya guardé para leer más adelante "TCollection" en wiki.freepascal.org. Decidí inicialmente intentar hacer funcionar la calculadora con un máximo de números y una vez consiga ese objetivo parcial, después dar el paso a todos los números que el usuario quiera. Pienso que como comienzo e ir fijándome metas es razonable.

@axesys

Gracias, lo haré ni bien avance un poco más con el proyecto, que por ahora no he salido del botón +, je. En mi defensa aclarar que desde que abrí este hilo no debo haber pasado la media hora con el programa, no he tenido tiempo y acá estoy un Domingo, el único día "100% libre" que tengo, tratando de adelantar algo.

@todos

Les cuento lo que me tiene trancado ahora mismo, que estoy seguro que es una bobada importante pero no me estoy dando cuenta. Este es el código de mi botón +:

{--- S U M A (+) ---}

procedure TForm1.btnSumaClick(Sender: TObject);

var i : integer;

begin

display.setFocus; {---"display" es el nombre que le puse a la caja de texto donde ingreso los números, le pongo el setFocus para que enseguida quede pronto para recibir más números---}
op[i] := '+'; {---ignoren esto por ahora---}
nros[i] := StrToInt(display.text); {---nros es el array donde guardo los números que va ingresando el usuario---}
log[i] := display.text; {---esto también lo pueden ignorar por el momento, tiene que ver con mi idea de dejar un log encima de la caja de texto con las operaciones que fueron ingresadas---}
lbLog.caption := log[i]; {---lbLog se llama el label donde voy a mostrar el log---}
i := i + 1 {---acumulo en i---};

end;

Les explico:

• ¿Estamos de acuerdo que el bloque de código que les muestro se va a ejecutar tantas veces como veces apriete el botón +, no?
  
• Si dejo la variable i sin inicializar el programa me da error, aparece un mensaje que si mal no recuerdo dice 'External: SIGSEGV', que por lo poco que googleé es un 'Access Violation' y entiendo que se debe a que aleatoriamente la variable i tomó un valor que queda por fuera del rango del array. ¿Esto es así?.
  
• Si inicializo la variable antes del begin me da error al compilar, o sea, no funciona el programa ya de arranque, así que entiendo que eso no se hace, que no funciona de esa manera.
  
• Y después del begin ni siquiera lo probé porque entiendo que cada vez que presione el botón le voy a asignar ese valor (cero en este caso, mi array va del 0 al 9) y nunca lo podría usar como acumulador que es lo que busco justamente.

Es muy probable que la solución a esto sea extremadamente sencilla, y si bien termino de escribir esto y me voy a seguir pensando como se haría, quería que supieran en qué estaba trancado y mi decisión de por el momento acotar el array a "x" cantidad de lugares y después profundizar en arrays dinámicos, TList, etc.

Gracias una vez más.

[Juampi]

No dije nada, no dije nada, ya se me iluminó la lamparita con lo que me tenía trancado, jeje. Quise editar el mensaje anterior pero ya habían pasado 25 minutos.

Saludos

[Juampi]

Buenas, no me conectaba desde el 29/5, hacía rato no me daba una vuelta por aquí. Por distintos motivos la calculadora la dejé en stand by pero esta semana la retomé y les quería pedir una mano porque estoy trancado.

Lo que me pasa es lo siguiente, hago múltiples operaciones y me dan todas ok hasta que hago la siguiente combinación:

5 + 5 - 1 x 2 / 2.

Que de forma correcta (igual que la calculadora de Windows que es la que quiero emular, jeje) me da 9.

5 + 5 = 10
10 - 1 = 9
9 x 2 = 18
18 / 2 = 9

Pero la siguiente operación que hago después de esa secuencia me da mal. Ejemplo hago 5 x 5 y me da 24, 5 + 5 me da 9, 6 x 6 me da 35, 9 x 9 me da 80. Si, como podrán ver, me da uno menos del resultado correcto. Viendo eso sería sencillo identificar el problema pero no me doy cuenta que puede estar mal. Si teóricamente después de apretar el botón = vuelvo todo a cero, sería como cerrar y volver a ejecutar la calculadora (aunque evidentemente no lo es).

Es más, por las dudas también aprieto el botón C que lo que hace es "poner todo en cero", y nada, hasta que no cierre la calculadora seguirá dando un número menos.

Probando hice otra operación, en este caso 5 + 10 - 2 x 2 / 2 = 13 (correcto). Todo lo que hago luego de eso me da DOS números menos que lo correcto. Ejemplo 5 x 5 me da 23.

Les dejo lo que yo entiendo que necesitarían ver de este código para que puedan decirme donde la estoy macaneando y un link al .exe de la calculadora (no se rían, está en fase ultra beta, jaja).

Les dejo la declaración de variables, el form on create, el botón igual, el botón +, el botón C y un número, en este caso el 1.

private
{ private declarations }
public
{ public declarations }
var res, ultNro: integer;
nros: array [0..9] of integer;
op: array [0..9] of string;
nro: string;
sobreescribo, borroLog : boolean;

end;

____________________________________________________________________________________________________ ________________________________________________________

{ TForm1 }

{--- FORM ON CREATE ---}

procedure TForm1.FormCreate(Sender: TObject);
begin
ultNro := 0;
sobreescribo := false;
borroLog := false;
end;

____________________________________________________________________________________________________ ________________________________________________________

{--- BOTÓN IGUAL (=) ---}

procedure TForm1.btnIgualClick(Sender: TObject);

var i: integer;

begin

i := 0;

if display.text = '' then
begin
display.text := '0'
end;

nros[ultNro] := StrToInt(display.text);

if lbLog.caption = '' then
begin
display.text := IntToStr(nros[ultNro]);
display.setFocus;
end;

for i := 0 to ultNro do
begin

{S U M A (+)}

if op[i] = '+' then
begin

if i = 0 then
begin
res := nros[i] + nros[i + 1];
end

else
begin
res := res + nros[i + 1];
end

end

{R E S T A (-)}

else if op[i] = '-' then
begin

if i = 0 then
begin
res := nros[i] - nros[i + 1];
end

else
begin
res := res - nros[i + 1];
end

end

{M U L T I P L I C A C I Ó N (X)}

else if op[i] = 'X' then
begin

if i = 0 then
begin
res := nros[i] * nros[i + 1];
end

else
begin
res := res * nros[i + 1];
end

end

{D I V I S I Ó N (/)}

else if op[i] = '/' then
begin

if i = 0 then
begin
res := nros[i] DIV nros[i + 1];
end

else if nros[i] = 0 then
begin
display.text := 'No se puede dividir entre 0';
display.setFocus();
btnPercentage.enabled := false;
button16.enabled := false;
button17.enabled := false;
button1.enabled := false;
button2.enabled := false;
btnComa.enabled := false;
btnSuma.enabled := false;
btnResta.enabled := false;
btnMultiplicacion.enabled := false;
btnDivision.enabled := false;
ultNro := 0;
end

else

begin
res := res DIV nros[i + 1];
end

end

else
begin
res := res;
end

end;

lbLog.caption := '';
display.text := IntToStr(res);
sobreescribo := true;
borroLog := true;
ultNro := 0;

end;

____________________________________________________________________________________________________ ________________________________________________________

{--- BOTÓN SUMA (+) ---}

procedure TForm1.btnSumaClick(Sender: TObject);

begin

if display.text = '' then
begin
display.text := '0'
end;

display.setFocus;

nros[ultNro] := StrToInt(display.text);
op[ultNro] := '+';

if lbLog.caption = '' then
begin
lbLog.caption := IntToStr(nros[ultNro]) + op[ultNro];
end

else
begin
lbLog.caption := lbLog.caption + IntToStr(nros[ultNro]) + op[ultNro];
end;

ultNro := ultNro + 1;
sobreescribo := true;

end;

____________________________________________________________________________________________________ ________________________________________________________

{--- BOTÓN BORRAR TODO (C) ---}

procedure TForm1.btnCClick(Sender: TObject);
begin
btnPercentage.enabled := true;
button16.enabled := true;
button17.enabled := true;
button1.enabled := true;
button2.enabled := true;
btnComa.enabled := true;
btnSuma.enabled := true;
btnResta.enabled := true;
btnMultiplicacion.enabled := true;
btnDivision.enabled := true;
display.text := '0';
display.setFocus;
lbLog.caption := '';
ultNro := 0;
sobreescribo := false;
end;

____________________________________________________________________________________________________ ________________________________________________________

{--- BOTÓN UNO (1) ---}

procedure TForm1.btn1Click(Sender: TObject);
begin

if borroLog then
begin
lbLog.caption := '';
end;

if (sobreescribo) or (display.text = '0') or (display.text = '') then
begin
display.text := '1';
end

else
begin
nro := display.text;
display.text := '1';
display.text := nro + display.text;
end;

sobreescribo := false;
borroLog := false;

end;

Aquí el link para descargar el .exe

drive.google.com/open?id=0B2s4ogym-XembWY5Vl8tV2tBcEE

Si les sirve más el proyecto completo les dejo el link para descargar el rar.

Aclaraciones:

*Por el momento funciona solo haciendo click con el mouse, ya aprenderé como hacer para que los botones del teclado accionen (con animación incluida es mi idea, no sé si es posible) los botones de la calculadora.

*Los únicos botones que andan son los números, los signos de +, -, X, /, el de borrar todo (C), el = y el de borrar de a uno (<).

Desde ya muchas gracias.