diff --git a/MTC_Adapter/CMSCncLib/CNC/CNC.FANUC/_/fwlib32.vb b/MTC_Adapter/CMSCncLib/CNC/CNC.FANUC/_/fwlib32.vb index ef713c2..94e6d90 100644 --- a/MTC_Adapter/CMSCncLib/CNC/CNC.FANUC/_/fwlib32.vb +++ b/MTC_Adapter/CMSCncLib/CNC/CNC.FANUC/_/fwlib32.vb @@ -15,15 +15,15 @@ Public Class Focas1 #If FS30D Then Public Const MAX_AXIS = 32 #Else -#If M_AXIS2 Then + #If M_AXIS2 Then Public Const MAX_AXIS = 24 -#Else -#If FS15D Then + #Else + #If FS15D Then Public Const MAX_AXIS = 10 -#Else - Public Const MAX_AXIS = 8 -#End If -#End If + #Else + Public Const MAX_AXIS = 8 + #End If + #End If #End If Public Const ALL_AXES = (-1) @@ -274,7 +274,7 @@ Public Class Focas1 Public dist As POSELM End Structure #If FS30D Then - _ + Public Structure ODBPOS Public p1 As POSELMALL Public p2 As POSELMALL @@ -312,7 +312,7 @@ Public Class Focas1 ' if you need the more information, you must be add the member. End Structure #Else -#If M_AXIS2 Then + #If M_AXIS2 Then _ Public Structure ODBPOS Public p1 As POSELMALL @@ -342,8 +342,8 @@ Public Class Focas1 ' In case of 24 axes. ' if you need the more information, you must be add the member. End Structure -#Else -#If FS15D Then + #Else + #If FS15D Then _ Public Structure ODBPOS Public p1 As POSELMALL @@ -359,22 +359,22 @@ Public Class Focas1 ' In case of 10 axes. ' if you need the more information, you must be add the member. End Structure -#Else - - Public Structure ODBPOS - Public p1 As POSELMALL - Public p2 As POSELMALL - Public p3 As POSELMALL - Public p4 As POSELMALL - Public p5 As POSELMALL - Public p6 As POSELMALL - Public p7 As POSELMALL - Public p8 As POSELMALL - ' In case of 8 axes. - ' if you need the more information, you must be add the member. - End Structure -#End If -#End If + #Else + _ + Public Structure ODBPOS + Public p1 As POSELMALL + Public p2 As POSELMALL + Public p3 As POSELMALL + Public p4 As POSELMALL + Public p5 As POSELMALL + Public p6 As POSELMALL + Public p7 As POSELMALL + Public p8 As POSELMALL + ' In case of 8 axes. + ' if you need the more information, you must be add the member. + End Structure + #End If + #End If #End If ' cnc_rdhndintrpt:read handle interruption @@ -383,6 +383,45 @@ Public Class Focas1 Public input As POSELM ' input unit Public output As POSELM ' output unit End Structure +#If FS30D Then + + Public Structure ODBHND + Public p1 As ODBHND_data + Public p2 As ODBHND_data + Public p3 As ODBHND_data + Public p4 As ODBHND_data + Public p5 As ODBHND_data + Public p6 As ODBHND_data + Public p7 As ODBHND_data + Public p8 As ODBHND_data + Public p9 As ODBHND_data + Public p10 As ODBHND_data + Public p11 As ODBHND_data + Public p12 As ODBHND_data + Public p13 As ODBHND_data + Public p14 As ODBHND_data + Public p15 As ODBHND_data + Public p16 As ODBHND_data + Public p17 As ODBHND_data + Public p18 As ODBHND_data + Public p19 As ODBHND_data + Public p20 As ODBHND_data + Public p21 As ODBHND_data + Public p22 As ODBHND_data + Public p23 As ODBHND_data + Public p24 As ODBHND_data + Public p25 As ODBHND_data + Public p26 As ODBHND_data + Public p27 As ODBHND_data + Public p28 As ODBHND_data + Public p29 As ODBHND_data + Public p30 As ODBHND_data + Public p31 As ODBHND_data + Public p32 As ODBHND_data + ' In case of 32 axes. + ' if you need the more information, you must be add the member. + End Structure +#Else #If M_AXIS2 Then _ Public Structure ODBHND @@ -431,7 +470,7 @@ Public Class Focas1 ' if you need the more information, you must be add the member. End Structure #Else - + _ Public Structure ODBHND Public p1 As ODBHND_data Public p2 As ODBHND_data @@ -445,6 +484,7 @@ Public Class Focas1 ' if you need the more information, you must be add the member. End Structure #End If +#End If #End If ' cnc_rdspeed:read current speed @@ -476,7 +516,43 @@ Public Class Focas1 Public suff2 As Byte ' suffix Public reserve As Byte ' reserve End Structure - +#If FS30D Then + + Public Structure ODBSVLOAD + Public svload1 As LOADELM ' servo load meter + Public svload2 As LOADELM ' servo load meter + Public svload3 As LOADELM ' servo load meter + Public svload4 As LOADELM ' servo load meter + Public svload5 As LOADELM ' servo load meter + Public svload6 As LOADELM ' servo load meter + Public svload7 As LOADELM ' servo load meter + Public svload8 As LOADELM ' servo load meter + Public svload9 As LOADELM ' servo load meter + Public svload10 As LOADELM ' servo load meter + Public svload11 As LOADELM ' servo load meter + Public svload12 As LOADELM ' servo load meter + Public svload13 As LOADELM ' servo load meter + Public svload14 As LOADELM ' servo load meter + Public svload15 As LOADELM ' servo load meter + Public svload16 As LOADELM ' servo load meter + Public svload17 As LOADELM ' servo load meter + Public svload18 As LOADELM ' servo load meter + Public svload19 As LOADELM ' servo load meter + Public svload20 As LOADELM ' servo load meter + Public svload21 As LOADELM ' servo load meter + Public svload22 As LOADELM ' servo load meter + Public svload23 As LOADELM ' servo load meter + Public svload24 As LOADELM ' servo load meter + Public svload25 As LOADELM ' servo load meter + Public svload26 As LOADELM ' servo load meter + Public svload27 As LOADELM ' servo load meter + Public svload28 As LOADELM ' servo load meter + Public svload29 As LOADELM ' servo load meter + Public svload30 As LOADELM ' servo load meter + Public svload31 As LOADELM ' servo load meter + Public svload32 As LOADELM ' servo load meter + End Structure +#Else #If M_AXIS2 Then _ Public Structure ODBSVLOAD @@ -521,7 +597,7 @@ Public Class Focas1 Public svload10 As LOADELM ' servo load meter End Structure #Else - + _ Public Structure ODBSVLOAD Public svload1 As LOADELM ' servo load meter Public svload2 As LOADELM ' servo load meter @@ -531,32 +607,9 @@ Public Class Focas1 Public svload6 As LOADELM ' servo load meter Public svload7 As LOADELM ' servo load meter Public svload8 As LOADELM ' servo load meter - Public svload9 As LOADELM ' servo load meter - Public svload10 As LOADELM ' servo load meter - Public svload11 As LOADELM ' servo load meter - Public svload12 As LOADELM ' servo load meter - Public svload13 As LOADELM ' servo load meter - Public svload14 As LOADELM ' servo load meter - Public svload15 As LOADELM ' servo load meter - Public svload16 As LOADELM ' servo load meter - Public svload17 As LOADELM ' servo load meter - Public svload18 As LOADELM ' servo load meter - Public svload19 As LOADELM ' servo load meter - Public svload20 As LOADELM ' servo load meter - Public svload21 As LOADELM ' servo load meter - Public svload22 As LOADELM ' servo load meter - Public svload23 As LOADELM ' servo load meter - Public svload24 As LOADELM ' servo load meter - Public svload25 As LOADELM ' servo load meter - Public svload26 As LOADELM ' servo load meter - Public svload27 As LOADELM ' servo load meter - Public svload28 As LOADELM ' servo load meter - Public svload29 As LOADELM ' servo load meter - Public svload30 As LOADELM ' servo load meter - Public svload31 As LOADELM ' servo load meter - Public svload32 As LOADELM ' servo load meter End Structure #End If +#End If #End If @@ -1124,6 +1177,43 @@ Public Class Focas1 Public prm_val As Integer ' data of real parameter Public dec_val As Integer ' decimal point of real parameter End Structure +#If FS30D Then + + Public Structure REALPRMS + Public rdata1 As REALPRM + Public rdata2 As REALPRM + Public rdata3 As REALPRM + Public rdata4 As REALPRM + Public rdata5 As REALPRM + Public rdata6 As REALPRM + Public rdata7 As REALPRM + Public rdata8 As REALPRM + Public rdata9 As REALPRM + Public rdata10 As REALPRM + Public rdata11 As REALPRM + Public rdata12 As REALPRM + Public rdata13 As REALPRM + Public rdata14 As REALPRM + Public rdata15 As REALPRM + Public rdata16 As REALPRM + Public rdata17 As REALPRM + Public rdata18 As REALPRM + Public rdata19 As REALPRM + Public rdata20 As REALPRM + Public rdata21 As REALPRM + Public rdata22 As REALPRM + Public rdata23 As REALPRM + Public rdata24 As REALPRM + Public rdata25 As REALPRM + Public rdata26 As REALPRM + Public rdata27 As REALPRM + Public rdata28 As REALPRM + Public rdata29 As REALPRM + Public rdata30 As REALPRM + Public rdata31 As REALPRM + Public rdata32 As REALPRM + End Structure ' In case that the number of alarm is 32 +#Else #If M_AXIS2 Then _ Public Structure REALPRMS @@ -1168,7 +1258,7 @@ Public Class Focas1 Public rdata10 As REALPRM End Structure ' In case that the number of alarm is 10 #Else - + _ Public Structure REALPRMS Public rdata1 As REALPRM Public rdata2 As REALPRM @@ -1180,6 +1270,7 @@ Public Class Focas1 Public rdata8 As REALPRM End Structure ' In case that the number of alarm is 8 #End If +#End If #End If @@ -3325,6 +3416,43 @@ Public Class Focas1 Public data26 As MODAL_AUX_data Public data27 As MODAL_AUX_data End Structure +#If FS30D Then + + Public Structure MODAL_RAUX2_data + Public data1 As MODAL_AUX_data + Public data2 As MODAL_AUX_data + Public data3 As MODAL_AUX_data + Public data4 As MODAL_AUX_data + Public data5 As MODAL_AUX_data + Public data6 As MODAL_AUX_data + Public data7 As MODAL_AUX_data + Public data8 As MODAL_AUX_data + Public data9 As MODAL_AUX_data + Public data10 As MODAL_AUX_data + Public data11 As MODAL_AUX_data + Public data12 As MODAL_AUX_data + Public data13 As MODAL_AUX_data + Public data14 As MODAL_AUX_data + Public data15 As MODAL_AUX_data + Public data16 As MODAL_AUX_data + Public data17 As MODAL_AUX_data + Public data18 As MODAL_AUX_data + Public data19 As MODAL_AUX_data + Public data20 As MODAL_AUX_data + Public data21 As MODAL_AUX_data + Public data22 As MODAL_AUX_data + Public data23 As MODAL_AUX_data + Public data24 As MODAL_AUX_data + Public data25 As MODAL_AUX_data + Public data26 As MODAL_AUX_data + Public data27 As MODAL_AUX_data + Public data28 As MODAL_AUX_data + Public data29 As MODAL_AUX_data + Public data30 As MODAL_AUX_data + Public data31 As MODAL_AUX_data + Public data32 As MODAL_AUX_data + End Structure +#Else #If M_AXIS2 Then _ Public Structure MODAL_RAUX2_data @@ -3369,7 +3497,7 @@ Public Class Focas1 Public data10 As MODAL_AUX_data End Structure #Else - + _ Public Structure MODAL_RAUX2_data Public data1 As MODAL_AUX_data Public data2 As MODAL_AUX_data @@ -3381,6 +3509,7 @@ Public Class Focas1 Public data8 As MODAL_AUX_data End Structure #End If +#End If #End If @@ -3514,7 +3643,43 @@ Public Class Focas1 Public dgn_val As Integer ' data of real diagnoss Public dec_val As Integer ' decimal point of real diagnoss End Structure - +#If FS30D Then + + Public Structure REALDGNS + Public rdata1 As REALDGN + Public rdata2 As REALDGN + Public rdata3 As REALDGN + Public rdata4 As REALDGN + Public rdata5 As REALDGN + Public rdata6 As REALDGN + Public rdata7 As REALDGN + Public rdata8 As REALDGN + Public rdata9 As REALDGN + Public rdata10 As REALDGN + Public rdata11 As REALDGN + Public rdata12 As REALDGN + Public rdata13 As REALDGN + Public rdata14 As REALDGN + Public rdata15 As REALDGN + Public rdata16 As REALDGN + Public rdata17 As REALDGN + Public rdata18 As REALDGN + Public rdata19 As REALDGN + Public rdata20 As REALDGN + Public rdata21 As REALDGN + Public rdata22 As REALDGN + Public rdata23 As REALDGN + Public rdata24 As REALDGN + Public rdata25 As REALDGN + Public rdata26 As REALDGN + Public rdata27 As REALDGN + Public rdata28 As REALDGN + Public rdata29 As REALDGN + Public rdata30 As REALDGN + Public rdata31 As REALDGN + Public rdata32 As REALDGN + End Structure ' In case that the number of alarm is 24 +#Else #If M_AXIS2 Then _ Public Structure REALDGNS @@ -3559,7 +3724,7 @@ Public Class Focas1 Public rdata10 As REALDGN End Structure ' In case that the number of alarm is 10 #Else - + _ Public Structure REALDGNS Public rdata1 As REALDGN Public rdata2 As REALDGN @@ -3571,6 +3736,7 @@ Public Class Focas1 Public rdata8 As REALDGN End Structure ' In case that the number of alarm is 8 #End If +#End If #End If @@ -6236,6 +6402,43 @@ Public Class Focas1 Public name As Byte ' axis name Public suff As Byte ' suffix End Structure +#If FS30D Then + + Public Structure ODBAXISNAME + Public data1 As ODBAXISNAME_data + Public data2 As ODBAXISNAME_data + Public data3 As ODBAXISNAME_data + Public data4 As ODBAXISNAME_data + Public data5 As ODBAXISNAME_data + Public data6 As ODBAXISNAME_data + Public data7 As ODBAXISNAME_data + Public data8 As ODBAXISNAME_data + Public data9 As ODBAXISNAME_data + Public data10 As ODBAXISNAME_data + Public data11 As ODBAXISNAME_data + Public data12 As ODBAXISNAME_data + Public data13 As ODBAXISNAME_data + Public data14 As ODBAXISNAME_data + Public data15 As ODBAXISNAME_data + Public data16 As ODBAXISNAME_data + Public data17 As ODBAXISNAME_data + Public data18 As ODBAXISNAME_data + Public data19 As ODBAXISNAME_data + Public data20 As ODBAXISNAME_data + Public data21 As ODBAXISNAME_data + Public data22 As ODBAXISNAME_data + Public data23 As ODBAXISNAME_data + Public data24 As ODBAXISNAME_data + Public data25 As ODBAXISNAME_data + Public data26 As ODBAXISNAME_data + Public data27 As ODBAXISNAME_data + Public data28 As ODBAXISNAME_data + Public data29 As ODBAXISNAME_data + Public data30 As ODBAXISNAME_data + Public data31 As ODBAXISNAME_data + Public data32 As ODBAXISNAME_data + End Structure +#Else #If M_AXIS2 Then _ Public Structure ODBAXISNAME @@ -6280,7 +6483,7 @@ Public Class Focas1 Public data10 As ODBAXISNAME_data End Structure #Else - + _ Public Structure ODBAXISNAME Public data1 As ODBAXISNAME_data Public data2 As ODBAXISNAME_data @@ -6292,6 +6495,7 @@ Public Class Focas1 Public data8 As ODBAXISNAME_data End Structure #End If +#End If #End If ' cnc_rdspdlname: read spindle name @@ -7901,10 +8105,10 @@ Public Class Focas1 Declare Function cnc_wrmdiprog Lib "FWLIB32.DLL" _ (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short -' read execution pointer for MDI operation + ' read execution pointer for MDI operation #If ONO8D = Nothing Then Declare Function cnc_rdmdipntr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBMDIP ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBMDIP) As Short #Else Declare Function cnc_rdmdipntr Lib "FWLIB32.DLL" Alias "cnc_rdmdipntro8" _ ( ByVal FlibHndl As Integer, ByRef a As ODBMDIP ) As Short @@ -7912,48 +8116,48 @@ Public Class Focas1 ' write execution pointer for MDI operation Declare Function cnc_wrmdipntr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer) As Short ' register new program Declare Function cnc_newprog Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer) As Short ' copy program Declare Function cnc_copyprog Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer) As Short ' rename program Declare Function cnc_renameprog Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer) As Short ' condense program Declare Function cnc_condense Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short ' merge program Declare Function cnc_mergeprog Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer) As Short ' read current program and its pointer Declare Function cnc_rdactpt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer) As Short ' read current program and its pointer and UV macro pointer Declare Function cnc_rduvactpt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer, ByRef c As Integer) As Short ' set current program and its pointer Declare Function cnc_wractpt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short, ByRef c As Integer) As Short ' line edit (read program) Declare Function cnc_rdprogline Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, <[In], Out> ByVal c() As Char, ByRef d As Integer, ByRef e As Integer) As Short ' line edit (read program) Declare Function cnc_rdprogline2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, <[In], Out> ByVal c() As Char, ByRef d As Integer, ByRef e As Integer) As Short ' line edit (write program) @@ -7966,7 +8170,7 @@ Public Class Focas1 ' line edit (search string) Declare Function cnc_searchword Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short, ByVal e As Integer, ByVal f As String) As Short ' line edit (search string) @@ -7975,111 +8179,111 @@ Public Class Focas1 ' line edit (read program by file name) Declare Function cnc_rdpdf_line Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As String , ByVal b As Integer , <[In], Out> ByVal c() As Char , ByRef d As Integer , ByRef e As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, <[In], Out> ByVal c() As Char, ByRef d As Integer, ByRef e As Integer) As Short ' program lock Declare Function cnc_setpglock Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer) As Short ' program unlock Declare Function cnc_resetpglock Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer) As Short ' read the status of the program lock Declare Function cnc_rdpglockstat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Integer) As Short ' create file or directory Declare Function cnc_pdf_add Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' condense program file Declare Function cnc_pdf_cond Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' change attribute of program file and directory Declare Function cnc_wrpdf_attr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByRef b As IDBPDFTDIR ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByRef b As IDBPDFTDIR) As Short ' copy program file Declare Function cnc_pdf_copy Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short ' delete file or directory Declare Function cnc_pdf_del Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' line edit (write program by file name) Declare Function cnc_wrpdf_line Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As String, ByVal d As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As String, ByVal d As Integer) As Short ' line edit (delete line by file name) Declare Function cnc_pdf_delline Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As Integer , ByVal c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As Integer) As Short ' move program file Declare Function cnc_pdf_move Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short ' read current program and its pointer Declare Function cnc_pdf_rdactpt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char , ByRef b As Integer ) As Short + (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char, ByRef b As Integer) As Short ' read selected file name Declare Function cnc_pdf_rdmain Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char ) As Short + (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char) As Short ' rename file or directory Declare Function cnc_pdf_rename Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short ' line edit (search string) Declare Function cnc_pdf_searchword Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As Integer , ByVal c As Integer , ByVal d As Integer , ByVal e As Integer , ByVal f As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As String) As Short ' line edit (search string) Declare Function cnc_pdf_searchresult Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' select program file Declare Function cnc_pdf_slctmain Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' set current program and its pointer Declare Function cnc_pdf_wractpt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As Short , ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As Integer) As Short ' read program drive information Declare Function cnc_rdpdf_inf Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByVal b As Short , ByRef c As ODBPDFINF ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As ODBPDFINF) As Short ' read program drive directory Declare Function cnc_rdpdf_drive Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPDFDRV ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPDFDRV) As Short ' read current directory Declare Function cnc_rdpdf_curdir Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short , <[In], Out> ByVal b() As Char ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Char) As Short ' set current directory Declare Function cnc_wrpdf_curdir Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short , <[In], Out> ByVal b() As Char ) As Short - + (ByVal FlibHndl As Integer, ByVal a As Short, <[In], Out> ByVal b() As Char) As Short + ' read directory (sub directories) Declare Function cnc_rdpdf_subdir Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short , ByRef b As IDBPDFSDIR , ByRef b As ODBPDFSDIR ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IDBPDFSDIR, ByRef b As ODBPDFSDIR) As Short ' read directory (all files) Declare Function cnc_rdpdf_alldir Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short , ByRef b As IDBPDFADIR, ByRef c As ODBPDFADIR ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IDBPDFADIR, ByRef c As ODBPDFADIR) As Short ' read file count in directory Declare Function cnc_rdpdf_subdirn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String , ByRef b As ODBPDFNFIL ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByRef b As ODBPDFNFIL) As Short -'--------------------------- -' CNC: NC file data related -'--------------------------- + '--------------------------- + ' CNC: NC file data related + '--------------------------- ' read tool offset value Declare Function cnc_rdtofs Lib "FWLIB32.DLL" _ @@ -8087,60 +8291,60 @@ Public Class Focas1 ' write tool offset value Declare Function cnc_wrtofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Integer) As Short ' read tool offset value(area specified) Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_1_1) As Short Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_1_2) As Short Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_1_3) As Short Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_2) As Short Declare Function cnc_rdtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBTO_3) As Short ' write tool offset value(area specified) Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_1) As Short Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_2) As Short Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_1_3) As Short Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_2) As Short Declare Function cnc_wrtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTO_3) As Short ' read work zero offset value Declare Function cnc_rdzofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBZOFS ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBZOFS) As Short ' write work zero offset value Declare Function cnc_wrzofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS) As Short ' read work zero offset value(area specified) Declare Function cnc_rdzofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBZOR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBZOR) As Short ' write work zero offset value(area specified) Declare Function cnc_wrzofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOR) As Short ' read mesured point value Declare Function cnc_rdmsptype Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMSTP) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMSTP) As Short ' write mesured point value Declare Function cnc_wrmsptype Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef d As IODBMSTP) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef d As IODBMSTP) As Short ' read parameter Declare Function cnc_rdparam Lib "FWLIB32.DLL" _ @@ -8154,13 +8358,13 @@ Public Class Focas1 ' write parameter Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_1) As Short Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_2) As Short Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_3) As Short Declare Function cnc_wrparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_4) As Short ' read parameter Declare Function cnc_rdparam3 Lib "FWLIB32.DLL" _ @@ -8174,71 +8378,71 @@ Public Class Focas1 ' read parameter(area specified) Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_A ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_A) As Short Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_B ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_B) As Short Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_C ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_C) As Short Declare Function cnc_rdparar Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_D ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_D) As Short ' write parameter(area specified) Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_A ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_A) As Short Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_B ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_B) As Short Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_C ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_C) As Short Declare Function cnc_wrparas Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_D ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_D) As Short ' read setting data Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_1) As Short Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_2) As Short Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_3) As Short Declare Function cnc_rdset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPSD_4) As Short ' write setting data Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_1) As Short Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_2) As Short Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_3) As Short Declare Function cnc_wrset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_4) As Short ' read setting data(area specified) Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_A ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_A) As Short Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_B ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_B) As Short Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_C ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_C) As Short Declare Function cnc_rdsetr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_D ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As IODBPSD_D) As Short ' write setting data(area specified) Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_A ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_A) As Short Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_B ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_B) As Short Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_C ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_C) As Short Declare Function cnc_wrsets Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_D ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPSD_D) As Short ' read parameters Declare Function cnc_rdparam_ext Lib "FWLIB32.DLL" _ @@ -8246,15 +8450,15 @@ Public Class Focas1 ' async parameter write start Declare Function cnc_start_async_wrparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBPRM) As Short ' async parameter write end Declare Function cnc_end_async_wrparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read cause of busy for async parameter write Declare Function cnc_async_busy_state Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read diagnosis data Declare Function cnc_rddiag_ext Lib "FWLIB32.DLL" _ @@ -8262,48 +8466,48 @@ Public Class Focas1 ' read pitch error compensation data(area specified) Declare Function cnc_rdpitchr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPI ) As Short + (ByVal FlibHndl As Integer, + ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPI) As Short ' write pitch error compensation data(area specified) Declare Function cnc_wrpitchr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPI ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPI) As Short ' read custom macro variable Declare Function cnc_rdmacro Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBM) As Short ' write custom macro variable Declare Function cnc_wrmacro Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Short) As Short ' read custom macro variables(area specified) Declare Function cnc_rdmacror Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBMR) As Short ' write custom macro variables(area specified) Declare Function cnc_wrmacror Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBMR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBMR) As Short ' read custom macro variables(IEEE double version) Declare Function cnc_rdmacror2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByRef c() As Double ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByRef c() As Double) As Short ' write custom macro variables(IEEE double version) Declare Function cnc_wrmacror2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByVal c() As Double ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, <[In], Out> ByVal c() As Double) As Short ' read P code macro variable Declare Function cnc_rdpmacro Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBPM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBPM) As Short ' write P code macro variable Declare Function cnc_wrpmacro Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short) As Short ' read P code macro variables(area specified) Declare Function cnc_rdpmacror Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByRef d As IODBPR) As Short ' write P code macro variables(area specified) @@ -8312,298 +8516,298 @@ Public Class Focas1 ' read P code macro variables(IEEE double version) Declare Function cnc_rdpmacror2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByVal c As Short, <[In], Out> ByVal d() As Double ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByVal c As Short, <[In], Out> ByVal d() As Double) As Short ' write P code macro variables(IEEE double version) Declare Function cnc_wrpmacror2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByVal c As Short, <[In], Out> ByVal d() As Double ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByVal c As Short, <[In], Out> ByVal d() As Double) As Short ' read tool offset information Declare Function cnc_rdtofsinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBTLINF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBTLINF) As Short ' read tool offset information(2) Declare Function cnc_rdtofsinfo2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBTLINF2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBTLINF2) As Short ' read work zero offset information Declare Function cnc_rdzofsinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read pitch error compensation data information Declare Function cnc_rdpitchinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read custom macro variable information Declare Function cnc_rdmacroinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBMVINF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBMVINF) As Short ' read P code macro variable information Declare Function cnc_rdpmacroinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPMINF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPMINF) As Short ' read validity of tool offset Declare Function cnc_tofs_rnge Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByVal b As Integer , ByRef c As ODBDATRNG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As ODBDATRNG) As Short ' read validity of work zero offset Declare Function cnc_zofs_rnge Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByVal b As Integer , ByRef c As ODBDATRNG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As ODBDATRNG) As Short ' read validity of work zero offset Declare Function cnc_wksft_rnge Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByRef b As ODBDATRNG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBDATRNG) As Short ' read the information for function cnc_rdhsparam() Declare Function cnc_rdhsprminfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByRef b As HSPINFO_data ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO_data) As Short ' read parameters at the high speed Declare Function cnc_rdhsparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByRef b As HSPINFO , ByRef c As HSPDATA_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO, ByRef c As HSPDATA_1) As Short Declare Function cnc_rdhsparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByRef b As HSPINFO , ByRef c As HSPDATA_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO, ByRef c As HSPDATA_2) As Short Declare Function cnc_rdhsparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer , ByRef b As HSPINFO , ByRef c As HSPDATA_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As HSPINFO, ByRef c As HSPDATA_3) As Short -'---------------------------------------- -' CNC: Tool life management data related -'---------------------------------------- + '---------------------------------------- + ' CNC: Tool life management data related + '---------------------------------------- ' read tool life management data(tool group number) Declare Function cnc_rdgrpid Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE1) As Short ' read tool life management data(number of tool groups) Declare Function cnc_rdngrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBTLIFE2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBTLIFE2) As Short ' read tool life management data(number of tools) Declare Function cnc_rdntool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3) As Short ' read tool life management data(tool life) Declare Function cnc_rdlife Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3) As Short ' read tool life management data(tool lift counter) Declare Function cnc_rdcount Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBTLIFE3) As Short ' read tool life management data(tool length number-1) Declare Function cnc_rd1length Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(tool length number-2) Declare Function cnc_rd2length Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(cutter compensation no.-1) Declare Function cnc_rd1radius Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(cutter compensation no.-2) Declare Function cnc_rd2radius Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(tool information-1) Declare Function cnc_t1info Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(tool information-2) Declare Function cnc_t2info Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(tool number) Declare Function cnc_toolnum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTLIFE4) As Short ' read tool life management data(tool number, tool life, tool life counter)(area specified) Declare Function cnc_rdtoolrng Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTR) As Short ' read tool life management data(all data within group) Declare Function cnc_rdtoolgrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBTG) As Short ' write tool life management data(tool life counter) (area specified) Declare Function cnc_wrcountr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBWRC ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBWRC) As Short ' read tool life management data(used tool group number) Declare Function cnc_rdusegrpid Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBUSEGR ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBUSEGR) As Short ' read tool life management data(max. number of tool groups) Declare Function cnc_rdmaxgrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLFNO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLFNO) As Short ' read tool life management data(maximum number of tool within group) Declare Function cnc_rdmaxtool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLFNO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLFNO) As Short ' read tool life management data(used tool no. within group) Declare Function cnc_rdusetlno Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBTLUSE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBTLUSE) As Short ' read tool life management data(tool data1) Declare Function cnc_rd1tlifedata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBTD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBTD) As Short ' read tool life management data(tool data2) Declare Function cnc_rd2tlifedata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBTD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBTD) As Short ' write tool life management data(tool data1) Declare Function cnc_wr1tlifedata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTD ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTD) As Short ' write tool life management data(tool data2) Declare Function cnc_wr2tlifedata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTD ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTD) As Short ' read tool life management data(tool group information) Declare Function cnc_rdgrpinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI) As Short ' read tool life management data(tool group information 2) Declare Function cnc_rdgrpinfo2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI2) As Short ' read tool life management data(tool group information 3) Declare Function cnc_rdgrpinfo3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBTGI3) As Short ' read tool life management data(tool group information 4) Declare Function cnc_rdgrpinfo4 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As Short, ByRef e As IODBTGI4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As Short, ByRef e As IODBTGI4) As Short ' write tool life management data(tool group information) Declare Function cnc_wrgrpinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI) As Short ' write tool life management data(tool group information 2) Declare Function cnc_wrgrpinfo2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI2) As Short ' write tool life management data(tool group information 3) Declare Function cnc_wrgrpinfo3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTGI3) As Short ' delete tool life management data(tool group) Declare Function cnc_deltlifegrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' insert tool life management data(tool data) Declare Function cnc_instlifedt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IDBITD ) As Short + (ByVal FlibHndl As Integer, ByRef a As IDBITD) As Short ' delete tool life management data(tool data) Declare Function cnc_deltlifedt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short) As Short ' clear tool life management data(tool life counter, tool information)(area specified) Declare Function cnc_clrcntinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short) As Short ' read tool life management data(tool group number) 2 Declare Function cnc_rdgrpid2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBTLIFE5 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As ODBTLIFE5) As Short ' read tool life management data(tool data1) 2 Declare Function cnc_rd1tlifedat2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As IODBTD2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As IODBTD2) As Short ' write tool life management data(tool data1) 2 Declare Function cnc_wr1tlifedat2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTD2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTD2) As Short ' read tool life management data Declare Function cnc_rdtlinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBTLINFO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBTLINFO) As Short ' read tool life management data(used tool group number) Declare Function cnc_rdtlusegrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBUSEGRP ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBUSEGRP) As Short ' read tool life management data(tool group information 2) Declare Function cnc_rdtlgrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Short, ByRef c As IODBTLGRP ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Short, ByRef c As IODBTLGRP) As Short ' read tool life management data (tool data1) Declare Function cnc_rdtltool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As Short, ByRef d As IODBTLTOOL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByRef c As Short, ByRef d As IODBTLTOOL) As Short Declare Function cnc_rdexchgtgrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef b As Short, ByRef c As ODBEXGP ) As Short + (ByVal FlibHndl As Integer, ByRef b As Short, ByRef c As ODBEXGP) As Short -'----------------------------------- -' CNC: Tool management data related -'----------------------------------- + '----------------------------------- + ' CNC: Tool management data related + '----------------------------------- ' new registration of tool management data Declare Function cnc_regtool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG) As Short ' new registration of tool management data Declare Function cnc_regtool_f2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG_F2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG_F2) As Short ' deletion of tool management data Declare Function cnc_deltool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short) As Short ' lead of tool management data Declare Function cnc_rdtool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG) As Short ' lead of tool management data Declare Function cnc_rdtool_f2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG_F2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLMNG_F2) As Short ' write of tool management data Declare Function cnc_wrtool Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTLMNG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTLMNG) As Short ' write of individual data of tool management data Declare Function cnc_wrtool2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBTLM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBTLM) As Short ' write tool management data Declare Function cnc_wrtool_f2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTLMNG_F2_data ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTLMNG_F2_data) As Short ' new registration of magazine management data Declare Function cnc_regmagazine Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG) As Short ' deletion of magazine management data Declare Function cnc_delmagazine Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG2) As Short ' lead of magazine management data Declare Function cnc_rdmagazine Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As IODBTLMAG) As Short ' Individual write of magazine management data Declare Function cnc_wrmagazine Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short) As Short -'------------------------------------- -' CNC: Operation history data related -'------------------------------------- + '------------------------------------- + ' CNC: Operation history data related + '------------------------------------- ' stop logging operation history data Declare Function cnc_stopophis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' restart logging operation history data Declare Function cnc_startophis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read number of operation history data Declare Function cnc_rdophisno Lib "FWLIB32.DLL" _ @@ -8615,52 +8819,52 @@ Public Class Focas1 ' read operation history data Declare Function cnc_rdophistry2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, <[In], Out> ByVal d() As ODBOPHIS) As Short ' read operation history data F30i Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_1) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_2) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_3) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_4) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_5) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_6) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_7) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_8) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_9) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_10) As Short Declare Function cnc_rdophistry4 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As Integer, ByRef d As ODBOPHIS4_11) As Short ' read number of alarm history data @@ -8689,39 +8893,39 @@ Public Class Focas1 ' clear operation history data Declare Function cnc_clearophis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read signals related operation history Declare Function cnc_rdhissgnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIG ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIG) As Short ' read signals related operation history 2 Declare Function cnc_rdhissgnl2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIG2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIG2) As Short ' read signals related operation history 3 Declare Function cnc_rdhissgnl3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIG3 ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIG3) As Short ' write signals related operation history Declare Function cnc_wrhissgnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIG ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIG) As Short ' write signals related operation history 2 Declare Function cnc_wrhissgnl2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIG2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIG2) As Short ' write signals related operation history for F30i Declare Function cnc_wrhissgnl3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIG3 ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIG3) As Short ' read number of operater message history data Declare Function cnc_rdomhisno Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short -'------------- -' CNC: Others -'------------- + '------------- + ' CNC: Others + '------------- ' read CNC system information Declare Function cnc_sysinfo Lib "FWLIB32.DLL" _ @@ -8729,7 +8933,7 @@ Public Class Focas1 ' read CNC status information Declare Function cnc_statinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBST ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBST) As Short ' read alarm status Declare Function cnc_alarm Lib "FWLIB32.DLL" _ @@ -8737,7 +8941,7 @@ Public Class Focas1 ' read alarm status Declare Function cnc_alarm2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read alarm information Declare Function cnc_rdalminfo Lib "FWLIB32.DLL" _ @@ -8748,168 +8952,168 @@ Public Class Focas1 ' read alarm message Declare Function cnc_rdalmmsg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBALMMSG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBALMMSG) As Short ' read alarm message (2) Declare Function cnc_rdalmmsg2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBALMMSG2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBALMMSG2) As Short ' clear CNC alarm Declare Function cnc_clralm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read modal data Declare Function cnc_modal Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_1) As Short Declare Function cnc_modal Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_2) As Short Declare Function cnc_modal Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_3) As Short Declare Function cnc_modal Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_4) As Short Declare Function cnc_modal Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_5 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBMDL_5) As Short ' read G code Declare Function cnc_rdgcode Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As Short, ByRef d As ODBGCD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As Short, ByRef d As ODBGCD) As Short ' read command value Declare Function cnc_rdcommand Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As Short, ByRef d As ODBCMD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As Short, ByRef d As ODBCMD) As Short ' read diagnosis data Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_1 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_1) As Short Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_2) As Short Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_3) As Short Declare Function cnc_diagnoss Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBDGN_4) As Short ' read diagnosis data(area specified) Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_A ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_A) As Short Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_B ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_B) As Short Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_C ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_C) As Short Declare Function cnc_diagnosr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_D ) As Short + (ByVal FlibHndl As Integer, + ByRef a As Short, ByVal b As Short, ByRef c As Short, ByRef d As Short, ByRef e As ODBDGN_D) As Short ' read A/D conversion data Declare Function cnc_adcnv Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAD) As Short ' read operator's message Declare Function cnc_rdopmsg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As OPMSG ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As OPMSG) As Short ' read operator's message Declare Function cnc_rdopmsg2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As OPMSG2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As OPMSG2) As Short ' read operator's message Declare Function cnc_rdopmsg3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As OPMSG3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As OPMSG3) As Short ' set path number(for 4 axes lathes, multi-path) Declare Function cnc_setpath Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' get path number(for 4 axes lathes, multi-path) Declare Function cnc_getpath Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Short) As Short ' allocate library handle Declare Function cnc_allclibhndl Lib "FWLIB32.DLL" _ - ( ByRef FlibHndl As Integer ) As Short + (ByRef FlibHndl As Integer) As Short ' free library handle Declare Function cnc_freelibhndl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' get library option Declare Function cnc_getlibopt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Char, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Char, ByRef c As Integer) As Short ' set library option Declare Function cnc_setlibopt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Char, ByVal c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Char, ByVal c As Integer) As Short ' get custom macro type Declare Function cnc_getmactype Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' set custom macro type Declare Function cnc_setmactype Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' get P code macro type Declare Function cnc_getpmactype Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' set P code macro type Declare Function cnc_setpmactype Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' get screen status Declare Function cnc_getcrntscrn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' change screen mode Declare Function cnc_slctscrn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read CNC configuration information Declare Function cnc_sysconfig Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSYSC ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSYSC) As Short ' read program restart information Declare Function cnc_rdprstrinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPRS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPRS) As Short ' search sequence number for program restart Declare Function cnc_rstrseqsrch Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short) As Short ' search sequence number for program restart 2 Declare Function cnc_rstrseqsrch2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short, ByVal e As Integer ) As Short + (ByVal FlibHndl As Integer, + ByVal a As Integer, ByVal b As Integer, ByVal c As Short, ByVal d As Short, ByVal e As Integer) As Short ' read output signal image of software operator's panel Declare Function cnc_rdopnlsgnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSGNL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSGNL) As Short ' write output signal of software operator's panel Declare Function cnc_wropnlsgnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSGNL ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSGNL) As Short ' read general signal image of software operator's panel Declare Function cnc_rdopnlgnrl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBGNRL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBGNRL) As Short ' write general signal image of software operator's panel Declare Function cnc_wropnlgnrl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBGNRL ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBGNRL) As Short ' read general signal name of software operator's panel Declare Function cnc_rdopnlgsname Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBRDNA ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBRDNA) As Short ' write general signal name of software operator's panel Declare Function cnc_wropnlgsname Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBRDNA ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBRDNA) As Short ' get detail error Declare Function cnc_getdtailerr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBERR ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBERR) As Short ' read informations of CNC parameter Declare Function cnc_rdparainfo Lib "FWLIB32.DLL" _ @@ -8925,136 +9129,136 @@ Public Class Focas1 ' read maximum, minimum and total number of CNC parameter Declare Function cnc_rdparanum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPARANUM ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPARANUM) As Short ' read maximum, minimum and total number of CNC setting data Declare Function cnc_rdsetnum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSETNUM ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSETNUM) As Short ' read maximum, minimum and total number of CNC diagnose data Declare Function cnc_rddiagnum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBDIAGNUM ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBDIAGNUM) As Short ' get maximum valid figures and number of decimal places Declare Function cnc_getfigure Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, <[In], Out> ByVal c() As Short, <[In], Out> ByVal d() As Short) As Short ' read F-ROM information on CNC Declare Function cnc_rdfrominfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBFINFO ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBFINFO) As Short ' start of reading F-ROM data from CNC Declare Function cnc_fromsvstart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String, ByVal c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String, ByVal c As Integer) As Short ' read F-ROM data from CNC Declare Function cnc_fromsave Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short ' end of reading F-ROM data from CNC Declare Function cnc_fromsvend Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' start of writing F-ROM data to CNC Declare Function cnc_fromldstart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short ' write F-ROM data to CNC Declare Function cnc_fromload Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal b() As Byte, ByRef b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal b() As Byte, ByRef b As Integer) As Short ' end of writing F-ROM data to CNC Declare Function cnc_fromldend Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' delete F-ROM data on CNC Declare Function cnc_fromdelete Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String, ByVal c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String, ByVal c As Integer) As Short ' read S-RAM information on CNC Declare Function cnc_rdsraminfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSINFO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSINFO) As Short ' start of reading S-RAM data from CNC Declare Function cnc_srambkstart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Integer) As Short ' read S-RAM data from CNC Declare Function cnc_srambackup Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short ' end of reading S-RAM data from CNC Declare Function cnc_srambkend Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read F-ROM information on CNC Declare Function cnc_getfrominfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBFINFORM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBFINFORM) As Short ' start of reading F-ROM data from CNC Declare Function cnc_fromgetstart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short ' read F-ROM data from CNC Declare Function cnc_fromget Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short ' end of reading F-ROM data from CNC Declare Function cnc_fromgetend Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' start of writing F-ROM data to CNC Declare Function cnc_fromputstart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' write F-ROM data to CNC Declare Function cnc_fromput Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a() As Byte, ByRef b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a() As Byte, ByRef b As Integer) As Short ' end of writing F-ROM data to CNC Declare Function cnc_fromputend Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' delete F-ROM data on CNC Declare Function cnc_fromremove Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As String) As Short ' read S-RAM information on CNC Declare Function cnc_getsraminfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSINFO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSINFO) As Short ' start of reading S-RAM data from CNC Declare Function cnc_sramgetstart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' start of reading S-RAM data from CNC (2) Declare Function cnc_sramgetstart2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String ) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' read S-RAM data from CNC Declare Function cnc_sramget Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short ' read S-RAM data from CNC (2) Declare Function cnc_sramget2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short ' end of reading S-RAM data from CNC Declare Function cnc_sramgetend Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' end of reading S-RAM data from CNC (2) Declare Function cnc_sramgetend2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read number of S-RAM data kind on CNC Declare Function cnc_rdsramnum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read S-RAM data address information on CNC Declare Function cnc_rdsramaddr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As SRAMADDR ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As SRAMADDR) As Short ' get current NC data protection information Declare Function cnc_getlockstat Lib "FWLIB32.DLL" _ @@ -9074,11 +9278,11 @@ Public Class Focas1 ' get transfer status for FTP Declare Function cnc_dtsvftpstat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read file directory in Data Server Declare Function cnc_dtsvrdpgdir Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As ODBDSDIR ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByRef c As ODBDSDIR) As Short ' delete files in Data Server Declare Function cnc_dtsvdelete Lib "FWLIB32.DLL" _ @@ -9094,11 +9298,11 @@ Public Class Focas1 ' close upload/download between Data Server and CNC Declare Function cnc_dtsvcnclupdn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' get transfer status for up/down load Declare Function cnc_dtsvupdnstat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' get file name for DNC operation in Data Server Declare Function cnc_dtsvgetdncpg Lib "FWLIB32.DLL" _ @@ -9110,23 +9314,23 @@ Public Class Focas1 ' read setting data for Data Server Declare Function cnc_dtsvrdset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBDSSET ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBDSSET) As Short ' write setting data for Data Server Declare Function cnc_dtsvwrset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBDSSET ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBDSSET) As Short ' check hard disk in Data Server Declare Function cnc_dtsvchkdsk Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' format hard disk in Data Server Declare Function cnc_dtsvhdformat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' save interface area in Data Server Declare Function cnc_dtsvsavecram Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' get interface area in Data Server Declare Function cnc_dtsvrdcram Lib "FWLIB32.DLL" _ @@ -9134,15 +9338,15 @@ Public Class Focas1 ' read maintenance information for Data Server Declare Function cnc_dtsvmntinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBDSMNT ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBDSMNT) As Short ' get Data Server mode Declare Function cnc_dtsvgetmode Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' set Data Server mode Declare Function cnc_dtsvsetmode Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read error message for Data Server Declare Function cnc_dtsvrderrmsg Lib "FWLIB32.DLL" _ @@ -9158,39 +9362,39 @@ Public Class Focas1 ' read the loop gain for each axis Declare Function cnc_rdloopgain Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read the actual current for each axis Declare Function cnc_rdcurrent Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read the actual speed for each axis Declare Function cnc_rdsrvspeed Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read the operation mode Declare Function cnc_rdopmode Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read the position deviation S Declare Function cnc_rdposerrs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read the position deviation S1 and S2 Declare Function cnc_rdposerrs2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPSER ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPSER) As Short ' read the position deviation Z in the rigid tap mode Declare Function cnc_rdposerrz Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read the synchronous error in the synchronous control mode Declare Function cnc_rdsynerrsy Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read the synchronous error in the rigid tap mode Declare Function cnc_rdsynerrrg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read the spindle alarm Declare Function cnc_rdspdlalm Lib "FWLIB32.DLL" _ @@ -9198,128 +9402,128 @@ Public Class Focas1 ' read the control input signal Declare Function cnc_rdctrldi Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSPDI ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSPDI) As Short ' read the control output signal Declare Function cnc_rdctrldo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSPDO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSPDO) As Short ' read the number of controled spindle Declare Function cnc_rdnspdl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read data from FANUC BUS Declare Function cnc_rdfbusmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, <[In], Out> ByVal e() As Byte) As Short ' write data to FANUC BUS Declare Function cnc_wrfbusmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e() As Byte) As Short ' read the parameter of wave diagnosis Declare Function cnc_rdwaveprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBWAVE ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBWAVE) As Short ' write the parameter of wave diagnosis Declare Function cnc_wrwaveprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBWAVE ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBWAVE) As Short ' read the parameter of wave diagnosis 2 Declare Function cnc_rdwaveprm2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBWVPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBWVPRM) As Short ' write the parameter of wave diagnosis 2 Declare Function cnc_wrwaveprm2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBWVPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBWVPRM) As Short ' start the sampling for wave diagnosis Declare Function cnc_wavestart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' stop the sampling for wave diagnosis Declare Function cnc_wavestop Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read the status of wave diagnosis Declare Function cnc_wavestat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read the data of wave diagnosis Declare Function cnc_rdwavedata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByRef d As Integer, ByRef e As ODBWVDT ) As Short + (ByVal FlibHndl As Integer, + ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByRef d As Integer, ByRef e As ODBWVDT) As Short ' read the parameter of wave diagnosis for remort diagnosis Declare Function cnc_rdrmtwaveprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBRMTPRM, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBRMTPRM, ByVal b As Short) As Short ' write the parameter of wave diagnosis for remort diagnosis Declare Function cnc_wrrmtwaveprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBRMTPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBRMTPRM) As Short ' start the sampling for wave diagnosis for remort diagnosis Declare Function cnc_rmtwavestart Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' stop the sampling for wave diagnosis for remort diagnosis Declare Function cnc_rmtwavestop Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read the status of wave diagnosis for remort diagnosis Declare Function cnc_rmtwavestat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read the data of wave diagnosis for remort diagnosis Declare Function cnc_rdrmtwavedt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Integer, ByRef d As ODBRMTDT ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Integer, ByRef d As ODBRMTDT) As Short ' read of address for PMC signal batch save Declare Function cnc_rdsavsigadr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIGAD, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIGAD, ByVal b As Short) As Short ' write of address for PMC signal batch save Declare Function cnc_wrsavsigadr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSIGAD, ByRef b As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSIGAD, ByRef b As Short) As Short ' read of data for PMC signal batch save Declare Function cnc_rdsavsigdata Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, <[In], Out> ByVal c() As Byte, ByRef d As Short) As Short ' read M-code group data Declare Function cnc_rdmgrpdata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBMGRP ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBMGRP) As Short ' write M-code group data Declare Function cnc_wrmgrpdata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IDBMGRP ) As Short + (ByVal FlibHndl As Integer, ByRef a As IDBMGRP) As Short ' read executing M-code group data Declare Function cnc_rdexecmcode Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBEXEM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBEXEM) As Short ' read program restart M-code group data Declare Function cnc_rdrstrmcode Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBRSTRM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBRSTRM) As Short ' read processing time stamp data Declare Function cnc_rdproctime Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPTIME ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPTIME) As Short ' read MDI program stat Declare Function cnc_rdmdiprgstat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read program directory for processing time data Declare Function cnc_rdprgdirtime Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Short, ByRef c As PRGDIRTM ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer, ByRef b As Short, ByRef c As PRGDIRTM) As Short ' read program directory 2 #If ONO8D = Nothing Then Declare Function cnc_rdprogdir2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As PRGDIR2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As PRGDIR2) As Short #Else Declare Function cnc_rdprogdir2 Lib "FWLIB32.DLL" Alias "cnc_rdprogdir2o8" _ ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As PRGDIR2 ) As Short @@ -9327,11 +9531,11 @@ Public Class Focas1 ' read program directory 3 Declare Function cnc_rdprogdir3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer, ByRef c As Short, ByRef d As PRGDIR3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer, ByRef c As Short, ByRef d As PRGDIR3) As Short ' read program directory 4 Declare Function cnc_rdprogdir4 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Short, ByRef d As PRGDIR4 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As Short, ByRef d As PRGDIR4) As Short ' read DNC file name for DNC1, DNC2, OSI-Ethernet Declare Function cnc_rddncfname Lib "FWLIB32.DLL" _ @@ -9343,11 +9547,11 @@ Public Class Focas1 ' read communication parameter for DNC1, DNC2, OSI-Ethernet Declare Function cnc_rdcomparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBCPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBCPRM) As Short ' write communication parameter for DNC1, DNC2, OSI-Ethernet Declare Function cnc_wrcomparam Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBCPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBCPRM) As Short ' read log message for DNC2 Declare Function cnc_rdcomlogmsg Lib "FWLIB32.DLL" _ @@ -9371,7 +9575,7 @@ Public Class Focas1 ' clear message buffer for OSI-Ethernet Declare Function cnc_clrmsgbuff Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read message recieve status for OSI-Ethernet Declare Function cnc_rdrcvstat Lib "FWLIB32.DLL" _ @@ -9379,43 +9583,43 @@ Public Class Focas1 ' read interference check Declare Function cnc_rdintchk Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBINT ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBINT) As Short ' write interference check Declare Function cnc_wrintchk Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBINT ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBINT) As Short ' read interference check information Declare Function cnc_rdintinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read work coordinate shift Declare Function cnc_rdwkcdshft Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBWCSF ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBWCSF) As Short ' write work coordinate shift Declare Function cnc_wrwkcdshft Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBWCSF ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBWCSF) As Short ' read work coordinate shift measure Declare Function cnc_rdwkcdsfms Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBWCSF ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBWCSF) As Short ' write work coordinate shift measure Declare Function cnc_wrwkcdsfms Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBWCSF ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBWCSF) As Short ' stop the sampling for operator message history Declare Function cnc_stopomhis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' start the sampling for operator message history Declare Function cnc_startomhis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read operator message history information Declare Function cnc_rdomhisinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBOMIF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBOMIF) As Short ' read operator message history Declare Function cnc_rdomhistry Lib "FWLIB32.DLL" _ @@ -9423,43 +9627,43 @@ Public Class Focas1 ' read operater message history data F30i Declare Function cnc_rdomhistry2 Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBOMHIS2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As ODBOMHIS2) As Short ' write external key operation history for F30i Declare Function cnc_wrkeyhistry Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Byte ) As Short + (ByVal FlibHndl As Integer, ByVal a As Byte) As Short ' clear operator message history Declare Function cnc_clearomhis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read b-axis tool offset value(area specified) Declare Function cnc_rdbtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBBTO ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBBTO) As Short ' write b-axis tool offset value(area specified) Declare Function cnc_wrbtofsr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBBTO ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBBTO) As Short ' read b-axis tool offset information Declare Function cnc_rdbtofsinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBBTLINF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBBTLINF) As Short ' read b-axis command Declare Function cnc_rdbaxis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBBAXIS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBBAXIS) As Short ' read CNC system soft series and version Declare Function cnc_rdsyssoft Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSYSS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSYSS) As Short ' read CNC system soft series and version (2) Declare Function cnc_rdsyssoft2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSYSS2 ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSYSS2) As Short ' read CNC module configuration information Declare Function cnc_rdmdlconfig Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBMDLC ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBMDLC) As Short ' read CNC module configuration information 2 Declare Function cnc_rdmdlconfig2 Lib "FWLIB32.DLL" _ @@ -9467,219 +9671,219 @@ Public Class Focas1 ' read processing condition file (processing data) Declare Function cnc_rdpscdproc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPSCD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPSCD) As Short ' write processing condition file (processing data) Declare Function cnc_wrpscdproc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPSCD ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPSCD) As Short ' read processing condition file (piercing data) Declare Function cnc_rdpscdpirc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPIRC ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPIRC) As Short ' write processing condition file (piercing data) Declare Function cnc_wrpscdpirc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPIRC ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPIRC) As Short ' read processing condition file (edging data) Declare Function cnc_rdpscdedge Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBEDGE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBEDGE) As Short ' write processing condition file (edging data) Declare Function cnc_wrpscdedge Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBEDGE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBEDGE) As Short ' read processing condition file (slope data) Declare Function cnc_rdpscdslop Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSLOP ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSLOP) As Short ' write processing condition file (slope data) Declare Function cnc_wrpscdslop Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSLOP ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSLOP) As Short ' read power controll duty data Declare Function cnc_rdlpwrdty Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLPWDT ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLPWDT) As Short ' write power controll duty data Declare Function cnc_wrlpwrdty Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLPWDT ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLPWDT) As Short ' read laser power data Declare Function cnc_rdlpwrdat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLOPDT ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLOPDT) As Short ' read power complement Declare Function cnc_rdlpwrcpst Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write power complement Declare Function cnc_wrlpwrcpst Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read laser assist gas selection Declare Function cnc_rdlagslt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLAGSL ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLAGSL) As Short ' write laser assist gas selection Declare Function cnc_wrlagslt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLAGSL ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLAGSL) As Short ' read laser assist gas flow Declare Function cnc_rdlagst Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLAGST ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLAGST) As Short ' write laser assist gas flow Declare Function cnc_wrlagst Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLAGST ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLAGST) As Short ' read laser power for edge processing Declare Function cnc_rdledgprc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLEGPR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLEGPR) As Short ' write laser power for edge processing Declare Function cnc_wrledgprc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLEGPR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLEGPR) As Short ' read laser power for piercing Declare Function cnc_rdlprcprc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLPCPR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLPCPR) As Short ' write laser power for piercing Declare Function cnc_wrlprcprc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBLPCPR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBLPCPR) As Short ' read laser command data Declare Function cnc_rdlcmddat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLCMDT ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLCMDT) As Short ' read displacement Declare Function cnc_rdldsplc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write displacement Declare Function cnc_wrldsplc Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read error for axis z Declare Function cnc_rdlerrz Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read active number Declare Function cnc_rdlactnum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLACTN ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLACTN) As Short ' read laser comment Declare Function cnc_rdlcmmt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLCMMT ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLCMMT) As Short ' read laser power select Declare Function cnc_rdlpwrslt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write laser power select Declare Function cnc_wrlpwrslt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read laser power controll Declare Function cnc_rdlpwrctrl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write laser power controll Declare Function cnc_wrlpwrctrl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read power correction factor history data Declare Function cnc_rdpwofsthis Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As ODBPWOFST ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As ODBPWOFST) As Short ' read management time Declare Function cnc_rdmngtime Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As IODBMNGTIME ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As IODBMNGTIME) As Short ' write management time Declare Function cnc_wrmngtime Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBMNGTIME ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As IODBMNGTIME) As Short ' read data related to electrical discharge at power correction ends Declare Function cnc_rddischarge Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBDISCHRG ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBDISCHRG) As Short ' read alarm history data related to electrical discharg Declare Function cnc_rddischrgalm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As ODBDISCHRGALM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByRef b As Integer, ByRef c As ODBDISCHRGALM) As Short ' get date and time from cnc Declare Function cnc_gettimer Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTIMER ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTIMER) As Short ' set date and time for cnc Declare Function cnc_settimer Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTIMER ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTIMER) As Short ' read timer data from cnc Declare Function cnc_rdtimer Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTIME ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTIME) As Short ' write timer data for cnc Declare Function cnc_wrtimer Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTIME ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBTIME) As Short ' read tool controll data Declare Function cnc_rdtlctldata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTLCTL ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTLCTL) As Short ' write tool controll data Declare Function cnc_wrtlctldata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBTLCTL ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBTLCTL) As Short ' read tool data Declare Function cnc_rdtooldata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLDT ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLDT) As Short ' read tool data Declare Function cnc_wrtooldata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLDT ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLDT) As Short ' read multi tool data Declare Function cnc_rdmultitldt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMLTTL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMLTTL) As Short ' write multi tool data Declare Function cnc_wrmultitldt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMLTTL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMLTTL) As Short ' read multi tap data Declare Function cnc_rdmtapdata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMTAP ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMTAP) As Short ' write multi tap data Declare Function cnc_wrmtapdata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMTAP ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBMTAP) As Short ' read multi-piece machining number Declare Function cnc_rdmultipieceno Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read tool information Declare Function cnc_rdtoolinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPTLINF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPTLINF) As Short ' read safetyzone data Declare Function cnc_rdsafetyzone Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSAFE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSAFE) As Short ' write safetyzone data Declare Function cnc_wrsafetyzone Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSAFE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBSAFE) As Short ' read toolzone data Declare Function cnc_rdtoolzone Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLZN ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLZN) As Short ' write toolzone data Declare Function cnc_wrtoolzone Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLZN ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBTLZN) As Short ' read active toolzone data Declare Function cnc_rdacttlzone Lib "FWLIB32.DLL" _ @@ -9687,175 +9891,175 @@ Public Class Focas1 ' read setzone number Declare Function cnc_rdsetzone Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write setzone number Declare Function cnc_wrsetzone Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read block restart information Declare Function cnc_rdbrstrinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBBRS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBBRS) As Short ' read menu switch signal Declare Function cnc_rdmenuswitch Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write menu switch signal Declare Function cnc_wrmenuswitch Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short) As Short ' read tool radius offset for position data Declare Function cnc_rdradofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBROFS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBROFS) As Short ' read tool length offset for position data Declare Function cnc_rdlenofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBLOFS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBLOFS) As Short ' read fixed cycle for position data Declare Function cnc_rdfixcycle Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBFIX ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBFIX) As Short ' read coordinate rotate for position data Declare Function cnc_rdcdrotate Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBROT ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBROT) As Short ' read 3D coordinate convert for position data Declare Function cnc_rd3dcdcnv Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODB3DCD ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODB3DCD) As Short ' read programable mirror image for position data Declare Function cnc_rdmirimage Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBMIR ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBMIR) As Short ' read scaling for position data Declare Function cnc_rdscaling Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSCL ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSCL) As Short ' read 3D tool offset for position data Declare Function cnc_rd3dtofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODB3DTO ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODB3DTO) As Short ' read tool position offset for position data Declare Function cnc_rdposofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPOFS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPOFS) As Short ' read hpcc setting data Declare Function cnc_rdhpccset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBHPST ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBHPST) As Short ' write hpcc setting data Declare Function cnc_wrhpccset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBHPST ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBHPST) As Short ' hpcc data auto setting data Declare Function cnc_hpccatset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read hpcc tuning data ( parameter input ) Declare Function cnc_rdhpcctupr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBHPPR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBHPPR) As Short ' write hpcc tuning data ( parameter input ) Declare Function cnc_wrhpcctupr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBHPPR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBHPPR) As Short ' read hpcc tuning data ( acc input ) Declare Function cnc_rdhpcctuac Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBHPAC ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBHPAC) As Short ' write hpcc tuning data ( acc input ) Declare Function cnc_wrhpcctuac Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBHPAC ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBHPAC) As Short ' hpcc data auto tuning Declare Function cnc_hpccattune Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short) As Short ' read hpcc fine level Declare Function cnc_hpccactfine Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' select hpcc fine level Declare Function cnc_hpccselfine Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read active fixture offset Declare Function cnc_rdactfixofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS) As Short ' read fixture offset Declare Function cnc_rdfixofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBZOR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByVal d As Short, ByRef e As IODBZOR) As Short ' write fixture offset Declare Function cnc_wrfixofs Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOR) As Short ' read tip of tool for 3D handle Declare Function cnc_rd3dtooltip Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODB3DHDL ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODB3DHDL) As Short ' read pulse for 3D handle Declare Function cnc_rd3dpulse Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODB3DPLS ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODB3DPLS) As Short ' read move overrlap of tool for 3D handle Declare Function cnc_rd3dmovrlap Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODB3DHDL ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODB3DHDL) As Short ' read change offset for 3D handle Declare Function cnc_rd3dofschg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' clear pulse and change offset for 3D handle Declare Function cnc_clr3dplsmov Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' cycle start Declare Function cnc_start Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' reset CNC Declare Function cnc_reset Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' reset CNC Declare Function cnc_reset2 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read axis name Declare Function cnc_rdaxisname Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBAXISNAME ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBAXISNAME) As Short ' read spindle name Declare Function cnc_rdspdlname Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBSPDLNAME ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As ODBSPDLNAME) As Short ' read extended axis name Declare Function cnc_exaxisname Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBEXAXISNAME ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBEXAXISNAME) As Short ' read SRAM variable area for C language executor Declare Function cnc_rdcexesram Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, <[In], Out> ByVal b() As Byte, ByRef c As Integer) As Short ' write SRAM variable area for C language executor Declare Function cnc_wrcexesram Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByRef c As Integer) As Short ' read maximum size and linear address of SRAM variable area for C language executor Declare Function cnc_cexesraminfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Integer, ByRef c As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Integer, ByRef c As Integer) As Short ' read maximum size of SRAM variable area for C language executor Declare Function cnc_cexesramsize Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read additional workpiece coordinate systems number Declare Function cnc_rdcoordnum Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' converts from FANUC code to Shift JIS code Declare Function cnc_ftosjis Lib "FWLIB32.DLL" _ @@ -9863,109 +10067,109 @@ Public Class Focas1 ' Set the unsolicited message parameters Declare Function cnc_wrunsolicprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBUNSOLIC ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBUNSOLIC) As Short ' Get the unsolicited message parameters Declare Function cnc_rdunsolicprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBUNSOLIC ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBUNSOLIC) As Short ' Start of unsolicited message Declare Function cnc_unsolicstart Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal hWnd As Integer, ByVal c As Integer, ByVal d As Short, ByRef e As Short) As Short ' End of unsolicited message Declare Function cnc_unsolicstop Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' Reads the unsolicited message data Declare Function cnc_rdunsolicmsg Lib "FWLIB32.DLL" _ - ( ByVal a As Short, ByRef b As IDBUNSOLICMSG ) As Short + (ByVal a As Short, ByRef b As IDBUNSOLICMSG) As Short ' read cnc maintenance item Declare Function cnc_rdpm_mcnitem Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short , ByRef c As IODBITEM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBITEM) As Short ' write machine specific maintenance item Declare Function cnc_wrpm_mcnitem Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short , ByRef c As IODBITEM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As IODBITEM) As Short ' read machine specific maintenance item Declare Function cnc_rdpm_cncitem Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short , ByRef c As IODBITEM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBITEM) As Short ' read maintenance item status Declare Function cnc_rdpm_item Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short , ByRef c As IODBPMAINTE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As IODBPMAINTE) As Short ' write maintenance item status Declare Function cnc_wrpm_item Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPMAINTE ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPMAINTE) As Short ' Display of optional message Declare Function cnc_dispoptmsg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String) As Short + (ByVal FlibHndl As Integer, ByVal a As String) As Short ' Reading of answer for optional message display Declare Function cnc_optmsgans Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' Get CNC Model Declare Function cnc_getcncmodel Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read number of repeats Declare Function cnc_rdrepeatval Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Integer ) As Short + (ByVal FlibHndl As Integer, ByRef a As Integer) As Short ' read CNC system hard info Declare Function cnc_rdsyshard Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBSYSH ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As ODBSYSH) As Short ' read CNC system soft series and version (3) Declare Function cnc_rdsyssoft3 Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short , ByRef b As Short , ByRef c As Short , ByRef d As ODBSYSS3 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As ODBSYSS3) As Short ' read digit of program number Declare Function cnc_progdigit Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' read CNC system path information Declare Function cnc_sysinfo_ex Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSYSEX ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSYSEX) As Short -'------------------ -' CNC : SERCOS I/F -'------------------ + '------------------ + ' CNC : SERCOS I/F + '------------------ ' Get reservation of service channel for SERCOS I/F Declare Function cnc_srcsrsvchnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Read ID information of SERCOS I/F Declare Function cnc_srcsrdidinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, _ - ByVal a As Integer, ByVal b As Short, ByVal c As Short, ByRef d As IODBIDINF ) As Short + (ByVal FlibHndl As Integer, + ByVal a As Integer, ByVal b As Short, ByVal c As Short, ByRef d As IODBIDINF) As Short ' Write ID information of SERCOS I/F Declare Function cnc_srcswridinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBIDINF ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBIDINF) As Short ' Start of reading operation data from drive of SERCOS I/F Declare Function cnc_srcsstartrd Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short) As Short ' Start of writing operation data to drive of SERCOS I/F Declare Function cnc_srcsstartwrt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Short) As Short ' Stop of reading/writing operation data from/to drive of SERCOS I/F Declare Function cnc_srcsstopexec Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Get execution status of reading/writing operation data of SERCOS I/F Declare Function cnc_srcsrdexstat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSRCSST ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSRCSST) As Short ' Read operation data from data buffer for SERCOS I/F Declare Function cnc_srcsrdopdata Lib "FWLIB32.DLL" _ @@ -9977,36 +10181,36 @@ Public Class Focas1 ' Free reservation of service channel for SERCOS I/F Declare Function cnc_srcsfreechnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Read drive assign of SERCOS I/F Declare Function cnc_srcsrdlayout Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSRCSLYT ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSRCSLYT) As Short ' Read communication phase of drive of SERCOS I/F Declare Function cnc_srcsrddrvcp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short -'---------------------------- -' CNC : Graphic command data -'---------------------------- + '---------------------------- + ' CNC : Graphic command data + '---------------------------- ' Start drawing position Declare Function cnc_startdrawpos Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Stop drawing position Declare Function cnc_stopdrawpos Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Start dynamic graphic Declare Function cnc_startdyngrph Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Stop dynamic graphic Declare Function cnc_stopdyngrph Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Read graphic command data Declare Function cnc_rdgrphcmd Lib "FWLIB32.DLL" _ @@ -10014,40 +10218,40 @@ Public Class Focas1 ' Update graphic command read pointer Declare Function cnc_wrgrphcmdptr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' Read cancel flag Declare Function cnc_rdgrphcanflg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' Clear graphic command Declare Function cnc_clrgrphcmd Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short -'--------------------------- -' CNC : Servo learning data -'--------------------------- + '--------------------------- + ' CNC : Servo learning data + '--------------------------- ' Servo learning data read start Declare Function cnc_svdtstartrd Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' Servo learning data write start Declare Function cnc_svdtstartwr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' Servo learning data read end Declare Function cnc_svdtendrd Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo learning data write end Declare Function cnc_svdtendwr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo learning data read/write stop Declare Function cnc_svdtstopexec Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo learning data read from I/F buffer Declare Function cnc_svdtrddata Lib "FWLIB32.DLL" _ @@ -10058,16 +10262,16 @@ Public Class Focas1 (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Integer, ByVal c() As Byte) As Short -'---------------------------- -' CNC : Servo Guide -'---------------------------- + '---------------------------- + ' CNC : Servo Guide + '---------------------------- ' Servo Guide (Channel data set) Declare Function cnc_sdsetchnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBCHAN ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IDBCHAN) As Short ' Servo Guide (Channel data clear) Declare Function cnc_sdclrchnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo Guide (Sampling start) Declare Function cnc_sdstartsmpl Lib "FWLIB32.DLL" _ @@ -10075,15 +10279,15 @@ Public Class Focas1 ' Servo Guide (Sampling cancel) Declare Function cnc_sdcancelsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo Guide (read Sampling data) Declare Function cnc_sdreadsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByVal b As Integer, ByRef c As ODBSD ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByVal b As Integer, ByRef c As ODBSD) As Short ' Servo Guide (Sampling end) Declare Function cnc_sdendsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo Guide (read 1 shot data) Declare Function cnc_sdread1shot Lib "FWLIB32.DLL" _ @@ -10091,32 +10295,32 @@ Public Class Focas1 ' Servo feedback data (Channel data set) Declare Function cnc_sfbsetchnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As IDBSFBCHAN ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByRef c As IDBSFBCHAN) As Short ' Servo feedback data (Channel data clear) Declare Function cnc_sfbclrchnl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo feedback data (Sampling start) Declare Function cnc_sfbstartsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer) As Short ' Servo feedback data (Sampling cancel) Declare Function cnc_sfbcancelsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Servo feedback data (read Sampling data) Declare Function cnc_sfbreadsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByVal b As Integer, ByRef c As ODBSD ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByVal b As Integer, ByRef c As ODBSD) As Short ' Servo feedback data (Sampling end) Declare Function cnc_sfbendsmpl Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short -'---------------------------- -' CNC : NC display function -'---------------------------- + '---------------------------- + ' CNC : NC display function + '---------------------------- ' Start NC display Declare Function cnc_startnccmd Lib "FWLIB32.DLL" _ @@ -10135,17 +10339,17 @@ Public Class Focas1 (ByVal FlibHndl As Integer, ByRef a As Short) As Short -'------------------------------------ -' CNC : Remote diagnostics function -'------------------------------------ + '------------------------------------ + ' CNC : Remote diagnostics function + '------------------------------------ ' Start remote diagnostics function Declare Function cnc_startrmtdgn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Stop remote diagnostics function Declare Function cnc_stoprmtdgn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Read data from remote diagnostics I/F Declare Function cnc_rdrmtdgn Lib "FWLIB32.DLL" _ @@ -10157,16 +10361,16 @@ Public Class Focas1 ' Set CommStatus of remote diagnostics I/F area Declare Function cnc_wrcommstatus Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' Check remote diagnostics I/F Declare Function cnc_chkrmtdgn Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short -'------------------------- -' CNC : FS18-LN function -'------------------------- + '------------------------- + ' CNC : FS18-LN function + '------------------------- ' read allowance Declare Function cnc_allowance Lib "FWLIB32.DLL" _ @@ -10174,28 +10378,28 @@ Public Class Focas1 ' read allowanced state Declare Function cnc_allowcnd Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBCAXIS ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBCAXIS) As Short ' set work zero Declare Function cnc_workzero Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBZOFS) As Short ' set slide position Declare Function cnc_slide Lib "FWLIB32.DLL" _ (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByRef c As ODBAXIS) As Short -'---------------------------------- -' CNC: Teaching data I/F function -'---------------------------------- + '---------------------------------- + ' CNC: Teaching data I/F function + '---------------------------------- ' Teaching data get start Declare Function cnc_startgetdgdat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Teaching data get stop Declare Function cnc_stopgetdgdat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' Teaching data read Declare Function cnc_rddgdat Lib "FWLIB32.DLL" _ @@ -10203,24 +10407,24 @@ Public Class Focas1 ' Teaching data read pointer write Declare Function cnc_wrdgdatptr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' Teaching data clear Declare Function cnc_clrdgdat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short -'--------------------------------- -' CNC : C-EXE SRAM file function -'--------------------------------- + '--------------------------------- + ' CNC : C-EXE SRAM file function + '--------------------------------- ' open C-EXE SRAM file Declare Function cnc_opencexefile Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByVal c As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As Short, ByVal c As Short) As Short ' close C-EXE SRAM file Declare Function cnc_closecexefile Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' read C-EXE SRAM file Declare Function cnc_rdcexefile Lib "FWLIB32.DLL" _ @@ -10232,13 +10436,13 @@ Public Class Focas1 ' read C-EXE SRAM disk directory Declare Function cnc_cexedirectory Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, <[In], Out> ByVal a() As Char, ByRef b As Short, ByVal c As Short, ByRef d As CFILEINFO) As Short -'----- -' PMC -'----- + '----- + ' PMC + '----- ' read message from PMC to MMC Declare Function pmc_rdmsg Lib "FWLIB32.DLL" _ @@ -10254,17 +10458,17 @@ Public Class Focas1 ' write message from MMC to PMC(conditional) Declare Function pmc_cwrmsg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b() As Short) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b() As Short) As Short ' read PMC data(area specified) Declare Function pmc_rdpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As IODBPMC0) As Short Declare Function pmc_rdpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As IODBPMC1) As Short Declare Function pmc_rdpmcrng Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As IODBPMC2) As Short ' write PMC data(area specified) @@ -10297,55 +10501,55 @@ Public Class Focas1 ' read informations of PMC data Declare Function pmc_rdpmcinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBPMCINF ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As ODBPMCINF) As Short ' read PMC parameter data table contorol data Declare Function pmc_rdcntldata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPMCCNTL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Short, ByVal c As Short, ByRef d As IODBPMCCNTL) As Short ' write PMC parameter data table contorol data Declare Function pmc_wrcntldata Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPMCCNTL ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPMCCNTL) As Short ' read PMC parameter data table contorol data group number Declare Function pmc_rdcntlgrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short) As Short ' write PMC parameter data table contorol data group number Declare Function pmc_wrcntlgrp Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short) As Short ' read PMC alarm message Declare Function pmc_rdalmmsg Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As ODBPMCALM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short, ByRef c As Short, ByRef d As ODBPMCALM) As Short ' get detail error for pmc Declare Function pmc_getdtailerr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPMCERR ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPMCERR) As Short ' read PMC memory data Declare Function pmc_rdpmcmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, <[In], Out> ByVal d() As Byte) As Short ' write PMC memory data Declare Function pmc_wrpmcmem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d() As Byte) As Short ' read PMC-SE memory data Declare Function pmc_rdpmcsemem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, <[In], Out> ByVal d() As Byte) As Short ' write PMC-SE memory data Declare Function pmc_wrpmcsemem Lib "FWLIB32.DLL" _ - (ByVal FlibHndl As Integer, _ + (ByVal FlibHndl As Integer, ByVal a As Short, ByVal b As Integer, ByVal c As Integer, ByVal d() As Byte) As Short ' read pmc title data Declare Function pmc_rdpmctitle Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPMCTITLE ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPMCTITLE) As Short ' read PMC parameter start Declare Function pmc_rdprmstart Lib "FWLIB32.DLL" _ @@ -10372,17 +10576,17 @@ Public Class Focas1 (ByVal FlibHndl As Integer) As Short ' read PMC data -' Declare Function pmc_rdpmcrng_ext Lib "FWLIB32.DLL" _ -' ( ByVal FlibHndl As Integer, _ -' ByVal a As Short, ByRef b As IODBPMCEXT ) As Short + ' Declare Function pmc_rdpmcrng_ext Lib "FWLIB32.DLL" _ + ' ( ByVal FlibHndl As Integer, _ + ' ByVal a As Short, ByRef b As IODBPMCEXT ) As Short ' write PMC I/O link assigned data -' Declare Function pmc_wriolinkdat Lib "FWLIB32.DLL" _ -' ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByVal c As Integer ) As Short + ' Declare Function pmc_wriolinkdat Lib "FWLIB32.DLL" _ + ' ( ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b() As Byte, ByVal c As Integer ) As Short ' read PMC address information Declare Function pmc_rdpmcaddr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPMCADR ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPMCADR) As Short ' select PMC unit Declare Function pmc_select_pmc_unit Lib "FWLIB32.DLL" _ @@ -10408,53 +10612,53 @@ Public Class Focas1 Declare Function pmc_get_timer_type Lib "FWLIB32.DLL" _ (ByVal FlibHndl As Integer, ByVal a As Integer, ByVal b As Integer, <[In](), Out()> ByVal c() As Short) As Short -'---------------------------- -' PMC : PROFIBUS function -'---------------------------- + '---------------------------- + ' PMC : PROFIBUS function + '---------------------------- ' read PROFIBUS configration data Declare Function pmc_prfrdconfig Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBPRFCNF ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBPRFCNF) As Short ' read bus parameter for master function Declare Function pmc_prfrdbusprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBBUSPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBBUSPRM) As Short ' write bus parameter for master function Declare Function pmc_prfwrbusprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBBUSPRM ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBBUSPRM) As Short ' read slave parameter for master function Declare Function pmc_prfrdslvprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM) As Short Declare Function pmc_prfrdslvprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM2) As Short ' write slave parameter for master function Declare Function pmc_prfwrslvprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM) As Short Declare Function pmc_prfwrslvprm Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM2 ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBSLVPRM2) As Short ' read allocation address for master function Declare Function pmc_prfrdallcadr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPRFADR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPRFADR) As Short ' set allocation address for master function Declare Function pmc_prfwrallcadr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPRFADR ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As IODBPRFADR) As Short ' read allocation address for slave function Declare Function pmc_prfrdslvaddr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSLVADR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSLVADR) As Short ' set allocation address for slave function Declare Function pmc_prfwrslvaddr Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As IODBSLVADR ) As Short + (ByVal FlibHndl As Integer, ByRef a As IODBSLVADR) As Short ' read status for slave function Declare Function pmc_prfrdslvstat Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As ODBSLVST ) As Short + (ByVal FlibHndl As Integer, ByRef a As ODBSLVST) As Short ' Reads DI/DO parameter of master function Declare Function pmc_prfrddido Lib "FWLIB32.DLL" _ @@ -10496,9 +10700,9 @@ Public Class Focas1 Declare Function pmc_prfwropmode Lib "FWLIB32.DLL" _ (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Short) As Short -'-----------------------------------------------v -' DS : Data server & Ethernet board function ' -'-----------------------------------------------' + '-----------------------------------------------v + ' DS : Data server & Ethernet board function ' + '-----------------------------------------------' ' read the parameter of the Ethernet board */ Declare Function etb_rdparam Lib "FWLIB32.DLL" _ @@ -10696,30 +10900,30 @@ Public Class Focas1 Declare Function ds_wrfile Lib "FWLIB32.DLL" _ (ByVal FlibHndl As Integer, ByVal a As String, ByVal b As String) As Short -'-------------------------- -' HSSB multiple connection -'-------------------------- + '-------------------------- + ' HSSB multiple connection + '-------------------------- ' read number of node Declare Function cnc_rdnodenum Lib "FWLIB32.DLL" _ - ( ByRef a As Integer ) As Short + (ByRef a As Integer) As Short ' read node informations Declare Function cnc_rdnodeinfo Lib "FWLIB32.DLL" _ - ( ByVal a As Integer, ByRef b As ODBNODE ) As Short + (ByVal a As Integer, ByRef b As ODBNODE) As Short ' set default node number Declare Function cnc_setdefnode Lib "FWLIB32.DLL" _ - ( ByVal a As Integer ) As Short + (ByVal a As Integer) As Short ' allocate library handle 2 Declare Function cnc_allclibhndl2 Lib "FWLIB32.DLL" _ (ByVal node As Integer, ByRef FlibHndl As Integer) As Short -'--------------------- -' Ethernet connection -'--------------------- + '--------------------- + ' Ethernet connection + '--------------------- ' allocate library handle 3 Declare Function cnc_allclibhndl3 Lib "FWLIB32.DLL" _ @@ -10731,18 +10935,18 @@ Public Class Focas1 ' set timeout for socket Declare Function cnc_settimeout Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Integer) As Short ' reset all socket connection Declare Function cnc_resetconnect Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer ) As Short + (ByVal FlibHndl As Integer) As Short ' get option state for FOCAS1/Ethernet Declare Function cnc_getfocas1opt Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer ) As Short + (ByVal FlibHndl As Integer, ByVal a As Short, ByRef b As Integer) As Short ' read Ethernet board information Declare Function cnc_rdetherinfo Lib "FWLIB32.DLL" _ - ( ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Short ) As Short + (ByVal FlibHndl As Integer, ByRef a As Short, ByRef b As Short) As Short End Class 'Focas1