Chiedo scusa a tutti!! so che avrei dovuto scrivere in una nuova discussione, ma erano piaciute le vostre risposte e avevo piacere di chiedere a voi in modo particolare...non sapendo in che altro modo fare ho scritto qui!
![Pianto :'(](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/cry.gif)
chiedo venia!
![Indeciso :-\](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/undecided.gif)
Inoltre vi ringrazio per le risposte che ho letto solo ora...in realtà avevo risolto poco dopo l'aver inserito la domanda scrivendo questo codice (che è come avete suggerito voi!!):
PUBLIC SUB ritorno_Click()
DIM b AS Integer
DIM a AS String
DIM Intero, InteroFinale AS Integer
DIM Esponente, crt AS Integer
DIM divisa AS String[]
DIM Sb AS String
DIM bit AS String = messbit.Text
DIM finale AS String
divisa = Split(bit, " ")
FOR EACH a IN divisa
Esponente = 0
InteroFinale = 0
FOR b = Len(a) TO 1 STEP -1
crt = Int(Val(Mid(a, b, 1)))
Intero = crt * 2 ^ Esponente
Esponente += 1
InteroFinale = InteroFinale + Intero
finale = Chr(InteroFinale)
NEXT
testo.Text = testo.Text & finale
NEXT
END
dove
messbit è la TextArea in cui ho una serie di 0 e 1 che derivano dalla conversione in binario dei caratteri precedentemente inseriti in una TextArea che ho chiamato
testo.
Probabilmente inorridirete quando leggerete il codice, ma è l'unica soluzione che ho trovato io...portate pazienza...la programmazione non fa proprio per me!!
![mad :mad:](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/mad.gif)
Ah, ora mi è rimasto solo il problema che l'ultima lettera si stampa 3 volte invece che una sola...probabilmente il ciclo viene eseguito due volte in più del necessario, ma ora vedrò di risolvere!!!
![coder :coder:](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/coder.gif)