Differenze tra le versioni di "Conoscere la versione di Gambas"

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Possiamo conoscere il numero della versione di Gambas presente nel nostro sistema almeno mediante due modalità. ===Con il solo codice Gambas=== Se l'aggiornamento della propria vers...)
 
Riga 3: Riga 3:
  
 
===Con il solo codice Gambas===
 
===Con il solo codice Gambas===
Se l'aggiornamento della propria versione di Gambas viene effettuato da SVN, allora se ne può conoscere il numero anche solo utilizzando il codice:
+
Se l'aggiornamento della propria versione di Gambas viene effettuato via SVN, allora se ne può conoscere il numero semplicemente leggendolo dal file "''/home/....../trunk/VERSION''":
 
  '''Public''' Sub Button1_Click()   
 
  '''Public''' Sub Button1_Click()   
 
    
 
    
Riga 11: Riga 11:
 
      
 
      
 
   Print "Gambas - versione "; s   
 
   Print "Gambas - versione "; s   
 +
 
 +
'''End'''
 +
 +
 +
oppure estraendo il numero di versione del pacchetto di aggiornamento dal file "''/home/....../trunk/config.h''":
 +
'''Public''' Sub Main() 
 +
 
 +
  Dim s As String 
 +
   
 +
  s = File.Load(User.Home &/ "trunk/config.h") 
 +
   
 +
  s = Scan(s, "*#define PACKAGE_STRING \"*\"*")[1]
 +
   
 +
  Print "Versione: "; s
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione delle 10:39, 11 set 2016

Possiamo conoscere il numero della versione di Gambas presente nel nostro sistema almeno mediante due modalità.


Con il solo codice Gambas

Se l'aggiornamento della propria versione di Gambas viene effettuato via SVN, allora se ne può conoscere il numero semplicemente leggendolo dal file "/home/....../trunk/VERSION":

Public Sub Button1_Click()  
 
 Dim s As String  
    
  s = File.Load(User.Home &/ "trunk/VERSION")  
    
  Print "Gambas - versione "; s  
 
End


oppure estraendo il numero di versione del pacchetto di aggiornamento dal file "/home/....../trunk/config.h":

Public Sub Main()  
 
 Dim s As String  
    
  s = File.Load(User.Home &/ "trunk/config.h")  
    
  s = Scan(s, "*#define PACKAGE_STRING \"*\"*")[1]
   
  Print "Versione: "; s
 
End


Con Shell

In generale si potrà utilizzare anche Shell:

Public Sub Button1_Click()

 Dim s As String

  Shell "gbx3 --version" To s

  Print s

End

Se si possiede Gambas-2, allora il comando sarà gbx2.