Nicola Pievani
98b6563e57
-> verificate coordinate di prelievo e deposito (Tab1 e Tab2) -> scatta foto -> gestione di preparazione pallet (nesting 1d) -> gestione mancato vuoto su tavola 1 -> gestione di mancato vuoto tavola 2.
76 lines
2.2 KiB
VB.net
76 lines
2.2 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Module Map
|
|
|
|
Private m_refMainWindowVM As MainWindowVM
|
|
Private m_refUnloadingAreaVM As UnloadingAreaVM
|
|
Private m_refSceneHostVM As SceneHostVM
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refMainWindowVM As MainWindowVM
|
|
Get
|
|
Return m_refMainWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refUnloadingAreaVM As UnloadingAreaVM
|
|
Get
|
|
Return m_refUnloadingAreaVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refSceneHostVM As SceneHostVM
|
|
Get
|
|
' bisogna usare la nuova funzione dell'EgtWPFLib5 che gestisce le liste di scene
|
|
If IsNothing(m_refSceneHostVM) Then
|
|
m_refSceneHostVM = LibMap.refSceneHostVM
|
|
End If
|
|
Return m_refSceneHostVM
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
'Friend Function SetRefStatusBarVM(StatusBarVM As StatusBarVM) As Boolean
|
|
' LibMap.SetRefStatusBarVM(StatusBarVM)
|
|
' Return Not IsNothing(LibMap.refStatusBarVM)
|
|
'End Function
|
|
|
|
Friend Function SetRefUnloadingAreaVM(UnloadingAreaVM As UnloadingAreaVM) As Boolean
|
|
m_refUnloadingAreaVM = UnloadingAreaVM
|
|
Return Not IsNothing(m_refUnloadingAreaVM)
|
|
End Function
|
|
|
|
Friend Function SetRefSceneHostVM(SceneHostVM As SceneHostVM) As Boolean
|
|
LibMap.SetRefSceneHostVM(SceneHostVM)
|
|
Return Not IsNothing(LibMap.refSceneHostVM)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
|
|
m_refMainWindowVM = MainWindowVM
|
|
' quando avvio il programma creo la classe per la camera
|
|
Return Not IsNothing(m_refMainWindowVM)
|
|
End Function
|
|
|
|
Friend Function EndInit() As Boolean
|
|
' ripulisco il file di log dei processi
|
|
Try
|
|
My.Computer.FileSystem.DeleteFile(Map.refMainWindowVM.MainWindowM.sTempDir & "\ProcessLog.txt")
|
|
Catch ex As Exception
|
|
End Try
|
|
' Verifico se tutti i pezzi necessari sono stati caricati
|
|
Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refUnloadingAreaVM) AndAlso
|
|
Not IsNothing(LibMap.refSceneHostVM) ' AndAlso LibMap.EndInit()
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|