Differenze tra le versioni di "Usleep ()"

Da Gambas-it.org - Wikipedia.
Riga 13: Riga 13:
 
  Private Extern <FONT color=#B22222>usleep</font>(usec As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
  Private Extern <FONT color=#B22222>usleep</font>(usec As Integer) As Integer In "<FONT color=#B22222>libc:6</font>"
 
   
 
   
  '''Public''' Sub Main()
+
  Public Sub Main()
 
   
 
   
 
   Dim i As Integer
 
   Dim i As Integer
 
   
 
   
   While True
+
   Do
 
  <FONT color=Gray>' ''Sospende l'esecuzione per 500 milionesimi di secondo:''</font>
 
  <FONT color=Gray>' ''Sospende l'esecuzione per 500 milionesimi di secondo:''</font>
 
     <FONT color=#B22222>usleep</font>(500)
 
     <FONT color=#B22222>usleep</font>(500)
+
    Inc i
    Inc i
 
 
     Print i
 
     Print i
   Wend
+
   Loop
 
   
 
   
  '''End'''
+
  End

Versione delle 11:56, 13 giu 2024

La funzione della libreria di C

int usleep (__useconds_t __useconds)

sospende l'esecuzione del programma per intervalli di microsecondi (milionesimi di secondo).

Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta:

Private Extern usleep(usec As Integer) As Integer In "libc:6"


Semplice esempio di uso in Gambas:

' int usleep (__useconds_t __useconds)
' Sleep USECONDS microseconds.
Private Extern usleep(usec As Integer) As Integer In "libc:6"

Public Sub Main()

 Dim i As Integer

 Do
' Sospende l'esecuzione per 500 milionesimi di secondo:
   usleep(500)
    Inc i
   Print i
 Loop

End