Samuele E. Locatelli
1023 lines
51 KiB
VB.net
1023 lines
51 KiB
VB.net
Imports CndexLinkDotNet
|
||
Imports Microsoft.Win32
|
||
Imports CMSControl.App.Runtime
|
||
Imports CMSControl.Config.Settings
|
||
|
||
Imports T_memType = System.Collections.Generic.Dictionary(Of System.Int32, System.Collections.Generic.Dictionary(Of System.Int32, System.Object))
|
||
Imports T_memDim = System.Collections.Generic.Dictionary(Of System.Int32, System.Object)
|
||
|
||
Namespace CNC
|
||
|
||
Partial Public Class OSAI
|
||
Inherits CNC
|
||
|
||
'Variabili per server Cndex (Osai)
|
||
Protected _szRemoteName As String
|
||
Protected _UserSession As Short
|
||
Protected _ErrClass As Integer
|
||
Protected _ErrNum As Integer
|
||
Friend Cndex As CndexLinkDotNet.Cndex
|
||
Private nReturn As Short
|
||
|
||
Protected Const ERRORE = 0
|
||
|
||
Public Enum MemTypeWord
|
||
I_CODE = 0
|
||
O_CODE = 1
|
||
|
||
MW_CODE = 20
|
||
GW_CODE = 21
|
||
SW_CODE = 22
|
||
|
||
PW_CODE = 62
|
||
UW_CODE = 63
|
||
End Enum
|
||
Public Enum MemTypeDouble
|
||
MD_CODE = 40
|
||
GD_CODE = 41
|
||
SD_CODE = 42
|
||
PD_CODE = 43
|
||
UD_CODE = 44
|
||
L_CODE = 145
|
||
End Enum
|
||
|
||
Public Enum MemTypeText
|
||
LS_CODE = 18
|
||
AA_CODE = 28
|
||
A_CODE = 45
|
||
SC_CODE = 50
|
||
SYMO_A_CODE = 102
|
||
End Enum
|
||
|
||
Private nLicenzaTmp As Integer
|
||
Public Overrides Property Licenza() As Integer
|
||
Get
|
||
Return nLicenzaTmp
|
||
End Get
|
||
Set(ByVal value As Integer)
|
||
nLicenzaTmp = value
|
||
End Set
|
||
End Property
|
||
|
||
Private bLicenzaScadutaTmp As Boolean
|
||
Public Overrides Property LicenzaScaduta() As Boolean
|
||
Get
|
||
Return bLicenzaScadutaTmp
|
||
End Get
|
||
Set(ByVal value As Boolean)
|
||
bLicenzaScadutaTmp = value
|
||
End Set
|
||
End Property
|
||
|
||
Public Sub New(ByRef szRemoteName As String)
|
||
Me.New()
|
||
|
||
Try
|
||
Cndex = New CndexLinkDotNet.Cndex
|
||
Catch ex As Exception
|
||
MsgBox(ex.Message)
|
||
End Try
|
||
|
||
_szRemoteName = szRemoteName
|
||
End Sub
|
||
|
||
Public Sub New()
|
||
MyBase.New()
|
||
_Type = NcType.OSAI
|
||
|
||
'Definisco l'area della Cnc Window
|
||
SetCncWindowSize()
|
||
|
||
'Inizializzo le variabili
|
||
Me._Descrizione = "NC OSAI" & vbNewLine
|
||
Me._Descrizione = Me._Descrizione & "RemoteName: " & _szRemoteName
|
||
End Sub
|
||
|
||
Public Overrides Sub Connect(Optional ByRef szStatus As String = "")
|
||
Dim nReturn As Short
|
||
Dim pPhase As Short
|
||
Dim szReturn As String = ""
|
||
Dim sValue(0) As Short
|
||
Dim TimeStart As Date
|
||
|
||
'apro una sessione col CN
|
||
Log.WI("TRY OpenSession CNC.OSAI", "RemoteName=" & _szRemoteName, CLog.Lev.Secondary)
|
||
nReturn = Cndex.OpenSession_C(_szRemoteName, _UserSession, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("OpenSession_C({0},{1}) Connect CNC.OSAI", _szRemoteName, _UserSession), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Else
|
||
Log.WI("OK OpenSession CNC.OSAI", , CLog.Lev.Secondary)
|
||
'leggo in che fase di boot mi trovo
|
||
nReturn = Cndex.BootPhaseEnquiry_C(_UserSession, pPhase, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("BootPhaseEnquiry_C({0},{1}) Connect CNC.OSAI", _UserSession, pPhase), szReturn) Then
|
||
_bConnected = False
|
||
Throw New CmsNcException(szReturn)
|
||
Else
|
||
'verifico che il sistema si trovi in una fase operativa "stabile"
|
||
Log.WI("OK BootPhaseEnquiry CNC.OSAI", "Phase=" & pPhase, CLog.Lev.Secondary)
|
||
If pPhase = 4 Then 'SYSTEM_UP_PHASE
|
||
|
||
'leggo matricola e verifico che sia diversa da zero
|
||
TimeStart = Now
|
||
Do
|
||
Select Case Settings.MemoryMapping
|
||
Case MemoryMapping.ElsManager, _
|
||
MemoryMapping.Default
|
||
'Matricola
|
||
nReturn = O_RW_Short(False, MemTypeWord.MW_CODE, 3187, sValue)
|
||
|
||
Case MemoryMapping.ToolManager, _
|
||
MemoryMapping.ToolTable
|
||
'Matricola
|
||
nReturn = O_RW_Short(False, MemTypeWord.MW_CODE, 3403, sValue)
|
||
End Select
|
||
|
||
If sValue(0) > 0 Then
|
||
Threading.Thread.Sleep(500)
|
||
Exit Do
|
||
End If
|
||
|
||
If (Now - TimeStart).Seconds > 30 Then
|
||
Select Case MsgBox("Matricola non inizializzata in 30 secondi: Verificare CMSKMG o PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel)
|
||
Case MsgBoxResult.Retry : TimeStart = Now
|
||
Case MsgBoxResult.Cancel : Exit Do
|
||
End Select
|
||
End If
|
||
Log.WI("OK Connect CNC.OSAI but SERIAL NUMBER NOT YET INITIALIZED", , CLog.Lev.Secondary)
|
||
Application.DoEvents()
|
||
Threading.Thread.Sleep(500) 'aspetto 500ms prima di ritentare
|
||
Application.DoEvents()
|
||
Loop
|
||
|
||
_bConnected = True
|
||
Log.WI("OK Connect CNC.OSAI", "Connected=" & _bConnected, CLog.Lev.Secondary)
|
||
Else
|
||
_bConnected = False
|
||
Log.WI("OK Connect CNC.OSAI but PHASE NOT OK", "Phase=" & pPhase & " Connected=" & _bConnected, CLog.Lev.Secondary)
|
||
Throw New CmsNcException("ERR BootPhase NOT OK CNC.OSAI")
|
||
End If
|
||
End If
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "")
|
||
Dim nReturn As Short
|
||
Dim bRet As Boolean
|
||
Dim szReturn As String = ""
|
||
|
||
'chiudo la sessione
|
||
nReturn = Cndex.CloseSession_C(_UserSession, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("CloseSession_C({0}) Disconnect CNC.OSAI", _UserSession), szReturn) Then
|
||
_bConnected = False '?
|
||
bRet = False
|
||
Throw New CmsNcException(szReturn)
|
||
Else
|
||
_bConnected = False
|
||
bRet = True
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Public Overrides Function SetCncWindowSize() As Boolean
|
||
Dim CncWindowSizeNew As Size
|
||
|
||
Select Case Config.Settings.Settings.OpPanel_ScreenSize 'Screen.PrimaryScreen.Bounds.Size
|
||
Case New Size(800, 600) '10"
|
||
CncWindowSizeNew = New System.Drawing.Size(640, 480)
|
||
Case New Size(1024, 768) '15"
|
||
CncWindowSizeNew = New System.Drawing.Size(773, 600) '(800, 600) 'per visualizzare senza barra almeno 3 teste
|
||
Case New Size(2048, 768) '15" doppio monitor
|
||
CncWindowSizeNew = New System.Drawing.Size(800, 600)
|
||
Case New Size(1280, 800) '15,6" widescreen
|
||
CncWindowSizeNew = New System.Drawing.Size(800, 544)
|
||
Case New Size(1280, 1024) '17"
|
||
CncWindowSizeNew = New System.Drawing.Size(990, 750) '(1024, 768) 'per visualizzare senza barra almeno 3 teste
|
||
Case New Size(1920, 1080) 'FullHD
|
||
CncWindowSizeNew = New System.Drawing.Size(1370, 770)
|
||
Case Else
|
||
CncWindowSizeNew = New System.Drawing.Size(800, 600)
|
||
End Select
|
||
If _CncWindowSize <> CncWindowSizeNew Then
|
||
_CncWindowSize = CncWindowSizeNew
|
||
Return True
|
||
Else
|
||
Return False
|
||
End If
|
||
End Function
|
||
|
||
Public Overrides Sub RunCnc()
|
||
Dim szProgramFilesDir, szPath As String
|
||
Dim key As RegistryKey
|
||
Dim myProcess As System.Diagnostics.Process
|
||
|
||
If Not FindCncWindow() Then
|
||
key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion")
|
||
szProgramFilesDir = key.GetValue("ProgramFilesDir")
|
||
szPath = szProgramFilesDir & "\OSAI\WinNBI\ProVideo.exe"
|
||
|
||
myProcess = System.Diagnostics.Process.Start(szPath)
|
||
End If
|
||
End Sub
|
||
|
||
Public Overrides Sub CloseCnc()
|
||
If FindCncWindow() Then
|
||
_CncWindowProcess.Kill()
|
||
End If
|
||
End Sub
|
||
|
||
Public Overrides Function FindCncWindow() As Boolean
|
||
_CncWindowProcess = FindProcess("ProVideo")
|
||
Return _CncWindowProcess IsNot Nothing
|
||
End Function
|
||
|
||
Public Overrides Function CncIsIconic() As Boolean
|
||
If _CncWindowProcess IsNot Nothing Then
|
||
Return ProcessIsIconic(_CncWindowProcess.MainWindowHandle)
|
||
End If
|
||
End Function
|
||
|
||
Public Overrides Function CncIsZoomed() As Boolean
|
||
If _CncWindowProcess IsNot Nothing Then
|
||
Return ProcessIsZoomed(_CncWindowProcess.MainWindowHandle)
|
||
End If
|
||
End Function
|
||
|
||
Public Overrides Sub MinimizeCnc()
|
||
MinimizeWindow("ProVideo")
|
||
End Sub
|
||
|
||
Public Overrides Sub NormalizeCnc()
|
||
Try
|
||
MakeExternalWindowBorderless(FindProcess("ProVideo").MainWindowHandle)
|
||
Catch ex As Exception
|
||
End Try
|
||
ShowNormalWindow("ProVideo")
|
||
MoveWindow("ProVideo", _CncWindowPosition)
|
||
End Sub
|
||
|
||
Public Overrides Sub SetCncFocus()
|
||
SetWindowFocus("ProVideo")
|
||
End Sub
|
||
|
||
Public Overrides Sub MoveCnc()
|
||
MoveWindow("ProVideo", CncWindowPosition, "OSAI ProcessController")
|
||
ResizeWindow("ProVideo", Me.CncWindowSize, "OSAI ProcessController")
|
||
End Sub
|
||
|
||
Public Overrides Function GetCncWindowId() As Long
|
||
_CncWindowProcess = FindProcess("ProVideo")
|
||
If _CncWindowProcess IsNot Nothing Then
|
||
Return _CncWindowProcess.Id
|
||
Else
|
||
Return -1
|
||
End If
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' Legge le memorie di configurazione dal cn
|
||
''' </summary>
|
||
Public Overrides Sub GetStaticData()
|
||
Dim sValue(0) As Short
|
||
|
||
If Not bStaticDataReaded Then
|
||
'Try
|
||
Select Case Settings.MemoryMapping
|
||
Case MemoryMapping.ElsManager, _
|
||
MemoryMapping.Default
|
||
'Matricola
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3187, 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._Matricola = sValue(0)
|
||
End If
|
||
'Teste
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3161, 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._Teste = sValue(0)
|
||
End If
|
||
'Magazzini
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3163, 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._Magazzini = sValue(0)
|
||
End If
|
||
'Manine per Magazzino
|
||
ReDim Me._ManineMagazzino(Me._Magazzini - 1)
|
||
For i = 1 To Me._Magazzini
|
||
If i <= 8 Then
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3164 + (i - 1), 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._ManineMagazzino(i - 1) = sValue(0)
|
||
End If
|
||
Else '8-20
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3188 + (i - 1), 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._ManineMagazzino(i - 1) = sValue(0)
|
||
End If
|
||
|
||
End If
|
||
Next i
|
||
|
||
Case MemoryMapping.ToolManager, _
|
||
MemoryMapping.ToolTable
|
||
'Matricola
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3403, 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._Matricola = sValue(0)
|
||
End If
|
||
'Teste
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3405, 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._Teste = sValue(0)
|
||
End If
|
||
'Magazzini
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3407, 1, sValue, _ErrClass, _ErrNum)
|
||
If nReturn = ERRORE Then
|
||
Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum))
|
||
Else
|
||
Me._Magazzini = sValue(0)
|
||
End If
|
||
'Manine per Magazzino
|
||
Dim bPari As Boolean
|
||
Dim nTmp As Integer
|
||
ReDim Me._ManineMagazzino(Me._Magazzini - 1)
|
||
If Me._Magazzini Mod 2 = 0 Then 'pari
|
||
bPari = True
|
||
nTmp = Me._Magazzini / 2
|
||
Else 'dispari
|
||
nTmp = Int(Me._Magazzini / 2) + 1
|
||
End If
|
||
For i = 1 To nTmp
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 5520 + (i - 1), 1, sValue, _ErrClass, _ErrNum)
|
||
Me._ManineMagazzino(i * 2 - 2) = ShortToByte(sValue(0), LOW_ORDER)
|
||
If Not (Not bPari And i = nTmp) Then Me._ManineMagazzino(i * 2 - 1) = ShortToByte(sValue(0), HIGH_ORDER)
|
||
Next i
|
||
End Select
|
||
|
||
Me._MaxUtensiliGestibili = 300 'TODO IMPLEMENTARE
|
||
Me._MaxIdUtensile = 300 'TODO IMPLEMENTARE
|
||
|
||
'ZoomSpeed
|
||
Select Case Settings.MemoryMapping
|
||
Case MemoryMapping.ElsManager
|
||
O_RW_Short(R, MemTypeWord.MW_CODE, 3921, sValue)
|
||
Case MemoryMapping.ToolManager
|
||
O_RW_Short(R, MemTypeWord.MW_CODE, 5670, sValue)
|
||
Case MemoryMapping.ToolTable
|
||
O_RW_Short(R, MemTypeWord.MW_CODE, 3425, sValue)
|
||
End Select
|
||
If sValue(0) > 0 And sValue(0) <= 100 Then
|
||
Me._ZoomSpeed = sValue(0)
|
||
Else
|
||
Me._ZoomSpeed = 1
|
||
End If
|
||
|
||
bStaticDataReaded = True
|
||
|
||
'Catch ex As CmsNcException
|
||
' Me.CncException(ex.Message)
|
||
'End Try
|
||
|
||
End If
|
||
End Sub
|
||
|
||
|
||
''' <summary>
|
||
''' Verifica se è installata la WINNBI e se è una versione compatibile con .NET
|
||
''' </summary>
|
||
''' <param name="DotNet">Versione compatibile con framework .NET</param>
|
||
Shared Function GetWinnbi(Optional ByRef DotNet As Boolean = False) As Boolean
|
||
|
||
Dim DotNetMinVersion As New System.Version("3.1.1")
|
||
Dim readValue() As String
|
||
Dim Ver As System.Version
|
||
Dim key As RegistryKey
|
||
|
||
'leggo le versioni installate
|
||
key = Registry.LocalMachine.OpenSubKey("SOFTWARE\OSAI\WinNBI")
|
||
readValue = key.GetSubKeyNames
|
||
'verifico che ci sia al massimo una versione installata
|
||
If readValue.Count > 1 Then
|
||
MessageBox.Show("Risultano installate più versioni di WinNBI." & vbNewLine & _
|
||
"Verificare le chiavi in HKEY_LOCAL_MACHINE\SOFTWARE\OSAI\WinNBI", _
|
||
"Error on GetWinnbi", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
End If
|
||
|
||
'La precisione di Osai nel rilasciare le versioni !!!
|
||
If readValue(0) = "3.03" Then readValue(0) = "3.0.3"
|
||
If readValue(0) = "3.04" Then readValue(0) = "3.0.4"
|
||
If readValue(0) = "3.05" Then readValue(0) = "3.0.5"
|
||
|
||
For Each szVersion As String In readValue
|
||
Ver = New System.Version(szVersion)
|
||
'Log.WI("GetWinnbi VersionInstalled=" & szVersion, , CLog.Lev.Principal)
|
||
|
||
'se versione compatibile con framework .NET
|
||
If Ver >= DotNetMinVersion Then
|
||
DotNet = True
|
||
End If
|
||
|
||
'se entro almeno una volta ho trovato almeno una versione installata
|
||
GetWinnbi = True
|
||
Next
|
||
|
||
End Function
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Boolean da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="MemBit">Bit della memoria</param>
|
||
''' <param name="Value">Valore da scrivere su scrittura e letto su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemBit As Integer, ByRef Value As Boolean) As Boolean
|
||
Dim szReturn As String = ""
|
||
Dim nValue(0) As Short
|
||
|
||
'leggo la memoria
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, nValue.Length, nValue, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Boolean CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
Else
|
||
If bWrite Then ' *** Write
|
||
If Value Then 'True
|
||
nValue(0) = nValue(0) Or UnsignedToShort(2 ^ MemBit)
|
||
Else 'False
|
||
nValue(0) = nValue(0) And Not UnsignedToShort(2 ^ MemBit)
|
||
End If
|
||
nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, nValue.Length, nValue, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Boolean CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
If (nValue(0) And (2 ^ MemBit)) = (2 ^ MemBit) Then 'True
|
||
Value = True
|
||
Else 'False
|
||
Value = False
|
||
End If
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Byte da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="MemOrderStart">Ordine di partenza LOW_ORDER = 0 HIGH_ORDER = 1</param>
|
||
''' <param name="Value">Matrice di valori da scrivere su scrittura o letti su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemOrderStart As Integer, ByRef Value() As Byte) As Boolean
|
||
Dim szReturn As String = ""
|
||
Dim bStartHigh As Boolean = MemOrderStart
|
||
Dim bEndDispari As Boolean = (Value.Length + MemOrderStart) Mod 2
|
||
Dim cStart, cEnd As Byte
|
||
Dim ValueTmp(((Value.Length + MemOrderStart) \ 2) + ((Value.Length + MemOrderStart) Mod 2) - 1) As Short
|
||
|
||
|
||
If bWrite Then ' *** Write
|
||
'se comincio con hi leggo la prima memo
|
||
If bStartHigh Then
|
||
Dim ValStartTmp(0) As Short
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValStartTmp.Length, ValStartTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
Else
|
||
cStart = ShortToByte(ValStartTmp(0), LOW_ORDER)
|
||
End If
|
||
End If
|
||
|
||
'se finisco dispari, leggo l'ultima memo
|
||
If bEndDispari Then
|
||
Dim ValEndTmp(0) As Short
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex + ValueTmp.Length - 1, ValEndTmp.Length, ValEndTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
Else
|
||
cEnd = ShortToByte(ValEndTmp(0), HIGH_ORDER)
|
||
End If
|
||
End If
|
||
|
||
For i = 0 To ValueTmp.Length - 1
|
||
Dim cLow, cHigh As Byte
|
||
'Low
|
||
If i = 0 AndAlso bStartHigh Then
|
||
cLow = cStart
|
||
Else
|
||
cLow = Value(i * 2 - MemOrderStart)
|
||
End If
|
||
'High
|
||
If i = (ValueTmp.Length - 1) AndAlso bEndDispari Then
|
||
cHigh = cEnd
|
||
Else
|
||
cHigh = Value(i * 2 + 1 - MemOrderStart)
|
||
End If
|
||
|
||
ValueTmp(i) = ByteToShort(cLow, cHigh)
|
||
Next
|
||
|
||
nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, ValueTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
Else
|
||
For i = 0 To Value.Length - 1
|
||
Value(i) = ShortToByte(ValueTmp((i + MemOrderStart) \ 2), (i + MemOrderStart) Mod 2)
|
||
Next
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Word da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="Value">Matrice di valori da scrivere su scrittura o letti su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UShort) As Boolean
|
||
Dim szReturn As String = ""
|
||
Dim nValue(Value.Length - 1) As Short
|
||
|
||
If bWrite Then ' *** Write
|
||
For i = 0 To Value.Length - 1
|
||
nValue(i) = UnsignedToShort(Value(i))
|
||
Next
|
||
nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, nValue, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, nValue, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
For i = 0 To Value.Length - 1
|
||
Value(i) = ShortToUnsigned(nValue(i))
|
||
Next
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Short da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="Value">Matrice di valori da scrivere su scrittura o letti su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Short) As Boolean
|
||
Dim szReturn As String = ""
|
||
|
||
If bWrite Then ' *** Write
|
||
nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive DWord da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="Value">Matrice di valori da scrivere su scrittura o letti su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UInteger) As Boolean
|
||
Dim szReturn As String = ""
|
||
Dim ValueTmp(Value.Length * 2 - 1) As Short
|
||
|
||
If bWrite Then ' *** Write
|
||
For i = 0 To Value.Length - 1
|
||
ValueTmp(i * 2) = DWordToShort(Value(i), LOW_ORDER)
|
||
ValueTmp(i * 2 + 1) = DWordToShort(Value(i), HIGH_ORDER)
|
||
Next
|
||
nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
Else
|
||
For i = 0 To Value.Length - 1
|
||
Value(i) = ShortsToDWord(ValueTmp(i * 2), ValueTmp(i * 2 + 1))
|
||
Next
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive DWord da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="Value">Matrice di valori da scrivere su scrittura o letti su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Integer) As Boolean
|
||
Dim szReturn As String = ""
|
||
Dim ValueTmp(Value.Length * 2 - 1) As Short
|
||
|
||
If bWrite Then ' *** Write
|
||
For i = 0 To Value.Length - 1
|
||
ValueTmp(i * 2) = IntegerToShort(Value(i), LOW_ORDER)
|
||
ValueTmp(i * 2 + 1) = IntegerToShort(Value(i), HIGH_ORDER)
|
||
Next
|
||
nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException(szReturn)
|
||
Return False
|
||
Else
|
||
For i = 0 To Value.Length - 1
|
||
Value(i) = ShortsToInteger(ValueTmp(i * 2), ValueTmp(i * 2 + 1))
|
||
Next
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Double da MEMORIE PLC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemType">Tipo di memoria Osai</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="Value">Matrice di valori da scrivere su scrittura o letti su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Double(ByVal bWrite As Boolean, ByVal MemType As MemTypeDouble, ByVal MemIndex As Integer, ByRef Value() As Double) As Boolean
|
||
Dim szReturn As String = ""
|
||
|
||
If bWrite Then ' *** Write
|
||
nReturn = Cndex.WriteVarDouble_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarDouble_C({0},{1},{2}) O_RW_Double CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException("ERR WriteVarDouble_C O_RW_Double CNC.OSAI")
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarDouble_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarDouble_C({0},{1},{2}) O_RW_Double CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException("ERR ReadVarDouble_C O_RW_Double CNC.OSAI")
|
||
Return False
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Stringhe da MEMORIE SC
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="MemIndex">Indice di memoria</param>
|
||
''' <param name="MemLength">Lunghezza caratteri</param>
|
||
''' <param name="Value">Stringa da scrivere su scrittura o leggere su lettura</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_RW_Text(ByVal bWrite As Boolean, ByVal MemType As MemTypeText, ByVal MemIndex As Integer, ByVal MemLength As Integer, ByRef Value As String) As Boolean
|
||
Dim szReturn As String = ""
|
||
|
||
If bWrite Then ' *** Write
|
||
nReturn = Cndex.WriteVarText_C(_UserSession, MemType, 1, MemIndex, MemLength, Value, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarText_C({0},{1},{2}) O_RW_Text CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException("ERR WriteVarText_C O_RW_Text CNC.OSAI")
|
||
Return False
|
||
End If
|
||
|
||
Else ' ************* Read
|
||
nReturn = Cndex.ReadVarText_C(_UserSession, MemType, 1, MemIndex, MemLength, Value, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarText_C({0},{1},{2}) O_RW_Text CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then
|
||
Throw New CmsNcException("ERR ReadVarText_C O_RW_Text CNC.OSAI")
|
||
Return False
|
||
End If
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
''' <summary>
|
||
''' Legge o scrive Length and Radius Offset da tabella Utensili CN
|
||
''' </summary>
|
||
''' <param name="bWrite">Se True SCRIVE, se False LEGGE</param>
|
||
''' <param name="ToolOffsetNumber">Numero dell'offset utensile</param>
|
||
Public Overridable Function O_RW_ToolOffset(ByVal bWrite As Boolean, ByVal ToolOffsetNumber As Integer, ByRef CutterRadius_Wear As Double, ByRef CutterRadius_Geometry As Double, ByRef ToolLenght_Wear As Double, ByRef ToolLenght_Geometry As Double) As Boolean
|
||
|
||
End Function
|
||
|
||
|
||
|
||
''' <summary>
|
||
''' Blocca l'accesso alla tabella dei correttori
|
||
''' </summary>
|
||
''' <param name="Lock">=True: Blocca la tabella, =False: Sblocca la tabella</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Function O_LockOffsetTable(ByVal Lock As Boolean) As Boolean
|
||
|
||
End Function
|
||
|
||
|
||
''' <summary>
|
||
''' Legge il numero del processo attivo
|
||
''' </summary>
|
||
''' <param name="ProcessId">Valore di ritorno del processo selezionato</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_GetSelectedProcess(ByRef ProcessId As Short) As Boolean
|
||
Dim szReturn As String = ""
|
||
|
||
nReturn = Cndex.GetSelectedProcess_C(_UserSession, ProcessId, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "GetSelectedProcess_C O_GetSelectedProcess CNC.OSAI", szReturn) Then
|
||
Throw New CmsNcException("ERR GetSelectedProcess_C O_GetSelectedProcess CNC.OSAI")
|
||
Return False
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' Legge la riga del programma attivo
|
||
''' </summary>
|
||
''' <param name="Line">Riga in esecuzione del programma attivo</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Overloads Function O_GetActiveLineProgram(ByRef Line As String) As Boolean
|
||
|
||
Dim szReturn As String = ""
|
||
Dim ProcessId As Integer
|
||
Dim szLine1 As String = ""
|
||
Dim szLine2 As String = ""
|
||
Dim szLine3 As String = ""
|
||
Dim szLine4 As String = ""
|
||
Dim szLine5 As String = ""
|
||
Dim szLine6 As String = ""
|
||
Dim szLine7 As String = ""
|
||
Dim szLine8 As String = ""
|
||
|
||
O_GetSelectedProcess(ProcessId)
|
||
|
||
nReturn = Cndex.GetPartProgramLines_C(_UserSession, ProcessId, szLine1, szLine2, szLine3, szLine4, szLine5, szLine6, szLine7, szLine8, _ErrClass, _ErrNum)
|
||
Line = szLine2
|
||
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "GetPartProgramLines_C O_GetActiveLineProgram CNC.OSAI", szReturn) Then
|
||
Throw New CmsNcException("ERR GetPartProgramLines_C O_GetActiveLineProgram CNC.OSAI")
|
||
Return False
|
||
End If
|
||
|
||
Return True
|
||
End Function
|
||
|
||
''' <summary>
|
||
''' Legge la tabella assi
|
||
''' </summary>
|
||
''' <param name="ProcessId">Processo selezionato</param>
|
||
''' <param name="AxisTable">Valore di ritorno Assi del processo selezionato</param>
|
||
''' <returns>True se andata a buon fine</returns>
|
||
Public Overridable Function O_GetAxisTab(ByVal ProcessId As Short, ByRef AxisTable() As Char, ByRef AxisIdTable() As Short) As Boolean
|
||
Dim szReturn As String = ""
|
||
Dim sAxisTable As Cndex.AXIS_TABLE
|
||
Dim i, j As Integer
|
||
|
||
For i = 1 To 32
|
||
sAxisTable = New Cndex.AXIS_TABLE
|
||
nReturn = Cndex.GetAxisTabRecord_C(_UserSession, i, sAxisTable, _ErrClass, _ErrNum)
|
||
If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "O_GetAxisTab GetAxisTabRecord_C CNC.OSAI", szReturn) Then
|
||
Throw New CmsNcException("ERR O_GetAxisTab GetAxisTabRecord_C CNC.OSAI")
|
||
Return False
|
||
End If
|
||
'Codice dell’ambiente proprietario dell’asse
|
||
If (sAxisTable.ax_owner = (&H6000& + (ProcessId * &H100&))) Then
|
||
'scarto gli assi slave e l'eventuale asse Spindle quando ho un inverter analogico
|
||
If (sAxisTable.ax_name < Asc("a") Or sAxisTable.ax_name > Asc("z")) And sAxisTable.ax_name <> Asc("S") Then
|
||
AxisTable(j) = Chr(sAxisTable.ax_name)
|
||
AxisIdTable(j) = i
|
||
j += 1
|
||
End If
|
||
End If
|
||
Next i
|
||
|
||
Return True
|
||
End Function
|
||
|
||
|
||
Public Overridable Function O_CheckRetError(ByVal nReturn As Short, ByVal ErrClass As Long, ByVal ErrNum As Long, ByVal Position As String, Optional ByRef szReturn As String = "") As Boolean
|
||
Dim szErrorClassDesc As String = String.Empty
|
||
Dim szErrorDesc As String = String.Empty
|
||
|
||
'Cndex 3.1.2 messages
|
||
|
||
''' aggiornare dal manuale di programmazione 4606R.pdf
|
||
''' alcune classi di errori sono del cn e non sono specificate nel documento
|
||
|
||
If nReturn = 0 Then
|
||
'Seleziono il messaggio
|
||
Select Case ErrClass
|
||
Case 1
|
||
szErrorClassDesc = "COM error class"
|
||
Select Case ErrNum
|
||
Case &H80080005 : szErrorDesc = "CO_E_SERVER_EXEC_FAILURE"
|
||
Case &H800706BA : szErrorDesc = "RPC_S_SERVER_UNAVAILABLE"
|
||
Case &H80070005 : szErrorDesc = "E_ACCESSDENIED"
|
||
Case &H80040154 : szErrorDesc = "REGDB_E_CLASSNOTREG"
|
||
Case &H80012 : szErrorDesc = "CO_S_NOTALLINTERFACES"
|
||
End Select
|
||
szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc
|
||
|
||
Case 2
|
||
szErrorClassDesc = "SERVER error class"
|
||
Select Case ErrNum
|
||
Case 1 : szErrorDesc = "Memory for dynamic allocations insufficient"
|
||
Case 2 : szErrorDesc = "Impossible to create synchronisation events"
|
||
Case 3 : szErrorDesc = "Session aborted and no longer usable"
|
||
Case 4 : szErrorDesc = "Session not open"
|
||
Case 5 : szErrorDesc = "Impossible to allocate a channel"
|
||
Case 6 : szErrorDesc = "Function of a non-existing process requested"
|
||
Case 7 : szErrorDesc = "Broadcasting command aborted"
|
||
Case 8 : szErrorDesc = "Buffer supplied by function in which the data supplied by the NC are copied is too small"
|
||
Case 9 : szErrorDesc = "Session already open"
|
||
Case 10 : szErrorDesc = "Broadcasting list invalid"
|
||
Case 11 : szErrorDesc = "Realtime command aborted"
|
||
Case 12 : szErrorDesc = "Function already active"
|
||
Case 13 : szErrorDesc = "Function not yet active"
|
||
Case 14 : szErrorDesc = "Reception thread ended"
|
||
Case 15 : szErrorDesc = "No reply to command received within allotted time"
|
||
Case 16 : szErrorDesc = "NC release to which you are connected is not compatible with communications with server"
|
||
Case 17 : szErrorDesc = "Cookie does not identify any communication session"
|
||
Case 18 : szErrorDesc = "Realtime thread cannot be created"
|
||
Case 19 : szErrorDesc = "No more sections available"
|
||
Case 20 : szErrorDesc = "Error in symbol acquisition"
|
||
Case 23 : szErrorDesc = "Internal object instance cannot be created"
|
||
Case 24 : szErrorDesc = "Broadcasting thread cannot be created"
|
||
Case 25 : szErrorDesc = "Function cannot be executed in the numerical control boot phase"
|
||
Case 26 : szErrorDesc = "Parameter wrong"
|
||
Case 27 : szErrorDesc = "Invalid buffer"
|
||
Case 29 : szErrorDesc = "Session identifier (UserSession) is invalid (session closed or never opened)"
|
||
Case 31 : szErrorDesc = "Session identifier is invalid (value out of range) or session has been closed automatically by Cndex server"
|
||
End Select
|
||
szErrorDesc = ErrNum.ToString & ": " & szErrorDesc
|
||
|
||
Case 3
|
||
szErrorClassDesc = "NETBIOS error class"
|
||
Select Case ErrNum
|
||
Case &H1 : szErrorDesc = "Illegal buffer length"
|
||
Case &H3 : szErrorDesc = "Illegal command"
|
||
Case &H5 : szErrorDesc = "Command timed out"
|
||
Case &H6 : szErrorDesc = "Message incomplete, issue another command"
|
||
Case &H7 : szErrorDesc = "Illegal buffer address"
|
||
Case &H8 : szErrorDesc = "Session number out of range"
|
||
Case &H9 : szErrorDesc = "No resource available"
|
||
Case &HA : szErrorDesc = "Session closed"
|
||
Case &HB : szErrorDesc = "Command cancelled"
|
||
Case &HD : szErrorDesc = "Duplicate name"
|
||
Case &HE : szErrorDesc = "Name table full"
|
||
Case &HF : szErrorDesc = "No deletions, name has active sessions"
|
||
Case &H11 : szErrorDesc = "Local session table full"
|
||
Case &H12 : szErrorDesc = "Remote session table full"
|
||
Case &H13 : szErrorDesc = "Illegal name number"
|
||
Case &H14 : szErrorDesc = "No callname"
|
||
Case &H15 : szErrorDesc = "Cannot put * in NCB_NAME"
|
||
Case &H16 : szErrorDesc = "Name in use on remote adapter"
|
||
Case &H17 : szErrorDesc = "Name deleted"
|
||
Case &H18 : szErrorDesc = "Session ended abnormally"
|
||
Case &H19 : szErrorDesc = "Name conflict detected"
|
||
Case &H21 : szErrorDesc = "Interface busy, IRET before retrying"
|
||
Case &H22 : szErrorDesc = "Too many commands outstanding, retry later"
|
||
Case &H23 : szErrorDesc = "Ncb_lana_num field invalid"
|
||
Case &H24 : szErrorDesc = "Command completed while cancel occurring"
|
||
Case &H26 : szErrorDesc = "Command not valid to cancel"
|
||
Case &H30 : szErrorDesc = "Name defined by another local process"
|
||
Case &H34 : szErrorDesc = "Environment undefined. RESET required"
|
||
Case &H35 : szErrorDesc = "Required OS resources exhausted"
|
||
Case &H36 : szErrorDesc = "Max number of applications exceeded"
|
||
Case &H37 : szErrorDesc = "No saps available for netbios"
|
||
Case &H38 : szErrorDesc = "Requested resources are not available"
|
||
Case &H39 : szErrorDesc = "Invalid ncb address or length > segment"
|
||
Case &H3B : szErrorDesc = "Invalid NCB DDID"
|
||
Case &H3C : szErrorDesc = "Lock of user area failed"
|
||
Case &H3F : szErrorDesc = "NETBIOS not loaded"
|
||
Case &H40 : szErrorDesc = "System error"
|
||
End Select
|
||
szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc
|
||
|
||
Case 4
|
||
szErrorClassDesc = "CNC error class"
|
||
Select Case ErrNum
|
||
'Error codes for Real Time functions
|
||
Case &H101 : szErrorDesc = "Command unknown"
|
||
Case &H102 : szErrorDesc = "No channel available"
|
||
Case &H103 : szErrorDesc = "Tick requested not multiple of system tick"
|
||
Case &H104 : szErrorDesc = "Id channel wrong"
|
||
Case &H105 : szErrorDesc = "Data acquisition still underway"
|
||
Case &H106 : szErrorDesc = "Channel not configured"
|
||
Case &H107 : szErrorDesc = "Error on stop trigger"
|
||
Case &H108 : szErrorDesc = "Channel already configured for other types of data"
|
||
'Error codes for Dry Run functions
|
||
Case &H200 : szErrorDesc = "Process not configured"
|
||
Case &H201 : szErrorDesc = "Axis not present in process"
|
||
Case &H202 : szErrorDesc = "Dry run not configured"
|
||
Case &H203 : szErrorDesc = "Dry run already being executed"
|
||
Case &H204 : szErrorDesc = "Dry run already in stop status"
|
||
End Select
|
||
szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc
|
||
|
||
Case 10
|
||
szErrorClassDesc = "DLL_INTERFACE error class"
|
||
Select Case ErrNum
|
||
Case 1 : szErrorDesc = "The server has been created more than once"
|
||
Case 2 : szErrorDesc = "An error has occurred during the creation of the Cndex server"
|
||
Case 3 : szErrorDesc = "A function has been called without having created the Cndex server"
|
||
Case 4 : szErrorDesc = "One or more function input parameters are not valid"
|
||
Case 5 : szErrorDesc = "Option A06 -CndexLink communication- for network communications with external applications is not enabled on the CNC you are trying to connect to"
|
||
End Select
|
||
szErrorDesc = ErrNum.ToString & ": " & szErrorDesc
|
||
|
||
Case Else
|
||
szErrorDesc = ErrNum.ToString
|
||
End Select
|
||
szErrorClassDesc = ErrClass.ToString & ": " & szErrorClassDesc
|
||
|
||
'Stampo il messaggio
|
||
szReturn = "ERR " & szErrorClassDesc & " " & szErrorDesc & " - Occurred in: " & Position
|
||
Return True 'presenza errore
|
||
End If
|
||
|
||
szReturn = ""
|
||
Return False 'assenza errori
|
||
End Function
|
||
|
||
|
||
End Class
|
||
|
||
End Namespace
|