topic-16493

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Error en la funcion "DecToHex(n)"
Posted: Fri Aug 28, 2009 11:21 AM

Llevo loco varios días con un error en la función "DecToHex" de FWH. En todas las versiones.

DecToHex(16) devuelve "G" en vez de "F" :evil:

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Error en la funcion "DecToHex(n)"
Posted: Fri Aug 28, 2009 01:11 PM

Hola

dec hex
0 0
1 1
. .
9 9
10 A
11 B
12 C
13 D
14 E
15 F
16 10 NO G entonces tambien esta mal

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Error en la funcion "DecToHex(n)"
Posted: Fri Aug 28, 2009 01:14 PM

Hola la solucion

Code (fw): Select all Collapse

function DecToHex( nValue )

   local nMod, cDec := ""

   while nValue >= 16
      nMod   = nValue % 16
      nValue = Int( nValue / 16)
      cDec   = HexVal( nMod ) + cDec
   end

   cDec = HexVal( nValue ) + cDec

return cDec

esta es la funcion corregida, puedes utilizar esta en lugar de la que viene en FW

saludos

Marcelo

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Error en la funcion "DecToHex(n)"
Posted: Mon Aug 31, 2009 06:35 PM

Antonio, corregirás esta función en la próxima entrega ¿no?

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Error en la funcion "DecToHex(n)"
Posted: Tue Sep 08, 2009 09:07 PM

Antonio, no te olvides de corregir esta función en la próxima entrega :mrgreen:

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Daniel Garcia-Gil

Posts: 2365