lunes, 20 de febrero de 2017

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.

No hay comentarios:

Publicar un comentario