manual practico de delphi

PROGRAMAS BASICOS EN LENGUAJE DELPHI


PROGRAMA Nº 1.- Elaborar un programa en lenguaje DELPHI para calcular el área de un triangulo y visualizar en pantalla el ingreso de los datos (base y altura) a través de componentes TEdit y el resultado en un componente TLabel



















Los objetos utilizados son:

1) Los textos que se ven: Base, Altura, Área y TituloPrincipal son componentes TLabel de la paleta Standard.
2) El botón Calcular es un control TButton.

Observar que los nombres de los componentes han sido modificados, aunque siempre podemos utilizar el nombre que por defecto les da el DELPHI.
El código que a continuación se incluye, es un listado completo del programa. El sector trascrito manualmente corresponde al evento On_Clic del botónCalcular, el resto ha sido construido por el lenguaje DELPHI a medida que fueron arrastrados los objetos al formulario TForm.

El código del programa es:


unit area;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Base: TLabel;
Altura: TLabel;
Area: TLabel;nbase: TEdit;
nalt: TEdit;
Calcular: TButton;
procedure CalcularClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CalcularClick(Sender: TObject);
var
base,altura,area2:word;
begin
base:=strtoint(nbase.text);
altura:=strtoint(nalt.text);area2:=base*altura div 2;
area.caption:='Area='+inttostr(area2);

end;

end.


Finalmente, se tienen las siguientes órdenes que pueden llamar la atención:

StrToInt: Es una función de librería que convierte un texto en numero entero. Se introducir su uso ya que las ventanas TEdit solo reciben valores alfanuméricos.
IntToStr: Es una función de librería que convierte un numero a texto. Esnecesaria para introducir el valor de la solución a la etiqueta Área.

El lenguaje DELPHI dispone de otras órdenes de este tipo para la conversión de datos.




















PROGRAMA 2.- Programa que calcula la longitud de una circunferencia y el área de un circulo dado su radio R.
















Los objetos utilizados son

1) Los textos que se ven:Radio, Area y Longitud son componentes TLabel de la paleta Standard.
2) Dos botones: Calcular y Cerrar, sirven para ejecutar el cálculo y terminar el programa respectivamente; todos ellos de la paleta Standard.

Se ha trascrito manualmente el código del evento On_Clic tanto del botón Calcular como del botón Cerrar; el resto lo ha construido el DELPHI.

El código del programa es:

unitCIRCUNS;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TCIRCUNFERENCIA = class(TForm)
RADIO: TEdit;
AREA: TEdit;
LONGITUD: TEdit;
CALCULAR: TButton;
Label1: TLabel;
CERRAR: TButton;
procedure CALCULARClick(Sender: TObject);
procedure CERRARClick(Sender: TObject);
private
{ Privatedeclarations }
public
{ Public declarations }
end;

var
CIRCUNFERENCIA: TCIRCUNFERENCIA;

implementation

{$R *.DFM}

procedure TCIRCUNFERENCIA.CALCULARClick(Sender: TObject);
VAR
R,AR,LON:REAL;
A,L:STRING; //RECOGEN EL RESULTADO
I:INTEGER; //CODIGO DE CONTROL
CONST
PI=3.1416;
begin
VAL(RADIO.TEXT,R,I); //CONVIERTE UN TEXTO A UN VALOR NUMERICOAR:=PI*R*R;
LON:=2*PI*R;
STR(AR:6:2,A);
STR(LON:6:2,L);
AREA.TEXT:=A;
LONGITUD.TEXT:=L;
end;

procedure TCIRCUNFERENCIA.CERRARClick(Sender: TObject);
begin
CLOSE;
end;

end.

Se incluyen dos órdenes que pueden llamar la atención:

Val: Es una función que convierte un texto en un valor numérico de punto flotante.
Str: Es una función que convierte...