Cap. 1.- Conociendo los controles de Builder C++

Iniciaremos este capítulo con el diseño de una pequeña aplicación que denominaremos la calculadora, un simple programita que nos enseñará las funciones básicas que debe tener  una pequeña aplicación en Builder C++.

Fig. Diseño de un formulario para una Calculadora

Una vez diseñado el formulario debemos hacer que cada botón actúe de acuerdo a su diseño, por ejemplo el botón que contiene 1 debe actuar como se espera es decir mostrar un 1. Para ello el evento Click debe programarse de la siguiente manera:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

          Evaluar()

          Memo1->Lines->Text=Memo1->Lines->Text+"1";

}

La función Evaluar debe ser implementada de la siguiente manera:

void Evaluar()

{   if (Form1->Memo1->Lines->Strings[0].Length()>0&&Form1->Memo1->Lines->Strings[0].Length()<2)

        if (Form1->Memo1->Lines->Strings[0].ToInt()==0)

                Form1->Memo1->Lines->Clear();

}

Se debe implementar todos los demás botones de la misma manera que el Botón del número 1

A continuación se implementa el Botón del Punto de la Siguiente Manera:

void __fastcall TForm1::BitBtpuntoClick(TObject *Sender)

{

        if (Memo1->Lines->Text.AnsiPos(".")==0)

                Memo1->Lines->Text=Memo1->Lines->Text+".";

}

Luego el Botón de signo (+/-) se implementa de la siguiente manera:

void __fastcall TForm1::BitBtsignoClick(TObject *Sender)

{

      if (Memo1->Lines->Text.AnsiPos("-")==0)

           Memo1->Lines->Text="-"+Memo1->Lines->Text;

      else

           Memo1->Lines->Text=Memo1->Lines->Text.SubString(2,100);

}

A continuación definiremos el botón de operación de la Suma (+), el cual se implementa a continuación, para ello se requiere que este declarado en la parte superior del programa lo siguiente:

Para declarar en la parte superior:

long double Op1,Op2;

int Oper;

Y a continuación el Botón Suma (+)

void __fastcall TForm1::BitBtmasClick(TObject *Sender)

{

    Op1=Memo1->Lines->Text.ToDouble();

    Memo1->Lines->Text="0";

    Oper=1; //Operador de Suma 1, Resta 2, …

}

El Botón igual es implementado a continuación, evalúa el operador Oper para realizar la operación:

void __fastcall TForm1::BitBtigualClick(TObject *Sender)

{

    if (Oper>0)

    {   Op2=Memo1->Lines->Text.ToDouble();

        if (Oper==1)

        {   Op1+=Op2;

            Op2=0;

            Oper=1;

        }

        Memo1->Lines->Text=FloatToStr(Op1);

    }

}

Seguidamente un Botón importante el Botón C que borra el contenido del Display (Memo1)

void __fastcall TForm1::BitBtCClick(TObject *Sender)

{

    Form1->Memo1->Lines->Clear();

    Form1->Memo1->Lines->Text="0";

    Op1=0;

    Op2=0;

    Oper=0;

}

NOTA

Es importante que el estudiante implemente además las siguientes rutinas, como son la Resta, de igual manera que la suma, la multiplicación y la división.

La CALCULADORA, funcionando con todas sus opciones, deberá ser entregada el Martes 10 de julio del 2001 en diskette.

Se calificará además las posibles mejoras que le adicionen al programa.

El Docente.