Ottenere il valore ASCII di un carattere

Da Gambas-it.org - Wikipedia.

Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare alcune modalità.

La funzione "Asc()" se si tratta di un solo valore-byte

Public Sub Main()

 Print Asc("a")

End


Usare una variabile vettoriale di tipo "Byte[]"

Public Sub Main()
 
 Dim l As Long
 Dim bb As Byte[]
 
 bb = Byte[].FromString("Gambas")
 l = Long@(bb.Data)
 Print l
  
End


Usare una variabile stringa e la funzione "VarPtr()"

Private s As String


Public Sub Main()

 Dim p As Pointer
 Dim p1, p2 As Pointer
 
 s = "Gambas"
 
 p1 = VarPtr(s)
         
 p2 = Pointer@(s)
 
' Mostra l'intero contenuto in formato testuale:
 Print p2
 
End


Usare la funzione "Alloc()"

Public Sub Main()
 
 Dim p As Pointer
 
 p = Alloc("Gambas")
  
 Print Hex(Long@(p)), Long@(p)
  
 Free(p)
 
End