Ottenere il tempo trascorso dall'inizializzazione della libreria SDL2

La funzione esterna SDL_GetTicks() della libreria SDL2 consente di conoscere il tempo trascorso dall'inizializzazione della libreria medesima. Nel programma Gambas si dovrà utilizzare dunque anche la funzione "SDL_Init()" per inizializzare la libreria.

E' necessario avere installata e richiamare in Gambas la libreria condivisa: "libSDL2-2.0.so.0.3000.10 ".

Mostriamo un semplice esempio pratico:

Library "libSDL2-2.0:0.3000.10"

Private Const SDL_INIT_TIMER As Integer = 1

' int SDL_Init(Uint32 flags)
' Initializes  the subsystems specified by flags.
Private Extern SDL_Init(flags As Integer) As Integer

' Uint32 SDL_GetTicks(void)
' To get the number of milliseconds since the SDL library initialization.
Private Extern SDL_GetTicks() As Integer

' void SDL_Quit(void)
' To clean up all initialized subsystems.
Private Extern SDL_Quit()


Public Sub Main()
 
 Dim i As Integer
 
 SDL_Init(SDL_INIT_TIMER)
  
 Wait 0.567
   
 i = SDL_GetTicks()
  
 Print "Trascorsi", i, "millisecondi dall'inizializzazione della libreria SDL2."
  
 SDL_Quit()
  
End

Riferimenti

• http://wiki.libsdl.org/SDL_GetTicks