Evento Timer MAI attivato

[allegfede]

ho un programma "consolle" che dovrebbe controllare alcune cose periodicamente.
Pero' non mi viene mai generato l'evento "timer" ....

Codice: [Seleziona]

Public Timer_check As New Timer

Public XML_Menu_Structure As New XmlDocument

Public MenuNavigator As New XmlExplorer

Const Righe As Integer = 2
Const Colonne As Integer = 16


Public Sub Main()

  LoadMenuStructure(User.Home & "/menu.xml")

  Timer_check.Delay = 1000
  Timer_check.Enabled = True

  ' Print "Ethernet address"
  ' Messaggio[0] = "Ethernet address"
  ' 
  ' 
  ' EthernetInterface = getActiveNetworkInterface()
  ' ip = DetectIP(EthernetInterface)
  ' 
  ' 
  ' Print ip
  ' Messaggio[1] = ip
  ' 
  ' Shell "echo " & Messaggio[0] & Messaggio[1] & " > /dev/ttyUSB0" 
  
  Do
    Wait
  Loop
 
End


Public Sub Timer_check_timer()

  'update ip address information
  EthernetInterface = getActiveNetworkInterface()
  ip = DetectIP(EthernetInterface)
  
  
End

why? because?

[vuott]

Devi associare l'oggetto Timer ad un Gruppo, quale gestore dell'evento _Timer() .

[milio]

Devi associare l'oggetto Timer ad un Gruppo, quale gestore dell'evento _Timer() .

Codice: [Seleziona]

Public Timer_check As new Timer As "Timer_check"

[allegfede]

vero, mi sfuggiva .... thanks

[vuott]

mi sfuggiva

Ci credo: ...vai sempre piano !   

[allegfede]

e' che faccio troppe cose contemporaneamente :-(