Differenze tra le versioni di "Azzerare tutti gli elementi di un vettore di tipo numerico"
Da Gambas-it.org - Wikipedia.
(4 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
− | Per azzerare tutti gli elementi di una variabile vettoriale (''array'') di un qualsiasi tipo numerico, è possibile utilizzare almeno le modalità che di seguito si espongono, | + | Per azzerare tutti gli elementi di una variabile vettoriale (''array'') di un qualsiasi tipo numerico, è possibile utilizzare almeno le modalità che di seguito si espongono, nelle quali si avrà come obiettivo l'azzeramento di un vettore di tipo ''Byte''. |
− | == | + | ==Assegnazione del valore zero ad ogni elemento del vettore mediante un ciclo== |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Riga 18: | Riga 18: | ||
− | + | '''Public''' Sub Button1_Click() | |
− | |||
Dim bb As Byte[] = [1, 2, 3, 4, 5] | Dim bb As Byte[] = [1, 2, 3, 4, 5] | ||
Riga 34: | Riga 33: | ||
'''End''' | '''End''' | ||
− | |||
− | |||
− | + | ||
− | + | '''Public''' Sub Button1_Click() | |
Dim bb As Byte[] = [1, 2, 3, 4, 5] | Dim bb As Byte[] = [1, 2, 3, 4, 5] | ||
Riga 52: | Riga 49: | ||
<FONT color=gray>' ''Il ciclo continua finché "b" non è uguale a 5:''</font> | <FONT color=gray>' ''Il ciclo continua finché "b" non è uguale a 5:''</font> | ||
Loop Until b = 5 | Loop Until b = 5 | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | ==Modalità con il metodo ''.Fill()''== | ||
+ | '''Public''' Sub Button1_Click() | ||
+ | |||
+ | Dim bb As Byte[] = [1, 2, 3, 4, 5] | ||
+ | |||
+ | |||
+ | bb.Fill(0, 0, 5) | ||
'''End''' | '''End''' | ||
Riga 70: | Riga 78: | ||
memset(bb, 0, bb.Count) | memset(bb, 0, bb.Count) | ||
− | <FONT color=gray>' ''Verifichiamo in console il | + | <FONT color=gray>' ''Verifichiamo in console il risultato:''</font> |
For b = 0 To bb.Max | For b = 0 To bb.Max | ||
Print bb[b] | Print bb[b] |
Versione attuale delle 17:19, 22 nov 2013
Per azzerare tutti gli elementi di una variabile vettoriale (array) di un qualsiasi tipo numerico, è possibile utilizzare almeno le modalità che di seguito si espongono, nelle quali si avrà come obiettivo l'azzeramento di un vettore di tipo Byte.
Assegnazione del valore zero ad ogni elemento del vettore mediante un ciclo
Public Sub Button1_Click() Dim bb As Byte[] = [1, 2, 3, 4, 5] Dim b As Byte For b = 0 To bb.Max bb[b] = 0 Next End
Public Sub Button1_Click() Dim bb As Byte[] = [1, 2, 3, 4, 5] Dim b As Byte While b < 5 ' Il ciclo continua finché "b" è minore di 5 bb[b] = 0 Inc b Wend End
Public Sub Button1_Click() Dim bb As Byte[] = [1, 2, 3, 4, 5] Dim b As Byte Do bb[b] = 0 Inc b ' Il ciclo continua finché "b" non è uguale a 5: Loop Until b = 5 End
Modalità con il metodo .Fill()
Public Sub Button1_Click() Dim bb As Byte[] = [1, 2, 3, 4, 5] bb.Fill(0, 0, 5) End
Modalità con la funzione esterna di C: memset ()
E' possibile utilizzare anche la funzione esterna di C: "memset()", dichiarando sia la funzione medesima mediante Extern, sia la libreria C, nella quale essa è contenuta.
Private Extern memset(dest As Byte[], c As Byte, count As Byte) In "libc:6" Public Sub Form_Open() Dim bb As Byte[] = [1, 2, 3, 4, 5] Dim b As Byte ' La funzione "memset" carica un valore in tutti i byte di un'area di memoria: memset(bb, 0, bb.Count) ' Verifichiamo in console il risultato: For b = 0 To bb.Max Print bb[b] Next End