Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - da esadecimale ad ascii
Forum - Visual Basic 6 - da esadecimale ad ascii

Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 11:26
Martedì, 29/09/2009
Buongiorno, ho una connessione seriale dalla quale ricevo in esadecimale, voglio ora trasformare questa in carattere ascii. Come si fa?

PM Quote
Avatar
giusy_m86 (Normal User)
Pro


Messaggi: 143
Iscritto: 09/07/2008

Segnala al moderatore
Postato alle 11:48
Martedì, 29/09/2009
Ho risolto! Vi posto il codice se dovesse serivre a qualcun altro:

Codice sorgente - presumibilmente VB.NET

  1. Public Function hex2ascii(ByVal hextext As String) As String
  2.    
  3. For y = 1 To Len(hextext)
  4.     num = Mid(hextext, y, 2)
  5.     Value = Value & Chr(Val("&h" & num))
  6.     y = y + 1
  7. Next y
  8.  
  9. hex2ascii = Value
  10. End Function




Ultima modifica effettuata da giusy_m86 il 29/09/2009 alle 11:49
PM Quote
Avatar
Alfonso (Normal User)
Rookie


Messaggi: 37
Iscritto: 16/05/2009

Segnala al moderatore
Postato alle 13:44
Martedì, 29/09/2009
Se scrivi

For y = 1 To Len(hextext) Step 2

puoi togliere y=y+1

Ciao

PM Quote