ho un programma "consolle" che dovrebbe controllare alcune cose periodicamente.
Pero' non mi viene mai generato l'evento "timer" ....
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?
Devi associare l'oggetto Timer ad un Gruppo, quale gestore dell'evento _Timer() .
Public Timer_check As new Timer As "Timer_check"