EJEMPLO DE COMO DEBE REALIZAR EL PROYECTO FINAL

TAREA

HACER DISEÑO Y CODIFICACIÓN EN EL CUADERNO PARA ENTREGARLO TODO EN UN CD. CONTRASEÑA, EDAD, EDAD CON CONDICIÓN, GANANCIA Y TODOS ESTOS.

SUMA DE DOS NUMERO

var

  N1:REAL;

  N2:REAL;

  SUMA:REAL;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

N1:=STRTOFLOAT(EDIT1.Text);

N2:=STRTOFLOAT(EDIT2.Text);

SUMA:=(N1+N2);

EDIT3.TEXT:=FLOATTOSTR(SUMA);

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

FORM5.SHOW;

FORM4.Visible:=FALSE;

end;

CALIFICACIONES DE ESTUDIANTE Y QUE TIRE UN MENSANJE POR PANTALLA

var

  C_1:REAL;

  C_2:REAL;

  C_3:REAL;

  PR:REAL;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

 C_1:=STRTOFLOAT(EDIT1.Text);

 C_2:=STRTOFLOAT(EDIT2.Text);

 C_3:=STRTOFLOAT(EDIT3.Text);

 PR:=(C_1+C_2+C_3)/3;

 EDIT4.Text:=FLOATTOSTR(PR);

 if PR>=95 then

BEGIN

  SHOWMESSAGE('ESTUDIANTE EXELENTE');

END;

if(PR>=88)AND(PR<95) then

BEGIN

  SHOWMESSAGE('ESTUDIANTE MERITORIO');

END;

IF(PR>=80)AND(PR<88)THEN

BEGIN

  SHOWMESSAGE('ESTUDIANTE BUENO');

END;

IF(PR>=70)AND(PR<80)THEN

BEGIN

  SHOWMESSAGE('ESTUDIANTE REGULAR');

END;

if PR<70 then

 BEGIN

   SHOWMESSAGE('ESTUDIANTE MALO');

 END;

end;

PROGRAMA DE LOS MESES DEL AÑO

var

  N:INTEGER;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

 N:=STRTOINT(EDIT1.Text);

 if N=1 then

BEGIN

  EDIT2.Text:='ENERO';

END;

if N=2 then

BEGIN

  EDIT2.Text:='FEBRERO';

END;

if N=3 then

BEGIN

  EDIT2.Text:='MARZO';

END;

if N=4 then

BEGIN

  EDIT2.Text:='ABRIL';

END;

if N=5 then

BEGIN

  EDIT2.Text:='MAYO';

END;

if N=6 then

BEGIN

  EDIT2.Text:='JUNIO';

END;

if N=7 then

BEGIN

  EDIT2.Text:='JULIO';

END;

if N=8 then

BEGIN

  EDIT2.Text:='AGOSTO';

END;

if N=9 then

BEGIN

  EDIT2.Text:='SEPTIEMBRE';

END;

if N=10 then

BEGIN

  EDIT2.Text:='OCTUBRE';

END;

if N=11 then

BEGIN

  EDIT2.Text:='NOVIEMBRE';

END;

if N=12 then

BEGIN

  EDIT2.Text:='DICIEMBRE';

END;

if N<1 then

BEGIN

  EDIT2.Text:=('ES INCORRECTO');

  SHOWMESSAGE('EL NUMERO ES INCORRECTO');

END;

if N>12 then

BEGIN

  EDIT2.Text:=('ES INCORRECTO');

  SHOWMESSAGE('EL NUMERO ES INCORRECTO');

END;

PROGRAMA DE LOS MESES DEL AÑO Y TIRA UN MENSAJE 

Var

  N:INTEGER;

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

 N:=STRTOINT(EDIT1.TEXT);

 if N=1 then

 BEGIN

   EDIT2.Text:=('ENERO');

   SHOWMESSAGE('MES DE DUARTE');

 END;

 if N=2 then

 BEGIN

   EDIT2.Text:=('FEBERERO');

   SHOWMESSAGE('MES DE LA PATRIA');

 END;

 if N=3 then

 BEGIN

   EDIT2.Text:=('MARZO');

   SHOWMESSAGE('MES DE LA PRIMAVERA');

 END;

 if N=4 then

 BEGIN

   EDIT2.Text:=('ABRIL');

   SHOWMESSAGE('MES DEL LIBRO');

 END;

 if N=5 then

 BEGIN

   EDIT2.Text:=('MAYO');

   SHOWMESSAGE(' MES DE LAS MADRES');

 END;

 if N=6 then

 BEGIN

   EDIT2.Text:=('JUNIO');

   SHOWMESSAGE('MES DEL VERANO Y CUMPLEAÑO DE MI HIJA AMMY');

 END;

 if N=7 then

 BEGIN

   EDIT2.Text:=('JULIO');

   SHOWMESSAGE('MES DEL PADRE');

 END;

 if N=8 then

 BEGIN

   EDIT2.Text:=('AGOSTO');

   SHOWMESSAGE('MES DE REINICIO DE CLASES');

 END;

 if N=9 then

 BEGIN

   EDIT2.Text:=('SEPTIEMBRE');

   SHOWMESSAGE(' CUMPLEAÑO DE MI HIJO ENMANUEL');

 END;

 if N=10 then

 BEGIN

   EDIT2.Text:=('OCTUBRE');

   SHOWMESSAGE('MES DE LA RAZA');

 END;

 if N=11 then

 BEGIN

   EDIT2.Text:=('NOVIEMBRE');

   SHOWMESSAGE('MES DE LA FAMILIA Y MI CUMPLEAÑO');

 END;

 if N=12 then

 BEGIN

   EDIT2.Text:=('DICIEMBRE');

   SHOWMESSAGE('MES DE LA NAVIDAD');

 END;

end;

PROGRAMA DEL TRIANGULO

var

  

  BASE:REAL;

  ALTURA:REAL;

  AREA:REAL;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

BASE:=STRTOFLOAT(EDIT1.Text);

ALTURA:=STRTOFLOAT(EDIT2.Text);

AREA:=(BASE*ALTURA)/2;

EDIT3.Text:=FLOATTOSTR(AREA);

end;

REPRODUCTOR DE MUSICA Y VIDEOS 

CODIFICANDO

procedure TForm34.BitBtn1Click(Sender: TObject);

begin

  IF OPENDIALOG1.EXECUTE THEN

BEGIN

  MEDIAPLAYER1.FILENAME:= OPENDIALOG1.FILENAME;

  MEDIAPLAYER1.OPEN;

END;

end;

procedure TForm34.BitBtn2Click(Sender: TObject);

begin

 MEDIAPLAYER1.FILENAME:= OPENDIALOG1.FILENAME;

  MEDIAPLAYER1.CLOSE;

end;

end.

DELPHI 2010 Y 2015

LOGIN DE CONTRASEÑA

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
IF(EDIT1.Text='BRINDICYS')AND(EDIT2.Text='BRA')THEN
BEGIN
  SHOWMESSAGE('A ENTRADO AL SISTEMA');
END;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
FORM1.SHOW;
FORM3.Visible:=FALSE;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
EDIT1.Clear;
EDIT2.Clear;
end;

end.

PROGRAMA QUE EVALUA LA EDAD DE UNA PERSONA
var
  AÑO_NAC:INTEGER;
  AÑO_ACT:INTEGER;
  EDAD:INTEGER;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FORM2.SHOW;
FORM1.Visible:=FALSE;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FORM3.SHOW;
FORM1.Visible:=FALSE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AÑO_NAC:=STRTOINT(EDIT1.TEXT);
AÑO_ACT:=STRTOINT(EDIT2.Text);
EDAD:=AÑO_ACT-AÑO_NAC;
EDIT3.Text:=INTTOSTR(EDAD);
END;

end.


PROGRAMA QUE EVALÚA LA EDAD DE UNA PERSONA CON CONDICION MAYOR O MENOR DE EDAD
var
  AÑO_NAC:INTEGER;
  AÑO_ACT:INTEGER;
  EDAD:INTEGER;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FORM2.SHOW;
FORM1.Visible:=FALSE;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FORM3.SHOW;
FORM1.Visible:=FALSE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AÑO_NAC:=STRTOINT(EDIT1.TEXT);
AÑO_ACT:=STRTOINT(EDIT2.Text);
EDAD:=AÑO_ACT-AÑO_NAC;
EDIT3.Text:=INTTOSTR(EDAD);
if EDAD>=18 then
BEGIN
  SHOWMESSAGE('PERSONA MAYOR DE EDAD');
END;
 if EDAD<18 then
 BEGIN
   SHOWMESSAGE('PERSONA MENOR DE EDAD');
 END;
end;

end.

PROGRAMA DE GANANCIA
VAR

  CAPITAL:REAL;
  GANANCIA:REAL;



 CONST
 INTERES:REAL=0.02;
 AÑO:INTEGER=12;


procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 CAPITAL:=STRTOFLOAT(EDIT1.Text);
 GANANCIA:=(CAPITAL*INTERES)*AÑO;
 EDIT2.Text:=FLOATTOSTR(GANANCIA);
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
FORM4.SHOW;
FORM2.Visible:=FALSE;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
FORM1.SHOW;
FORM2.Visible:=FALSE;
end;

end.