[Gambas-user] Gambas 3 RC1 CSng project conversion bug

Benoît Minisini gambas at ...1...
Mon Mar 28 16:55:39 CEST 2011


> Testing RC1 with code revision 3693
> 
> Converting a project to Gambas3 doesn't work 100% correct.
> 
> It seems '+ CSingle' becomes 'CSingleSng'
> 
>        If (RecBuf[6] And &H8) = 0 Then
>          ' [GB2:CSNG] sCelsius = CSng(Hex(RecBuf[5])) +
> CSng(Hex(Lsr(RecBuf[4], 4))) / 10
>          sCelsius = CSingle(Hex(RecBuf[5]))CSingleSng(Hex(Lsr(RecBuf[4],
> 4))) / 10
>        Else
>          ' [GB2:CSNG] sCelsius = 0 - (CSng(Hex(RecBuf[5])) +
> CSng(Hex(Lsr(RecBuf[4], 4))) / 10)
>          sCelsius = 0 -
> (CSingle(Hex(RecBuf[5]))CSingleSng(Hex(Lsr(RecBuf[4], 4))) / 10)
>        End If
> 
> Here it seems a 2 step process where the Hex ()is lost:
> 
>      ' [GB2:CSNG] sTrain = (CSng(Hex(RecBuf[8] And &HF)) * 1000 +
> CSng(Hex(RecBuf[7])) * 10 + CSng(Hex(Lsr(RecBuf[6], 4))))
>      ' [GB2:CSNG] sTrain = (CSingle(Hex(RecBuf[8] And &HF)) *
> 1000CSingleSng(Hex(RecBuf[7])) *CSingle+ CSng(Hex(Lsr(RecBuf[6], 4))))
>      sTrain = (CSingle(Hex(RecBuf[8] And &HF)) * 1000
> CSingleSng(Hex(RecBuf[7])) * CSingle + CSnCSinglex(Lsr(RecBuf[6], 4))))
> 
> Regards,
> Ron_2nd.
> 

It should be fixed in the last revision. Can you try?

-- 
Benoît Minisini




More information about the User mailing list