Si quereis saber que son todos esos números comparados con la infinitez del universo.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
For i:= 50000 to 51914 do
begin
Application.ProcessMessages;
label2.Caption:= IntToStr(i);
label1.Caption:= IntToHex(i,4);
end;
For i:= 1 to 222 do
begin
Application.ProcessMessages;
label4.Caption:= IntToStr(i);
label3.Caption:= IntToHex(i,2);
end;
For i:= 25000 to 47818 do
begin
Application.ProcessMessages;
label6.Caption:= IntToStr(i);
label5.Caption:= IntToHex(i,4);
end;
end;
Solo necesitamos un formulario y seis etiquetas.
Las disponemos de la siguiente forma.
LABEL1, LABEL3 LABEL5 alineadas de izquierda a derecha
Debajo:
LABEL2, LABEL4, LABEL6, dispuestas de igual manera.
Seleccionamos todas las etiquetas y le damos un tamaño de fuente 12 y negrita.
Finalmente un Botón que al accionarlo nos resolverá el enigma.
Se formarán 3 número hexadecimales.
A ver quien es el primero en descubir el enigma????
Un Saludo.
"Era un mundo sin uves "