Samuele E. Locatelli
84 lines
2.1 KiB
VB.net
84 lines
2.1 KiB
VB.net
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
|