Emmanuele Sassi
6c75191729
Correzione salvataggio numero pezzi aggiunti Thread di comunicazione Supervisore Bozza Thread di comunicazione su ottimizzatore Migliorie e correzioni
24 lines
568 B
VB.net
24 lines
568 B
VB.net
Public Class SupervisorCommThread
|
|
|
|
' variabile che ferma il ciclo
|
|
Private Shared m_Stop As Boolean = False
|
|
|
|
Friend Shared Sub StopThread()
|
|
m_Stop = True
|
|
End Sub
|
|
|
|
Public Shared Sub SupervisorCommThreadFunction()
|
|
|
|
' creo classe di comunicazione
|
|
Dim m_SupervisorComm As SupervisorComm = New SupervisorComm()
|
|
|
|
While Not m_Stop
|
|
' eseguo ciclo principale che tiene vivo il thread
|
|
m_SupervisorComm.Timer_Tick()
|
|
Threading.Thread.Sleep(TimeSpan.FromMilliseconds(1000))
|
|
End While
|
|
|
|
End Sub
|
|
|
|
End Class
|