OmagCUT/CN_generico.vb

Public MustInherit Class CN_generico

#Region " Constants"

    Public Const MAX_AXES As Short = 10
    Public Const MAX_VAR As Short = 100
    Public Const MAX_VALUES As Short = 9          ' Max. index to read the data from the FXServer array
    Public Const MAX_TOOLS As Short = 100

#End Region

#Region " Struct"

    Public Structure ToolStructure
        Public type As Char
        Public lenght As Double
        Public radius As Double
        Public tip As Double
        Public D_lenght As Double
        Public D_radius As Double
        Public nose_dir As String
        Public comp_num As Short
    End Structure

#End Region

#Region " Interface"


    Public IsFlexiumPlus As Boolean = False
    Public sz_CncFxIdentifier As String = ""

    Public d_LinearAxisPrecision As Double

    Public sz_ServerInitStatus As String
    Public sz_ServerReinitStatus As String
    Public sz_ManualDataInput As String

    Public sz_versionRTS As String
    Public sz_ConnectionAddress As String
    Public sz_AffaireNumber As String

    Public n_state As Short = 0
    Public n_validaxes As Short
    '

    Public b_axis_events_enable As Boolean = False
    Public d_axis_position(MAX_AXES) As Double
    Public d_axis_delta(MAX_AXES) As Double
    Public b_axis_valid(MAX_AXES) As Boolean

    Public d_DReadELS_value As Double
    Public n_DReadELS_handle As Short

    Public d_Dvariable_values(MAX_VAR) As Double
    Public b_Dvariable_changed As Boolean = False

    Public d_DInterpo_values(MAX_AXES) As Double
    Public d_DInterpo_Prog_Feed As Double
    Public d_DInterpo_Feed_override As Double

    Public n_activate_error_code As Short

    Public l_channel_override(MAX_VALUES) As Long
    Public b_feed_override_changed As Boolean = False

    Public d_spindle_prog(MAX_VALUES) As Double
    Public d_spindle_eff(MAX_VALUES) As Double
    Public n_spindle_override(MAX_VALUES) As Short
    Public b_spindle_data_changed As Boolean = False

   Public d_spindle_current As Double

    Public Tools(MAX_TOOLS) As ToolStructure
    Public b_Tool_data_changed As Boolean = False

    Public Event NewPositionData(ByVal sender As Object)
    Public Event NewPosDeltaData(ByVal sender As Object)
    Public Event NewVarChanged(ByVal sender As Object)


    Public sz_PLC_error_messages As String
    Public sz_NC_error_messages As List(Of String)
    Public b_PLC_error As Boolean
    Public b_NC_error As Boolean

    Protected Overridable Sub OnNewPositionData()
        RaiseEvent NewPositionData(0)
    End Sub
    Protected Overridable Sub OnNewPosDeltaData()
        RaiseEvent NewPosDeltaData(0)
    End Sub
    Protected Overridable Sub OnNewVarChanged()
        RaiseEvent NewVarChanged(0)
    End Sub

#End Region

#Region " Metodi pubblici"

    Public MustOverride Sub ReadEls_Add_Parameter(sz_var As String, n_par As Short)

    Public MustOverride Sub DVariables_WriteVariables(sz_parameters As String, sz_values As String)

    Public MustOverride Sub DVariables_WriteVariables2(sz_parameters As String, sz_values As String)

    Public MustOverride Sub MDI_command()

    Public MustOverride Function ActivateProgram(n_part_program As Integer) As Int16

    Public MustOverride Sub set_OP_OM(n As Short)

    Public MustOverride Function DPOsition_ReadOnce() As Short

    Public MustOverride Function DGeneralFunctions_CycleStart() As Int16

    Public MustOverride Function DGeneralFunctions_FeedHold() As Int16

    Public MustOverride Function DGeneralFunctions_Reset() As Int16

    Public MustOverride Function DGeneralFunctions_WriteCncMode(nmode As Short) As Int16

    Public MustOverride Function Write_var_1(sz_par As String, lvalue As Long) As Int16

    Public MustOverride Function Download_NC_prog(sz_PC_filename As String, sz_NC_filename As String) As Int16

    Public MustOverride Function Upload_NC_prog(sz_PC_filename As String, sz_NC_filename As String) As Int16

    Public MustOverride Function Delete_NC_prog(sz_NC_filename As String) As Int16

    Public MustOverride Function Start_Transfer_NC_prog() As Int16

    Public MustOverride Function DTool_set_read_range(n_start As Short, n_stop As Short) As Short

    Public MustOverride Function DTool_write_tool(n_tool_number As Short, Length_X As Double, Radius As Double, TipRadius_Z As Double, _
                                     DLength_X As Double, DTipRadius_Z As Double, _
                                     nDirection As Short, nType As Short, nH As Integer) As Short
    Public Overridable Function get_free_memory(n_zone As Int16) As Long
    End Function

    Public Overridable Function read_active_mode() As Int16
    End Function

    Public Overridable Function get_program_status() As Int16
    End Function

    Public Overridable Function get_plc_messages() As Int16
    End Function




#End Region

End Class