Algoritmi - Algoritmo da decimale a binario e viceversa

Te lo posso anche fare, va bene in visualbasic ?

Ottimo.

E cosa avevi scritto ?

for i= 1, # t, -1 do
io.write(t[i])
end

ma non scrive un bel niente.
# t indica l'indice massimo della tabella partendo da 1.

Guarda un esempio in C (tra i tantissimi che si trovano su internet se solo si cercasse) ...

brutuswolf.altervista.org/blog/2010/09/22/convertitore-decimale-binario-in-c/

Non è fatto da me.......

'Per convertire un numero intero in numero binario possiamo utilizzare la classe BitArray che converte un array di 'numeri in un array di bit. Per rappresentare la sequenza di bit, poi, utilizziamo una stringa e, per separare 'visivamente ogni byte, aggiungiamo anche uno spazio separatore:

 Dim numero As Integer = 32767 
Dim numDecimale() As Integer = {numero} 
Dim numBinario As New BitArray(numDecimale) 
Dim str As String = "" 
Dim contaBit As Integer = 0 
For i As Integer = (numBinario.Count - 1) To 0 Step -1 
    If contaBit = 8 Then 
        str &= " " 
        contaBit = 0 
    End If 
    If numBinario.Item(i) = False Then 
        str &= "0" 
    Else 
        str &= "1" 
    End If 
    contaBit += 1 
Next 
MessageBox.Show(str)


  

Ok ho risolto lo scrivere i numeri. Adesso come faccio per far fare una ripetizione in meno al while?

L'ultimo post non si è capito proprio ...