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!
chiedo venia!
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!!
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!!!
