Error en la funcion "DecToHex(n)"

Error en la funcion "DecToHex(n)"

Postby JmGarcia » 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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Re: Error en la funcion "DecToHex(n)"

Postby Marcelo Via Giglio » Fri Aug 28, 2009 1: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: 1050
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Error en la funcion "DecToHex(n)"

Postby Marcelo Via Giglio » Fri Aug 28, 2009 1:14 pm

Hola la solucion

Code: Select all  Expand view

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
Marcelo Via Giglio
 
Posts: 1050
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Error en la funcion "DecToHex(n)"

Postby JmGarcia » Mon Aug 31, 2009 6: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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Re: Error en la funcion "DecToHex(n)"

Postby JmGarcia » Tue Sep 08, 2009 9: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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Re: Error en la funcion "DecToHex(n)"

Postby Daniel Garcia-Gil » Tue Sep 08, 2009 9:50 pm

Saludos jmGarcia

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


reparada e incluida para la proxima version
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Error en la funcion "DecToHex(n)"

Postby Antonio Linares » Tue Sep 08, 2009 11:00 pm

JM,

Como te indica Daniel, ya está arreglada e incluida para el próximo build :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41365
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 22 guests