Ho ricompilato Gambas all'ultima versione e quando faccio partire certi progetti mi esce in console sempre questo messaggio di warning:

libEGL warning: DRI2: failed to open nouveau (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open nouveau (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)

Cosa può significare?

Confermo, succede anche a me.

 

Scusa, dici che hai problemi con Compress, ma il componente gb.compress non è nei componenti che hai elencato...

Codice: [Seleziona]

'' s1 e s2 simulano il risultato del nuovo controllo TimeBox.
'' Per l'esattezza di due controlli TimeBox...'
Public Sub Main()

  Dim Data1, Data2 As Date
  Dim s1 As String = "01:12:08"
  Dim s2 As String = "02:04:14"

  Data1 = Time(s1)
  Data2 = Time(s2)
  Print TimeDiff(DateDiff(Data1, Data2, gb.Second))

End

Private Function TimeDiff(iSec As Integer) As String

  Dim h, m, s, res As Integer

  If iSec > 3600 Then
    h = iSec Div 3600
    res = iSec Mod 3600
    m = res Div 60
    s = res Mod 60
  Else If iSec > 60 Then
    h = 0
    m = iSec Div 60
    s = iSec Mod 60
  Else
    h = 0
    m = 0
    s = iSec
  Endif
  Return Format(h, "0#") & ":" & Format(m, "0#") & ":" & Format(s, "0#")

End

Nel tuo esempio le varie If non servono, perchè DIV se il primo numero è inferiore al secondo restituisce 0 senza problemi.
Era sufficiente questo:

Almeno è gnocca?

Benvenuto anche da me.

Buona cosa, ormai la sezione Gambas 2 dubito che la legga ancora qualcuno...