Necesito ayuda - Pascal - Lazarus

[Juampi]

Buenas noches ( al menos por mis pagos es de noche ).

Antes que nada decir que no sé si es la sección correcta, y pido disculpas por adelantado de no serlo. Soy nuevo en el foro, el usuario lo cree hace unos días y les quería contar que en cuestión de programación soy novato elevado a la N, pero al mismo tiempo me gusta, no bajé Lazarus por obligación, y entiendo que eso es una gran ventaja, je.

Bueno, al tema, mi pregunta es bastante puntual, pienso que en principio sería bastante fácil de contestar, al menos por aquellos con conocimientos intermedios - avanzados.

Me puse como meta, y ya me dirán uds si es una meta sensata, muy ambiciosa o muy discreta, hacer una calculadora lo más parecida a la de Windows 10. Es decir:

• El mismo formato.
• Poder ingresar los números tanto mediante click como mediante teclado.
• Que al ingresarlos mediante teclado los botones tengan una animación del número que es presionado.
• No perder el foco en la caja de texto por más que haya clickeado un botón con el puntero. Es decir, que la caja de texto siempre esté "lista" de recibir los números que se teclean.
• Poder ir "anidando" operaciones y que al final me de el resultado de todo lo que hice. Ejemplo 10 + 7 + 5 - 8 * 2 / 3 + 5... =
• Etc, básicamente, "plagiar" la calculadora de Windows como práctica.

Entonces, la pregunta es, ¿qué conocimientos NECESITO para poder llevar a cabo ese programa?, y remarco el "necesito" porque por ahí con determinados conceptos lograrlo sería más sencillo, o quedaría "mejor programado", de una forma más eficiente, etc, pero lo de perfeccionar el código lo dejo para más adelante, yo ahora quiero saber qué es imprescindible para poder hacer esa calculadora, aunque me lleve más tiempo y código.

Me gusta mucho pensar y pensar y romperme la cabeza viendo como resolver un problema pero quiero saber si tengo los conceptos necesarios o voy a estar rompiéndome el marote sin llegar a nada ya que directamente no conozco las herramientas que necesito.

Desde ya muchas gracias y perdón si la hice muy larga. Espero haya quedado claro el planteo.

Saludos

[Casimiro Notevi]

Hola y bienvenido a clubdelphi
Para empezar a responderte habría que saber cuáles son tus conocimientos de programación, porque lo que necesitas es manejarte un poco con el lenguaje, tener unas ideas de matemáticas, un poco de deducción lógica y ganas, muchas ganas de ponerte con ello

Por los foros y por nuestro ftp encontrarás montones de tutoriales, ayudas, ejemplos, programas (incuso calculadoras), libros, enlaces... montones de gigas de información para poder aprender.
También te recomiendo, antes de seguir, que leas nuestras normas básicas.
De nuevo, bienvenido

[[AgustinOrtu]]

Bienvenido al ClubDelphi

Yo creo que lo mejor es ir poco a poco y que vayas realizando de una tarea a la vez. Por ejemplo, podrias ir tomando una a una las de la lista que hiciste, e ir resolviendolas. Si te trabas en algun momento, no dudes en consultar. Tampoco me parece mal que hagas una especie de "diario" si quieres en el mismo foro de como lo vas resolviendo. De esa manera el resto puede ir viendo el codigo y comentando

Vas a necesitar, mas que nada, conocer el framework de componentes con el que vas a trabajar. En Delphi tenes dos, uno se llama Vcl y esta basado en la API de Windows, por lo tanto, solamente corre en Win32 y Win64. Por otra parte, tenes Firemonkey (FMX) el cual es multiplataforma, y puede correr en Win32, Win64, iOS, OSX y Android. Por mucho esfuerzo que hayan hecho, algunas cosas son "similares" entre los dos framework, pero la verdad es que hay grandes diferencias.

Una vez que te decidas por un framework, es cuestion de ir conociendo los componentes y los controles, saber que puedes hacer con ellos basicamente. Firemonkey es mas nuevo, por lo que esta en las versiones mas recientes de Delphi (creo que desde Delphi XE2, pero aca solo corria en Windows y OSX, y le han ido agregando plataformas en las sucesivas versiones) mientras que la Vcl esta desde el dia 1. Sobre la Vcl vas a encontrar muchisima informacion en los foros, en la web, y sobre todo, mas gente que conoce el framework. Ademas, es indiscutiblemente muchisimo mas maduro que FMX, al que todavia le falta pulir algunas cosas

[Juampi]

Primero que nada gracias por las respuestas y la bienvenida.

@Casimiro Notevi

Imaginé que podría ser una posible consulta de uds, qué conocimientos tengo, de primera no los puse por dos motivos, uno, para que no quedara más largo de lo que ya estaba quedando mi mensaje (no soy bueno sintetizando, tiendo a escribir mucho), y dos, mi pregunta buscaba una respuesta del estilo de:

"Necesitas conocer tipos de variables (diferenciar integer de string, por ejemplo), estructuras de control y manejo de arrays, teniendo claros esos conceptos es suficiente"

...o por ejemplo...

"Necesitas conocer tipos de variables, estructuras de control, arrays, matríces, punteros, listas, árboles, cola, pila, manejo de eventos, bla, bla, bla"

Esas respuestas que puse como ejemplo se podrían dar independientemente de cuáles sean mis conocimientos, ¿se entiende a lo que voy?. Pero es lógico tu planteo, ya mismo te cuento que tengo los conocimientos del primer ejemplo de respuestas, jeje. Sé lo que es una variable, conozco los tipos básicos (integer, real, char, string, boolean), sé utilizar las estructuras de control (quizás incursione en malas prácticas al usarlas pero les doy un uso que resuelve mis problemas, je), sé manejar un array acotado y tengo idea de los eventos. Hasta ahí llega mi sabiduría, como les dije, novato elevado a la N.

Pff, leí las normas, el punto 4 me crucifica, de tres palabras de ejemplo para NO utilizar, usé dos. Lo que no estoy viendo es si es posible corregir el título, si se puede no encontré cómo.

@[AgustinOrtu]

Si, es lo que estoy haciendo, de hecho lo único que empecé a programar es el botón +, y ahora mismo estoy viendo cómo resolver la cuestión de que cada vez que presione el botón + me guarde el número ingresado en el array (array que por el momento lo tengo acotado a diez lugares ya que no sé cómo manejar "arrays dinámicos", por ahora mi calculadora solo te permite operar con hasta diez números distintos ) y que el próximo ingresado lo guarde en la siguiente posición, y así sucesivamente hasta que se presione el botón =. Ahí recién se opera con todos los números almacenados.

Suena simple pero no me estoy dando cuenta como hacerlo. A esto agregar que no sé tampoco como hacer para que luego de clickear el botón + automáticamente retome el foco en la caja de texto y lo próximo que escriba sobreescriba el anterior número.

En principio no veo de qué modo iterar, un for no puedo porque no sé cuántos números va a utilizar el usuario, puede hacer 4 + 4 como puede hacer 4 + 5 + 4 + 7 + 7 + 9. Y si hago un repeat no me doy cuenta como controlarlo para que se ejecute entre click y click del botón + hasta que se presione el =, la primera vez que empecé a escribir el código se me "rompía" el array porque el repeat ejecutaba todo el código en el momento que apretaba el más y la condición de término nunca llegaba, después me di cuenta la burrada que había hecho y ahora estoy viendo como encararlo.

Gracias nuevamente, sigo un poco más y les comento mis avances.

[[AgustinOrtu]]

Si vas a usar un arreglo, vas a tener que en algun lado mantener un indice, osea el lugar "actual", por decirlo de alguna manera, para saber cual fue la ultima posicion en la que guardaste el ultimo numero.

El arreglo dinamico es muy similar al estatico, la unica diferencia es que debes inicializarlo, y obviamente el compilador no puede ayudarte si "te vas de rango", mientras que el estatico no te va a permitir (a menos, no por defecto) utilizar posiciones fuera del rango permitido.

Asi usas un arreglo dinamico:

Código Delphi [-]
procedure ArregloDinamico;
var
  tamanoArreglo, unNumero: Integer; 
  numeros: array of Integer;
begin
  tamanoArreglo := 10; // no es ncesario que sea una variable, podes pasar el 10 como constante
  System.SetLength(numeros, tamanoArreglo); // inicializo un arreglo de 10 elementos
  numeros[0] := 1;
  numeros[2] := 34;
  numeros[9] := 5;
  numeros[10] := 5; // aca te fuiste de rango!

  unNumero := numeros[2];
end;

[Casimiro Notevi]

Empezado por Juampi

Pff, leí las normas, el punto 4 me crucifica, de tres palabras de ejemplo para NO utilizar, usé dos. Lo que no estoy viendo es si es posible corregir el título, si se puede no encontré cómo.

No te preocupes, no lo sabías.

Realmente no se puede contestar lo que necesitas saber porque puedes hacer la calculadora de muchas formas distintas, esto es como el MacGuiver, según con lo que cuentes te las apañas
Que quieres hacerlo con arrays, lo haces con arrays, que quieres hacerlo solo con variables, pues solo con variables, etc.
Claro, siempre hay métodos mejores, pero eso lo hace la experiencia y haber visto códigos de otros.

[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.