Emmanuele Sassi
1027 lines
46 KiB
VB.net
1027 lines
46 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.ComponentModel.Composition
|
|
Imports System.Globalization
|
|
Imports System.Reflection
|
|
Imports System.Windows.Threading
|
|
Imports Newtonsoft.Json.Linq
|
|
Imports Effector.Plugin.FiveLakes.Variable
|
|
Imports Effector.Plugin.Interface
|
|
|
|
Public Class MachinePageVM
|
|
Inherits VMBase
|
|
|
|
Private m_DoorOnMachineList As New ObservableCollection(Of Door)
|
|
Public ReadOnly Property DoorOnMachineList As ObservableCollection(Of Door)
|
|
Get
|
|
Return m_DoorOnMachineList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_VarTimer As New DispatcherTimer
|
|
|
|
Private m_VariableList As ObservableCollection(Of Variable)
|
|
Public ReadOnly Property VariableList As ObservableCollection(Of Variable)
|
|
Get
|
|
Return m_VariableList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sMachineImagePath As String
|
|
Public ReadOnly Property sMachineImagePath As String
|
|
Get
|
|
Return m_sMachineImagePath
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nDDfCalcState As Integer = -1
|
|
Public ReadOnly Property nDDfCalcState As Integer
|
|
Get
|
|
Return m_nDDfCalcState
|
|
End Get
|
|
End Property
|
|
Private Sub SetDDfCalcState(nState As Integer)
|
|
m_nDDfCalcState = nState
|
|
NotifyPropertyChanged(NameOf(nDDfCalcState))
|
|
End Sub
|
|
|
|
Private m_nNewDoorState As Integer = -1
|
|
Public ReadOnly Property nNewDoorState As Integer
|
|
Get
|
|
Return m_nNewDoorState
|
|
End Get
|
|
End Property
|
|
Private Sub SetNewDoorState(nState As Integer)
|
|
m_nNewDoorState = nState
|
|
NotifyPropertyChanged(NameOf(nNewDoorState))
|
|
End Sub
|
|
|
|
'Private m_DoorOnMachineArray(8) As LuaDoor
|
|
'Public ReadOnly Property DoorOnMachineArray As LuaDoor()
|
|
' Get
|
|
' Return m_DoorOnMachineArray
|
|
' End Get
|
|
'End Property
|
|
|
|
Private m_DoorOnMachineArray As New ObservableCollection(Of LuaDoor)
|
|
Public ReadOnly Property DoorOnMachineArray As ObservableCollection(Of LuaDoor)
|
|
Get
|
|
Return m_DoorOnMachineArray
|
|
End Get
|
|
End Property
|
|
|
|
Private m_LuaDoorList As New ObservableCollection(Of LuaDoor)
|
|
Public ReadOnly Property LuaDoorList As ObservableCollection(Of LuaDoor)
|
|
Get
|
|
Return m_LuaDoorList
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property VariableList_Visibility As Visibility
|
|
Get
|
|
Return If(GetPluginPrivateProfileInt(S_DEBUG, K_VARIABLELIST, 0) <> 0, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property VariableOnDraw_Visibility As Visibility
|
|
Get
|
|
Return If(GetPluginPrivateProfileInt(S_DEBUG, K_VARIABLEONDRAW, 0) <> 0, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property MachineCommands_Visibility As Visibility
|
|
Get
|
|
Return If(GetPluginPrivateProfileInt(S_DEBUG, K_MACHINECOMMANDS, 0) <> 0, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DoorCircList_Visibility As Visibility
|
|
Get
|
|
Return If(GetPluginPrivateProfileInt(S_DEBUG, K_DOORCIRCLIST, 0) <> 0, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdWriteVariable As ICommand
|
|
Private m_cmdMoveVariable As ICommand
|
|
Private m_cmdManageMachining As ICommand
|
|
|
|
Sub New()
|
|
' imposto riferimento in Map
|
|
Map.SetRefMachinePageVM(Me)
|
|
m_VariableList = New ObservableCollection(Of Variable)({New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_00", "980", 1),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_01", "981", 1),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_02", "982", 1),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_03", "983", 1),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_04", "984", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S0", "1360", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S1", "1361", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S2", "1362", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S3", "1363", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S4", "1364", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@SENT_1", "1350", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@SENT_2", "1351", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@STATE", "1352", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@RESET_ON", "1365", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@MAST_OK", "1366", 1),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@START_OK", "1367", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF00", "901.0", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF01", "901.1", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF02", "901.2", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF03", "901.3", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF04", "901.4", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF05", "901.5", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF06", "901.6", 1),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF07", "901.7", 1),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_00", "980", 2),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_01", "981", 2),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_02", "982", 2),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_03", "983", 2),
|
|
New Variable(Variable.VariableTypes.DOUBLE, "@WP_PR_04", "984", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S0", "1360", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S1", "1361", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S2", "1362", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S3", "1363", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@DOORN_S4", "1364", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@SENT_1", "1350", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@SENT_2", "1351", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@STATE", "1352", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@RESET_ON", "1365", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@MAST_OK", "1366", 2),
|
|
New Variable(Variable.VariableTypes.INTEGER, "@START_OK", "1367", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF00", "901.0", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF01", "901.1", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF02", "901.2", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF03", "901.3", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF04", "901.4", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF05", "901.5", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF06", "901.6", 2),
|
|
New Variable(Variable.VariableTypes.BOOLEAN, "@BF07", "901.7", 2)})
|
|
AddHandler m_VarTimer.Tick, AddressOf VarTimer_Tick
|
|
m_VarTimer.Interval = New TimeSpan(100)
|
|
m_VarTimer.Start()
|
|
m_DoorOnMachineList.Add(New Door(35, 1, "Test.ddf", "Produzione2024", 1, 800, 1800, 40, {""}, {""}))
|
|
Dim sResourcesDirPath As String = ""
|
|
GetPluginPrivateProfileString(S_GENERAL, K_RESOURCESDIR, "", sResourcesDirPath)
|
|
m_sMachineImagePath = sResourcesDirPath & "\FiveLakesMachine.png"
|
|
' creo posti in lista descrizioni
|
|
For nIndex As Integer = 0 To 8
|
|
m_DoorOnMachineArray.Add(Nothing)
|
|
Next
|
|
End Sub
|
|
|
|
Friend Sub VarTimer_Tick()
|
|
' leggo variabili da macchina
|
|
For nVarIndex As Integer = 0 To m_VariableList.Count - 1
|
|
Dim Var As Variable = m_VariableList(nVarIndex)
|
|
Select Case Var.Type
|
|
Case Variable.VariableTypes.INTEGER
|
|
Dim nIndex As Integer = 0
|
|
Integer.TryParse(Var.sIndex, nIndex)
|
|
Dim nValue As Integer = 0
|
|
If Map.refSupervisorFunction.ComReadShortVar(nIndex, nValue, Var.nMachine) Then
|
|
Var.SetValue(nValue)
|
|
Else
|
|
Map.refSupervisorFunction.PlgOutLog("Error! Reading Variable " & Var.sIndex & " on machine " & Var.nMachine & "failed!")
|
|
End If
|
|
Case Variable.VariableTypes.DOUBLE
|
|
Dim nIndex As Integer = 0
|
|
Integer.TryParse(Var.sIndex, nIndex)
|
|
Dim dValue As Double = 0
|
|
If Map.refSupervisorFunction.ComReadDoubleVar(nIndex, dValue, Var.nMachine) Then
|
|
Var.SetValue(dValue)
|
|
Else
|
|
Map.refSupervisorFunction.PlgOutLog("Error! Reading Variable " & Var.sIndex & " on machine " & Var.nMachine & "failed!")
|
|
End If
|
|
Case Variable.VariableTypes.BOOLEAN
|
|
Dim nIndex As Integer = 0
|
|
Dim nBit As Integer = 0
|
|
Dim sIndexSplit() As String = Var.sIndex.Split("."c)
|
|
Integer.TryParse(sIndexSplit(0), nIndex)
|
|
Integer.TryParse(sIndexSplit(1), nBit)
|
|
Dim bValue As Boolean = 0
|
|
If Map.refSupervisorFunction.ComReadBitVar(nIndex, nBit, bValue, Var.nMachine) Then
|
|
Var.SetValue(bValue)
|
|
Else
|
|
Map.refSupervisorFunction.PlgOutLog("Error! Reading Variable " & Var.sIndex & " on machine " & Var.nMachine & "failed!")
|
|
End If
|
|
End Select
|
|
Next
|
|
' se in simulazione
|
|
If Map.refSupervisorFunction.PlgGetPrivateProfileInt(S_NC, K_NC_SIMULATE, 0) Then
|
|
' aggiorno stato porta in macchina da 1 a 2 se in stazione di lavorazione
|
|
For nMachineIndex = 1 To 2
|
|
Dim nMachineId As Integer = nMachineIndex
|
|
Dim Machine1Var As Variable = m_VariableList.FirstOrDefault(Function(x) x.sName = "@WP_PR_02" AndAlso x.nMachine = nMachineId)
|
|
If Not IsNothing(Machine1Var) AndAlso Machine1Var.dValue = 1 Then
|
|
Dim nIndex As Integer = -1
|
|
Integer.TryParse(Machine1Var.sIndex, nIndex)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nIndex, 2, Machine1Var.nMachine)
|
|
End If
|
|
Next
|
|
' se presente un sent
|
|
Dim Sent1Var As Variable = m_VariableList.FirstOrDefault(Function(x) x.sName = "@SENT_1" AndAlso x.nMachine = 2)
|
|
Dim Sent2Var As Variable = m_VariableList.FirstOrDefault(Function(x) x.sName = "@SENT_2" AndAlso x.nMachine = 2)
|
|
If Sent1Var.nValue = 1 OrElse Sent2Var.nValue = 1 Then
|
|
' aggiorno stato porta su rulliera intermedia da 2 a 1
|
|
For nMachineIndex = 1 To 2
|
|
Dim nMachineId As Integer = nMachineIndex
|
|
Dim sVariableName As String = "@WP_PR_04"
|
|
If nMachineIndex = 2 Then
|
|
sVariableName = "@WP_PR_00"
|
|
End If
|
|
Dim Machine1Var As Variable = m_VariableList.FirstOrDefault(Function(x) x.sName = sVariableName AndAlso x.nMachine = nMachineId)
|
|
If Not IsNothing(Machine1Var) AndAlso Machine1Var.dValue = 2 Then
|
|
Dim nIndex As Integer = -1
|
|
Integer.TryParse(Machine1Var.sIndex, nIndex)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nIndex, 1, Machine1Var.nMachine)
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
' leggo stato calcolo da lua
|
|
Dim nState As Integer = -1
|
|
If LuaGetGlobVar("MACHINE1.DDfCalcState", nState) Then
|
|
SetDDfCalcState(nState)
|
|
End If
|
|
If LuaGetGlobVar("MACHINE1.NewDoorState", nState) Then
|
|
SetNewDoorState(nState)
|
|
End If
|
|
m_LuaDoorList.Clear()
|
|
For nDoorIndex = 1 To 10
|
|
Dim nId As Integer = -1
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nId", nId)
|
|
Dim nCircIndex As Integer = -1
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nCircIndex", nCircIndex)
|
|
Dim nDoorState As Integer = -1
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nState", nDoorState)
|
|
Dim sDoorCode As String = ""
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".sDoorCode", sDoorCode)
|
|
Dim sDoorDescription As String = ""
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".sDoorDescription", sDoorDescription)
|
|
Dim sDDFName As String = ""
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".sDDFName", sDDFName)
|
|
Dim sCSVName As String = ""
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".sCSVName", sCSVName)
|
|
Dim sM1CNPath As String = ""
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".sM1CNPath", sM1CNPath)
|
|
Dim sM2CNPath As String = ""
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".sM2CNPath", sM2CNPath)
|
|
Dim lLoadTime As Long = 0
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nLoadTime", lLoadTime)
|
|
Dim lMachining1Start As Long = 0
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nMachining1Start", lMachining1Start)
|
|
Dim lMachining1End As Long = 0
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nMachining1End", lMachining1End)
|
|
Dim lMachining2Start As Long = 0
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nMachining2Start", lMachining2Start)
|
|
Dim lMachining2End As Long = 0
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nMachining2End", lMachining2End)
|
|
Dim lUnloadTime As Long = 0
|
|
LuaGetGlobVar("ListaCircPorte." & nDoorIndex & ".nUnloadTime", lUnloadTime)
|
|
m_LuaDoorList.Add(New LuaDoor(nId, nCircIndex, nDoorState, sDoorCode, sDoorDescription, sDDFName, sCSVName, sM1CNPath, sM2CNPath, lLoadTime, lMachining1Start, lMachining1End, lMachining2Start, lMachining2End, lUnloadTime))
|
|
If nId > 0 Then
|
|
' aggiorno dati in lista porte
|
|
Dim Door As Door = Map.refDoorListPageVM.DoorList.FirstOrDefault(Function(x) x.nId = nId)
|
|
If nDoorState <> Door.nProdState Then
|
|
Door.SetProdState(nDoorState)
|
|
If lLoadTime > 0 Then Door.SetLoadTime(lLoadTime)
|
|
If lMachining1Start > 0 Then Door.SetMachining1Start(lMachining1Start)
|
|
If lMachining1End > 0 Then Door.SetMachining1End(lMachining1End)
|
|
If lMachining2Start > 0 Then Door.SetMachining2Start(lMachining2Start)
|
|
If lMachining2End > 0 Then Door.SetMachining2End(lMachining2End)
|
|
If lUnloadTime > 0 Then Door.SetUnloadTime(lUnloadTime)
|
|
End If
|
|
End If
|
|
Next
|
|
For nVarIndex As Integer = 0 To m_VariableList.Count - 1
|
|
Dim Var As Variable = m_VariableList(nVarIndex)
|
|
If nVarIndex >= 5 AndAlso nVarIndex <= 9 Then
|
|
Dim nId As Integer = -1
|
|
If Var.nValue > 0 Then
|
|
m_DoorOnMachineArray(nVarIndex - 5) = m_LuaDoorList(Var.nValue - 1)
|
|
Else
|
|
m_DoorOnMachineArray(nVarIndex - 5) = Nothing
|
|
End If
|
|
End If
|
|
If nVarIndex >= 30 AndAlso nVarIndex <= 33 Then
|
|
Dim nId As Integer = -1
|
|
If Var.nValue > 0 Then
|
|
m_DoorOnMachineArray(nVarIndex - 25) = m_LuaDoorList(Var.nValue - 1)
|
|
Else
|
|
m_DoorOnMachineArray(nVarIndex - 25) = Nothing
|
|
End If
|
|
End If
|
|
Next
|
|
'For nVarIndex As Integer = 0 To m_VariableList.Count - 1
|
|
' Dim Var As Variable = m_VariableList(nVarIndex)
|
|
' If nVarIndex >= 5 AndAlso nVarIndex <= 9 Then
|
|
' Dim nId As Integer = -1
|
|
' If Var.nValue > 0 Then
|
|
' m_DoorOnMachineArray(nVarIndex - 5) = m_LuaDoorList(Var.nValue - 1)
|
|
' Else
|
|
' m_DoorOnMachineArray(nVarIndex - 5) = Nothing
|
|
' End If
|
|
' End If
|
|
' If nVarIndex >= 30 AndAlso nVarIndex <= 33 Then
|
|
' Dim nId As Integer = -1
|
|
' If Var.nValue > 0 Then
|
|
' m_DoorOnMachineArray(nVarIndex - 25) = m_LuaDoorList(Var.nValue - 1)
|
|
' Else
|
|
' m_DoorOnMachineArray(nVarIndex - 25) = Nothing
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
NotifyPropertyChanged(NameOf(DoorOnMachineArray))
|
|
End Sub
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "WriteVariable"
|
|
|
|
Public ReadOnly Property WriteVariable_Command As ICommand
|
|
Get
|
|
If m_cmdWriteVariable Is Nothing Then
|
|
m_cmdWriteVariable = New Command(AddressOf WriteVariable)
|
|
End If
|
|
Return m_cmdWriteVariable
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub WriteVariable(sVariable As String)
|
|
Dim sVariables As String() = sVariable.Split(";"c)
|
|
For nVariableIndex As Integer = 0 To sVariables.Count - 1
|
|
Dim sVariableArgs As String() = sVariables(nVariableIndex).Split(","c)
|
|
Dim nMachineIndex As Integer = -1
|
|
Integer.TryParse(sVariableArgs(0), nMachineIndex)
|
|
Dim nVariableType As Integer = -1
|
|
Integer.TryParse(sVariableArgs(1), nVariableType)
|
|
Select Case nVariableType
|
|
Case 1
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVariableArgs(2), nVarAddress)
|
|
Dim nVarValue As Integer = -1
|
|
Integer.TryParse(sVariableArgs(3), nVarValue)
|
|
Map.refSupervisorFunction.ComWriteShortVar(nVarAddress, nVarValue, nMachineIndex)
|
|
Case 2
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVariableArgs(2), nVarAddress)
|
|
Dim dVarValue As Double = -1
|
|
StringToDouble(sVariableArgs(3), dVarValue)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nVarAddress, dVarValue, nMachineIndex)
|
|
Case 3
|
|
Dim sVarAddress As String() = sVariableArgs(2).Split("."c)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVarAddress(0), nVarAddress)
|
|
Dim nBit As Integer = -1
|
|
Integer.TryParse(sVarAddress(1), nBit)
|
|
Dim nVarValue As Integer = -1
|
|
Integer.TryParse(sVariableArgs(3), nVarValue)
|
|
Map.refSupervisorFunction.ComWriteBitVar(nVarAddress, nBit, nVarValue <> 0, nMachineIndex)
|
|
End Select
|
|
Next
|
|
End Sub
|
|
|
|
#End Region ' WriteVariable
|
|
|
|
#Region "MoveVariable"
|
|
|
|
Public ReadOnly Property MoveVariable_Command As ICommand
|
|
Get
|
|
If m_cmdMoveVariable Is Nothing Then
|
|
m_cmdMoveVariable = New Command(AddressOf MoveVariable)
|
|
End If
|
|
Return m_cmdMoveVariable
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub MoveVariable(sVariableToMove As String)
|
|
Dim sVariableToMoveArgs As String() = sVariableToMove.Split({"->"}, StringSplitOptions.None)
|
|
Dim sFromAndPresenceVariables As String() = sVariableToMoveArgs(0).Split("/"c)
|
|
' verifico presenza da variabile di partenza
|
|
Dim sVerifyFromVariables As String() = sFromAndPresenceVariables(0).Split(";"c)
|
|
Dim sVerifyFromVariableArgs As String() = sVerifyFromVariables(0).Split(","c)
|
|
Dim nVerifyFromMachineIndex As Integer = -1
|
|
Integer.TryParse(sVerifyFromVariableArgs(0), nVerifyFromMachineIndex)
|
|
Dim nVerifyFromVarAddress As Integer = -1
|
|
Integer.TryParse(sVerifyFromVariableArgs(2), nVerifyFromVarAddress)
|
|
Dim dVerifyFromVarValue As Double = -1
|
|
Map.refSupervisorFunction.ComReadShortVar(nVerifyFromVarAddress, dVerifyFromVarValue, nVerifyFromMachineIndex)
|
|
If dVerifyFromVarValue < 1 Then Return
|
|
' verifco se variabile di carico, che la macchina abbia iniziato a lavorare
|
|
If nVerifyFromVarAddress = 1360 Then
|
|
Dim MachineStateVar As Variable = VariableList.FirstOrDefault(Function(x) x.nMachine = nVerifyFromMachineIndex AndAlso x.sName = "@STATE")
|
|
Dim Sent1Var As Variable = VariableList.FirstOrDefault(Function(x) x.nMachine = nVerifyFromMachineIndex AndAlso x.sName = "@SENT_1")
|
|
Dim Sent2Var As Variable = VariableList.FirstOrDefault(Function(x) x.nMachine = nVerifyFromMachineIndex AndAlso x.sName = "@SENT_2")
|
|
If (MachineStateVar.nValue <> 2 AndAlso MachineStateVar.nValue <> 4) OrElse
|
|
Sent1Var.nValue <> 0 OrElse Sent2Var.nValue <> 0 Then Return
|
|
End If
|
|
' verifco se variabile tavolo di lavoro, che la macchina abbia finito di lavorare
|
|
If nVerifyFromVarAddress = 1362 Then
|
|
Dim MachineStateVar As Variable = VariableList.FirstOrDefault(Function(x) x.nMachine = nVerifyFromMachineIndex AndAlso x.sName = "@STATE")
|
|
If MachineStateVar.nValue <> 3 AndAlso MachineStateVar.nValue <> 5 Then Return
|
|
End If
|
|
' verifico che stazione di destinazione non sia gia' occupata
|
|
Dim sToAndPresenceVariables As String() = sVariableToMoveArgs(1).Split("/"c)
|
|
Dim sVerifyToVariables As String() = sToAndPresenceVariables(1).Split(";"c)
|
|
Dim sVerifyToVariableArgs As String() = sVerifyToVariables(0).Split(","c)
|
|
Dim nVerifyToMachineIndex As Integer = -1
|
|
Integer.TryParse(sVerifyToVariableArgs(0), nVerifyToMachineIndex)
|
|
Dim nVerifyToVarAddress As Integer = -1
|
|
Integer.TryParse(sVerifyToVariableArgs(2), nVerifyToVarAddress)
|
|
Dim dVerifyToVarValue As Double = -1
|
|
Map.refSupervisorFunction.ComReadDoubleVar(nVerifyToVarAddress, dVerifyToVarValue, nVerifyToMachineIndex)
|
|
If dVerifyToVarValue > 0 Then Return
|
|
' leggo variabili di partenza
|
|
Dim sFromVariables As String() = sFromAndPresenceVariables(0).Split(";"c)
|
|
Dim sFromVariableArgs As String() = sFromVariables(0).Split(","c)
|
|
Dim nFromMachineIndex As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(0), nFromMachineIndex)
|
|
Dim nFromVariableType As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(1), nFromVariableType)
|
|
Dim nVarValue As Integer = -1
|
|
Dim dVarValue As Double = -1
|
|
Dim bVarValue As Boolean = False
|
|
Select Case nFromVariableType
|
|
Case 1
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComReadShortVar(nVarAddress, nVarValue, nFromMachineIndex)
|
|
Case 2
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComReadDoubleVar(nVarAddress, dVarValue, nFromMachineIndex)
|
|
Case 3
|
|
Dim sVarAddress As String() = sFromVariableArgs(2).Split("."c)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVarAddress(0), nVarAddress)
|
|
Dim nBit As Integer = -1
|
|
Integer.TryParse(sVarAddress(1), nBit)
|
|
Map.refSupervisorFunction.ComReadBitVar(nVarAddress, nBit, bVarValue, nFromMachineIndex)
|
|
End Select
|
|
' scrivo valore in variabili di arrivo
|
|
Dim sToVariables As String() = sToAndPresenceVariables(0).Split(";"c)
|
|
For nToVariableIndex As Integer = 0 To sToVariables.Count - 1
|
|
Dim sToVariableArgs As String() = sToVariables(nToVariableIndex).Split(","c)
|
|
Dim nToMachineIndex As Integer = -1
|
|
Integer.TryParse(sToVariableArgs(0), nToMachineIndex)
|
|
Dim nToVariableType As Integer = -1
|
|
Integer.TryParse(sToVariableArgs(1), nToVariableType)
|
|
Select Case nToVariableType
|
|
Case 1
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sToVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteShortVar(nVarAddress, nVarValue, nToMachineIndex)
|
|
Case 2
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sToVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nVarAddress, dVarValue, nToMachineIndex)
|
|
Case 3
|
|
Dim sVarAddress As String() = sToVariableArgs(2).Split("."c)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVarAddress(0), nVarAddress)
|
|
Dim nBit As Integer = -1
|
|
Integer.TryParse(sVarAddress(1), nBit)
|
|
Map.refSupervisorFunction.ComWriteBitVar(nVarAddress, nBit, nVarValue <> 0, nToMachineIndex)
|
|
End Select
|
|
Next
|
|
' cancello valore da variabili di partenza
|
|
Select Case nFromVariableType
|
|
Case 1
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteShortVar(nVarAddress, 0, nFromMachineIndex)
|
|
Case 2
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nVarAddress, 0, nFromMachineIndex)
|
|
Case 3
|
|
Dim sVarAddress As String() = sFromVariableArgs(2).Split("."c)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVarAddress(0), nVarAddress)
|
|
Dim nBit As Integer = -1
|
|
Integer.TryParse(sVarAddress(1), nBit)
|
|
Map.refSupervisorFunction.ComWriteBitVar(nVarAddress, nBit, False, nFromMachineIndex)
|
|
End Select
|
|
For nFromVariableIndex As Integer = 1 To sFromVariables.Count - 1
|
|
sFromVariableArgs = sFromVariables(nFromVariableIndex).Split(","c)
|
|
Integer.TryParse(sFromVariableArgs(0), nFromMachineIndex)
|
|
Integer.TryParse(sFromVariableArgs(1), nFromVariableType)
|
|
Select Case nFromVariableType
|
|
Case 1
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteShortVar(nVarAddress, 0, nFromMachineIndex)
|
|
Case 2
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nVarAddress, 0, nFromMachineIndex)
|
|
Case 3
|
|
Dim sVarAddress As String() = sFromVariableArgs(2).Split("."c)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVarAddress(0), nVarAddress)
|
|
Dim nBit As Integer = -1
|
|
Integer.TryParse(sVarAddress(1), nBit)
|
|
Map.refSupervisorFunction.ComWriteBitVar(nVarAddress, nBit, False, nFromMachineIndex)
|
|
End Select
|
|
Next
|
|
' resetto presenza da variabili di partenza
|
|
Dim sFromPresenceVariables As String() = sFromAndPresenceVariables(1).Split(";"c)
|
|
For nFromPresenceVariableIndex As Integer = 0 To sFromPresenceVariables.Count - 1
|
|
Dim sFromPresenceVariableArgs As String() = sFromPresenceVariables(nFromPresenceVariableIndex).Split(","c)
|
|
Dim nFromPresenceMachineIndex As Integer = -1
|
|
Integer.TryParse(sFromPresenceVariableArgs(0), nFromPresenceMachineIndex)
|
|
Dim nFromPresenceVariableType As Integer = -1
|
|
Integer.TryParse(sFromPresenceVariableArgs(1), nFromPresenceVariableType)
|
|
Select Case nFromPresenceVariableType
|
|
Case 1
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromPresenceVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComReadShortVar(nVarAddress, nVarValue, nFromPresenceMachineIndex)
|
|
Map.refSupervisorFunction.ComWriteShortVar(nVarAddress, 0, nFromPresenceMachineIndex)
|
|
Case 2
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sFromPresenceVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComReadDoubleVar(nVarAddress, dVarValue, nFromPresenceMachineIndex)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nVarAddress, 0, nFromPresenceMachineIndex)
|
|
Case 3
|
|
Dim sVarAddress As String() = sFromPresenceVariableArgs(2).Split("."c)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sVarAddress(0), nVarAddress)
|
|
Dim nBit As Integer = -1
|
|
Integer.TryParse(sVarAddress(1), nBit)
|
|
Map.refSupervisorFunction.ComReadBitVar(nVarAddress, nBit, bVarValue, nFromPresenceMachineIndex)
|
|
Map.refSupervisorFunction.ComWriteBitVar(nVarAddress, nBit, False, nFromPresenceMachineIndex)
|
|
End Select
|
|
Next
|
|
' imposto presenza in variabili di arrivo
|
|
Dim sToPresenceVariables As String() = sToAndPresenceVariables(1).Split(";"c)
|
|
For nToPresenceVariableIndex As Integer = 0 To sToPresenceVariables.Count - 1
|
|
Dim sToPresenceVariableArgs As String() = sToPresenceVariables(nToPresenceVariableIndex).Split(","c)
|
|
Dim nToPresenceMachineIndex As Integer = -1
|
|
Integer.TryParse(sToPresenceVariableArgs(0), nToPresenceMachineIndex)
|
|
Dim nVarAddress As Integer = -1
|
|
Integer.TryParse(sToPresenceVariableArgs(2), nVarAddress)
|
|
Map.refSupervisorFunction.ComWriteDoubleVar(nVarAddress, dVarValue, nToPresenceMachineIndex)
|
|
Next
|
|
End Sub
|
|
|
|
#End Region ' MoveVariable
|
|
|
|
#Region "ManageMachining"
|
|
|
|
Public ReadOnly Property ManageMachining_Command As ICommand
|
|
Get
|
|
If m_cmdManageMachining Is Nothing Then
|
|
m_cmdManageMachining = New Command(AddressOf ManageMachining)
|
|
End If
|
|
Return m_cmdManageMachining
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ManageMachining(sArg As String)
|
|
Dim sArgs As String() = sArg.Split(","c)
|
|
Dim nMachineIndex As Integer = -1
|
|
Dim nStartStop As Integer = -1
|
|
Integer.TryParse(sArgs(0), nMachineIndex)
|
|
Integer.TryParse(sArgs(1), nStartStop)
|
|
Dim nVarAddress As Integer
|
|
If nMachineIndex = 1 Then
|
|
nVarAddress = 1352
|
|
ElseIf nMachineIndex = 2 Then
|
|
nVarAddress = 1352
|
|
Else Return
|
|
End If
|
|
Dim nState As Integer
|
|
Dim StateVariable As Variable = m_VariableList.FirstOrDefault(Function(x) x.nMachine = nMachineIndex AndAlso x.sName = "@STATE")
|
|
Dim Sent1 As Variable = m_VariableList.FirstOrDefault(Function(x) x.nMachine = nMachineIndex AndAlso x.sName = "@SENT_1")
|
|
Dim Sent2 As Variable = m_VariableList.FirstOrDefault(Function(x) x.nMachine = nMachineIndex AndAlso x.sName = "@SENT_2")
|
|
Dim StartDoorPresence As Variable = m_VariableList.FirstOrDefault(Function(x) x.nMachine = nMachineIndex AndAlso x.sName = "@WP_PR_00")
|
|
Dim EndDoorPresence As Variable = m_VariableList.FirstOrDefault(Function(x) x.nMachine = nMachineIndex AndAlso x.sName = "@WP_PR_02")
|
|
If StateVariable.nValue < 1 OrElse StateVariable.nValue > 5 Then Return
|
|
Select Case StateVariable.nValue
|
|
Case 0
|
|
Return
|
|
Case 1
|
|
If nStartStop = 1 AndAlso StartDoorPresence.dValue = 1 AndAlso Sent1.nValue = 1 Then
|
|
nState = 2
|
|
Map.refSupervisorFunction.ComWriteShortVar(Sent1.sIndex, 0, nMachineIndex)
|
|
Else Return
|
|
End If
|
|
Case 2
|
|
If nStartStop = 2 AndAlso EndDoorPresence.dValue = 2 Then
|
|
nState = 3
|
|
Else Return
|
|
End If
|
|
Case 3
|
|
If nStartStop = 1 AndAlso StartDoorPresence.dValue = 1 AndAlso Sent2.nValue = 1 Then
|
|
nState = 4
|
|
Map.refSupervisorFunction.ComWriteShortVar(Sent2.sIndex, 0, nMachineIndex)
|
|
Else Return
|
|
End If
|
|
Case 4
|
|
If nStartStop = 2 AndAlso EndDoorPresence.dValue = 2 Then
|
|
nState = 5
|
|
Else Return
|
|
End If
|
|
Case 5
|
|
If nStartStop = 1 AndAlso StartDoorPresence.dValue = 1 AndAlso Sent1.nValue = 1 Then
|
|
nState = 2
|
|
Map.refSupervisorFunction.ComWriteShortVar(Sent1.sIndex, 0, nMachineIndex)
|
|
Else Return
|
|
End If
|
|
End Select
|
|
Map.refSupervisorFunction.ComWriteShortVar(nVarAddress, nState, nMachineIndex)
|
|
End Sub
|
|
|
|
#End Region ' ManageMachining
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|
|
|
|
Public Class Variable
|
|
Inherits VMBase
|
|
|
|
Public Enum VariableTypes As Integer
|
|
[INTEGER] = 1
|
|
[DOUBLE] = 2
|
|
[BOOLEAN] = 3
|
|
End Enum
|
|
|
|
Private m_Type As VariableTypes
|
|
Public ReadOnly Property Type As Integer
|
|
Get
|
|
Return m_Type
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sName As String
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sIndex As String
|
|
Public ReadOnly Property sIndex As String
|
|
Get
|
|
Return m_sIndex
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nMachine As Integer
|
|
Public ReadOnly Property nMachine As Integer
|
|
Get
|
|
Return m_nMachine
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nValue As Integer
|
|
Friend ReadOnly Property nValue As Integer
|
|
Get
|
|
Return m_nValue
|
|
End Get
|
|
End Property
|
|
Private m_dValue As Double
|
|
Friend ReadOnly Property dValue As Integer
|
|
Get
|
|
Return m_dValue
|
|
End Get
|
|
End Property
|
|
Private m_bValue As Boolean
|
|
Public Property sValue As String
|
|
Get
|
|
Select Case Type
|
|
Case VariableTypes.INTEGER
|
|
Return m_nValue.ToString()
|
|
Case VariableTypes.DOUBLE
|
|
Return DoubleToString(m_dValue, 2)
|
|
Case VariableTypes.BOOLEAN
|
|
Return If(m_bValue, 1, 0)
|
|
End Select
|
|
End Get
|
|
Set(value As String)
|
|
Select Case Type
|
|
Case VariableTypes.INTEGER
|
|
If Not Integer.TryParse(value, m_nValue) Then
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End If
|
|
Case VariableTypes.DOUBLE
|
|
If Not StringToDouble(value, m_dValue) Then
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End If
|
|
Case VariableTypes.BOOLEAN
|
|
Dim nBoolean As Integer = 0
|
|
If Integer.TryParse(value, nBoolean) Then
|
|
m_bValue = If(nBoolean > 0, 1, 0)
|
|
Else
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End If
|
|
End Select
|
|
m_nValue = value
|
|
End Set
|
|
End Property
|
|
Friend Sub SetValue(value As Integer)
|
|
m_nValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Sub
|
|
Friend Sub SetValue(value As Double)
|
|
m_dValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Sub
|
|
Friend Sub SetValue(value As Boolean)
|
|
m_bValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Sub
|
|
|
|
Sub New(Type As VariableTypes, sName As String, sIndex As String, nMachine As Integer)
|
|
m_Type = Type
|
|
m_sName = sName
|
|
m_sIndex = sIndex
|
|
m_nMachine = nMachine
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class LuaDoor
|
|
Inherits VMBase
|
|
|
|
Private m_nId As Integer = -1
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nCircIndex As Integer = -1
|
|
Public ReadOnly Property nCircIndex As Integer
|
|
Get
|
|
Return m_nCircIndex
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nState As Integer = 0
|
|
Public ReadOnly Property nState As Integer
|
|
Get
|
|
Return m_nState
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sDoorCode As String = ""
|
|
Public ReadOnly Property sDoorCode As String
|
|
Get
|
|
Return m_sDoorCode
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sDoorDescription As String = ""
|
|
Public ReadOnly Property sDoorDescription As String
|
|
Get
|
|
Return m_sDoorDescription
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sDDFName As String = ""
|
|
Public ReadOnly Property sDDFName As String
|
|
Get
|
|
Return m_sDDFName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sCSVName As String = ""
|
|
Public ReadOnly Property sCSVName As String
|
|
Get
|
|
Return m_sCSVName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sM1CNPath As String = ""
|
|
Public ReadOnly Property sM1CNPath As String
|
|
Get
|
|
Return m_sM1CNPath
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sM2CNPath As String = ""
|
|
Public ReadOnly Property sM2CNPath As String
|
|
Get
|
|
Return m_sM2CNPath
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dtLoadTime As DateTime
|
|
Public ReadOnly Property sLoadTime As String
|
|
Get
|
|
Return m_dtLoadTime.ToString("yy/MM/dd HH:mm:ss")
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dtMachining1Start As DateTime
|
|
Public ReadOnly Property sMachining1Start As String
|
|
Get
|
|
Return m_dtMachining1Start.ToString("yy/MM/dd HH:mm:ss")
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dtMachining1End As DateTime
|
|
Public ReadOnly Property sMachining1End As String
|
|
Get
|
|
Return m_dtMachining1End.ToString("yy/MM/dd HH:mm:ss")
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dtMachining2Start As DateTime
|
|
Public ReadOnly Property sMachining2Start As String
|
|
Get
|
|
Return m_dtMachining2Start.ToString("yy/MM/dd HH:mm:ss")
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dtMachining2End As DateTime
|
|
Public ReadOnly Property sMachining2End As String
|
|
Get
|
|
Return m_dtMachining2End.ToString("yy/MM/dd HH:mm:ss")
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dtUnloadTime As DateTime
|
|
Public ReadOnly Property sUnloadTime As String
|
|
Get
|
|
Return m_dtUnloadTime.ToString("yy/MM/dd HH:mm:ss")
|
|
End Get
|
|
End Property
|
|
|
|
Sub New(nId As Integer, nCircIndex As Integer, nState As Integer, sDoorCode As String, sDoorDescription As String, sDDFName As String, sCSVName As String,
|
|
sM1CNPath As String, sM2CNPath As String, lLoadTime As Long, lMachining1Start As Long, lMachining1End As Long, lMachining2Start As Long, lMachining2End As Long, lUnloadTime As Long)
|
|
m_nId = nId
|
|
m_nCircIndex = nCircIndex
|
|
m_nState = nState
|
|
m_sDoorCode = sDoorCode
|
|
m_sDoorDescription = sDoorDescription
|
|
m_sDDFName = sDDFName
|
|
m_sCSVName = sCSVName
|
|
m_sM1CNPath = sM1CNPath
|
|
m_sM2CNPath = sM2CNPath
|
|
m_dtLoadTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(lLoadTime).ToLocalTime()
|
|
m_dtMachining1Start = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(lMachining1Start).ToLocalTime()
|
|
m_dtMachining1End = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(lMachining1End).ToLocalTime()
|
|
m_dtMachining2Start = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(lMachining2Start).ToLocalTime()
|
|
m_dtMachining2End = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(lMachining2End).ToLocalTime()
|
|
m_dtUnloadTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(lUnloadTime).ToLocalTime()
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class StringToVisibilityConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If Not TypeOf value Is String OrElse String.IsNullOrWhiteSpace(value) Then Return Visibility.Collapsed
|
|
Dim sValue As String = value
|
|
Dim sLowerValue As String = sValue.ToLower()
|
|
If sLowerValue = "true" Then Return Visibility.Visible
|
|
If sLowerValue = "false" Then Return Visibility.Collapsed
|
|
Dim nValue As Integer
|
|
If Not Integer.TryParse(sValue, nValue) Then Return Visibility.Collapsed
|
|
Return If(nValue <> 0, Visibility.Visible, Visibility.Collapsed)
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class StringToMachineStateConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If Not TypeOf value Is String OrElse String.IsNullOrWhiteSpace(value) Then Return Visibility.Collapsed
|
|
Dim sValue As String = value
|
|
Dim nValue As Integer
|
|
If Not Integer.TryParse(sValue, nValue) Then Return ""
|
|
Select Case nValue
|
|
Case -1
|
|
Return "Not Initialized"
|
|
Case 0
|
|
Return "Reset"
|
|
Case 1
|
|
Return "Initialized"
|
|
Case 2
|
|
Return "Start machining 1000"
|
|
Case 3
|
|
Return "End machining 1000"
|
|
Case 4
|
|
Return "Start machining 2000"
|
|
Case 5
|
|
Return "End machining 2000"
|
|
Case Else
|
|
Return "Unknown State"
|
|
End Select
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class StringToDDFCalcStateConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If Not TypeOf value Is Integer Then Return value
|
|
Dim sValue As String = value
|
|
Dim nValue As Integer = value
|
|
Select Case nValue
|
|
Case 0
|
|
Return "Null"
|
|
Case 1
|
|
Return "Running"
|
|
Case 2
|
|
Return "Result"
|
|
Case Else
|
|
Return value
|
|
End Select
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class StringToNewDoorStateConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If Not TypeOf value Is Integer Then Return value
|
|
Dim nValue As Integer = value
|
|
Select Case nValue
|
|
Case 0
|
|
Return "Null"
|
|
Case 1
|
|
Return "Present"
|
|
Case 2
|
|
Return "Assigned"
|
|
Case Else
|
|
Return value
|
|
End Select
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class StringToBooleanConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If Not TypeOf value Is String OrElse String.IsNullOrWhiteSpace(value) Then Return Nothing
|
|
Dim sValue As String = value
|
|
Dim nValue As Integer
|
|
If Not Integer.TryParse(sValue, nValue) Then Return Nothing
|
|
If nValue = -1 Then Return Nothing
|
|
Return nValue <> 0
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class StringToBackgroundConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If Not TypeOf value Is String OrElse String.IsNullOrWhiteSpace(value) Then Return False
|
|
Dim sValue As String = value
|
|
Dim nValue As Integer
|
|
If Not Integer.TryParse(sValue, nValue) Then Return Brushes.LightGray
|
|
Return If(nValue <> 0, Brushes.Green, Brushes.LightGray)
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class DoorToVisibilityConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If IsNothing(value) OrElse (Not TypeOf value Is LuaDoor AndAlso Not TypeOf value Is RestartDoor) Then Return Visibility.Hidden
|
|
Return Visibility.Visible
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class
|