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
