Dario Sassi
103 lines
2.8 KiB
VB.net
103 lines
2.8 KiB
VB.net
Public Class CN_Debug
|
|
Inherits CN_generico
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
Public Overrides Function Init() As Boolean
|
|
' Assegno valori ad assi per test
|
|
d_axis_position(0) = -3740 + 2000
|
|
d_axis_position(1) = -2424 + 363.5 + 800
|
|
d_axis_position(2) = -1379.5 + 45 + 50 + 50
|
|
d_axis_position(8) = 90.0
|
|
d_axis_position(7) = 90.0
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Public Overrides Function ActivateProgram(n_part_program As Integer) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function Delete_NC_prog(sz_NC_filename As String) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function DGeneralFunctions_CycleStart() As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function DGeneralFunctions_FeedHold() As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function DGeneralFunctions_Reset() As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function DGeneralFunctions_WriteCncMode(nmode As Short) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function Download_NC_prog(sz_PC_filename As String, sz_NC_filename As String) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function DPOsition_ReadOnce() As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function DTool_set_read_range(n_start As Short, n_stop As Short) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides 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
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Sub DVariables_WriteVariables(sz_parameters As String, sz_values As String)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub DVariables_WriteVariables2(sz_parameters As String, sz_values As String)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Function MDI_command() As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Sub ReadEls_Add_Parameter(sz_var As String, n_par As Short)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub set_OP_OM(n As Short)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Function Upload_NC_prog(sz_PC_filename As String, sz_NC_filename As String) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function Write_var_1(sz_par As String, lvalue As Long) As Short
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function get_free_memory(n_zone As Int16) As Long
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function read_active_mode() As Int16
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function get_program_status() As Int16
|
|
Return 0
|
|
End Function
|
|
|
|
Public Overrides Function get_plc_messages() As Int16
|
|
Return 0
|
|
End Function
|
|
|
|
End Class
|