piccolo quesito peri i Big dello script

[gian332]

l'esempio sotto mi converte un numero nel sistema binario, il quesito è ... come faccio a convertire un numero negativo ?

Sub Main
    xa = 90
    Do Until xa = 0
        x = CInt(xa) Mod 2
        xa = Int(xa/2)
        ris = ris + CStr(x)
    Loop
    Scrivi ris
End Sub

 

[Beppignello]

un esempio preso da internet

If [la tua variabile] < 0 Then​

[la tua variabile] = [la tua variabile] * (-1)​

End If


oppure esaminare il 1 bite di sinistra
indica il segno

se è o il nr. è positivo
se + 1 il nr. è negativo

per trasformarlo in positivo [ * -1 ] ​

 

[gian332]

grazie peppe Buone feste