lab3 micro - Mapa Mental

lab3 micro

Pablo Vásquez

Introducción
Lenguaje de programación que se creó con el propósito de agilizar la creación de software basándolo en una programación visual. En el Delphi se utiliza una versión más actual del Pascal conocida como Object Pascal como lenguaje de programación.

Recomendaciones
Programar bien.
Ordenar bien los procedimientos.

Conclusiones
• Cualquiera de sus versiones se puede programar DLLs.

• En Delphi podemos programar directamente los componentes visuales e incluso crear nuevos controles que hereden características de los ya existentes.

• También podemos utilizar en el Delphi componentes visuales de otros lenguajes de programación.

visto bueno

simulacion

Marco Teórico
Antes conocido como CodeGear Delphi, Inprise Delphi y Borland Delphi, es un entorno de desarrollo de software diseñado para la programación de propósito general con énfasis en la programación visual. En Delphi se utiliza como lenguaje de programación una versión moderna de Pascal llamada Object Pascal.

procedure TForm1.Timer1Timer(Sender: TObject);
var
len,input:integer;
buffer:TJavaArray<byte>;
begin
len:=istream.available;
if len=0 then exit;
buffer:=TJavaArray<byte>.create(len);
istream.read(buffer,0,len);
buffer:=TJavaArray<byte>.create(len);
istream.read(buffer,0,len);
A:=INTTOSTR(buffer[len-1]);
N:=LENGTH(A);
case buffer[len-1] of
48:BEGIN //0
timer11.Enabled:=true;

END;
49:BEGIN //1
TIMER2.Enabled:=TRUE;

END;
50:BEGIN //2
TIMER3.Enabled:=TRUE;
END;
51:BEGIN //3
TIMER4.Enabled:=TRUE;
END;
52:BEGIN //4
timer5.Enabled:=true;

END;
53:BEGIN //5
timer6.Enabled:=true;

END;
54:BEGIN //6
timer7.Enabled:=true;

END;
55:BEGIN //7
timer8.Enabled:=true;

END;

56:BEGIN //8
timer9.Enabled:=true;

END;

57:BEGIN //9
timer10.Enabled:=true;
END;

43:BEGIN //+
timer12.Enabled:=true;

END;
77:BEGIN //-
timer13.Enabled:=true;

END;
42:BEGIN //*
timer14.Enabled:=true;

END;
47:BEGIN // /
timer16.Enabled:=true;
END;
61:BEGIN //=
TIMER15.Enabled:=TRUE;
END;
94:BEGIN //^
timer17.Enabled:=true;
END;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
TIMER2.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=1;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
TIMER3.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=2;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
TIMER4.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=3;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
TIMER5.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=4;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
TIMER6.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=5;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin
TIMER7.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=6;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
TIMER8.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=7;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
TIMER9.Enabled:=FALSE;
inc(cont);
if cont>=5 then
begin
DATO1:=8;
DATOCONC:=DATOCONC+INTTOSTR(DATO1);
cont:=0;
end;
label4.Text:=DATOCONC;
end;