FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
programa para pasar binario a decimal y a hexadecimal
Estoy iniciando en la programacion y necesito ha cer un programa para pasar numeros binarios a decimales y alreves lo mismo con los hexadecimales osea todas las combinaciones y nose por donde empezar me gustaria que alguien me ayudra por favor.
Gracias. |
#2
|
|||
|
|||
trata con ese codigo...
Con estas dos funciones podemos convertir números a otras bases (Hexadecimal, Octal, binario, etc) -Pon un TMemo (Memo1) y un TButton (Button1) en tu form -Pon este código en el OnClick del Button1: procedure TForm1.Button1Click(Sender: TObject); const B36 : PChar = ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'); function IntToBase(iValue: integer; Base: byte; Digits: byte): string; begin result := ''; repeat result := B36[iValue mod BASE]+result; iValue := iValue div Base; until (iValue div Base = 0); result := B36[iValue mod BASE]+result; while length(Result) < Digits do Result := '0' + Result; end; function BaseToint(iValue: String; Base: byte): integer; var i: byte; begin result := 0; for i := 1 to length(iValue) do begin if (pos(iValue[i], B36)-1) < Base then result := result * Base + (pos(iValue[i], B36)-1) else begin result := 0; break; end; end; end; var n : integer; begin {Un ejemplo: mostramos decimal, Hexadecimal y Octal} {An example, shows Decimal, Hexadecimal and Octal} for n:= 0 to 500 do begin Memo1.Lines.Add( 'Dec:'+IntToStr(n)+^I+ 'Hex:'+IntToBase(n,16,3)+^I+ 'Oct:'+IntToBase(n,8,3) ); end; end;
__________________
ing. frankmch |
#3
|
||||
|
||||
Gracias Bicho
Buscando la forma de interconvertir en bases númericas, halle tu hilo Bicho, y la verdad es q me ahorraste horas de razonamiento y busqueda. Este hilo es simplemente para darte las gracias por ese link
|
#4
|
||||
|
||||
Haz checado las funciones IntToHex, HexToBin, BinToHex
|
#5
|
|||
|
|||
hola alguien sabe como crear una calculadora conversora con un radiobutton y un edit para pasar de cualquier base a otra (binario, octal,decimal, hexadecimal) que se convierta apenas marque la base?
|
#6
|
||||
|
||||
Hola justinesteban y bienvenido a los foros del Club Delphi.
Como es costumbre hacia los nuevos miembros, te solicito que leas nuestra Guía de estilo , unas pocas y simples normas para que nos organicemos mejor. Como consejo, ante una consulta nueva, habre un nuevo hilo. De ese modo, se incrementan las posibilidades de que más personas presten atención a la misma y puedas obtener respuesta más rapidamente. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#7
|
|||
|
|||
hola una pregunta como abro un nuevo hilo? gracias por el consejo.
Última edición por justinesteban fecha: 09-09-2011 a las 16:34:00. |
#8
|
||||
|
||||
Hola.
Haces click en la pestaña Foros (parte superior izquierda de la pantalla principal). Para tu consulta el foro Varios es el indicado, hacé click en su nombre. Luego, simplemento hacé click en el botón Nuevo hilo, situado en la parte superior izquierda de la página y ponéle un título acorde con la consulta que gustes hacer. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
|