Function dectobin$(ByVal nd As Long)
'funzione che trasforma un intero in una stringa binaria composta di 0 e 1 Dim valb As String 'valore stringa provvisorio Do 'do (una potenza di 2 per volta) valb = Trim$(IIf(nd Mod 2, "1", "0")) & valb 'aggiunge un carattere alla stringa nd = Int(nd / 2) 'divide per due per il prossimo giro If nd = 0 Then Exit Do 'se ultimo valore pieno esce Loop dectobin$ = " " & valb 'assegnazione funzione End Function |