martes, 28 de febrero de 2017

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.








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.