Differenze tra le versioni di "Convertire un vettore di tipo Byte in un Puntatore"

Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà il metodo ''.Data'' del vettore medesimo. Esempio: '''Public''' Sub Main() Dim b, n As Byte D...')
 
 
(6 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà il metodo ''.Data'' del vettore medesimo.
+
Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà la Proprietà ".Data" del vettore medesimo. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
 
 
  
 
Esempio:
 
Esempio:
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim b, n As Byte
 
   Dim b, n As Byte
Riga 10: Riga 9:
 
   Dim st As Stream
 
   Dim st As Stream
 
   
 
   
 +
  For b = 0 To 99
 +
    bb[b] = b + 1
 +
  Next
 
   
 
   
  For b = 0 To 99
+
  <FONT Color=green><B>p</b></font> = <FONT Color=#B22222><B>bb.Data</b></font>
    bb[b] = b + 1
+
 
  Next
+
<FONT Color=gray>' ''Come verifica del risultato, riotteniamo - dereferenziando il Puntatore - i valori immessi nel vettore:''</font>
 +
  st = Memory p For Read
 
   
 
   
  p = <FONT Color=#B22222>bb.Data</font>
+
  For n = 0 To 99
 +
    Read #st, b
 +
    Print b
 +
  Next
 
   
 
   
 
+
  st.Close
<FONT Color=gray>' ''Come verifica del risultato, riotteniamo - derefereziando il Puntatore - i valori immessi nel vettore:''</font>
 
  st = Memory p For Read
 
 
   
 
   
  For n = 0 To 99
+
End
    Read #st, b
+
 
    Print b
+
 
  Next
+
 
+
=Note=
'''End'''
+
* Vedere anche le seguenti pagine:
 +
* [[Assegnare un vettore ad una variabile di tipo Puntatore]]
 +
* [[Ottenere il puntatore a una variabile vettoriale]]

Versione attuale delle 08:04, 27 giu 2023

Per convertire un vettore di tipo Byte[] in un Puntatore, si utilizzerà la Proprietà ".Data" del vettore medesimo. [nota 1]

Esempio:

Public Sub Main()

 Dim b, n As Byte
 Dim bb As New Byte[100]
 Dim p As Pointer
 Dim st As Stream

 For b = 0 To 99
   bb[b] = b + 1
 Next

 p = bb.Data
  
' Come verifica del risultato, riotteniamo - dereferenziando il Puntatore - i valori immessi nel vettore:
 st = Memory p For Read

 For n = 0 To 99
   Read #st, b
   Print b
 Next

 st.Close

End


Note