Differenze tra le versioni di "Conoscere i driver video disponibili nel sistema mediante le funzioni esterne del API di SDL2"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
 
Mediante alcune funzioni esterne del API di SDL2 è possibile conoscere i nomi dei driver video disponibili nel proprio sistema.
 
Mediante alcune funzioni esterne del API di SDL2 è possibile conoscere i nomi dei driver video disponibili nel proprio sistema.
  
E' necessario avere installata nel sistema e richiamare in Gambas la libreria condivisa: "''libSDL2-2.0.so.0.10.0''"
+
E' necessario avere installata nel sistema e richiamare in Gambas la libreria condivisa: "''libSDL2-2.0.so.0.10.0'' ".
 
 
  
 
Mostriamo un semplice esempio:
 
Mostriamo un semplice esempio:
Riga 31: Riga 30:
 
   Dim s As String
 
   Dim s As String
 
    
 
    
  SDL_Init(SDL_INIT_VIDEO)
+
  SDL_Init(SDL_INIT_VIDEO)
 
      
 
      
  i = SDL_GetNumVideoDrivers()
+
  i = SDL_GetNumVideoDrivers()
 
      
 
      
  For d = 0 To i - 1
+
  For d = 0 To i - 1
    Print d; "  "; SDL_GetVideoDriver(d)
+
    Print d; "  "; SDL_GetVideoDriver(d)
  Next
+
  Next
 
    
 
    
  SDL_Quit()
+
  SDL_Quit()
 
    
 
    
 
  '''End'''
 
  '''End'''
 
  
  

Versione delle 20:03, 2 dic 2021

Mediante alcune funzioni esterne del API di SDL2 è possibile conoscere i nomi dei driver video disponibili nel proprio sistema.

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

Mostriamo un semplice esempio:

Library "libSDL2-2.0:0.10.0"

Private Const SDL_INIT_VIDEO As Integer = 32

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

' int SDL_GetNumVideoDrivers(void)
' Get the number of video drivers compiled into SDL.
Private Extern SDL_GetNumVideoDrivers() As Integer

' const char * SDL_GetVideoDriver(int index)
' Get the name of a built in video driver.
Private Extern SDL_GetVideoDriver(index As Integer) As String

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


Public Sub Main()
 
 Dim i, d As Integer
 Dim s As String
 
 SDL_Init(SDL_INIT_VIDEO)
   
 i = SDL_GetNumVideoDrivers()
   
 For d = 0 To i - 1
   Print d; "   "; SDL_GetVideoDriver(d)
 Next
  
 SDL_Quit()
  
End


Riferimenti