Código de Delphi - Conversor decimal a hexadecimal

Imágen de perfil
Val: 107
Oro
Ha mantenido su posición en Delphi (en relación al último mes)
Gráfica de Delphi

Conversor decimal a hexadecimalgráfica de visualizaciones


Delphi

Publicado el 2 de Julio del 2019 por Juan
570 visualizaciones desde el 2 de Julio del 2019
Aquí hay un convertidor hexadecimal a decimal de limite Byte porque esta echo para un archivo Intel de 8 bits.

Requerimientos

Funciona en Windows xp - Windows 10 , lo cargas en un directorio mis documentos por ejemplo y lo ejecutas desde allí , es un archivo *.exe de Delphi.

1.0

Publicado el 2 de Julio del 2019gráfica de visualizaciones de la versión: 1.0
571 visualizaciones desde el 2 de Julio del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
// Algoritmo del archivo Intel
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var  a, e, suma : Integer;
 
 
begin
  Label1.Caption := 'Son las  ' + TimeToStr(Time);
  Label2.Caption := 'Hoy es  '  + DateToStr(Date);
 
  a := StrToInt(codigo.Text);            // Introduzco el codigo en decimal en a
  suma:= 255 - StrToInt(codigo.Text);    // Resto 255 a todos los codigos hexadecimales y lo guarda en suma
  if a >  256 then exit;                 // Si algun codigo es mayor de 255 , NO lo procesa
 
  e:= StrToInt(calculo.Text)+ suma;      // Va sumando los codigos y los guarda e
  if e > 256 then
  e:= StrToInt(calculo.Text)+ suma - 256;// Cuando la suma supera el Limite de 255 , resta 256
 
  calculo.Text := IntToStr(e);           // Salida del Cheksum por un Edit
 
  codigo.Text := IntToHex(StrToInt(calculo.Text), 6);
 // Edit1.Text := IntToHex(StrToInt(calculo.Text)+a, 6); // Da la salida del cheksum en Hexadecimal
 
  codigo.SetFocus;
 
end;
 
procedure TForm1.borrarClick(Sender: TObject);
begin
codigo.Clear;
calculo.Clear;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var MiArchivo : TextFile;
 
    i         : Integer;
    MiArchivo1: TextFile;
    sLinea    : string;
 
begin
 
  AssignFile(MiArchivo, 'Cheksum.hex');
 
 
  ReWrite(MiArchivo);
  Write(MiArchivo, ' :04000000B29080FC3E  :00000001FF ');
  Writeln(MiArchivo, ' :B29080FC3E  :00000001FF ');
  CloseFile(MiArchivo);
  Reset(MiArchivo);
 
AssignFile(MiArchivo1, ExtractFilePath(Application.ExeName)+'Checksum.hex');
AssignFile(Input, '');
Reset(Input);
AssignFile(Output, '');
 
end;
end.



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5394