Versione delle 12:19, 18 mar 2017

La funzione esterna rand(), dichiarata nel file haeder "/usr/include/stdlib.h":

int rand (void)

ritorna un numero casuale intero incluso fra 0 e la costante RAND_MAX. Tale costante è dichiarata nel predetto file haeder /usr/include/stdlib.h e lì inizializzata con il valore "2147483647".

Affinché il risultato di tale funzione esterna non sia sempre il medesimo, è necessario cambiare il seme (seed) di partenza del generatore di numeri casuali, altrimenti esso parte sempre da zero. Il generatore di numeri casuali è rappresentato da un'altra funzione esterna: srand( ).

Volendo utilizzare in Gambas la funzione esterna rand( ), bisognerà dichiararla con Extern, nonché dichiarare la libreria di C, libc.so.6, nella quale la funzione è contenuta. Da sottolineare che, poiché la funzione esterna "rand( )" è omonima alla funzione di Gambas "Rand( )", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
Dunque avremo ad esempio:

Private Extern rand_C() As Integer In "libc:6" Exec "rand"

Semplice esempio di uso in Gambas:

Library "libc:6"

' void srand (unsigned int __seed)
' Seed the random number generator with the given number.
Private Extern srand(__seed As Integer)

' int rand (void)
' Return a random integer between 0 and RAND_MAX inclusive.
Private Extern rand_C() As Integer Exec "rand"


Public Sub Main()
  
' Alla funzione esterna "srand()" va passato un numero sempre diverso, per impostare il seme del successivo numero casuale.
' Passiamo alla funzione "srand()" la sola parte frazionaria del valore ritornato dalla funzione nativa di Gambas "Timer()":
  srand(Val(Scan(CStr(Timer), "*.*")[1]))
   
  While True
' Il numero di zeri, presenti nel divisore, restituisce un valore composto da un pari numero di cifre:
   Print rand_C() % 100
   Sleep 0.3
 Wend
  
End

Riferimenti

• http://man7.org/linux/man-pages/man3/rand.3.html
• https://linux.die.net/man/3/rand
• https://www.gnu.org/software/libc/manual/html_node/ISO-Random.html