[RISOLTO[Istruzione USE in gambas script

[akrobaticone]

Ciao
Vorrei includere un timer in uno script gambas che genera un evento ogni tot secondi
per iniziare non ho ben capito l'uso della funzione USE
http://gambaswiki.org/wiki/lang/use?l=it
con questa dovrei includere  tutti gli oggetti che intendo usare nello script
potete aiutarmi ?
Grazie

[akrobaticone]

Facendo un po di prove mi è venuta fuori una cosa così

Codice: [Seleziona]

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

[akrobaticone]

Aggiungo  che lo scopo dello script è controllare periodicamente un pin GPIO di Raspberry che monitora la tensione di rete
se va a zero invia una mail al sottoscritto, naturalmente raspy e modem sono sotto UPS
La stessa cosa si puo ottenere con Cron che lancia lo script a intervalli regolari, ma a scopo didattico vorrei realizzarlo anche con un timer
I pin GPIO li controllo con le librerie WiringPi (anche se non piu sviluppate)

[Gianluigi]

il timer non ha bisogno di USE

Ti allego due script Gambas, uno col timer e uno con USE

 

[akrobaticone]

Grazie Gianluigi
Ho capito come funzionano gli script
Purtroppo non partono poichè non trova l'interprete
Dove è finito?
Gambas è da PPA

[Gianluigi]

Da terminale dai il comando:
~:$ gbs3 <nome dello script>.sh oppure . gbs oppure .pippo oppure... 

Sempre che io abbia capito cosa mi stai chiedendo.

[akrobaticone]

allora
per prima cosa avevo provato da terminalecon

Codice: [Seleziona]

./timer.sh

e mi da

Codice: [Seleziona]

bash: ./timer.sh: /usr/bin/gbs3: interprete errato: File o directory non esistente

In /usr/bin e limitrofi non c'è gbs3
anche con

Codice: [Seleziona]

gbs3 timer.sh

e con numerose varianti di gb
mi sembra proprio che non trova l'interprete gbs3

[Gianluigi]

Per lanciare gli script che ho allegato ti devi trovare nella stessa cartella dello script.

Altrimenti prova con #!/usr/bin/env gbs3 al posto di #!/usr/bin/gbs3

 

[akrobaticone]

Ero gia nella cartella dello script e ho gia provato con

Codice: [Seleziona]

bash: ./timer.sh: /usr/bin/env gbs3: interprete errato: File o directory non esistente

[Gianluigi]

Prova a dare questi comandi:

Codice: [Seleziona]

sudo apt-get update
sudo apt-get install gambas3-scripter

notte 

[akrobaticone]

con scripter funziona!
compilando dall'ide si ottinene il file timer.gambas
da terminale ./timer.gambas parte anch'esso
posso ritardare l'apprendimento di python
Una curiosità
Print CInt(Timer) restituisce il numero di eventi generati da Timer?
Grazie

[Gianluigi]

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ì:

Codice: [Seleziona]

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

 

[akrobaticone]