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 1 de Julio del 2019 por Juan
429 visualizaciones desde el 1 de Julio del 2019
Es un pequeño programa que convierte números decimales en hexadecimales. Funciona en cualquier Windows. Un saludo de Juan

Requerimientos

Funciona en Windows - XP - 10 , con cualquier compilador funciona , Delphi

1-0

Publicado el 1 de Julio del 2019gráfica de visualizaciones de la versión: 1-0
430 visualizaciones desde el 1 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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
procedure TForm1.Button1Click(Sender: TObject);
var  a,b,c,d, e,f,i, suma, Numero,Numero1, n1, n2 : Integer;
 
begin
     Label5.Caption := 'Son las  ' + TimeToStr(Time);
     Label6.Caption := 'Hoy es  '  + DateToStr(Date);
 
     Label1.Caption := 'Entrada DEC    = '+ Edit1.Text ;
     Label2.Caption := 'Edit3 x 16     = '+ Edit2.Text ;
     Label3.Caption := 'Edit1 / 16     = '+ Edit3.Text ;
     Label4.Caption := 'Edit1 -- Edit3 = '+ Edit4.Text ;
     Edit1.SetFocus;
 
     a := StrToInt(Edit1.Text) div 16;              // Asigna  = a
     Edit3.Text := IntToStr(a);                     // Edit3 Salida = a
 
     b := StrToInt(Edit3.Text) * 16;                // Asigna Edit3 = b
     Edit2.Text := IntToStr(b);                     // Edit2 Salida = b
 
      a := StrToInt(Edit1.Text);
      Edit4.Text := IntToStr(a-b);
 
     Numero := StrToInt(Edit3.Text);
     Numero1:= StrToInt(Edit4.text);
 
     case Numero
 of
 0 : Edit3.Text :=' 0 ';
 1 : Edit3.Text :=' 1 ';
 2 : Edit3.Text :=' 2 ';
 3 : Edit3.Text :=' 3 ';
 4 : Edit3.Text :=' 4 ';
 5 : Edit3.Text :=' 5 ';
 6 : Edit3.Text :=' 6 ';
 7 : Edit3.Text :=' 7 ';
 8 : Edit3.Text :=' 8 ';
 9 : Edit3.Text :=' 9 ';
 10: Edit3.Text :=' A ';
 11: Edit3.Text :=' B ';
 12: Edit3.Text :=' C ';
 13: Edit3.Text :=' D ';
 14: Edit3.Text :=' E ';
 15: Edit3.Text :=' F ';
 
end;
   Numero1:= StrToInt(Edit4.Text);
 case Numero1
 of
 0 : Edit4.Text :=' 0 ';
 1 : Edit4.Text :=' 1 ';
 2 : Edit4.Text :=' 2 ';
 3 : Edit4.Text :=' 3 ';
 4 : Edit4.Text :=' 4 ';
 5 : Edit4.Text :=' 5 ';
 6 : Edit4.Text :=' 6 ';
 7 : Edit4.Text :=' 7 ';
 8 : Edit4.Text :=' 8 ';
 9 : Edit4.Text :=' 9 ';
 10: Edit4.Text :=' A ';
 11: Edit4.Text :=' B ';
 12: Edit4.Text :=' C ';
 13: Edit4.Text :=' D ';
 14: Edit4.Text :=' E ';
 15: Edit4.Text :=' F ';
 end;
 end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Label1.Caption := '';
Label2.Caption := '';
Label3.Caption := '';
Label4.Caption := '';
end;
end.
  • Archivos para descargar

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




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/s5393