Facendo un po di prove mi è venuta fuori una cosa così
Use "gb.form" ' aggiungi il componente che contiene il timer
Public Sub Main()
Dim a As Timer
With a = New Timer As "Obj" ' Crea il nuovo timer
a.Delay = 1000
a.enabled = True
End With
Do While (1) ' Ciclo infinito, ma non so se è corretto
Wait
Loop
End
Public Function obj_Timer()
Print "Ciao" ' cattura l'evento timer
End
allora
per prima cosa avevo provato da terminalecon
e mi da
bash: ./timer.sh: /usr/bin/gbs3: interprete errato: File o directory non esistente
In /usr/bin e limitrofi non c'è gbs3
anche con
e con numerose varianti di gb
mi sembra proprio che non trova l'interprete gbs3
Ero gia nella cartella dello script e ho gia provato con
bash: ./timer.sh: /usr/bin/env gbs3: interprete errato: File o directory non esistente
Prova a dare questi comandi:
sudo apt-get update
sudo apt-get install gambas3-scripter
notte :ciao:
Una curiosità
Print CInt(Timer) restituisce il numero di eventi generati da Timer?
No restituisce i secondi (dal numero a virgola mobile di Timer) che in quel caso corrispondono agli eventi (delay 1000).
Se vuoi contare gli eventi devi fare così:
Public hConsoleTimer As Timer
Private $iCont As Integer
Public Sub Main()
hConsoleTimer = New Timer As "MyTimer"
hConsoleTimer.Delay = 500 '<-------------- corrisponde a mezzo secondo
hConsoleTimer.Enabled = True
End
Public Sub MyTimer_Timer()
Inc $iCont
Print "Evento n. "; $iCont
Print CInt(Timer);; "Hello Gambas"
End
:ciao: