Differenze tra le versioni di "Ottenere il tempo trascorso dall'inizializzazione della libreria SDL2"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "La funzione esterna ''SDL_GetTicks()'' della libreria ''SDL2'' consente di conoscere il tempo trascorso dall'inizializzazione della libreria medesima. Nel programma Gambas si...") |
|||
Riga 16: | Riga 16: | ||
' ''To get the number of milliseconds since the SDL library initialization.''</font> | ' ''To get the number of milliseconds since the SDL library initialization.''</font> | ||
Private Extern SDL_GetTicks() As Integer | Private Extern SDL_GetTicks() As Integer | ||
+ | |||
+ | <FONT Color=gray>' ''void SDL_Quit(void)'' | ||
+ | ' ''To clean up all initialized subsystems.''</font> | ||
+ | Private Extern SDL_Quit() | ||
Riga 29: | Riga 33: | ||
Print "Trascorsi", i, "millisecondi dall'inizializzazione della libreria SDL2." | Print "Trascorsi", i, "millisecondi dall'inizializzazione della libreria SDL2." | ||
+ | |||
+ | SDL_Quit() | ||
'''End''' | '''End''' |
Versione delle 08:18, 1 nov 2015
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 dinamica condivisa: libSDL2-2.0.so.0.2.0
Mostriamo un semplice esempio pratico:
Library "libSDL2-2.0:0.2.0" 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) Sleep 0.567 i = SDL_GetTicks() Print "Trascorsi", i, "millisecondi dall'inizializzazione della libreria SDL2." SDL_Quit() End