Spostato progetto IOB-WIN in repo dedicato MAPO-IOB-WIN

This commit is contained in:
2017-10-24 17:21:02 +02:00
parent e8f522c848
commit 031beaff14
221 changed files with 0 additions and 68787 deletions
-113
View File
@@ -1,113 +0,0 @@
Namespace App
Namespace Native
Public Class Ini
' API functions
Private Declare Ansi Function GetPrivateProfileString _
Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As System.Text.StringBuilder, _
ByVal nSize As Integer, ByVal lpFileName As String) _
As Integer
Private Declare Ansi Function WritePrivateProfileString _
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer
Private Declare Ansi Function GetPrivateProfileInt _
Lib "kernel32.dll" Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer
Private Declare Ansi Function FlushPrivateProfileString _
Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As Integer, _
ByVal lpKeyName As Integer, ByVal lpString As Integer, _
ByVal lpFileName As String) As Integer
Dim strFilename As String
' Constructor, accepting a filename
Public Sub New(ByVal Filename As String)
strFilename = Filename
End Sub
' Read-only filename property
ReadOnly Property FileName() As String
Get
Return strFilename
End Get
End Property
Public Function GetString(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String
' Returns a string from your INI file
Dim intCharCount As Integer
Dim objResult As New System.Text.StringBuilder(256)
intCharCount = GetPrivateProfileString(Section, Key, _
[Default], objResult, objResult.Capacity, strFilename)
If intCharCount > 0 Then
Return Left(objResult.ToString, intCharCount)
Else
Return ""
End If
End Function
Public Function GetInteger(ByVal Section As String, ByVal Key As String, ByVal [Default] As Integer) As Integer
' Returns an integer from your INI file
Return GetPrivateProfileInt(Section, Key, _
[Default], strFilename)
End Function
Public Function GetBoolean(ByVal Section As String, ByVal Key As String, ByVal [Default] As Boolean) As Boolean
' Returns a boolean from your INI file
Return (GetPrivateProfileInt(Section, Key, _
CInt([Default]), strFilename) = 1)
End Function
Public Sub WriteString(ByVal Section As String, ByVal Key As String, ByVal Value As String)
' Writes a string to your INI file
WritePrivateProfileString(Section, Key, Value, strFilename)
Flush()
End Sub
Public Sub WriteInteger(ByVal Section As String, ByVal Key As String, ByVal Value As Integer)
' Writes an integer to your INI file
WriteString(Section, Key, CStr(Value))
Flush()
End Sub
Public Sub WriteBoolean(ByVal Section As String, ByVal Key As String, ByVal Value As Boolean)
' Writes a boolean to your INI file
WriteString(Section, Key, CStr(CInt(Value)))
Flush()
End Sub
Private Sub Flush()
' Stores all the cached changes to your INI file
FlushPrivateProfileString(0, 0, 0, strFilename)
End Sub
End Class
End Namespace
End Namespace
File diff suppressed because it is too large Load Diff
@@ -1,65 +0,0 @@
Namespace CNC
Partial Public Class FANUC
'Private Class Err
' Private _Errors As Dictionary(Of Integer, String) 'Hashtable
' Public Sub New()
' _Errors = New Dictionary(Of Integer, String) 'Hashtable
' _Errors.Add(Focas1.EW_PROTOCOL, "protocol error") '-17
' _Errors.Add(Focas1.EW_SOCKET, "Windows socket error") '-16
' _Errors.Add(Focas1.EW_NODLL, "DLL not exist error") '-15
' _Errors.Add(Focas1.EW_BUS, "bus error") '-11
' _Errors.Add(Focas1.EW_SYSTEM2, "system error") '-10
' _Errors.Add(Focas1.EW_HSSB, "hssb communication error") '-9
' _Errors.Add(Focas1.EW_HANDLE, "Windows library handle error") '-8
' _Errors.Add(Focas1.EW_VERSION, "CNC/PMC version missmatch") '-7
' _Errors.Add(Focas1.EW_UNEXP, "abnormal error") '-6
' _Errors.Add(Focas1.EW_SYSTEM, "system error") '-5
' _Errors.Add(Focas1.EW_PARITY, "shared RAM parity error") '-4
' _Errors.Add(Focas1.EW_MMCSYS, "emm386 or mmcsys install error") '-3
' _Errors.Add(Focas1.EW_RESET, "reset or stop occured error") '-2
' _Errors.Add(Focas1.EW_BUSY, "busy error") '-1
' _Errors.Add(Focas1.EW_OK, "no problem") '0
' '_Errors.Add(Focas1.EW_FUNC, "command prepare error") '1
' '_Errors.Add(Focas1.EW_NOPMC, "pmc not exist") '1
' _Errors.Add(1, "command prepare error OR pmc not exist") '1
' _Errors.Add(Focas1.EW_LENGTH, "data block length error") '2
' '_Errors.Add(Focas1.EW_NUMBER, "data number error") '3
' '_Errors.Add(Focas1.EW_RANGE, "address range error") '3
' _Errors.Add(3, "data number error OR address range error") '3
' '_Errors.Add(Focas1.EW_ATTRIB, "data attribute error") '4
' '_Errors.Add(Focas1.EW_TYPE, "data type error") '4
' _Errors.Add(4, "data attribute error OR data type error") '4
' _Errors.Add(Focas1.EW_DATA, "data error") '5
' _Errors.Add(Focas1.EW_NOOPT, "no option error") '6
' _Errors.Add(Focas1.EW_PROT, "write protect error") '7
' _Errors.Add(Focas1.EW_OVRFLOW, "memory overflow error") '8
' _Errors.Add(Focas1.EW_PARAM, "cnc parameter not correct error") '9
' _Errors.Add(Focas1.EW_BUFFER, "buffer error") '10
' _Errors.Add(Focas1.EW_PATH, "path error") '11
' _Errors.Add(Focas1.EW_MODE, "cnc mode error") '12
' _Errors.Add(Focas1.EW_REJECT, "execution rejected error") '13
' _Errors.Add(Focas1.EW_DTSRVR, "data server error") '14
' _Errors.Add(Focas1.EW_ALARM, "alarm has been occurred") '15
' _Errors.Add(Focas1.EW_STOP, "CNC is not running") '16
' _Errors.Add(Focas1.EW_PASSWD, "protection data error") '17
' End Sub
' ''' <summary>
' ''' Restituisce una stringa con la descrizione dell'errore
' ''' </summary>
' Public Function GetInfo(ByVal nError As Integer) As String
' Try
' Return String.Format("({0}) ""{1}""", nError, _Errors(nError)) 'es: (0) "no problem"
' Catch ex As Exception
' Return "!!! Error Info not available !!!"
' End Try
' End Function
'End Class
End Class
End Namespace
File diff suppressed because it is too large Load Diff
-910
View File
@@ -1,910 +0,0 @@
Imports Microsoft.Win32
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)
Imports CncLib.Config.Settings
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
'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
'CncLib.App.Runtime.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 NcException(szReturn)
Else
'CncLib.App.Runtime.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 NcException(szReturn)
Else
'verifico che il sistema si trovi in una fase operativa "stabile"
'CncLib.App.Runtime.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 KMG o PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel)
Case MsgBoxResult.Retry : TimeStart = Now
Case MsgBoxResult.Cancel : Exit Do
End Select
End If
'CncLib.App.Runtime.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
'CncLib.App.Runtime.Log.WI("OK Connect CNC.OSAI", "Connected=" & _bConnected, CLog.Lev.Secondary)
Else
_bConnected = False
'CncLib.App.Runtime.Log.WI("OK Connect CNC.OSAI but PHASE NOT OK", "Phase=" & pPhase & " Connected=" & _bConnected, CLog.Lev.Secondary)
Throw New NcException("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 NcException(szReturn)
Else
_bConnected = False
bRet = True
End If
End Sub
''' <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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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
'CncLib.App.Runtime.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 NcException
' Me.CncException(ex.Message)
'End Try
End If
End Sub
''' <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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException(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 NcException("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 NcException("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 NcException("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 NcException("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
Return False
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
Return False
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 NcException("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 NcException("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
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
#Region "area chiamate IOT (dummy/overridden)"
''' <summary>
''' Chiama GenNcInfo x ottenere dati base del NC
''' </summary>
''' <param name="NcInfo"></param>
''' <returns></returns>
Public Overridable Function O_GetNcInfo1(ByRef NcInfo As OPENcontrol.GETINFO1DATA) As Boolean
Return True
End Function
''' <summary>
''' Chiama ReadCurrentErrorMsg x ottenere elenco errori
''' </summary>
''' <param name="CurrMsgError"></param>
''' <returns></returns>
Public Overridable Function O_ReadCurrentErrorMsg(ByRef CurrMsgError As OPENcontrol.MSGERROR) As Boolean
Return True
End Function
''' <summary>
''' Chiama ReadCurrentEmergMsg x ottenere elenco errori
''' </summary>
''' <param name="CurrMsgEmerg"></param>
''' <returns></returns>
Public Overridable Function O_ReadCurrentEmergMsg(ByRef CurrMsgEmerg As OPENcontrol.MSGEMERGENCY) As Boolean
Return True
End Function
''' <summary>
''' Chiama ReadCurrentErrorMsg x ottenere elenco errori
''' </summary>
''' <param name="CurrMsgAnomaly"></param>
''' <returns></returns>
Public Overridable Function O_ReadCurrentAnomalyMsg(ByRef CurrMsgAnomaly As OPENcontrol.MSGANOMALY) As Boolean
Return True
End Function
''' <summary>
''' Restituisce posizione assi (tutti)
''' </summary>
''' <param name="tipoPos">Tipo posizione richeista (1..6)</param>
''' <param name="AxisPos">Vettore posizioni richieste</param>
''' <returns></returns>
Public Overridable Function getAllAxisPos(tipoPos As Int16, ByRef AxisPos As OPENcontrol.GETINTDATA()) As Boolean
Return True
End Function
''' <summary>
''' Elenco codici G del processo richiesto...
''' </summary>
''' <param name="Processo"></param>
''' <param name="GCodeCurr"></param>
''' <returns></returns>
Public Overridable Function getPathGCodeMod(Processo As Int32, ByRef GCodeCurr As UShort()) As Boolean
Return True
End Function
#End Region
End Class
End Namespace
File diff suppressed because it is too large Load Diff
-54
View File
@@ -1,54 +0,0 @@
Namespace CNC
Public Class Runtime
Public Shared NC As CncLib.CNC.CNC
Public Shared Sub CreateNC(tipoNC As CNC.NcType, ipTarget As String, ipPort As String)
'************ Istanzio l'oggetto NC *****************
Try
Select Case tipoNC
Case NC_FANUC
'CncLib.App.Runtime.Log.WI("TRY creating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal)
Dim ipFanuc As String
Dim portIpFanuc As String
Dim CncScreenHssb As String
' imposto IP e porta da chiamata
ipFanuc = ipTarget
'portIpFanuc = "8193"
portIpFanuc = ipPort
CncScreenHssb = "0"
NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb)
Case NC_OSAI
'If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP
NC = New OSAI_OPEN(ipTarget)
Case NC_SIEMENS
Try
NC = New SIEMENS
Catch ex As NcException
'NC.frmMain_ref.ExitApp()
'frmMain.ExitApp()
'End
End Try
End Select
'CncLib.App.Runtime.Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal)
Catch ex As Exception
Dim exStr As String
exStr = ex.Message
'CncLib.App.Runtime.Log.WE("ERR crating NC CNC.NC", ex.Message, True)
End Try
End Sub
End Class
End Namespace
File diff suppressed because it is too large Load Diff
-239
View File
@@ -1,239 +0,0 @@
Imports System.Drawing
Imports System.Runtime.Serialization
Namespace CNC
Partial Public MustInherit Class CNC
Protected bStaticDataReaded As Boolean
Protected _CncWindowProcess As Process
Public Const R = False
Public Const W = True
Public Enum NcType
DEMO = 0
FANUC = 1
OSAI = 2
SIEMENS = 3
End Enum
Public Enum Memo
MemBool = 1
MemByte = 2
MemWord = 3
MemInt = 4
MemDWord = 5
MemDInt = 6
MemSingle = 7
MemDouble = 8
End Enum
Public Enum InfoType
Descrizione
Matricola
Teste
Magazzini
ManineMagazzino
End Enum
Protected _Type As NcType
Public ReadOnly Property Type() As NcType
Get
Return _Type
End Get
End Property
Protected _Descrizione As String
Public ReadOnly Property Descrizione() As String
Get
Return _Descrizione
End Get
End Property
Protected _Matricola As Integer
Public ReadOnly Property Matricola() As Integer
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("Matricola not found")
Return _Matricola
End Get
End Property
Protected _Teste As Integer
Public ReadOnly Property Teste() As Integer
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("Teste not found")
Return _Teste
End Get
End Property
Protected _Magazzini As Integer
Public ReadOnly Property Magazzini() As Integer
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("Magazzini not found")
Return _Magazzini
End Get
End Property
Protected _ManineMagazzino() As Integer
Public ReadOnly Property ManineMagazzino() As Integer()
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("ManineMagazzino not found")
Return _ManineMagazzino
End Get
End Property
Protected _MagazziniConAttrezzaggioAutomatico As Integer
Public ReadOnly Property MagazziniConAttrezzaggioAutomatico() As Integer
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("MagazziniConAttrezzaggioAutomatico not found")
Return _MagazziniConAttrezzaggioAutomatico
End Get
End Property
Protected _MaxUtensiliGestibili As Integer
Public ReadOnly Property MaxUtensiliGestibili() As Integer
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("MaxUtensiliGestibili not found")
Return _MaxUtensiliGestibili
End Get
End Property
Protected _MaxIdUtensile As Integer
Public ReadOnly Property MaxIdUtensile() As Integer
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("MaxIdUtensile not found")
Return _MaxIdUtensile
End Get
End Property
Protected _ZoomSpeed As Integer
Public ReadOnly Property ZoomSpeed() As Integer '(aka: FattoreMoltSpeed)
Get
If Not bStaticDataReaded Then Throw New System.Configuration.SettingsPropertyNotFoundException("ZoomSpeed not found")
Return _ZoomSpeed
End Get
End Property
Protected _ScreenSize As Size
Public Property ScreenSize() As Size
Get
Return _ScreenSize
End Get
Set(ByVal value As Size)
_ScreenSize = value
End Set
End Property
Protected _CncWindowSize As Size
Public Property CncWindowSize() As Size
Get
Return _CncWindowSize
End Get
Set(ByVal value As Size)
_CncWindowSize = value
End Set
End Property
Protected _CncWindowPosition As Point
Public Property CncWindowPosition() As Point
Get
Return _CncWindowPosition
End Get
Set(ByVal value As Point)
_CncWindowPosition = value
End Set
End Property
Protected _bConnected As Boolean
Public Property Connected() As Boolean
Get
Return _bConnected
End Get
Private Set(ByVal value As Boolean)
_bConnected = value
End Set
End Property
Protected _Licenza As Integer
Public Overridable Property Licenza() As Integer
Get
Return _Licenza
End Get
Set(ByVal value As Integer)
_Licenza = value
End Set
End Property
Protected _LicenzaScaduta As Boolean
Public Overridable Property LicenzaScaduta() As Boolean
Get
Return _LicenzaScaduta
End Get
Set(ByVal value As Boolean)
_LicenzaScaduta = value
End Set
End Property
Public Sub New()
'Definisco l'area della Cnc Window
_CncWindowPosition = New System.Drawing.Point(0, 0)
_CncWindowSize = New System.Drawing.Size(800, 600)
End Sub
Public Overridable Sub Initialize()
End Sub
Public Overridable Sub Connect(Optional ByRef szStatus As String = "")
End Sub
Public Overridable Sub Disconnect(Optional ByRef szStatus As String = "")
End Sub
Public Overridable Sub CncException(Optional ByRef szStatus As String = "")
_bConnected = False
End Sub
''' <summary>
''' Legge il valore del tempo di lavorazione totale del CN
''' </summary>
Public Overridable Function GetDataMaintenance() As TimeSpan
End Function
''' <summary>
''' Legge le memorie di configurazione dal cn
''' </summary>
Public Overridable Sub GetStaticData()
End Sub
''' <summary>
''' Chiude l'applicazione CNC
''' </summary>
Public Overridable Sub CloseCnc()
End Sub
End Class
Public Class NcException
Inherits System.ApplicationException
Public Sub New()
MyBase.New("NC Exception")
End Sub
Public Sub New(ByVal new_message As String)
MyBase.New(new_message)
End Sub
Public Sub New(ByVal new_message As String, ByVal inner_exception As Exception)
MyBase.New(new_message, inner_exception)
End Sub
Public Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
MyBase.New(info, context)
End Sub
End Class
Public MustInherit Class CExceptionInfo
Public Overrides Function ToString() As String
ToString = ""
End Function
End Class
End Namespace
-646
View File
@@ -1,646 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{2D769FFD-1122-4276-A115-29246E6D23C5}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>CncLib</RootNamespace>
<AssemblyName>CncLib</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>CncLib.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DefineConstants>FS30D=1,SIEMENS=1</DefineConstants>
<UseVSHostingProcess>true</UseVSHostingProcess>
<PlatformTarget>AnyCPU</PlatformTarget>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>CncLib.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DefineConstants>FS30D=1,SIEMENS=1</DefineConstants>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'FANUC|AnyCPU' ">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\FANUC\</OutputPath>
<DocumentationFile>CncLib.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<DefineConstants>FS30D=1,SIEMENS=1</DefineConstants>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'ESA|AnyCPU' ">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\ESA\</OutputPath>
<DocumentationFile>CncLib.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<DefineConstants>FS30D=1,SIEMENS=1</DefineConstants>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'SIEMENS|AnyCPU'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\SIEMENS\</OutputPath>
<DefineConstants>FS30D=1,SIEMENS=1</DefineConstants>
<DocumentationFile>CncLib.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'OSAI|AnyCPU'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\OSAI\</OutputPath>
<DefineConstants>FS30D=1,SIEMENS=1</DefineConstants>
<DocumentationFile>CncLib.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<ItemGroup>
<Reference Include="Siemens.Sinumerik.Operate.Services, Version=4.7.3.2, Culture=neutral, PublicKeyToken=bdd90fa02fd1c4ee, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>ExtLib\Siemens.Sinumerik.Operate.Services.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="App\App.Native.Ini.vb" />
<Compile Include="CNC\CNC.FANUC\CNC.FANUC.vb" />
<Compile Include="CNC\CNC.FANUC\_\CNC.FANUC.Err.vb" />
<Compile Include="CNC\CNC.FANUC\_\fwlib32.vb" />
<Compile Include="CNC\CNC.OSAI\CNC.OSAI.vb" />
<Compile Include="CNC\CNC.OSAI\CNC.OSAI_SOAP.vb" />
<Compile Include="CNC\CNC.Runtime.vb" />
<Compile Include="CNC\CNC.SIEMENS\CNC.SIEMENS.vb" />
<Compile Include="CNC\CNC\CNC.CNC.vb" />
<Compile Include="Config\Config.Options.vb" />
<Compile Include="Config\Config.Settings.vb" />
<Compile Include="Modules\Conversions.vb" />
<Compile Include="Modules\General.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Service References\OPENcontrol\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.svcmap</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.AxesRefR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.BootModeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.BootPhaseEnquiryR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.BootRebootR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.BootShutDownR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.CheckHistoryR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.CycleR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.DncDataR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.DncEofR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.DncInitR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.DncStopR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.EseExR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.EseR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ExeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetActivePartProgramR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetAvailableCustomEventsR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetAxesInfo3R.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetAxesPositionR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetAxOriginNumR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetBinaryFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetBlkNumR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetCNCRegKeyR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetCodeNumberR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetDateTimeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetGCodeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetHWKeyR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetMarkerInfoR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetMCodeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetNcInfo1R.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetNcInfo2R.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetOffsetTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetOptionsR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetOriginTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetPartProgramLinesR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetProcessConfNumR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetProcessStatusR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetProcInInputR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetProcVarDoubleR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetProcVarWordR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetPTechSizesR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetSelectedProcessR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetSerialNumberR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetServoParR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetSysTickR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetToolNamesR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetToolTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetUserTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetVarJOGR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.GetVarRCMR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.HoldR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LoadPTechR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LockTableIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSAddDriveR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSChangeFileAttribR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSCloseFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSCopyFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSCreateDirR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSCreateFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSFindCloseR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSFindFirstR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSFindNextR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetDriveListR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetDrivePathR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetFileAttribR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetFileSizeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetHiddenDriveListR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetInfoR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetNumDriveR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSGetSecurityLevelR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSLongFileNamesR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSOpenFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSReadRecordR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSReloadDriveListR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSRemoveDirR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSRemoveDriveR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSRemoveFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSRenameR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSSetFileAttribR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSSetSecurityLevelR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.LogFSWriteRecordR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ManagePartProgramR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonAddVariableR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonCloseChannelR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonDeleteVariableR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonGetVariableR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonOpenChannelR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonStartSamplingR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.MonStopSamplingR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.PutBinaryFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.PutFileR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadCurrentAnomalyMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadCurrentEmergMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadCurrentErrorMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadErrMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadHistoryAnomalyMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadHistoryEmergMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadHistoryErrorMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadHistoryLogMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadPartProgramMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadRemapDefinitionsR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadVarDoubleR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadVarTextR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadVarWordR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ReadWarningMsgR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ResetR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.ResetSingleTableIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.RestoreBackupMemoryR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.RestoreSingleTableR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SaveBackupMemoryR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SaveSingleTableR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SaveTablesR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SelectPartProgramFromDriveR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SelectPartProgramR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SelectProcAxisR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SelectProcessR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetDateTimeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetFeedManOverR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetFeedRapidOverR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetFeedRateOverR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetIpAddressR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetManMovDirectionR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetMdiStringR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetOffsetTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetOriginTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetProcessModeR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetProcVarDoubleR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetProcVarWordR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetServoParR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetSpeedRateOverR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetToolTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetUserTabRecordIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetVarJOGR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetVarRCMR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SetVarUASR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SkipPProgBlockR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SndProcInpDataR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.SyncroCycleR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.UnLockTableIIR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.WriteRemapDefinitionsR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.WriteVarDoubleR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.WriteVarTextR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.WriteVarWordBitR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\CncLib.OPENcontrol.WriteVarWordR.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\OPENcontrol\OPENcontrol.wsdl" />
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Service References\" />
</ItemGroup>
<ItemGroup>
<WCFMetadataStorage Include="Service References\OPENcontrol\" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\OPENcontrol\configuration91.svcinfo" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\OPENcontrol\configuration.svcinfo" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\OPENcontrol\Reference.svcmap">
<Generator>WCF Proxy Generator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup />
<ItemGroup>
<Content Include="ExtLib\Siemens.Sinumerik.Operate.Services.dll" />
<Content Include="ExtLib\Siemens.Sinumerik.Operate.Services.Wrapper.dll" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
Binary file not shown.
-294
View File
@@ -1,294 +0,0 @@
Namespace Config
Class Options
Public Shared CurrentOptions As Options
Public Shared sPathFile As String
Private _Machine_Enabled As Boolean
''' <summary>Maintenance Machine</summary>
Public ReadOnly Property Machine_Enabled() As Boolean
Get
Return Me._Machine_Enabled
End Get
End Property
Private _Maintenance_Enabled As Boolean
''' <summary>Opzione Maintenance</summary>
Public ReadOnly Property Maintenance_Enabled() As Boolean
Get
Return Me._Maintenance_Enabled
End Get
End Property
Private _OpPanel_Enabled As Boolean
''' <summary>Opzione OpPanel</summary>
Public ReadOnly Property OpPanel_Enabled() As Boolean
Get
Return Me._OpPanel_Enabled
End Get
End Property
Private _Launch_Enabled As Boolean
''' <summary>Opzione Launch</summary>
Public ReadOnly Property Launch_Enabled() As Boolean
Get
Return Me._Launch_Enabled
End Get
End Property
Private _TcpSocket_Enabled As Boolean
''' <summary>Opzione TcpSocket</summary>
Public ReadOnly Property TcpSocket_Enabled() As Boolean
Get
Return Me._TcpSocket_Enabled
End Get
End Property
Private _ToolTable_Enabled As Boolean
''' <summary>Opzione ToolTable</summary>
Public ReadOnly Property ToolTable_Enabled() As Boolean
Get
Return Me._ToolTable_Enabled
End Get
End Property
Private _ToolTable_Famiglie As Boolean
''' <summary>Opzione Famiglie</summary>
Public ReadOnly Property ToolTable_Famiglie() As Boolean
Get
Return Me._ToolTable_Famiglie
End Get
End Property
Private _ToolTable_Vita As Boolean
''' <summary>Opzione Vita</summary>
Public ReadOnly Property ToolTable_Vita() As Boolean
Get
Return (Me._ToolTable_Vita_S Or Me._ToolTable_Vita_N Or Me._ToolTable_Vita_M)
End Get
End Property
Private _ToolTable_Vita_S As Boolean
''' <summary>Opzione Vita a Tempo</summary>
Public ReadOnly Property ToolTable_Vita_S() As Boolean
Get
Return Me._ToolTable_Vita_S
End Get
End Property
Private _ToolTable_Vita_N As Boolean
''' <summary>Opzione Vita a Cicli o Colpi</summary>
Public ReadOnly Property ToolTable_Vita_N() As Boolean
Get
Return Me._ToolTable_Vita_N
End Get
End Property
Private _ToolTable_Vita_M As Boolean
''' <summary>Opzione Vita a Profilo</summary>
Public ReadOnly Property ToolTable_Vita_M() As Boolean
Get
Return Me._ToolTable_Vita_M
End Get
End Property
Private _ToolTable_AttrezzaggioAutomatico As Boolean
''' <summary>Opzione Attrezzaggio Automatico</summary>
Public ReadOnly Property ToolTable_AttrezzaggioAutomatico() As Boolean
Get
Return Me._ToolTable_AttrezzaggioAutomatico
End Get
End Property
Private _ToolTable_PercorsoAutoadattativo As Boolean
''' <summary>Opzione Percorso Autoadattativo</summary>
Public ReadOnly Property ToolTable_PercorsoAutoadattativo() As Boolean
Get
Return Me._ToolTable_PercorsoAutoadattativo
End Get
End Property
Private _ToolTable_Multiprofilo As Boolean
''' <summary>Opzione Multiprofilo</summary>
Public ReadOnly Property ToolTable_Multiprofilo() As Boolean
Get
Return Me._ToolTable_Multiprofilo
End Get
End Property
Private _ToolTable_CompensazioneDinamica As Boolean
''' <summary>Opzione Compensazione Dinamica</summary>
Public ReadOnly Property ToolTable_CompensazioneDinamica() As Boolean
Get
Return Me._ToolTable_CompensazioneDinamica
End Get
End Property
Private _ToolTable_Offset As Boolean
''' <summary>Opzione Offset</summary>
Public ReadOnly Property ToolTable_Offset() As Boolean
Get
Return Me._ToolTable_Offset
End Get
End Property
Private _ToolTable_FeedMax As Boolean
''' <summary>Opzione FeedMax</summary>
Public ReadOnly Property ToolTable_FeedMax() As Boolean
Get
Return Me._ToolTable_FeedMax
End Get
End Property
Private _ToolTable_Gamme As Boolean
''' <summary>Opzione Gamme</summary>
Public ReadOnly Property ToolTable_Gamme() As Boolean
Get
Return Me._ToolTable_Gamme
End Get
End Property
Private _ToolTable_Manine As Boolean
''' <summary>Opzione Manine</summary>
Public ReadOnly Property ToolTable_Manine() As Boolean
Get
Return Me._ToolTable_Manine
End Get
End Property
Private _ToolTable_MaxToolsManaged As Integer
''' <summary>Massimo numero di utensili gestibili</summary>
Public ReadOnly Property ToolTable_MaxToolsManaged() As Integer
Get
Return Me._ToolTable_MaxToolsManaged
End Get
End Property
Private _ToolTable_Inch As Boolean
''' <summary>Opzione gestione in Pollici</summary>
Public ReadOnly Property ToolTable_Inch() As Boolean
Get
Return Me._ToolTable_Inch
End Get
End Property
Private _ToolTable_Diameter As Boolean
''' <summary>Opzione gestione Diametro</summary>
Public ReadOnly Property ToolTable_Diameter() As Boolean
Get
Return Me._ToolTable_Diameter
End Get
End Property
Private _ToolTable_AttrezzaggioInRun As Boolean
''' <summary>Opzione modifica con macchina in RUN</summary>
Public ReadOnly Property ToolTable_AttrezzaggioInRun() As Boolean
Get
Return Me._ToolTable_AttrezzaggioInRun
End Get
End Property
Private _ToolTable_AttrezzaggioAssistito As Boolean
''' <summary>Opzione Attrezzaggio magazzini inaccessibili tramite macchina</summary>
Public ReadOnly Property ToolTable_AttrezzaggioAssistito() As Boolean
Get
Return Me._ToolTable_AttrezzaggioAssistito
End Get
End Property
Private _ToolTable_SharedDB As Boolean
''' <summary>Opzione magazzino utensili condiviso tra più macchine</summary>
Public ReadOnly Property ToolTable_SharedDB() As Boolean
Get
Return Me._ToolTable_SharedDB
End Get
End Property
Private _ToolTable_AllowRemote As Boolean
''' <summary>Opzione AllowRemote Tool Table</summary>
Public ReadOnly Property ToolTable_AllowRemote() As Boolean
Get
Return Me._ToolTable_AllowRemote
End Get
End Property
Public Shared Sub CreateOptions(ByVal sPathF As String)
If CurrentOptions Is Nothing Then
CurrentOptions = New Options
End If
' Memorizzo il percorso del file INI
sPathFile = sPathF
CurrentOptions.LoadOptions()
End Sub
'carica le opzioni da file
Private Sub LoadOptions()
''leggo la matricola dal cn
''se non è possibile disabilito tutto e chiedo che venga attivata la connessione
''se leggo 0 avviso che la metricola deve essere popolata
''leggo il codice dal file
''valore = decodifica(valoreletto, matricola, passwordpubblica)
Dim szFileIni As String
Dim Ini As App.Native.Ini
' imposto il nome del file
szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini"
' verifico che esista il file
If My.Computer.FileSystem.FileExists(szFileIni) Then
'istanzio la classe di gestione del file
Ini = New App.Native.Ini(szFileIni)
'leggo i settaggi dal file
Me._Machine_Enabled = Ini.GetBoolean("OPTIONS", "MACHINE_ENABLED", 0)
Me._Maintenance_Enabled = Ini.GetBoolean("OPTIONS", "MAINTENANCE_ENABLED", 0)
Me._OpPanel_Enabled = Ini.GetBoolean("OPTIONS", "OPPANEL_ENABLED", 0)
Me._Launch_Enabled = Ini.GetBoolean("OPTIONS", "LAUNCH_ENABLED", 0)
Me._TcpSocket_Enabled = Ini.GetBoolean("OPTIONS", "TCPSOCKET_ENABLED", 0)
Me._ToolTable_Enabled = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ENABLED", 0)
Me._ToolTable_Famiglie = Ini.GetBoolean("OPTIONS", "TOOLTABLE_FAMIGLIE", 0)
Me._ToolTable_Vita_S = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_S", 0)
Me._ToolTable_Vita_N = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_N", 0)
Me._ToolTable_Vita_M = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_M", 0)
Me._ToolTable_Multiprofilo = Ini.GetBoolean("OPTIONS", "TOOLTABLE_MULTIPROFILO", 0)
Me._ToolTable_AttrezzaggioAutomatico = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIOAUTOMATICO", 0)
Me._ToolTable_PercorsoAutoadattativo = Ini.GetBoolean("OPTIONS", "TOOLTABLE_PERCORSOAUTOADATTATIVO", 0)
Me._ToolTable_CompensazioneDinamica = Ini.GetBoolean("OPTIONS", "TOOLTABLE_COMPENSAZIONEDINAMICA", 0)
Me._ToolTable_Offset = Ini.GetBoolean("OPTIONS", "TOOLTABLE_OFFSET", 0)
Me._ToolTable_FeedMax = Ini.GetBoolean("OPTIONS", "TOOLTABLE_FEEDMAX", 0)
Me._ToolTable_Gamme = Ini.GetBoolean("OPTIONS", "TOOLTABLE_GAMME", 0)
Me._ToolTable_Manine = Ini.GetBoolean("OPTIONS", "TOOLTABLE_MANINE", 0)
'Me._ToolTable_GeometryManagement = Ini.GetInteger("OPTIONS", "TOOLTABLE_GEOMETRYMANAGEMENT", 0)
Me._ToolTable_MaxToolsManaged = Ini.GetInteger("OPTIONS", "TOOLTABLE_MAXTOOLSMANAGED", 0)
Me._ToolTable_Inch = Ini.GetBoolean("OPTIONS", "TOOLTABLE_INCH", 0)
Me._ToolTable_Diameter = IIf(CNC.Runtime.NC.Type = CNC.CNC.NcType.OSAI, True, False) 'Ini.GetBoolean("OPTIONS", "TOOLTABLE_DIAMETER", 0)
Me._ToolTable_AttrezzaggioInRun = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIO_IN_RUN", 0)
Me._ToolTable_AttrezzaggioAssistito = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIO_ASSISTITO", 0)
' Se è attiva l'opzione ToolTable_Remote, l'AllowRemote e SharedDB sono ignorati
If Config.Settings.Settings.ToolTable_Remote Then
Me._ToolTable_AllowRemote = False
Me._ToolTable_SharedDB = False
Else
Me._ToolTable_AllowRemote = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ALLOWREMOTE", 0)
Me._ToolTable_SharedDB = Ini.GetBoolean("OPTIONS", "TOOLTABLE_SHAREDDB", 0)
End If
Else
'CncLib.App.Runtime.Log.WW("ERR LoadOptions", String.Format("File {0} not found", szFileIni), True)
End If
End Sub
'verifica che le opzioni sul cn siano coerenti, se no le corregge
Private Sub CheckOptions()
''leggo le opzioni dal cn
''verifico che siano uguali a quelle del file, se no modifico il cn e avviso l'utente della modifica
End Sub
End Class
End Namespace
-698
View File
@@ -1,698 +0,0 @@
Imports System.ComponentModel
Imports System.Drawing
Namespace Config
Class Settings
Const MAX_NUM_TOOLTABLE_PATH = 19
Public Shared Settings As SettingsProperty
Public Shared SettingsEdit As SettingsProperty
Public Shared sPathFile As String
Friend Enum MemoryMapping
[Default] = 0
ElsManager = 1
ToolManager = 2
ToolTable = 3
End Enum
Public Shared Sub CreateSettings(ByVal sPathF As String, Optional ByVal bReadToolTable As Boolean = True)
If Settings Is Nothing Then
Settings = New SettingsProperty
SettingsEdit = New SettingsProperty
End If
' Memorizzo il percorso del file INI
sPathFile = sPathF
LoadSettings(bReadToolTable)
End Sub
Public Shared Sub LoadSettings(Optional ByVal bReadToolTable As Boolean = True)
Dim szFileIni As String
Dim nTmp As Integer
Dim Ini As App.Native.Ini
Dim sFont As Single
' imposto il nome del file
szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini"
' verifico che esista il file
If My.Computer.FileSystem.FileExists(szFileIni) Then
'istanzio la classe di gestione del file
Ini = New App.Native.Ini(szFileIni)
'leggo i settaggi dal file
With Settings
.Debug = Ini.GetInteger("CONFIG", "DEBUG", 0)
.Language = Trim(Ini.GetString("CONFIG", "LANGUAGE", "English"))
' Quando è attiva l'impostazione TOOLTABLEREMOTE in SettingsBase,
' il CN è "sempre" da impostare a DEMO
If Config.Settings.Settings.ToolTable_Remote Then
.TypeNC = CNC.CNC.NcType.DEMO
Else
.TypeNC = Ini.GetInteger("NC", "TYPE", 0)
End If
nTmp = Ini.GetInteger("NC", "MEMORYMAPPING", 0)
If nTmp = 0 Then 'se MEMORYMAPPING viene lasciata a 0, imposto il valore di default
Select Case nTmp
Case CNC.CNC.NcType.FANUC : .MemoryMapping = MemoryMapping.ElsManager
Case CNC.CNC.NcType.OSAI : .MemoryMapping = MemoryMapping.ElsManager
Case CNC.CNC.NcType.SIEMENS : .MemoryMapping = MemoryMapping.ToolTable
End Select
Else
.MemoryMapping = nTmp
End If
If bReadToolTable Then
.SerialNumber = Ini.GetInteger("NC", "SERIALNUMBER", "0")
End If
.Hssb = Ini.GetBoolean("FANUC", "HSSB", 0)
.IpFanuc = Trim(Ini.GetString("FANUC", "IP", "192.168.1.1"))
.PortIpFanuc = Ini.GetInteger("FANUC", "PORT", "8193")
.CncScreenHssb = Ini.GetInteger("FANUC", "CNCSCREEN_HSSB", "0")
.NcName = Trim(Ini.GetString("OSAI", "NAME", "NC0000"))
.OsaiCommType = Trim(Ini.GetInteger("OSAI", "COMM_TYPE", "0"))
.IpOsai = Trim(Ini.GetString("OSAI", "IP", "192.168.1.1"))
.DncPcPath = Trim(Ini.GetString("OSAI", "DNC_PC_PATH", "C:\PARTPRG\"))
.DncNcPath = Trim(Ini.GetString("OSAI", "DNC_NC_PATH", "P:\"))
.DncTimeout = Ini.GetInteger("OSAI", "DNC_TIMEOUT", "20")
.AlwaysOnTop = CBool(Ini.GetString("POSITION", "ALWAYSONTOP", "0"))
.HeadsPanel_ShowOnOpPanel = CBool(Ini.GetString("HEADS_PANEL", "SHOW_ON_OPPANEL", "1"))
.HeadsPanel_ReverseOrder = CBool(Ini.GetString("HEADS_PANEL", "REVERSE_ORDER", "0"))
For i As Integer = 0 To 19
.HeadsPanel_Name(i) = Ini.GetString("HEADS_PANEL", "HEADNAME" & (i + 1).ToString, "")
Try
'.HeadsPanel_Type(i) = CType(Ini.GetInteger("HEADS_PANEL", "HEADTYPE" & (i + 1).ToString, "0"), Control.Heads.HeadTypes)
Catch ex As Exception
End Try
Next
.ControlPosition = New Rectangle(Ini.GetInteger("POSITION", "LEFT", 60),
Ini.GetInteger("POSITION", "TOP", 80),
Ini.GetInteger("POSITION", "WIDTH", 800),
Ini.GetInteger("POSITION", "HEIGHT", 600))
.OpPanel_FollowCnc = CBool(Ini.GetString("SETTINGS", "OPPANEL_FOLLOWCNC", "1"))
Dim ScreenW = Ini.GetInteger("SETTINGS", "SCREEN_WIDTH", 0)
Dim ScreenH = Ini.GetInteger("SETTINGS", "SCREEN_HEIGHT", 0)
If ScreenW > 0 And ScreenH > 0 Then
.OpPanel_ScreenSize = New Size(ScreenW, ScreenH)
.OpPanel_ForcedScreenSize = True
Else
'.OpPanel_ScreenSize = Screen.PrimaryScreen.Bounds.Size
.OpPanel_ForcedScreenSize = False
End If
Select Case .OpPanel_ScreenSize
Case New Size(800, 600) '10"
sFont = 6.75!
Case New Size(1024, 768), New Size(2048, 768) '15", 15" doppio monitor
sFont = 8.25!
Case New Size(1280, 800), New Size(1366, 768), New Size(1280, 1024) '15,6" widescreen,17"
sFont = 9.75!
Case Else
sFont = 8.25!
End Select
.DefaultFont = New System.Drawing.Font("Tahoma", sFont, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
.TcpSocket_Ip = Trim(Ini.GetString("SETTINGS", "TCPSOCKET_IP", "192.168.139.100"))
.TcpSocket_Port = Ini.GetInteger("SETTINGS", "TCPSOCKET_PORT", "4999")
' ToolTable REMOTE
If bReadToolTable Then
.ToolTable_Remote = Ini.GetBoolean("TOOLTABLE", "REMOTE", 0)
For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH
.ToolTable_Path(i) = Ini.GetString("TOOLTABLE", "PATH" & (i + 1).ToString, "")
.ToolTable_Descr(i) = Ini.GetString("TOOLTABLE", "DESCRIPTION" & (i + 1).ToString, "")
If .ToolTable_Path(i) <> "" Then
.ToolTable_CountPaths = i + 1
End If
Next
End If
End With
Else
'CncLib.App.Runtime.Log.WW("ERR LoadFromFile", String.Format("File {0} not found", szFileIni), True)
End If
End Sub
Public Shared Sub SaveToFile()
Dim szFileIni As String
Dim Ini As App.Native.Ini
' imposto il nome del file
szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini"
' verifico che esista il file
If My.Computer.FileSystem.FileExists(szFileIni) Then
'istanzio la classe di gestione del file
Ini = New App.Native.Ini(szFileIni)
With Settings
' salvo su file
Ini.WriteInteger("CONFIG", "DEBUG", .Debug)
Ini.WriteString("CONFIG", "LANGUAGE", .Language)
Ini.WriteInteger("POSITION", "ALWAYSONTOP", IIf((.AlwaysOnTop), 1, 0))
Ini.WriteInteger("POSITION", "LEFT", .ControlPosition.Left)
Ini.WriteInteger("POSITION", "TOP", .ControlPosition.Top)
Ini.WriteInteger("POSITION", "WIDTH", .ControlPosition.Width)
Ini.WriteInteger("POSITION", "HEIGHT", .ControlPosition.Height)
Ini.WriteInteger("TOOLTABLE", "REMOTE", IIf((.ToolTable_Remote), 1, 0))
' Uso 2 cicli per mantenere Path e Descr separati
For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH
If .ToolTable_Path(i) <> "" Then
Ini.WriteString("TOOLTABLE", "PATH" & (i + 1).ToString, .ToolTable_Path(i))
End If
Next
For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH
If .ToolTable_Descr(i) <> "" Then
Ini.WriteString("TOOLTABLE", "DESCRIPTION" & (i + 1).ToString, .ToolTable_Descr(i))
End If
Next
End With
'CncLib.App.Runtime.Log.WI("END SaveToFile", , CCncLib.App.Runtime.Log.Lev.Secondary)
Else
'CncLib.App.Runtime.Log.WW("ERR SaveToFile", String.Format("File {0} not found", szFileIni), True)
End If
End Sub
Public Shared Sub SettingsToEdit()
SettingsEdit.Debug = Settings.Debug
SettingsEdit.Language = Settings.Language
SettingsEdit.TypeNC = Settings.TypeNC
SettingsEdit.MemoryMapping = Settings.MemoryMapping
SettingsEdit.SerialNumber = Settings.SerialNumber
SettingsEdit.Hssb = Settings.Hssb
SettingsEdit.IpFanuc = Settings.IpFanuc
SettingsEdit.PortIpFanuc = Settings.PortIpFanuc
SettingsEdit.CncScreenHssb = Settings.CncScreenHssb
SettingsEdit.NcName = Settings.NcName
SettingsEdit.OsaiCommType = Settings.OsaiCommType
SettingsEdit.IpOsai = Settings.IpOsai
SettingsEdit.DncPcPath = Settings.DncPcPath
SettingsEdit.DncNcPath = Settings.DncNcPath
SettingsEdit.DncTimeout = Settings.DncTimeout
SettingsEdit.AlwaysOnTop = Settings.AlwaysOnTop
SettingsEdit.HeadsPanel_ShowOnOpPanel = Settings.HeadsPanel_ShowOnOpPanel
SettingsEdit.HeadsPanel_ReverseOrder = Settings.HeadsPanel_ReverseOrder
SettingsEdit.ControlPosition = New Rectangle(Settings.ControlPosition.X,
Settings.ControlPosition.Y,
Settings.ControlPosition.Width,
Settings.ControlPosition.Height)
SettingsEdit.OpPanel_FollowCnc = Settings.OpPanel_FollowCnc
SettingsEdit.OpPanel_ScreenSize = New Size(Settings.OpPanel_ScreenSize.Width,
Settings.OpPanel_ScreenSize.Height)
SettingsEdit.TcpSocket_Ip = Settings.TcpSocket_Ip
SettingsEdit.TcpSocket_Port = Settings.TcpSocket_Port
SettingsEdit.ToolTable_Remote = Settings.ToolTable_Remote
For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH
SettingsEdit.ToolTable_Path(i) = Settings.ToolTable_Path(i)
SettingsEdit.ToolTable_Descr(i) = Settings.ToolTable_Descr(i)
Next
End Sub
Public Shared Sub EditToSettings()
Settings.Debug = SettingsEdit.Debug
Settings.Language = SettingsEdit.Language
Settings.TypeNC = SettingsEdit.TypeNC
Settings.MemoryMapping = SettingsEdit.MemoryMapping
Settings.SerialNumber = SettingsEdit.SerialNumber
Settings.Hssb = SettingsEdit.Hssb
Settings.IpFanuc = SettingsEdit.IpFanuc
Settings.PortIpFanuc = SettingsEdit.PortIpFanuc
Settings.CncScreenHssb = SettingsEdit.CncScreenHssb
Settings.NcName = SettingsEdit.NcName
Settings.OsaiCommType = SettingsEdit.OsaiCommType
Settings.IpOsai = SettingsEdit.IpOsai
Settings.DncPcPath = SettingsEdit.DncPcPath
Settings.DncNcPath = SettingsEdit.DncNcPath
Settings.DncTimeout = SettingsEdit.DncTimeout
Settings.AlwaysOnTop = SettingsEdit.AlwaysOnTop
Settings.HeadsPanel_ShowOnOpPanel = SettingsEdit.HeadsPanel_ShowOnOpPanel
Settings.HeadsPanel_ReverseOrder = SettingsEdit.HeadsPanel_ReverseOrder
Settings.ControlPosition = New Rectangle(SettingsEdit.ControlPosition.X,
SettingsEdit.ControlPosition.Y,
SettingsEdit.ControlPosition.Width,
SettingsEdit.ControlPosition.Height)
Settings.OpPanel_FollowCnc = SettingsEdit.OpPanel_FollowCnc
Settings.OpPanel_ScreenSize = New Size(SettingsEdit.OpPanel_ScreenSize.Width,
SettingsEdit.OpPanel_ScreenSize.Height)
Settings.TcpSocket_Ip = SettingsEdit.TcpSocket_Ip
Settings.TcpSocket_Port = SettingsEdit.TcpSocket_Port
Settings.ToolTable_Remote = SettingsEdit.ToolTable_Remote
For i As Integer = 0 To MAX_NUM_TOOLTABLE_PATH
Settings.ToolTable_Path(i) = SettingsEdit.ToolTable_Path(i)
Settings.ToolTable_Descr(i) = SettingsEdit.ToolTable_Descr(i)
Next
RaiseEvent SettingsChanged(New Object, New EventArgs)
End Sub
Public Shared Event SettingsChanged(ByVal sender As Object, ByVal e As EventArgs)
Friend Class SettingsProperty
Private _Debug As Integer = 0
<Category("CONFIG"),
Browsable(True),
DisplayName("DEBUG"),
Description("Level of Debug")>
Public Property Debug() As Integer
Get
Return Me._Debug
End Get
Set(ByVal value As Integer)
Me._Debug = value
End Set
End Property
Private _Language As String = "English"
<Category("CONFIG"),
Browsable(False),
DisplayName("LANGUAGE"),
Description("Language of Application")>
Public Property Language() As String
Get
Return Me._Language
End Get
Set(ByVal value As String)
Me._Language = value
End Set
End Property
Private _TypeNC As CNC.CNC.NcType = CNC.CNC.NcType.DEMO
<Category("NC"),
Browsable(True),
DisplayName("TYPE"),
Description("Type of CNC"),
[ReadOnly](True)>
Public Property TypeNC() As CNC.CNC.NcType
Get
Return Me._TypeNC
End Get
Set(ByVal value As CNC.CNC.NcType)
Me._TypeNC = value
End Set
End Property
Private _MemoryMapping As Config.Settings.MemoryMapping = MemoryMapping.Default
<Category("NC"),
Browsable(True),
DisplayName("MemoryMapping"),
Description("Memory Mapping"),
[ReadOnly](True)>
Public Property MemoryMapping() As Config.Settings.MemoryMapping
Get
Return Me._MemoryMapping
End Get
Set(ByVal value As Config.Settings.MemoryMapping)
Me._MemoryMapping = value
End Set
End Property
Private _SerialNumber As Integer = 0
<Category("NC"),
Browsable(True),
DisplayName("SerialNumber"),
Description("Machine matricula")>
Public Property SerialNumber() As Integer
Get
Return Me._SerialNumber
End Get
Set(ByVal value As Integer)
Me._SerialNumber = value
End Set
End Property
Private _Hssb As Integer = 0
<Category("FANUC"),
Browsable(True),
DisplayName("HSSB"),
Description("Use Hssb connection")>
Public Property Hssb() As Integer
Get
Return Me._Hssb
End Get
Set(ByVal value As Integer)
Me._Hssb = value
End Set
End Property
Private _IpFanuc As String = "192.168.1.1"
<Category("FANUC"),
Browsable(True),
DisplayName("IP"),
Description("IP Address")>
Public Property IpFanuc() As String
Get
Return Me._IpFanuc
End Get
Set(ByVal value As String)
Me._IpFanuc = value
End Set
End Property
Private _PortIpFanuc As Integer = 8193
<Category("FANUC"),
Browsable(True),
DisplayName("PORT"),
Description("TCP Port")>
Public Property PortIpFanuc() As Integer
Get
Return Me._PortIpFanuc
End Get
Set(ByVal value As Integer)
Me._PortIpFanuc = value
End Set
End Property
Private _CncScreenHssb As Integer = 0
<Category("FANUC"),
Browsable(True),
DisplayName("CNCSCREEN_HSSB"),
Description("Use CncScreenDisplay Hssb version")>
Public Property CncScreenHssb() As Integer
Get
Return Me._CncScreenHssb
End Get
Set(ByVal value As Integer)
Me._CncScreenHssb = value
End Set
End Property
Private _NcName As String = "NC0000"
<Category("OSAI"),
Browsable(True),
DisplayName("NAME"),
Description("Nc Name")>
Public Property NcName() As String
Get
Return Me._NcName
End Get
Set(ByVal value As String)
Me._NcName = value
End Set
End Property
Private _OsaiCommType As Integer = 1
<Category("OSAI"),
Browsable(True),
DisplayName("CommType"),
Description("Communication type")>
Public Property OsaiCommType() As Integer
Get
Return Me._OsaiCommType
End Get
Set(ByVal value As Integer)
Me._OsaiCommType = value
End Set
End Property
Private _IpOsai As String = "192.168.1.1"
<Category("OSAI"),
Browsable(True),
DisplayName("IP"),
Description("IP Address")>
Public Property IpOsai() As String
Get
Return Me._IpOsai
End Get
Set(ByVal value As String)
Me._IpOsai = value
End Set
End Property
Private _DncPcPath As String = "C:\PARTPRG\"
<Category("OSAI"),
Browsable(True),
DisplayName("DNC_PC_PATH"),
Description("PC directory for DNC")>
Public Property DncPcPath() As String
Get
Return Me._DncPcPath
End Get
Set(ByVal value As String)
Me._DncPcPath = value
End Set
End Property
Private _DncNcPath As String = "P:\"
<Category("OSAI"),
Browsable(True),
DisplayName("DNC_NC_PATH"),
Description("NC directory for DNC")>
Public Property DncNcPath() As String
Get
Return Me._DncNcPath
End Get
Set(ByVal value As String)
Me._DncNcPath = value
End Set
End Property
Private _DncTimeout As Integer = 20
<Category("OSAI"),
Browsable(True),
DisplayName("DNC_TIMEOUT"),
Description("Timeout on loading program via DNC")>
Public Property DncTimeout() As Integer
Get
Return Me._DncTimeout
End Get
Set(ByVal value As Integer)
Me._DncTimeout = value
End Set
End Property
Private _ControlPosition As Rectangle = New Rectangle(80, 60, 800, 600)
<Category("POSITION"),
Browsable(True),
DisplayName("Position"),
Description("Control window position")>
Public Property ControlPosition() As Rectangle
Get
Return Me._ControlPosition
End Get
Set(ByVal value As Rectangle)
Me._ControlPosition = value
End Set
End Property
Private _AlwaysOnTop As Boolean
<Category("POSITION"),
Browsable(True),
DisplayName("AlwaysOnTop"),
Description("Window always on top")>
Public Property AlwaysOnTop() As Boolean
Get
Return Me._AlwaysOnTop
End Get
Set(ByVal value As Boolean)
Me._AlwaysOnTop = value
End Set
End Property
Private _HeadsPanel_ShowOnOpPanel As Boolean
<Category("HEADS_PANEL"),
Browsable(True),
DisplayName("ShowOnOpPanel"),
Description("Show on OpPanel")>
Public Property HeadsPanel_ShowOnOpPanel() As Boolean
Get
Return Me._HeadsPanel_ShowOnOpPanel
End Get
Set(ByVal value As Boolean)
Me._HeadsPanel_ShowOnOpPanel = value
End Set
End Property
Private _HeadsPanel_ReverseOrder As Boolean
<Category("HEADS_PANEL"),
Browsable(True),
DisplayName("ReverseOrder"),
Description("Reverse Order")>
Public Property HeadsPanel_ReverseOrder() As Boolean
Get
Return Me._HeadsPanel_ReverseOrder
End Get
Set(ByVal value As Boolean)
Me._HeadsPanel_ReverseOrder = value
End Set
End Property
Private _HeadsPanel_Name(19) As String
<Category("HEADS_PANEL"),
Browsable(True),
DisplayName("Name"),
Description("Name")>
Public Property HeadsPanel_Name() As String()
Get
Return Me._HeadsPanel_Name
End Get
Set(ByVal value As String())
Me._HeadsPanel_Name = value
End Set
End Property
'Private _HeadsPanel_Type(19) As Control.Heads.HeadTypes
'<Category("HEADS_PANEL"), _
' Browsable(True), _
' DisplayName("Type"), _
' Description("Type")> _
'Public Property HeadsPanel_Type() As Control.Heads.HeadTypes()
' Get
' Return Me._HeadsPanel_Type
' End Get
' Set(ByVal value As Control.Heads.HeadTypes())
' Me._HeadsPanel_Type = value
' End Set
'End Property
Private _OpPanel_FollowCnc As Boolean
<Category("SETTINGS"),
Browsable(True),
DisplayName("Follow CNC"),
Description("OpPanel follow CNC window status")>
Public Property OpPanel_FollowCnc() As Boolean
Get
Return Me._OpPanel_FollowCnc
End Get
Set(ByVal value As Boolean)
Me._OpPanel_FollowCnc = value
End Set
End Property
Private _OpPanel_ScreenSize As Size = New Size(0, 0)
<Category("SETTINGS"),
Browsable(True),
DisplayName("Screen Size"),
Description("Force custom Screen Size")>
Public Property OpPanel_ScreenSize() As Size
Get
Return Me._OpPanel_ScreenSize
End Get
Set(ByVal value As Size)
Me._OpPanel_ScreenSize = value
End Set
End Property
Private _OpPanel_ForcedScreenSize As Boolean = False
<Category("SETTINGS"),
Browsable(False),
DisplayName("Forced Screen Size"),
Description("Screen Size is Forced from INI")>
Public Property OpPanel_ForcedScreenSize() As Boolean
Get
Return Me._OpPanel_ForcedScreenSize
End Get
Set(ByVal value As Boolean)
Me._OpPanel_ForcedScreenSize = value
End Set
End Property
Private _DefaultFont As Font
<Category("SETTINGS"),
Browsable(False),
DisplayName("Default Font"),
Description("Type and size Font")>
Public Property DefaultFont() As Font
Get
Return Me._DefaultFont
End Get
Set(ByVal value As Font)
Me._DefaultFont = value
End Set
End Property
Private _TcpSocket_Ip As String = "192.168.139.100"
<Category("SETTINGS"),
Browsable(False),
DisplayName("TCPSOCKET_IP"),
Description("TCPSOCKET IP Address")>
Public Property TcpSocket_Ip() As String
Get
Return Me._TcpSocket_Ip
End Get
Set(ByVal value As String)
Me._TcpSocket_Ip = value
End Set
End Property
Private _TcpSocket_Port As Integer = 4999
<Category("SETTINGS"),
Browsable(False),
DisplayName("TCPSOCKET_PORT"),
Description("TCPSOCKET PORT Address")>
Public Property TcpSocket_Port() As Integer
Get
Return Me._TcpSocket_Port
End Get
Set(ByVal value As Integer)
Me._TcpSocket_Port = value
End Set
End Property
Private _ToolTable_Remote As Boolean = False
<Category("TOOLTABLE"),
Browsable(True),
DisplayName("REMOTE"),
Description("ToolTable remote")>
Public Property ToolTable_Remote() As Boolean
Get
Return Me._ToolTable_Remote
End Get
Set(ByVal value As Boolean)
Me._ToolTable_Remote = value
End Set
End Property
Private _ToolTable_Path(MAX_NUM_TOOLTABLE_PATH) As String
<Category("TOOLTABLE"),
Browsable(True),
DisplayName("PATH"),
Description("PATH")>
Public Property ToolTable_Path() As String()
Get
Return Me._ToolTable_Path
End Get
Set(ByVal value As String())
Me._ToolTable_Path = value
End Set
End Property
Private _ToolTable_Descr(MAX_NUM_TOOLTABLE_PATH) As String
<Category("TOOLTABLE"),
Browsable(True),
DisplayName("DESCRIPTION"),
Description("DESCRIPTION")>
Public Property ToolTable_Descr() As String()
Get
Return Me._ToolTable_Descr
End Get
Set(ByVal value As String())
Me._ToolTable_Descr = value
End Set
End Property
Private _ToolTable_CountPaths As Integer = 0
<Category("TOOLTABLE"),
Browsable(True),
DisplayName("CCOUNTPATHS"),
Description("ToolTable paths number")>
Public Property ToolTable_CountPaths() As Integer
Get
Return Me._ToolTable_CountPaths
End Get
Set(ByVal value As Integer)
Me._ToolTable_CountPaths = value
End Set
End Property
End Class
End Class
End Namespace
-167
View File
@@ -1,167 +0,0 @@
Option Explicit On
Module Conversions
Private Const OFFSET_2 = 65536
Private Const MAXINT_2 = 32767
Private Const OFFSET_4 = 4294967296
Private Const MAXINT_4 = 2147483647
Function UnsignedToShort(ByVal Value As UShort) As Short
If Value <= MAXINT_2 Then
UnsignedToShort = Value
Else
UnsignedToShort = Value - OFFSET_2
End If
End Function
Function ShortToUnsigned(ByVal Value As Short) As UShort
If Value < 0 Then
ShortToUnsigned = Value + OFFSET_2
Else
ShortToUnsigned = Value
End If
End Function
Function UnsignedToInteger(ByVal Value As UInteger) As Integer
If Value <= MAXINT_4 Then
UnsignedToInteger = Value
Else
UnsignedToInteger = Value - OFFSET_4
End If
End Function
Function IntegerToUnsigned(ByVal Value As Integer) As UInteger
If Value < 0 Then
IntegerToUnsigned = Value + OFFSET_4
Else
IntegerToUnsigned = Value
End If
End Function
'prende solo la parte positiva, se no 0
Function LongToUInt(ByVal Value As Long) As UInteger
If Value < 0 Then
LongToUInt = 0
Else
LongToUInt = CUInt(Value)
End If
End Function
'Public Function WordToByte(ByVal Word As Int16, ByVal LevelByte As Byte) As Byte
' Dim szTmp As String
' szTmp = Hex(Word)
' While Len(szTmp) < 4
' szTmp = "0" & szTmp
' End While
' If LevelByte = LOW_ORDER Then
' WordToByte = Val("&h" & Mid(szTmp, 3, 2))
' ElseIf LevelByte = HIGH_ORDER Then
' WordToByte = Val("&h" & Mid(szTmp, 1, 2))
' End If
'End Function
Public Function WordToByte(ByVal Word As UInt16, ByVal LevelByte As Byte) As Byte
Dim Value() As Byte = BitConverter.GetBytes(Word)
WordToByte = Value(LevelByte)
End Function
Public Function ShortToByte(ByVal [Short] As Int16, ByVal LevelByte As Byte) As Byte
Dim Value() As Byte = BitConverter.GetBytes([Short])
ShortToByte = Value(LevelByte)
End Function
Public Function ByteToWord(ByVal LowOrderByte As Byte, ByVal HighOrderByte As Byte) As UInt16
Dim Value() As Byte = {LowOrderByte, HighOrderByte}
ByteToWord = BitConverter.ToUInt16(Value, 0)
End Function
Public Function ByteToShort(ByVal LowOrderByte As Byte, ByVal HighOrderByte As Byte) As Int16
Dim Value() As Byte = {LowOrderByte, HighOrderByte}
ByteToShort = BitConverter.ToInt16(Value, 0)
End Function
Public Function UIntegerToSingle(ByVal [UInteger] As UInt32) As Single
Dim Value() As Byte = BitConverter.GetBytes([UInteger])
UIntegerToSingle = BitConverter.ToSingle(Value, 0)
End Function
Public Function SingleToUInteger(ByVal [Single] As Single) As UInt32
Dim Value() As Byte = BitConverter.GetBytes([Single])
SingleToUInteger = BitConverter.ToUInt32(Value, 0)
End Function
Public Function DWordToWord(ByVal DWord As UInt32, ByVal LevelWord As Byte) As UInt16
Dim Value() As Byte = BitConverter.GetBytes(DWord)
DWordToWord = ByteToWord(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord))
End Function
Public Function DWordToShort(ByVal DWord As UInt32, ByVal LevelWord As Byte) As Int16
Dim Value() As Byte = BitConverter.GetBytes(DWord)
DWordToShort = ByteToShort(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord))
End Function
Public Function IntegerToWord(ByVal [Integer] As Int32, ByVal LevelWord As Byte) As UInt16
Dim Value() As Byte = BitConverter.GetBytes([Integer])
IntegerToWord = ByteToWord(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord))
End Function
Public Function IntegerToShort(ByVal [Integer] As Int32, ByVal LevelWord As Byte) As Int16
Dim Value() As Byte = BitConverter.GetBytes([Integer])
IntegerToShort = ByteToShort(Value(0 + 2 * LevelWord), Value(1 + 2 * LevelWord))
End Function
Public Function WordsToDWord(ByVal LowOrderWord As UInt16, ByVal HighOrderWord As UInt16) As UInt32
Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderWord)
Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderWord)
Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)}
WordsToDWord = BitConverter.ToUInt32(Value, 0)
End Function
Public Function WordsToInteger(ByVal LowOrderWord As UInt16, ByVal HighOrderWord As UInt16) As Int32
Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderWord)
Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderWord)
Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)}
WordsToInteger = BitConverter.ToInt32(Value, 0)
End Function
Public Function ShortsToDWord(ByVal LowOrderShort As Int16, ByVal HighOrderShort As Int16) As UInt32
Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderShort)
Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderShort)
Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)}
ShortsToDWord = BitConverter.ToUInt32(Value, 0)
End Function
Public Function ShortsToInteger(ByVal LowOrderShort As Int16, ByVal HighOrderShort As Int16) As Int32
Dim ValueLow() As Byte = BitConverter.GetBytes(LowOrderShort)
Dim ValueHigh() As Byte = BitConverter.GetBytes(HighOrderShort)
Dim Value() As Byte = {ValueLow(0), ValueLow(1), ValueHigh(0), ValueHigh(1)}
ShortsToInteger = BitConverter.ToInt32(Value, 0)
End Function
Function ArraysEqual(ByVal first As Int16(), ByVal second As Int16()) As Boolean
If (first Is second) Then
Return True
End If
If (first Is Nothing OrElse second Is Nothing) Then
Return False
End If
If (first.Length <> second.Length) Then
Return False
End If
For i As Integer = 0 To first.Length - 1
If (first(i) <> second(i)) Then
Return False
End If
Next i
Return True
End Function
End Module
-83
View File
@@ -1,83 +0,0 @@
Module General
Public Const MASK_BIT0 = &H1&
Public Const MASK_BIT1 = &H2&
Public Const MASK_BIT2 = &H4&
Public Const MASK_BIT3 = &H8&
Public Const MASK_BIT4 = &H10&
Public Const MASK_BIT5 = &H20&
Public Const MASK_BIT6 = &H40&
Public Const MASK_BIT7 = &H80&
Public Const MASK_BIT8 = &H100&
Public Const MASK_BIT9 = &H200&
Public Const MASK_BIT10 = &H400&
Public Const MASK_BIT11 = &H800&
Public Const MASK_BIT12 = &H1000&
Public Const MASK_BIT13 = &H2000&
Public Const MASK_BIT14 = &H4000&
Public Const MASK_BIT15 = &H8000&
Public Const LOW_ORDER = 0
Public Const HIGH_ORDER = 1
'Costanti globali
Public Const NC_DEMO = 0
Public Const NC_FANUC = 1
Public Const NC_OSAI = 2
Public Const NC_SIEMENS = 3
Public Const HSSB_DEFAULT_NODE = 0
Public Const MEM_BOOL = 1
Public Const MEM_BYTE = 2
Public Const MEM_WORD = 3
Public Const MEM_INT = 4
Public Const MEM_DWORD = 5
Public Const MEM_DINT = 6
Public Const MEM_SINGLE = 7
Public Const MEM_DOUBLE = 8
Public Const MEM_F_R = 5
Public Const MEM_F_D = 9
Public Const MEM_S_DB = 0
Public Const MEM_S_M = -1
Public Const MEM_S_R = -2
Public Const MEM_S_E = -3
Public Const MEM_S_A = -4
'Variabili globali
'Public nDebug As Integer
'Public szLanguage As String
'Public nTypeNC As Integer
'Fanuc
'Public bHssb As Boolean
Public Hssb_node As Long
'Public szIpFanuc As String
'Public nPortIpFanuc As Integer
''Public nReturn As Integer
'Public bSerie30 As Boolean
'Public bMultiProcess As Boolean
'Osai
'Public szNcName As String 'Nome del CN in rete
Public nTop As Integer
Public nLeft As Integer
Public nHeight As Integer
Public nWidth As Integer
''' <summary>
''' Sostituisce il carattere | con un carattere speciale di ritorno a capo
''' </summary>
Public Function ReplaceNewLine(ByVal strWord As String) As String
Dim strModifiedWord As String = strWord
strModifiedWord = strModifiedWord.Replace("|", vbNewLine)
Return strModifiedWord
End Function
End Module
-13
View File
@@ -1,13 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
-24
View File
@@ -1,24 +0,0 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("CncLib")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("SteamWare")>
<Assembly: AssemblyProduct("CncLib")>
<Assembly: AssemblyCopyright("Copyright ©2007-2017")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("80234dee-025a-4b87-bf22-572c83e0bae4")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
-63
View File
@@ -1,63 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder.
'tramite uno strumento quale ResGen o Visual Studio.
'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen
'con l'opzione /str oppure ricompilare il progetto VS.
'''<summary>
''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CncLib.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le
''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace
-117
View File
@@ -1,117 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
-73
View File
@@ -1,73 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funzionalità di salvataggio automatico My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.CncLib.My.MySettings
Get
Return Global.CncLib.My.MySettings.Default
End Get
End Property
End Module
End Namespace
@@ -1,7 +0,0 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="AxesRefR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.AxesRefR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="BootModeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.BootModeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="BootPhaseEnquiryR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.BootPhaseEnquiryR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="BootRebootR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.BootRebootR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="BootShutDownR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.BootShutDownR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="CheckHistoryR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.CheckHistoryR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="CycleR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.CycleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="DncDataR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.DncDataR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="DncEofR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.DncEofR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="DncInitR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.DncInitR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="DncStopR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.DncStopR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="EseExR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.EseExR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="EseR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.EseR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="ExeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.ExeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetActivePartProgramR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetActivePartProgramR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetAvailableCustomEventsR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetAvailableCustomEventsR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetAxOriginNumR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetAxOriginNumR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetAxesInfo3R" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetAxesInfo3R, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetAxesPositionR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetAxesPositionR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetBinaryFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetBinaryFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetBlkNumR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetBlkNumR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetCNCRegKeyR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetCNCRegKeyR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetCodeNumberR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetCodeNumberR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetDateTimeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetDateTimeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetGCodeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetGCodeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetHWKeyR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetHWKeyR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetMCodeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetMCodeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetMarkerInfoR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetMarkerInfoR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetNcInfo1R" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetNcInfo1R, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetNcInfo2R" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetNcInfo2R, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetOffsetTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetOptionsR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetOptionsR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetOriginTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetPTechSizesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetPTechSizesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetPartProgramLinesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetPartProgramLinesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetProcInInputR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetProcInInputR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetProcVarDoubleR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetProcVarDoubleR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetProcVarWordR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetProcVarWordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetProcessConfNumR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetProcessConfNumR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetProcessStatusR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetProcessStatusR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetSelectedProcessR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetSelectedProcessR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetSerialNumberR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetSerialNumberR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetServoParR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetServoParR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetSysTickR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetSysTickR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetToolNamesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetToolNamesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetToolTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetUserTabRecordIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetVarJOGR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetVarJOGR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetVarRCMR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.GetVarRCMR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="HoldR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.HoldR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LoadPTechR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LoadPTechR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LockTableIIR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LockTableIIR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSAddDriveR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSAddDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSChangeFileAttribR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSChangeFileAttribR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSCloseFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSCloseFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSCopyFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSCopyFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSCreateDirR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSCreateDirR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSCreateFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSCreateFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSFindCloseR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSFindCloseR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSFindFirstR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSFindFirstR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSFindNextR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSFindNextR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetDriveListR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetDriveListR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetDrivePathR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetDrivePathR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetFileAttribR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetFileAttribR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetFileSizeR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetFileSizeR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetHiddenDriveListR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetHiddenDriveListR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetInfoR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetInfoR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetNumDriveR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetNumDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSGetSecurityLevelR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSGetSecurityLevelR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSLongFileNamesR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSLongFileNamesR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSOpenFileR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSOpenFileR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSReadRecordR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSReadRecordR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSReloadDriveListR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSReloadDriveListR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSRemoveDirR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSRemoveDirR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="LogFSRemoveDriveR" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>CMSCncLib.OPENcontrol.LogFSRemoveDriveR, Service References.OPENcontrol.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

Some files were not shown because too many files have changed in this diff Show More