lab2 de micro
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.
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.Button2Click(Sender: TObject);
begin
if bandera=true then
begin
ostream.write(ord(43)); // envia el caracter '+' = #4
button1.TintColor:=0;
close();
end else
begin
button1.TintColor:=0;
close(); // cierra la aplicacion
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bandera:=false;
end;
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);
A:=IntToBin(buffer[len-1],8);
N:=LENGTH(A);
if A[N-1]='1' then
BEGIN
RECTANGLE1.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE1.Fill.Color:=0;
END;
if A[N-2]='1' then
BEGIN
RECTANGLE2.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE2.Fill.Color:=0;
END;
if A[N-3]='1' then
BEGIN
RECTANGLE3.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE3.Fill.Color:=0;
END;
if A[N-4]='1' then
BEGIN
RECTANGLE4.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE4.Fill.Color:=0;
END;
if A[N-5]='1' then
BEGIN
RECTANGLE5.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE5.Fill.Color:=0;
END;
if A[N-6]='1' then
BEGIN
RECTANGLE6.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE6.Fill.Color:=0;
END;
if A[N-7]='1' then
BEGIN
RECTANGLE7.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE7.Fill.Color:=0;
END;
if A[N-8]='1' then
BEGIN
RECTANGLE8.Fill.Color:=$FFF90000;
END ELSE
BEGIN
RECTANGLE8.Fill.Color:=0;
END;
case buffer[len-1] of
255:BEGIN //#85='U'
RECTANGLE12.Fill.Color:=$FF013BD5;
END;
end;
