'------------------------------------------------------------------------------
'
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.42000
'
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'Il codice sorgente è stato generato automaticamente da Microsoft.VSDesigner, versione 4.0.30319.42000.
'
Namespace WebReference
'''
_
Partial Public Class OPENcontrol
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private BootPhaseEnquiryOperationCompleted As System.Threading.SendOrPostCallback
Private BootRebootOperationCompleted As System.Threading.SendOrPostCallback
Private BootShutDownOperationCompleted As System.Threading.SendOrPostCallback
Private BootModeOperationCompleted As System.Threading.SendOrPostCallback
Private GetHWKeyOperationCompleted As System.Threading.SendOrPostCallback
Private ReadVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarWordBitOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private ReadVarTextOperationCompleted As System.Threading.SendOrPostCallback
Private WriteVarTextOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarBoolOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarByteOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarShortOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarLongOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarDwordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private ReadNamedVarStringOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarBoolOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarByteOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarShortOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarLongOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarDwordOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private WriteNamedVarStringOperationCompleted As System.Threading.SendOrPostCallback
Private ReadWarningMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ResetSingleTableIIOperationCompleted As System.Threading.SendOrPostCallback
Private LockTableIIOperationCompleted As System.Threading.SendOrPostCallback
Private UnLockTableIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetOriginTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetOriginTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetToolTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetToolTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetOffsetTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetOffsetTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetUserTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetUserTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetMagazineTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetMagazineTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private GetPocketTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SetPocketTabRecordIIOperationCompleted As System.Threading.SendOrPostCallback
Private SaveTablesOperationCompleted As System.Threading.SendOrPostCallback
Private RestoreSingleTableOperationCompleted As System.Threading.SendOrPostCallback
Private SaveSingleTableOperationCompleted As System.Threading.SendOrPostCallback
Private SaveBackupMemoryOperationCompleted As System.Threading.SendOrPostCallback
Private RestoreBackupMemoryOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchLifeOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchDirOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSearchLifeDirOperationCompleted As System.Threading.SendOrPostCallback
Private ToolSameFamilyOperationCompleted As System.Threading.SendOrPostCallback
Private ToolLoadOperationCompleted As System.Threading.SendOrPostCallback
Private ToolUnloadOperationCompleted As System.Threading.SendOrPostCallback
Private PocketSearchOperationCompleted As System.Threading.SendOrPostCallback
Private PocketClosestOperationCompleted As System.Threading.SendOrPostCallback
Private PocketNearestOperationCompleted As System.Threading.SendOrPostCallback
Private ToolLifeOperationCompleted As System.Threading.SendOrPostCallback
Private LoadTableFromFileOperationCompleted As System.Threading.SendOrPostCallback
Private MagConfigurePocketsOperationCompleted As System.Threading.SendOrPostCallback
Private CycleOperationCompleted As System.Threading.SendOrPostCallback
Private SyncroCycleOperationCompleted As System.Threading.SendOrPostCallback
Private ResetOperationCompleted As System.Threading.SendOrPostCallback
Private HoldOperationCompleted As System.Threading.SendOrPostCallback
Private SetFeedManOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetFeedRateOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetFeedRapidOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetSpeedRateOverOperationCompleted As System.Threading.SendOrPostCallback
Private SetManMovDirectionOperationCompleted As System.Threading.SendOrPostCallback
Private GetVarJOGOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarJOGOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarUASOperationCompleted As System.Threading.SendOrPostCallback
Private GetVarRCMOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarRCMOperationCompleted As System.Threading.SendOrPostCallback
Private GetVarCYCTIMEOperationCompleted As System.Threading.SendOrPostCallback
Private SetVarCYCTIMEOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private SetProcVarWordOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private SetProcVarDoubleOperationCompleted As System.Threading.SendOrPostCallback
Private SetMdiStringOperationCompleted As System.Threading.SendOrPostCallback
Private SetProcessModeOperationCompleted As System.Threading.SendOrPostCallback
Private SelectProcessOperationCompleted As System.Threading.SendOrPostCallback
Private GetSelectedProcessOperationCompleted As System.Threading.SendOrPostCallback
Private SelectProcAxisOperationCompleted As System.Threading.SendOrPostCallback
Private SelectPartProgramOperationCompleted As System.Threading.SendOrPostCallback
Private SelectPartProgramFromDriveOperationCompleted As System.Threading.SendOrPostCallback
Private GetActivePartProgramOperationCompleted As System.Threading.SendOrPostCallback
Private GetActivePartProgramFullPathOperationCompleted As System.Threading.SendOrPostCallback
Private GetPartProgramLinesOperationCompleted As System.Threading.SendOrPostCallback
Private GetAxOriginNumOperationCompleted As System.Threading.SendOrPostCallback
Private GetAxesPositionOperationCompleted As System.Threading.SendOrPostCallback
Private GetNcInfo1OperationCompleted As System.Threading.SendOrPostCallback
Private GetNcInfo2OperationCompleted As System.Threading.SendOrPostCallback
Private GetToolNamesOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcessStatusOperationCompleted As System.Threading.SendOrPostCallback
Private GetBlkNumOperationCompleted As System.Threading.SendOrPostCallback
Private ReadErrMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadPartProgramMsgOperationCompleted As System.Threading.SendOrPostCallback
Private GetGCodeOperationCompleted As System.Threading.SendOrPostCallback
Private GetMCodeOperationCompleted As System.Threading.SendOrPostCallback
Private SkipPProgBlockOperationCompleted As System.Threading.SendOrPostCallback
Private EseOperationCompleted As System.Threading.SendOrPostCallback
Private EseExOperationCompleted As System.Threading.SendOrPostCallback
Private ExeOperationCompleted As System.Threading.SendOrPostCallback
Private AxesRefOperationCompleted As System.Threading.SendOrPostCallback
Private DncInitOperationCompleted As System.Threading.SendOrPostCallback
Private DncDataOperationCompleted As System.Threading.SendOrPostCallback
Private DncEofOperationCompleted As System.Threading.SendOrPostCallback
Private DncStopOperationCompleted As System.Threading.SendOrPostCallback
Private GetAxesInfo3OperationCompleted As System.Threading.SendOrPostCallback
Private GetCodeNumberOperationCompleted As System.Threading.SendOrPostCallback
Private GetOptionsOperationCompleted As System.Threading.SendOrPostCallback
Private GetDateTimeOperationCompleted As System.Threading.SendOrPostCallback
Private SetDateTimeOperationCompleted As System.Threading.SendOrPostCallback
Private GetSerialNumberOperationCompleted As System.Threading.SendOrPostCallback
Private PutFileOperationCompleted As System.Threading.SendOrPostCallback
Private GetFileOperationCompleted As System.Threading.SendOrPostCallback
Private PutBinaryFileOperationCompleted As System.Threading.SendOrPostCallback
Private GetBinaryFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSSetSecurityLevelOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetSecurityLevelOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSLongFileNamesOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetNumDriveOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetDriveListOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetHiddenDriveListOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetDrivePathOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSAddDriveOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRemoveDriveOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSReloadDriveListOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCreateDirOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCreateFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetFileSizeOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetFileAttribOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSSetFileAttribOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSChangeFileAttribOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSFindFirstOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSFindNextOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSFindCloseOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRemoveFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRemoveDirOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSRenameOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCopyFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSGetInfoOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSOpenFileOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSCloseFileOperationCompleted As System.Threading.SendOrPostCallback
Private GetSysTickOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcessConfNumOperationCompleted As System.Threading.SendOrPostCallback
Private CheckHistoryOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryEmergMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryErrorMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryLogMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadHistoryAnomalyMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadCurrentErrorMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadCurrentEmergMsgOperationCompleted As System.Threading.SendOrPostCallback
Private ReadCurrentAnomalyMsgOperationCompleted As System.Threading.SendOrPostCallback
Private GetPTechSizesOperationCompleted As System.Threading.SendOrPostCallback
Private LoadPTechOperationCompleted As System.Threading.SendOrPostCallback
Private GetMarkerInfoOperationCompleted As System.Threading.SendOrPostCallback
Private ManagePartProgramOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSWriteRecordOperationCompleted As System.Threading.SendOrPostCallback
Private LogFSReadRecordOperationCompleted As System.Threading.SendOrPostCallback
Private ReadRemapDefinitionsOperationCompleted As System.Threading.SendOrPostCallback
Private WriteRemapDefinitionsOperationCompleted As System.Threading.SendOrPostCallback
Private GetServoParOperationCompleted As System.Threading.SendOrPostCallback
Private SetServoParOperationCompleted As System.Threading.SendOrPostCallback
Private GetCNCRegKeyOperationCompleted As System.Threading.SendOrPostCallback
Private GetSecurityDataOperationCompleted As System.Threading.SendOrPostCallback
Private SetSecurityDataOperationCompleted As System.Threading.SendOrPostCallback
Private SetIpAddressOperationCompleted As System.Threading.SendOrPostCallback
Private GetProcInInputOperationCompleted As System.Threading.SendOrPostCallback
Private SndProcInpDataOperationCompleted As System.Threading.SendOrPostCallback
Private GetPartProgramLinesExOperationCompleted As System.Threading.SendOrPostCallback
Private SetMdiStringExOperationCompleted As System.Threading.SendOrPostCallback
Private GetExpireDataOperationCompleted As System.Threading.SendOrPostCallback
Private GetRemainingTimeOperationCompleted As System.Threading.SendOrPostCallback
Private GenerateUserKeyOperationCompleted As System.Threading.SendOrPostCallback
Private WriteActivationKeyOperationCompleted As System.Threading.SendOrPostCallback
Private GetAvailableCustomEventsOperationCompleted As System.Threading.SendOrPostCallback
Private MonOpenChannelOperationCompleted As System.Threading.SendOrPostCallback
Private MonCloseChannelOperationCompleted As System.Threading.SendOrPostCallback
Private MonAddVariableOperationCompleted As System.Threading.SendOrPostCallback
Private MonDeleteVariableOperationCompleted As System.Threading.SendOrPostCallback
Private MonStartSamplingOperationCompleted As System.Threading.SendOrPostCallback
Private MonStopSamplingOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetVariableOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetVariableSOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetDryRunOperationCompleted As System.Threading.SendOrPostCallback
Private MonGetMovOperationCompleted As System.Threading.SendOrPostCallback
Private GetDriveBasicInfoOperationCompleted As System.Threading.SendOrPostCallback
Private ReadStatisticsOperationCompleted As System.Threading.SendOrPostCallback
Private ReadStatisticsBaseFrequencyOperationCompleted As System.Threading.SendOrPostCallback
Private GetActiveAmpOperationCompleted As System.Threading.SendOrPostCallback
Private SetActiveAmpOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''
Public Sub New()
MyBase.New
Me.Url = Global.testSam.My.MySettings.Default.d_prod_WebReference_OPENcontrol
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
Me.UseDefaultCredentials = true
Me.useDefaultCredentialsSetExplicitly = false
Else
Me.useDefaultCredentialsSetExplicitly = true
End If
End Sub
Public Shadows Property Url() As String
Get
Return MyBase.Url
End Get
Set
If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _
AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _
AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
MyBase.UseDefaultCredentials = false
End If
MyBase.Url = value
End Set
End Property
Public Shadows Property UseDefaultCredentials() As Boolean
Get
Return MyBase.UseDefaultCredentials
End Get
Set
MyBase.UseDefaultCredentials = value
Me.useDefaultCredentialsSetExplicitly = true
End Set
End Property
'''
Public Event BootPhaseEnquiryCompleted As BootPhaseEnquiryCompletedEventHandler
'''
Public Event BootRebootCompleted As BootRebootCompletedEventHandler
'''
Public Event BootShutDownCompleted As BootShutDownCompletedEventHandler
'''
Public Event BootModeCompleted As BootModeCompletedEventHandler
'''
Public Event GetHWKeyCompleted As GetHWKeyCompletedEventHandler
'''
Public Event ReadVarWordCompleted As ReadVarWordCompletedEventHandler
'''
Public Event ReadVarDoubleCompleted As ReadVarDoubleCompletedEventHandler
'''
Public Event WriteVarWordCompleted As WriteVarWordCompletedEventHandler
'''
Public Event WriteVarWordBitCompleted As WriteVarWordBitCompletedEventHandler
'''
Public Event WriteVarDoubleCompleted As WriteVarDoubleCompletedEventHandler
'''
Public Event ReadVarTextCompleted As ReadVarTextCompletedEventHandler
'''
Public Event WriteVarTextCompleted As WriteVarTextCompletedEventHandler
'''
Public Event ReadNamedVarBoolCompleted As ReadNamedVarBoolCompletedEventHandler
'''
Public Event ReadNamedVarByteCompleted As ReadNamedVarByteCompletedEventHandler
'''
Public Event ReadNamedVarShortCompleted As ReadNamedVarShortCompletedEventHandler
'''
Public Event ReadNamedVarWordCompleted As ReadNamedVarWordCompletedEventHandler
'''
Public Event ReadNamedVarLongCompleted As ReadNamedVarLongCompletedEventHandler
'''
Public Event ReadNamedVarDwordCompleted As ReadNamedVarDwordCompletedEventHandler
'''
Public Event ReadNamedVarDoubleCompleted As ReadNamedVarDoubleCompletedEventHandler
'''
Public Event ReadNamedVarStringCompleted As ReadNamedVarStringCompletedEventHandler
'''
Public Event WriteNamedVarBoolCompleted As WriteNamedVarBoolCompletedEventHandler
'''
Public Event WriteNamedVarByteCompleted As WriteNamedVarByteCompletedEventHandler
'''
Public Event WriteNamedVarShortCompleted As WriteNamedVarShortCompletedEventHandler
'''
Public Event WriteNamedVarWordCompleted As WriteNamedVarWordCompletedEventHandler
'''
Public Event WriteNamedVarLongCompleted As WriteNamedVarLongCompletedEventHandler
'''
Public Event WriteNamedVarDwordCompleted As WriteNamedVarDwordCompletedEventHandler
'''
Public Event WriteNamedVarDoubleCompleted As WriteNamedVarDoubleCompletedEventHandler
'''
Public Event WriteNamedVarStringCompleted As WriteNamedVarStringCompletedEventHandler
'''
Public Event ReadWarningMsgCompleted As ReadWarningMsgCompletedEventHandler
'''
Public Event ResetSingleTableIICompleted As ResetSingleTableIICompletedEventHandler
'''
Public Event LockTableIICompleted As LockTableIICompletedEventHandler
'''
Public Event UnLockTableIICompleted As UnLockTableIICompletedEventHandler
'''
Public Event GetOriginTabRecordIICompleted As GetOriginTabRecordIICompletedEventHandler
'''
Public Event SetOriginTabRecordIICompleted As SetOriginTabRecordIICompletedEventHandler
'''
Public Event GetToolTabRecordIICompleted As GetToolTabRecordIICompletedEventHandler
'''
Public Event SetToolTabRecordIICompleted As SetToolTabRecordIICompletedEventHandler
'''
Public Event GetOffsetTabRecordIICompleted As GetOffsetTabRecordIICompletedEventHandler
'''
Public Event SetOffsetTabRecordIICompleted As SetOffsetTabRecordIICompletedEventHandler
'''
Public Event GetUserTabRecordIICompleted As GetUserTabRecordIICompletedEventHandler
'''
Public Event SetUserTabRecordIICompleted As SetUserTabRecordIICompletedEventHandler
'''
Public Event GetMagazineTabRecordIICompleted As GetMagazineTabRecordIICompletedEventHandler
'''
Public Event SetMagazineTabRecordIICompleted As SetMagazineTabRecordIICompletedEventHandler
'''
Public Event GetPocketTabRecordIICompleted As GetPocketTabRecordIICompletedEventHandler
'''
Public Event SetPocketTabRecordIICompleted As SetPocketTabRecordIICompletedEventHandler
'''
Public Event SaveTablesCompleted As SaveTablesCompletedEventHandler
'''
Public Event RestoreSingleTableCompleted As RestoreSingleTableCompletedEventHandler
'''
Public Event SaveSingleTableCompleted As SaveSingleTableCompletedEventHandler
'''
Public Event SaveBackupMemoryCompleted As SaveBackupMemoryCompletedEventHandler
'''
Public Event RestoreBackupMemoryCompleted As RestoreBackupMemoryCompletedEventHandler
'''
Public Event ToolSearchCompleted As ToolSearchCompletedEventHandler
'''
Public Event ToolSearchLifeCompleted As ToolSearchLifeCompletedEventHandler
'''
Public Event ToolSearchDirCompleted As ToolSearchDirCompletedEventHandler
'''
Public Event ToolSearchLifeDirCompleted As ToolSearchLifeDirCompletedEventHandler
'''
Public Event ToolSameFamilyCompleted As ToolSameFamilyCompletedEventHandler
'''
Public Event ToolLoadCompleted As ToolLoadCompletedEventHandler
'''
Public Event ToolUnloadCompleted As ToolUnloadCompletedEventHandler
'''
Public Event PocketSearchCompleted As PocketSearchCompletedEventHandler
'''
Public Event PocketClosestCompleted As PocketClosestCompletedEventHandler
'''
Public Event PocketNearestCompleted As PocketNearestCompletedEventHandler
'''
Public Event ToolLifeCompleted As ToolLifeCompletedEventHandler
'''
Public Event LoadTableFromFileCompleted As LoadTableFromFileCompletedEventHandler
'''
Public Event MagConfigurePocketsCompleted As MagConfigurePocketsCompletedEventHandler
'''
Public Event CycleCompleted As CycleCompletedEventHandler
'''
Public Event SyncroCycleCompleted As SyncroCycleCompletedEventHandler
'''
Public Event ResetCompleted As ResetCompletedEventHandler
'''
Public Event HoldCompleted As HoldCompletedEventHandler
'''
Public Event SetFeedManOverCompleted As SetFeedManOverCompletedEventHandler
'''
Public Event SetFeedRateOverCompleted As SetFeedRateOverCompletedEventHandler
'''
Public Event SetFeedRapidOverCompleted As SetFeedRapidOverCompletedEventHandler
'''
Public Event SetSpeedRateOverCompleted As SetSpeedRateOverCompletedEventHandler
'''
Public Event SetManMovDirectionCompleted As SetManMovDirectionCompletedEventHandler
'''
Public Event GetVarJOGCompleted As GetVarJOGCompletedEventHandler
'''
Public Event SetVarJOGCompleted As SetVarJOGCompletedEventHandler
'''
Public Event SetVarUASCompleted As SetVarUASCompletedEventHandler
'''
Public Event GetVarRCMCompleted As GetVarRCMCompletedEventHandler
'''
Public Event SetVarRCMCompleted As SetVarRCMCompletedEventHandler
'''
Public Event GetVarCYCTIMECompleted As GetVarCYCTIMECompletedEventHandler
'''
Public Event SetVarCYCTIMECompleted As SetVarCYCTIMECompletedEventHandler
'''
Public Event GetProcVarWordCompleted As GetProcVarWordCompletedEventHandler
'''
Public Event SetProcVarWordCompleted As SetProcVarWordCompletedEventHandler
'''
Public Event GetProcVarDoubleCompleted As GetProcVarDoubleCompletedEventHandler
'''
Public Event SetProcVarDoubleCompleted As SetProcVarDoubleCompletedEventHandler
'''
Public Event SetMdiStringCompleted As SetMdiStringCompletedEventHandler
'''
Public Event SetProcessModeCompleted As SetProcessModeCompletedEventHandler
'''
Public Event SelectProcessCompleted As SelectProcessCompletedEventHandler
'''
Public Event GetSelectedProcessCompleted As GetSelectedProcessCompletedEventHandler
'''
Public Event SelectProcAxisCompleted As SelectProcAxisCompletedEventHandler
'''
Public Event SelectPartProgramCompleted As SelectPartProgramCompletedEventHandler
'''
Public Event SelectPartProgramFromDriveCompleted As SelectPartProgramFromDriveCompletedEventHandler
'''
Public Event GetActivePartProgramCompleted As GetActivePartProgramCompletedEventHandler
'''
Public Event GetActivePartProgramFullPathCompleted As GetActivePartProgramFullPathCompletedEventHandler
'''
Public Event GetPartProgramLinesCompleted As GetPartProgramLinesCompletedEventHandler
'''
Public Event GetAxOriginNumCompleted As GetAxOriginNumCompletedEventHandler
'''
Public Event GetAxesPositionCompleted As GetAxesPositionCompletedEventHandler
'''
Public Event GetNcInfo1Completed As GetNcInfo1CompletedEventHandler
'''
Public Event GetNcInfo2Completed As GetNcInfo2CompletedEventHandler
'''
Public Event GetToolNamesCompleted As GetToolNamesCompletedEventHandler
'''
Public Event GetProcessStatusCompleted As GetProcessStatusCompletedEventHandler
'''
Public Event GetBlkNumCompleted As GetBlkNumCompletedEventHandler
'''
Public Event ReadErrMsgCompleted As ReadErrMsgCompletedEventHandler
'''
Public Event ReadPartProgramMsgCompleted As ReadPartProgramMsgCompletedEventHandler
'''
Public Event GetGCodeCompleted As GetGCodeCompletedEventHandler
'''
Public Event GetMCodeCompleted As GetMCodeCompletedEventHandler
'''
Public Event SkipPProgBlockCompleted As SkipPProgBlockCompletedEventHandler
'''
Public Event EseCompleted As EseCompletedEventHandler
'''
Public Event EseExCompleted As EseExCompletedEventHandler
'''
Public Event ExeCompleted As ExeCompletedEventHandler
'''
Public Event AxesRefCompleted As AxesRefCompletedEventHandler
'''
Public Event DncInitCompleted As DncInitCompletedEventHandler
'''
Public Event DncDataCompleted As DncDataCompletedEventHandler
'''
Public Event DncEofCompleted As DncEofCompletedEventHandler
'''
Public Event DncStopCompleted As DncStopCompletedEventHandler
'''
Public Event GetAxesInfo3Completed As GetAxesInfo3CompletedEventHandler
'''
Public Event GetCodeNumberCompleted As GetCodeNumberCompletedEventHandler
'''
Public Event GetOptionsCompleted As GetOptionsCompletedEventHandler
'''
Public Event GetDateTimeCompleted As GetDateTimeCompletedEventHandler
'''
Public Event SetDateTimeCompleted As SetDateTimeCompletedEventHandler
'''
Public Event GetSerialNumberCompleted As GetSerialNumberCompletedEventHandler
'''
Public Event PutFileCompleted As PutFileCompletedEventHandler
'''
Public Event GetFileCompleted As GetFileCompletedEventHandler
'''
Public Event PutBinaryFileCompleted As PutBinaryFileCompletedEventHandler
'''
Public Event GetBinaryFileCompleted As GetBinaryFileCompletedEventHandler
'''
Public Event LogFSSetSecurityLevelCompleted As LogFSSetSecurityLevelCompletedEventHandler
'''
Public Event LogFSGetSecurityLevelCompleted As LogFSGetSecurityLevelCompletedEventHandler
'''
Public Event LogFSLongFileNamesCompleted As LogFSLongFileNamesCompletedEventHandler
'''
Public Event LogFSGetNumDriveCompleted As LogFSGetNumDriveCompletedEventHandler
'''
Public Event LogFSGetDriveListCompleted As LogFSGetDriveListCompletedEventHandler
'''
Public Event LogFSGetHiddenDriveListCompleted As LogFSGetHiddenDriveListCompletedEventHandler
'''
Public Event LogFSGetDrivePathCompleted As LogFSGetDrivePathCompletedEventHandler
'''
Public Event LogFSAddDriveCompleted As LogFSAddDriveCompletedEventHandler
'''
Public Event LogFSRemoveDriveCompleted As LogFSRemoveDriveCompletedEventHandler
'''
Public Event LogFSReloadDriveListCompleted As LogFSReloadDriveListCompletedEventHandler
'''
Public Event LogFSCreateDirCompleted As LogFSCreateDirCompletedEventHandler
'''
Public Event LogFSCreateFileCompleted As LogFSCreateFileCompletedEventHandler
'''
Public Event LogFSGetFileSizeCompleted As LogFSGetFileSizeCompletedEventHandler
'''
Public Event LogFSGetFileAttribCompleted As LogFSGetFileAttribCompletedEventHandler
'''
Public Event LogFSSetFileAttribCompleted As LogFSSetFileAttribCompletedEventHandler
'''
Public Event LogFSChangeFileAttribCompleted As LogFSChangeFileAttribCompletedEventHandler
'''
Public Event LogFSFindFirstCompleted As LogFSFindFirstCompletedEventHandler
'''
Public Event LogFSFindNextCompleted As LogFSFindNextCompletedEventHandler
'''
Public Event LogFSFindCloseCompleted As LogFSFindCloseCompletedEventHandler
'''
Public Event LogFSRemoveFileCompleted As LogFSRemoveFileCompletedEventHandler
'''
Public Event LogFSRemoveDirCompleted As LogFSRemoveDirCompletedEventHandler
'''
Public Event LogFSRenameCompleted As LogFSRenameCompletedEventHandler
'''
Public Event LogFSCopyFileCompleted As LogFSCopyFileCompletedEventHandler
'''
Public Event LogFSGetInfoCompleted As LogFSGetInfoCompletedEventHandler
'''
Public Event LogFSOpenFileCompleted As LogFSOpenFileCompletedEventHandler
'''
Public Event LogFSCloseFileCompleted As LogFSCloseFileCompletedEventHandler
'''
Public Event GetSysTickCompleted As GetSysTickCompletedEventHandler
'''
Public Event GetProcessConfNumCompleted As GetProcessConfNumCompletedEventHandler
'''
Public Event CheckHistoryCompleted As CheckHistoryCompletedEventHandler
'''
Public Event ReadHistoryEmergMsgCompleted As ReadHistoryEmergMsgCompletedEventHandler
'''
Public Event ReadHistoryErrorMsgCompleted As ReadHistoryErrorMsgCompletedEventHandler
'''
Public Event ReadHistoryLogMsgCompleted As ReadHistoryLogMsgCompletedEventHandler
'''
Public Event ReadHistoryAnomalyMsgCompleted As ReadHistoryAnomalyMsgCompletedEventHandler
'''
Public Event ReadCurrentErrorMsgCompleted As ReadCurrentErrorMsgCompletedEventHandler
'''
Public Event ReadCurrentEmergMsgCompleted As ReadCurrentEmergMsgCompletedEventHandler
'''
Public Event ReadCurrentAnomalyMsgCompleted As ReadCurrentAnomalyMsgCompletedEventHandler
'''
Public Event GetPTechSizesCompleted As GetPTechSizesCompletedEventHandler
'''
Public Event LoadPTechCompleted As LoadPTechCompletedEventHandler
'''
Public Event GetMarkerInfoCompleted As GetMarkerInfoCompletedEventHandler
'''
Public Event ManagePartProgramCompleted As ManagePartProgramCompletedEventHandler
'''
Public Event LogFSWriteRecordCompleted As LogFSWriteRecordCompletedEventHandler
'''
Public Event LogFSReadRecordCompleted As LogFSReadRecordCompletedEventHandler
'''
Public Event ReadRemapDefinitionsCompleted As ReadRemapDefinitionsCompletedEventHandler
'''
Public Event WriteRemapDefinitionsCompleted As WriteRemapDefinitionsCompletedEventHandler
'''
Public Event GetServoParCompleted As GetServoParCompletedEventHandler
'''
Public Event SetServoParCompleted As SetServoParCompletedEventHandler
'''
Public Event GetCNCRegKeyCompleted As GetCNCRegKeyCompletedEventHandler
'''
Public Event GetSecurityDataCompleted As GetSecurityDataCompletedEventHandler
'''
Public Event SetSecurityDataCompleted As SetSecurityDataCompletedEventHandler
'''
Public Event SetIpAddressCompleted As SetIpAddressCompletedEventHandler
'''
Public Event GetProcInInputCompleted As GetProcInInputCompletedEventHandler
'''
Public Event SndProcInpDataCompleted As SndProcInpDataCompletedEventHandler
'''
Public Event GetPartProgramLinesExCompleted As GetPartProgramLinesExCompletedEventHandler
'''
Public Event SetMdiStringExCompleted As SetMdiStringExCompletedEventHandler
'''
Public Event GetExpireDataCompleted As GetExpireDataCompletedEventHandler
'''
Public Event GetRemainingTimeCompleted As GetRemainingTimeCompletedEventHandler
'''
Public Event GenerateUserKeyCompleted As GenerateUserKeyCompletedEventHandler
'''
Public Event WriteActivationKeyCompleted As WriteActivationKeyCompletedEventHandler
'''
Public Event GetAvailableCustomEventsCompleted As GetAvailableCustomEventsCompletedEventHandler
'''
Public Event MonOpenChannelCompleted As MonOpenChannelCompletedEventHandler
'''
Public Event MonCloseChannelCompleted As MonCloseChannelCompletedEventHandler
'''
Public Event MonAddVariableCompleted As MonAddVariableCompletedEventHandler
'''
Public Event MonDeleteVariableCompleted As MonDeleteVariableCompletedEventHandler
'''
Public Event MonStartSamplingCompleted As MonStartSamplingCompletedEventHandler
'''
Public Event MonStopSamplingCompleted As MonStopSamplingCompletedEventHandler
'''
Public Event MonGetVariableCompleted As MonGetVariableCompletedEventHandler
'''
Public Event MonGetVariableSCompleted As MonGetVariableSCompletedEventHandler
'''
Public Event MonGetDryRunCompleted As MonGetDryRunCompletedEventHandler
'''
Public Event MonGetMovCompleted As MonGetMovCompletedEventHandler
'''
Public Event GetDriveBasicInfoCompleted As GetDriveBasicInfoCompletedEventHandler
'''
Public Event ReadStatisticsCompleted As ReadStatisticsCompletedEventHandler
'''
Public Event ReadStatisticsBaseFrequencyCompleted As ReadStatisticsBaseFrequencyCompletedEventHandler
'''
Public Event GetActiveAmpCompleted As GetActiveAmpCompletedEventHandler
'''
Public Event SetActiveAmpCompleted As SetActiveAmpCompletedEventHandler
'''
_
Public Function BootPhaseEnquiry(ByRef Phase As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("BootPhaseEnquiry", New Object(-1) {})
Phase = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub BootPhaseEnquiryAsync()
Me.BootPhaseEnquiryAsync(Nothing)
End Sub
'''
Public Overloads Sub BootPhaseEnquiryAsync(ByVal userState As Object)
If (Me.BootPhaseEnquiryOperationCompleted Is Nothing) Then
Me.BootPhaseEnquiryOperationCompleted = AddressOf Me.OnBootPhaseEnquiryOperationCompleted
End If
Me.InvokeAsync("BootPhaseEnquiry", New Object(-1) {}, Me.BootPhaseEnquiryOperationCompleted, userState)
End Sub
Private Sub OnBootPhaseEnquiryOperationCompleted(ByVal arg As Object)
If (Not (Me.BootPhaseEnquiryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootPhaseEnquiryCompleted(Me, New BootPhaseEnquiryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function BootReboot(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("BootReboot", New Object(-1) {})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub BootRebootAsync()
Me.BootRebootAsync(Nothing)
End Sub
'''
Public Overloads Sub BootRebootAsync(ByVal userState As Object)
If (Me.BootRebootOperationCompleted Is Nothing) Then
Me.BootRebootOperationCompleted = AddressOf Me.OnBootRebootOperationCompleted
End If
Me.InvokeAsync("BootReboot", New Object(-1) {}, Me.BootRebootOperationCompleted, userState)
End Sub
Private Sub OnBootRebootOperationCompleted(ByVal arg As Object)
If (Not (Me.BootRebootCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootRebootCompleted(Me, New BootRebootCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function BootShutDown(ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("BootShutDown", New Object(-1) {})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub BootShutDownAsync()
Me.BootShutDownAsync(Nothing)
End Sub
'''
Public Overloads Sub BootShutDownAsync(ByVal userState As Object)
If (Me.BootShutDownOperationCompleted Is Nothing) Then
Me.BootShutDownOperationCompleted = AddressOf Me.OnBootShutDownOperationCompleted
End If
Me.InvokeAsync("BootShutDown", New Object(-1) {}, Me.BootShutDownOperationCompleted, userState)
End Sub
Private Sub OnBootShutDownOperationCompleted(ByVal arg As Object)
If (Not (Me.BootShutDownCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootShutDownCompleted(Me, New BootShutDownCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function BootMode(ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("BootMode", New Object() {Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub BootModeAsync(ByVal Mode As UShort)
Me.BootModeAsync(Mode, Nothing)
End Sub
'''
Public Overloads Sub BootModeAsync(ByVal Mode As UShort, ByVal userState As Object)
If (Me.BootModeOperationCompleted Is Nothing) Then
Me.BootModeOperationCompleted = AddressOf Me.OnBootModeOperationCompleted
End If
Me.InvokeAsync("BootMode", New Object() {Mode}, Me.BootModeOperationCompleted, userState)
End Sub
Private Sub OnBootModeOperationCompleted(ByVal arg As Object)
If (Not (Me.BootModeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent BootModeCompleted(Me, New BootModeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetHWKey( ByRef HwKey() As Byte, ByRef SecurLevel() As Byte, ByRef Release As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetHWKey", New Object(-1) {})
HwKey = CType(results(1),Byte())
SecurLevel = CType(results(2),Byte())
Release = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetHWKeyAsync()
Me.GetHWKeyAsync(Nothing)
End Sub
'''
Public Overloads Sub GetHWKeyAsync(ByVal userState As Object)
If (Me.GetHWKeyOperationCompleted Is Nothing) Then
Me.GetHWKeyOperationCompleted = AddressOf Me.OnGetHWKeyOperationCompleted
End If
Me.InvokeAsync("GetHWKey", New Object(-1) {}, Me.GetHWKeyOperationCompleted, userState)
End Sub
Private Sub OnGetHWKeyOperationCompleted(ByVal arg As Object)
If (Not (Me.GetHWKeyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetHWKeyCompleted(Me, New GetHWKeyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadVarWord(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByRef Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadVarWord", New Object() {Code, Process, Index, NumVar})
Value = CType(results(1),UShort())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort)
Me.ReadVarWordAsync(Code, Process, Index, NumVar, Nothing)
End Sub
'''
Public Overloads Sub ReadVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal userState As Object)
If (Me.ReadVarWordOperationCompleted Is Nothing) Then
Me.ReadVarWordOperationCompleted = AddressOf Me.OnReadVarWordOperationCompleted
End If
Me.InvokeAsync("ReadVarWord", New Object() {Code, Process, Index, NumVar}, Me.ReadVarWordOperationCompleted, userState)
End Sub
Private Sub OnReadVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadVarWordCompleted(Me, New ReadVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadVarDouble(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByRef Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadVarDouble", New Object() {Code, Process, Index, NumVar})
Value = CType(results(1),Double())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort)
Me.ReadVarDoubleAsync(Code, Process, Index, NumVar, Nothing)
End Sub
'''
Public Overloads Sub ReadVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal userState As Object)
If (Me.ReadVarDoubleOperationCompleted Is Nothing) Then
Me.ReadVarDoubleOperationCompleted = AddressOf Me.OnReadVarDoubleOperationCompleted
End If
Me.InvokeAsync("ReadVarDouble", New Object() {Code, Process, Index, NumVar}, Me.ReadVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnReadVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadVarDoubleCompleted(Me, New ReadVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteVarWord(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteVarWord", New Object() {Code, Process, Index, NumVar, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort)
Me.WriteVarWordAsync(Code, Process, Index, NumVar, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteVarWordAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As UShort, ByVal userState As Object)
If (Me.WriteVarWordOperationCompleted Is Nothing) Then
Me.WriteVarWordOperationCompleted = AddressOf Me.OnWriteVarWordOperationCompleted
End If
Me.InvokeAsync("WriteVarWord", New Object() {Code, Process, Index, NumVar, Value}, Me.WriteVarWordOperationCompleted, userState)
End Sub
Private Sub OnWriteVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarWordCompleted(Me, New WriteVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteVarWordBit(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteVarWordBit", New Object() {Code, Process, Index, BitIndex, BitValue})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteVarWordBitAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort)
Me.WriteVarWordBitAsync(Code, Process, Index, BitIndex, BitValue, Nothing)
End Sub
'''
Public Overloads Sub WriteVarWordBitAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal BitIndex As UShort, ByVal BitValue As UShort, ByVal userState As Object)
If (Me.WriteVarWordBitOperationCompleted Is Nothing) Then
Me.WriteVarWordBitOperationCompleted = AddressOf Me.OnWriteVarWordBitOperationCompleted
End If
Me.InvokeAsync("WriteVarWordBit", New Object() {Code, Process, Index, BitIndex, BitValue}, Me.WriteVarWordBitOperationCompleted, userState)
End Sub
Private Sub OnWriteVarWordBitOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarWordBitCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarWordBitCompleted(Me, New WriteVarWordBitCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteVarDouble(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteVarDouble", New Object() {Code, Process, Index, NumVar, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double)
Me.WriteVarDoubleAsync(Code, Process, Index, NumVar, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteVarDoubleAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal NumVar As UShort, ByVal Value() As Double, ByVal userState As Object)
If (Me.WriteVarDoubleOperationCompleted Is Nothing) Then
Me.WriteVarDoubleOperationCompleted = AddressOf Me.OnWriteVarDoubleOperationCompleted
End If
Me.InvokeAsync("WriteVarDouble", New Object() {Code, Process, Index, NumVar, Value}, Me.WriteVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnWriteVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarDoubleCompleted(Me, New WriteVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadVarText(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort, ByRef Text As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadVarText", New Object() {Code, Process, Index, Size})
Text = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort)
Me.ReadVarTextAsync(Code, Process, Index, Size, Nothing)
End Sub
'''
Public Overloads Sub ReadVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Size As UShort, ByVal userState As Object)
If (Me.ReadVarTextOperationCompleted Is Nothing) Then
Me.ReadVarTextOperationCompleted = AddressOf Me.OnReadVarTextOperationCompleted
End If
Me.InvokeAsync("ReadVarText", New Object() {Code, Process, Index, Size}, Me.ReadVarTextOperationCompleted, userState)
End Sub
Private Sub OnReadVarTextOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadVarTextCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadVarTextCompleted(Me, New ReadVarTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteVarText(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteVarText", New Object() {Code, Process, Index, Len, Text})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String)
Me.WriteVarTextAsync(Code, Process, Index, Len, Text, Nothing)
End Sub
'''
Public Overloads Sub WriteVarTextAsync(ByVal Code As UShort, ByVal Process As UShort, ByVal Index As UShort, ByVal Len As UShort, ByVal Text As String, ByVal userState As Object)
If (Me.WriteVarTextOperationCompleted Is Nothing) Then
Me.WriteVarTextOperationCompleted = AddressOf Me.OnWriteVarTextOperationCompleted
End If
Me.InvokeAsync("WriteVarText", New Object() {Code, Process, Index, Len, Text}, Me.WriteVarTextOperationCompleted, userState)
End Sub
Private Sub OnWriteVarTextOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteVarTextCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteVarTextCompleted(Me, New WriteVarTextCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarBool(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Integer())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarBoolAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarBoolOperationCompleted Is Nothing) Then
Me.ReadNamedVarBoolOperationCompleted = AddressOf Me.OnReadNamedVarBoolOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarBoolOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarBoolOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarBoolCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarBoolCompleted(Me, New ReadNamedVarBoolCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarByte(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Byte())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarByteAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarByteOperationCompleted Is Nothing) Then
Me.ReadNamedVarByteOperationCompleted = AddressOf Me.OnReadNamedVarByteOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarByteOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarByteOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarByteCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarByteCompleted(Me, New ReadNamedVarByteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarShort(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Short())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarShortAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarShortOperationCompleted Is Nothing) Then
Me.ReadNamedVarShortOperationCompleted = AddressOf Me.OnReadNamedVarShortOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarShortOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarShortOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarShortCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarShortCompleted(Me, New ReadNamedVarShortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarWord(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),UShort())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarWordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarWordOperationCompleted Is Nothing) Then
Me.ReadNamedVarWordOperationCompleted = AddressOf Me.OnReadNamedVarWordOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarWordOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarWordCompleted(Me, New ReadNamedVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarLong(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Long())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarLongAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarLongOperationCompleted Is Nothing) Then
Me.ReadNamedVarLongOperationCompleted = AddressOf Me.OnReadNamedVarLongOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarLongOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarLongOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarLongCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarLongCompleted(Me, New ReadNamedVarLongCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarDword(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As ULong, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),ULong())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarDwordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarDwordOperationCompleted Is Nothing) Then
Me.ReadNamedVarDwordOperationCompleted = AddressOf Me.OnReadNamedVarDwordOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarDwordOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarDwordOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarDwordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarDwordCompleted(Me, New ReadNamedVarDwordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarDouble(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByRef Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3})
Value = CType(results(1),Double())
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short)
Me.ReadNamedVarDoubleAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal userState As Object)
If (Me.ReadNamedVarDoubleOperationCompleted Is Nothing) Then
Me.ReadNamedVarDoubleOperationCompleted = AddressOf Me.OnReadNamedVarDoubleOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3}, Me.ReadNamedVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarDoubleCompleted(Me, New ReadNamedVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadNamedVarString(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByRef Value As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length})
Value = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort)
Me.ReadNamedVarStringAsync(Process, pVarName, Index1, Index2, Index3, Length, Nothing)
End Sub
'''
Public Overloads Sub ReadNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal userState As Object)
If (Me.ReadNamedVarStringOperationCompleted Is Nothing) Then
Me.ReadNamedVarStringOperationCompleted = AddressOf Me.OnReadNamedVarStringOperationCompleted
End If
Me.InvokeAsync("ReadNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length}, Me.ReadNamedVarStringOperationCompleted, userState)
End Sub
Private Sub OnReadNamedVarStringOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadNamedVarStringCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadNamedVarStringCompleted(Me, New ReadNamedVarStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarBool(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer)
Me.WriteNamedVarBoolAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarBoolAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Integer, ByVal userState As Object)
If (Me.WriteNamedVarBoolOperationCompleted Is Nothing) Then
Me.WriteNamedVarBoolOperationCompleted = AddressOf Me.OnWriteNamedVarBoolOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarBool", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarBoolOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarBoolOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarBoolCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarBoolCompleted(Me, New WriteNamedVarBoolCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarByte(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte)
Me.WriteNamedVarByteAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarByteAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Byte, ByVal userState As Object)
If (Me.WriteNamedVarByteOperationCompleted Is Nothing) Then
Me.WriteNamedVarByteOperationCompleted = AddressOf Me.OnWriteNamedVarByteOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarByte", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarByteOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarByteOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarByteCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarByteCompleted(Me, New WriteNamedVarByteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarShort(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short)
Me.WriteNamedVarShortAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarShortAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Short, ByVal userState As Object)
If (Me.WriteNamedVarShortOperationCompleted Is Nothing) Then
Me.WriteNamedVarShortOperationCompleted = AddressOf Me.OnWriteNamedVarShortOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarShort", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarShortOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarShortOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarShortCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarShortCompleted(Me, New WriteNamedVarShortCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarWord(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort)
Me.WriteNamedVarWordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarWordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As UShort, ByVal userState As Object)
If (Me.WriteNamedVarWordOperationCompleted Is Nothing) Then
Me.WriteNamedVarWordOperationCompleted = AddressOf Me.OnWriteNamedVarWordOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarWord", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarWordOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarWordCompleted(Me, New WriteNamedVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarLong(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long)
Me.WriteNamedVarLongAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarLongAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Long, ByVal userState As Object)
If (Me.WriteNamedVarLongOperationCompleted Is Nothing) Then
Me.WriteNamedVarLongOperationCompleted = AddressOf Me.OnWriteNamedVarLongOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarLong", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarLongOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarLongOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarLongCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarLongCompleted(Me, New WriteNamedVarLongCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarDword(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong)
Me.WriteNamedVarDwordAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarDwordAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As ULong, ByVal userState As Object)
If (Me.WriteNamedVarDwordOperationCompleted Is Nothing) Then
Me.WriteNamedVarDwordOperationCompleted = AddressOf Me.OnWriteNamedVarDwordOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarDword", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarDwordOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarDwordOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarDwordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarDwordCompleted(Me, New WriteNamedVarDwordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarDouble(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double)
Me.WriteNamedVarDoubleAsync(Process, pVarName, NumVar, Index1, Index2, Index3, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarDoubleAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal NumVar As UShort, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Value() As Double, ByVal userState As Object)
If (Me.WriteNamedVarDoubleOperationCompleted Is Nothing) Then
Me.WriteNamedVarDoubleOperationCompleted = AddressOf Me.OnWriteNamedVarDoubleOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarDouble", New Object() {Process, pVarName, NumVar, Index1, Index2, Index3, Value}, Me.WriteNamedVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarDoubleCompleted(Me, New WriteNamedVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function WriteNamedVarString(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("WriteNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub WriteNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String)
Me.WriteNamedVarStringAsync(Process, pVarName, Index1, Index2, Index3, Length, Value, Nothing)
End Sub
'''
Public Overloads Sub WriteNamedVarStringAsync(ByVal Process As UShort, ByVal pVarName As String, ByVal Index1 As UShort, ByVal Index2 As Short, ByVal Index3 As Short, ByVal Length As UShort, ByVal Value As String, ByVal userState As Object)
If (Me.WriteNamedVarStringOperationCompleted Is Nothing) Then
Me.WriteNamedVarStringOperationCompleted = AddressOf Me.OnWriteNamedVarStringOperationCompleted
End If
Me.InvokeAsync("WriteNamedVarString", New Object() {Process, pVarName, Index1, Index2, Index3, Length, Value}, Me.WriteNamedVarStringOperationCompleted, userState)
End Sub
Private Sub OnWriteNamedVarStringOperationCompleted(ByVal arg As Object)
If (Not (Me.WriteNamedVarStringCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent WriteNamedVarStringCompleted(Me, New WriteNamedVarStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ReadWarningMsg( ByRef WarningMsg As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ReadWarningMsg", New Object(-1) {})
WarningMsg = CType(results(1),String)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ReadWarningMsgAsync()
Me.ReadWarningMsgAsync(Nothing)
End Sub
'''
Public Overloads Sub ReadWarningMsgAsync(ByVal userState As Object)
If (Me.ReadWarningMsgOperationCompleted Is Nothing) Then
Me.ReadWarningMsgOperationCompleted = AddressOf Me.OnReadWarningMsgOperationCompleted
End If
Me.InvokeAsync("ReadWarningMsg", New Object(-1) {}, Me.ReadWarningMsgOperationCompleted, userState)
End Sub
Private Sub OnReadWarningMsgOperationCompleted(ByVal arg As Object)
If (Not (Me.ReadWarningMsgCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ReadWarningMsgCompleted(Me, New ReadWarningMsgCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ResetSingleTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ResetSingleTableII", New Object() {TableNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ResetSingleTableIIAsync(ByVal TableNum As UShort)
Me.ResetSingleTableIIAsync(TableNum, Nothing)
End Sub
'''
Public Overloads Sub ResetSingleTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object)
If (Me.ResetSingleTableIIOperationCompleted Is Nothing) Then
Me.ResetSingleTableIIOperationCompleted = AddressOf Me.OnResetSingleTableIIOperationCompleted
End If
Me.InvokeAsync("ResetSingleTableII", New Object() {TableNum}, Me.ResetSingleTableIIOperationCompleted, userState)
End Sub
Private Sub OnResetSingleTableIIOperationCompleted(ByVal arg As Object)
If (Not (Me.ResetSingleTableIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ResetSingleTableIICompleted(Me, New ResetSingleTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function LockTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("LockTableII", New Object() {TableNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub LockTableIIAsync(ByVal TableNum As UShort)
Me.LockTableIIAsync(TableNum, Nothing)
End Sub
'''
Public Overloads Sub LockTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object)
If (Me.LockTableIIOperationCompleted Is Nothing) Then
Me.LockTableIIOperationCompleted = AddressOf Me.OnLockTableIIOperationCompleted
End If
Me.InvokeAsync("LockTableII", New Object() {TableNum}, Me.LockTableIIOperationCompleted, userState)
End Sub
Private Sub OnLockTableIIOperationCompleted(ByVal arg As Object)
If (Not (Me.LockTableIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LockTableIICompleted(Me, New LockTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function UnLockTableII(ByVal TableNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("UnLockTableII", New Object() {TableNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub UnLockTableIIAsync(ByVal TableNum As UShort)
Me.UnLockTableIIAsync(TableNum, Nothing)
End Sub
'''
Public Overloads Sub UnLockTableIIAsync(ByVal TableNum As UShort, ByVal userState As Object)
If (Me.UnLockTableIIOperationCompleted Is Nothing) Then
Me.UnLockTableIIOperationCompleted = AddressOf Me.OnUnLockTableIIOperationCompleted
End If
Me.InvokeAsync("UnLockTableII", New Object() {TableNum}, Me.UnLockTableIIOperationCompleted, userState)
End Sub
Private Sub OnUnLockTableIIOperationCompleted(ByVal arg As Object)
If (Not (Me.UnLockTableIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent UnLockTableIICompleted(Me, New UnLockTableIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetOriginTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As ORIGINTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetOriginTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),ORIGINTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetOriginTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetOriginTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''
Public Overloads Sub GetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetOriginTabRecordIIOperationCompleted Is Nothing) Then
Me.GetOriginTabRecordIIOperationCompleted = AddressOf Me.OnGetOriginTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetOriginTabRecordII", New Object() {RecordNum}, Me.GetOriginTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetOriginTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetOriginTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetOriginTabRecordIICompleted(Me, New GetOriginTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetOriginTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetOriginTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII)
Me.SetOriginTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''
Public Overloads Sub SetOriginTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As ORIGINTABLEII, ByVal userState As Object)
If (Me.SetOriginTabRecordIIOperationCompleted Is Nothing) Then
Me.SetOriginTabRecordIIOperationCompleted = AddressOf Me.OnSetOriginTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetOriginTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetOriginTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetOriginTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetOriginTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetOriginTabRecordIICompleted(Me, New SetOriginTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetToolTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As TOOLTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetToolTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),TOOLTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetToolTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetToolTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''
Public Overloads Sub GetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetToolTabRecordIIOperationCompleted Is Nothing) Then
Me.GetToolTabRecordIIOperationCompleted = AddressOf Me.OnGetToolTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetToolTabRecordII", New Object() {RecordNum}, Me.GetToolTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetToolTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetToolTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetToolTabRecordIICompleted(Me, New GetToolTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetToolTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetToolTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII)
Me.SetToolTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''
Public Overloads Sub SetToolTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As TOOLTABLEII, ByVal userState As Object)
If (Me.SetToolTabRecordIIOperationCompleted Is Nothing) Then
Me.SetToolTabRecordIIOperationCompleted = AddressOf Me.OnSetToolTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetToolTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetToolTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetToolTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetToolTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetToolTabRecordIICompleted(Me, New SetToolTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetOffsetTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As OFFSETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetOffsetTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),OFFSETTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetOffsetTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''
Public Overloads Sub GetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetOffsetTabRecordIIOperationCompleted Is Nothing) Then
Me.GetOffsetTabRecordIIOperationCompleted = AddressOf Me.OnGetOffsetTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetOffsetTabRecordII", New Object() {RecordNum}, Me.GetOffsetTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetOffsetTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetOffsetTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetOffsetTabRecordIICompleted(Me, New GetOffsetTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetOffsetTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetOffsetTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII)
Me.SetOffsetTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''
Public Overloads Sub SetOffsetTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As OFFSETTABLEII, ByVal userState As Object)
If (Me.SetOffsetTabRecordIIOperationCompleted Is Nothing) Then
Me.SetOffsetTabRecordIIOperationCompleted = AddressOf Me.OnSetOffsetTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetOffsetTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetOffsetTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetOffsetTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetOffsetTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetOffsetTabRecordIICompleted(Me, New SetOffsetTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetUserTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As USERTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetUserTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),USERTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetUserTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetUserTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''
Public Overloads Sub GetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetUserTabRecordIIOperationCompleted Is Nothing) Then
Me.GetUserTabRecordIIOperationCompleted = AddressOf Me.OnGetUserTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetUserTabRecordII", New Object() {RecordNum}, Me.GetUserTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetUserTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetUserTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetUserTabRecordIICompleted(Me, New GetUserTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetUserTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetUserTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII)
Me.SetUserTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''
Public Overloads Sub SetUserTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As USERTABLEII, ByVal userState As Object)
If (Me.SetUserTabRecordIIOperationCompleted Is Nothing) Then
Me.SetUserTabRecordIIOperationCompleted = AddressOf Me.OnSetUserTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetUserTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetUserTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetUserTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetUserTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetUserTabRecordIICompleted(Me, New SetUserTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetMagazineTabRecordII(ByVal RecordNum As UInteger, ByRef RecordBuff As MAGAZINETABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetMagazineTabRecordII", New Object() {RecordNum})
RecordBuff = CType(results(1),MAGAZINETABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger)
Me.GetMagazineTabRecordIIAsync(RecordNum, Nothing)
End Sub
'''
Public Overloads Sub GetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetMagazineTabRecordIIOperationCompleted Is Nothing) Then
Me.GetMagazineTabRecordIIOperationCompleted = AddressOf Me.OnGetMagazineTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetMagazineTabRecordII", New Object() {RecordNum}, Me.GetMagazineTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetMagazineTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetMagazineTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetMagazineTabRecordIICompleted(Me, New GetMagazineTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetMagazineTabRecordII(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetMagazineTabRecordII", New Object() {RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII)
Me.SetMagazineTabRecordIIAsync(RecordNum, RecordBuff, Nothing)
End Sub
'''
Public Overloads Sub SetMagazineTabRecordIIAsync(ByVal RecordNum As UInteger, ByVal RecordBuff As MAGAZINETABLEII, ByVal userState As Object)
If (Me.SetMagazineTabRecordIIOperationCompleted Is Nothing) Then
Me.SetMagazineTabRecordIIOperationCompleted = AddressOf Me.OnSetMagazineTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetMagazineTabRecordII", New Object() {RecordNum, RecordBuff}, Me.SetMagazineTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetMagazineTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetMagazineTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetMagazineTabRecordIICompleted(Me, New SetMagazineTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetPocketTabRecordII(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByRef RecordBuff As POCKETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetPocketTabRecordII", New Object() {MagazineNum, RecordNum})
RecordBuff = CType(results(1),POCKETTABLEII)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger)
Me.GetPocketTabRecordIIAsync(MagazineNum, RecordNum, Nothing)
End Sub
'''
Public Overloads Sub GetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal userState As Object)
If (Me.GetPocketTabRecordIIOperationCompleted Is Nothing) Then
Me.GetPocketTabRecordIIOperationCompleted = AddressOf Me.OnGetPocketTabRecordIIOperationCompleted
End If
Me.InvokeAsync("GetPocketTabRecordII", New Object() {MagazineNum, RecordNum}, Me.GetPocketTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnGetPocketTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.GetPocketTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetPocketTabRecordIICompleted(Me, New GetPocketTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetPocketTabRecordII(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetPocketTabRecordII", New Object() {MagazineNum, RecordNum, RecordBuff})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII)
Me.SetPocketTabRecordIIAsync(MagazineNum, RecordNum, RecordBuff, Nothing)
End Sub
'''
Public Overloads Sub SetPocketTabRecordIIAsync(ByVal MagazineNum As UShort, ByVal RecordNum As UInteger, ByVal RecordBuff As POCKETTABLEII, ByVal userState As Object)
If (Me.SetPocketTabRecordIIOperationCompleted Is Nothing) Then
Me.SetPocketTabRecordIIOperationCompleted = AddressOf Me.OnSetPocketTabRecordIIOperationCompleted
End If
Me.InvokeAsync("SetPocketTabRecordII", New Object() {MagazineNum, RecordNum, RecordBuff}, Me.SetPocketTabRecordIIOperationCompleted, userState)
End Sub
Private Sub OnSetPocketTabRecordIIOperationCompleted(ByVal arg As Object)
If (Not (Me.SetPocketTabRecordIICompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetPocketTabRecordIICompleted(Me, New SetPocketTabRecordIICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SaveTables( ByVal LocalDir As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SaveTables", New Object() {LocalDir})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SaveTablesAsync(ByVal LocalDir As String)
Me.SaveTablesAsync(LocalDir, Nothing)
End Sub
'''
Public Overloads Sub SaveTablesAsync(ByVal LocalDir As String, ByVal userState As Object)
If (Me.SaveTablesOperationCompleted Is Nothing) Then
Me.SaveTablesOperationCompleted = AddressOf Me.OnSaveTablesOperationCompleted
End If
Me.InvokeAsync("SaveTables", New Object() {LocalDir}, Me.SaveTablesOperationCompleted, userState)
End Sub
Private Sub OnSaveTablesOperationCompleted(ByVal arg As Object)
If (Not (Me.SaveTablesCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SaveTablesCompleted(Me, New SaveTablesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function RestoreSingleTable( ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("RestoreSingleTable", New Object() {LocalDir, TableType})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub RestoreSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII)
Me.RestoreSingleTableAsync(LocalDir, TableType, Nothing)
End Sub
'''
Public Overloads Sub RestoreSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByVal userState As Object)
If (Me.RestoreSingleTableOperationCompleted Is Nothing) Then
Me.RestoreSingleTableOperationCompleted = AddressOf Me.OnRestoreSingleTableOperationCompleted
End If
Me.InvokeAsync("RestoreSingleTable", New Object() {LocalDir, TableType}, Me.RestoreSingleTableOperationCompleted, userState)
End Sub
Private Sub OnRestoreSingleTableOperationCompleted(ByVal arg As Object)
If (Not (Me.RestoreSingleTableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent RestoreSingleTableCompleted(Me, New RestoreSingleTableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SaveSingleTable( ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SaveSingleTable", New Object() {LocalDir, TableType})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SaveSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII)
Me.SaveSingleTableAsync(LocalDir, TableType, Nothing)
End Sub
'''
Public Overloads Sub SaveSingleTableAsync(ByVal LocalDir As String, ByVal TableType As TABLETYPEII, ByVal userState As Object)
If (Me.SaveSingleTableOperationCompleted Is Nothing) Then
Me.SaveSingleTableOperationCompleted = AddressOf Me.OnSaveSingleTableOperationCompleted
End If
Me.InvokeAsync("SaveSingleTable", New Object() {LocalDir, TableType}, Me.SaveSingleTableOperationCompleted, userState)
End Sub
Private Sub OnSaveSingleTableOperationCompleted(ByVal arg As Object)
If (Not (Me.SaveSingleTableCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SaveSingleTableCompleted(Me, New SaveSingleTableCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SaveBackupMemory( ByVal FileName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SaveBackupMemory", New Object() {FileName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SaveBackupMemoryAsync(ByVal FileName As String)
Me.SaveBackupMemoryAsync(FileName, Nothing)
End Sub
'''
Public Overloads Sub SaveBackupMemoryAsync(ByVal FileName As String, ByVal userState As Object)
If (Me.SaveBackupMemoryOperationCompleted Is Nothing) Then
Me.SaveBackupMemoryOperationCompleted = AddressOf Me.OnSaveBackupMemoryOperationCompleted
End If
Me.InvokeAsync("SaveBackupMemory", New Object() {FileName}, Me.SaveBackupMemoryOperationCompleted, userState)
End Sub
Private Sub OnSaveBackupMemoryOperationCompleted(ByVal arg As Object)
If (Not (Me.SaveBackupMemoryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SaveBackupMemoryCompleted(Me, New SaveBackupMemoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function RestoreBackupMemory( ByVal FileName As String, ByVal RestoreMask As UInteger, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("RestoreBackupMemory", New Object() {FileName, RestoreMask})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub RestoreBackupMemoryAsync(ByVal FileName As String, ByVal RestoreMask As UInteger)
Me.RestoreBackupMemoryAsync(FileName, RestoreMask, Nothing)
End Sub
'''
Public Overloads Sub RestoreBackupMemoryAsync(ByVal FileName As String, ByVal RestoreMask As UInteger, ByVal userState As Object)
If (Me.RestoreBackupMemoryOperationCompleted Is Nothing) Then
Me.RestoreBackupMemoryOperationCompleted = AddressOf Me.OnRestoreBackupMemoryOperationCompleted
End If
Me.InvokeAsync("RestoreBackupMemory", New Object() {FileName, RestoreMask}, Me.RestoreBackupMemoryOperationCompleted, userState)
End Sub
Private Sub OnRestoreBackupMemoryOperationCompleted(ByVal arg As Object)
If (Not (Me.RestoreBackupMemoryCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent RestoreBackupMemoryCompleted(Me, New RestoreBackupMemoryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolSearch( ByVal ToolCode As String, ByVal Magazine As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolSearch", New Object() {ToolCode, Magazine})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolSearchAsync(ByVal ToolCode As String, ByVal Magazine As Short)
Me.ToolSearchAsync(ToolCode, Magazine, Nothing)
End Sub
'''
Public Overloads Sub ToolSearchAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal userState As Object)
If (Me.ToolSearchOperationCompleted Is Nothing) Then
Me.ToolSearchOperationCompleted = AddressOf Me.OnToolSearchOperationCompleted
End If
Me.InvokeAsync("ToolSearch", New Object() {ToolCode, Magazine}, Me.ToolSearchOperationCompleted, userState)
End Sub
Private Sub OnToolSearchOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchCompleted(Me, New ToolSearchCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolSearchLife( ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolSearchLife", New Object() {ToolCode, Magazine, LifeVal})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolSearchLifeAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double)
Me.ToolSearchLifeAsync(ToolCode, Magazine, LifeVal, Nothing)
End Sub
'''
Public Overloads Sub ToolSearchLifeAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal userState As Object)
If (Me.ToolSearchLifeOperationCompleted Is Nothing) Then
Me.ToolSearchLifeOperationCompleted = AddressOf Me.OnToolSearchLifeOperationCompleted
End If
Me.InvokeAsync("ToolSearchLife", New Object() {ToolCode, Magazine, LifeVal}, Me.ToolSearchLifeOperationCompleted, userState)
End Sub
Private Sub OnToolSearchLifeOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchLifeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchLifeCompleted(Me, New ToolSearchLifeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolSearchDir( ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolSearchDir", New Object() {ToolCode, Magazine, StartPocket, Direction})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolSearchDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short)
Me.ToolSearchDirAsync(ToolCode, Magazine, StartPocket, Direction, Nothing)
End Sub
'''
Public Overloads Sub ToolSearchDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByVal userState As Object)
If (Me.ToolSearchDirOperationCompleted Is Nothing) Then
Me.ToolSearchDirOperationCompleted = AddressOf Me.OnToolSearchDirOperationCompleted
End If
Me.InvokeAsync("ToolSearchDir", New Object() {ToolCode, Magazine, StartPocket, Direction}, Me.ToolSearchDirOperationCompleted, userState)
End Sub
Private Sub OnToolSearchDirOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchDirCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchDirCompleted(Me, New ToolSearchDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolSearchLifeDir( ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short, ByRef ToolIndex As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolSearchLifeDir", New Object() {ToolCode, Magazine, LifeVal, StartPocket})
ToolIndex = CType(results(1),Short)
Pocket = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolSearchLifeDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short)
Me.ToolSearchLifeDirAsync(ToolCode, Magazine, LifeVal, StartPocket, Nothing)
End Sub
'''
Public Overloads Sub ToolSearchLifeDirAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal LifeVal As Double, ByVal StartPocket As Short, ByVal userState As Object)
If (Me.ToolSearchLifeDirOperationCompleted Is Nothing) Then
Me.ToolSearchLifeDirOperationCompleted = AddressOf Me.OnToolSearchLifeDirOperationCompleted
End If
Me.InvokeAsync("ToolSearchLifeDir", New Object() {ToolCode, Magazine, LifeVal, StartPocket}, Me.ToolSearchLifeDirOperationCompleted, userState)
End Sub
Private Sub OnToolSearchLifeDirOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSearchLifeDirCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSearchLifeDirCompleted(Me, New ToolSearchLifeDirCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolSameFamily( ByVal ToolCode As String, ByVal Magazine As Short, ByRef ToolInMaga As Short, ByRef ToolsOutMaga As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolSameFamily", New Object() {ToolCode, Magazine})
ToolInMaga = CType(results(1),Short)
ToolsOutMaga = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolSameFamilyAsync(ByVal ToolCode As String, ByVal Magazine As Short)
Me.ToolSameFamilyAsync(ToolCode, Magazine, Nothing)
End Sub
'''
Public Overloads Sub ToolSameFamilyAsync(ByVal ToolCode As String, ByVal Magazine As Short, ByVal userState As Object)
If (Me.ToolSameFamilyOperationCompleted Is Nothing) Then
Me.ToolSameFamilyOperationCompleted = AddressOf Me.OnToolSameFamilyOperationCompleted
End If
Me.InvokeAsync("ToolSameFamily", New Object() {ToolCode, Magazine}, Me.ToolSameFamilyOperationCompleted, userState)
End Sub
Private Sub OnToolSameFamilyOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolSameFamilyCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolSameFamilyCompleted(Me, New ToolSameFamilyCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolLoad(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolLoad", New Object() {ToolIndex, Magazine, Pocket})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolLoadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short)
Me.ToolLoadAsync(ToolIndex, Magazine, Pocket, Nothing)
End Sub
'''
Public Overloads Sub ToolLoadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal userState As Object)
If (Me.ToolLoadOperationCompleted Is Nothing) Then
Me.ToolLoadOperationCompleted = AddressOf Me.OnToolLoadOperationCompleted
End If
Me.InvokeAsync("ToolLoad", New Object() {ToolIndex, Magazine, Pocket}, Me.ToolLoadOperationCompleted, userState)
End Sub
Private Sub OnToolLoadOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolLoadCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolLoadCompleted(Me, New ToolLoadCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolUnload(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolUnload", New Object() {ToolIndex, Magazine, Pocket, Position})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolUnloadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short)
Me.ToolUnloadAsync(ToolIndex, Magazine, Pocket, Position, Nothing)
End Sub
'''
Public Overloads Sub ToolUnloadAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal Pocket As Short, ByVal Position As Short, ByVal userState As Object)
If (Me.ToolUnloadOperationCompleted Is Nothing) Then
Me.ToolUnloadOperationCompleted = AddressOf Me.OnToolUnloadOperationCompleted
End If
Me.InvokeAsync("ToolUnload", New Object() {ToolIndex, Magazine, Pocket, Position}, Me.ToolUnloadOperationCompleted, userState)
End Sub
Private Sub OnToolUnloadOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolUnloadCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolUnloadCompleted(Me, New ToolUnloadCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function PocketSearch(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("PocketSearch", New Object() {ToolIndex, Magazine, StartPocket, Direction})
Pocket = CType(results(1),Short)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub PocketSearchAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short)
Me.PocketSearchAsync(ToolIndex, Magazine, StartPocket, Direction, Nothing)
End Sub
'''
Public Overloads Sub PocketSearchAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal StartPocket As Short, ByVal Direction As Short, ByVal userState As Object)
If (Me.PocketSearchOperationCompleted Is Nothing) Then
Me.PocketSearchOperationCompleted = AddressOf Me.OnPocketSearchOperationCompleted
End If
Me.InvokeAsync("PocketSearch", New Object() {ToolIndex, Magazine, StartPocket, Direction}, Me.PocketSearchOperationCompleted, userState)
End Sub
Private Sub OnPocketSearchOperationCompleted(ByVal arg As Object)
If (Not (Me.PocketSearchCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PocketSearchCompleted(Me, New PocketSearchCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function PocketClosest(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short, ByRef Direction As Short, ByRef Pocket As Short, ByRef HorizontalDistance As Short, ByRef VerticalDistance As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("PocketClosest", New Object() {Magazine, ActualPocket, Pocket1, Pocket2})
Direction = CType(results(1),Short)
Pocket = CType(results(2),Short)
HorizontalDistance = CType(results(3),Short)
VerticalDistance = CType(results(4),Short)
ErrClass = CType(results(5),UInteger)
ErrNum = CType(results(6),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub PocketClosestAsync(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short)
Me.PocketClosestAsync(Magazine, ActualPocket, Pocket1, Pocket2, Nothing)
End Sub
'''
Public Overloads Sub PocketClosestAsync(ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal Pocket1 As Short, ByVal Pocket2 As Short, ByVal userState As Object)
If (Me.PocketClosestOperationCompleted Is Nothing) Then
Me.PocketClosestOperationCompleted = AddressOf Me.OnPocketClosestOperationCompleted
End If
Me.InvokeAsync("PocketClosest", New Object() {Magazine, ActualPocket, Pocket1, Pocket2}, Me.PocketClosestOperationCompleted, userState)
End Sub
Private Sub OnPocketClosestOperationCompleted(ByVal arg As Object)
If (Not (Me.PocketClosestCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PocketClosestCompleted(Me, New PocketClosestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function PocketNearest(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short, ByRef Pocket As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("PocketNearest", New Object() {ToolIndex, Magazine, ActualPocket})
Pocket = CType(results(1),Short)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub PocketNearestAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short)
Me.PocketNearestAsync(ToolIndex, Magazine, ActualPocket, Nothing)
End Sub
'''
Public Overloads Sub PocketNearestAsync(ByVal ToolIndex As Short, ByVal Magazine As Short, ByVal ActualPocket As Short, ByVal userState As Object)
If (Me.PocketNearestOperationCompleted Is Nothing) Then
Me.PocketNearestOperationCompleted = AddressOf Me.OnPocketNearestOperationCompleted
End If
Me.InvokeAsync("PocketNearest", New Object() {ToolIndex, Magazine, ActualPocket}, Me.PocketNearestOperationCompleted, userState)
End Sub
Private Sub OnPocketNearestOperationCompleted(ByVal arg As Object)
If (Not (Me.PocketNearestCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent PocketNearestCompleted(Me, New PocketNearestCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function ToolLife(ByVal ToolIndex As Short, ByVal Value As Double, ByRef RemLife As Double, ByRef ToolStatus As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("ToolLife", New Object() {ToolIndex, Value})
RemLife = CType(results(1),Double)
ToolStatus = CType(results(2),Short)
ErrClass = CType(results(3),UInteger)
ErrNum = CType(results(4),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ToolLifeAsync(ByVal ToolIndex As Short, ByVal Value As Double)
Me.ToolLifeAsync(ToolIndex, Value, Nothing)
End Sub
'''
Public Overloads Sub ToolLifeAsync(ByVal ToolIndex As Short, ByVal Value As Double, ByVal userState As Object)
If (Me.ToolLifeOperationCompleted Is Nothing) Then
Me.ToolLifeOperationCompleted = AddressOf Me.OnToolLifeOperationCompleted
End If
Me.InvokeAsync("ToolLife", New Object() {ToolIndex, Value}, Me.ToolLifeOperationCompleted, userState)
End Sub
Private Sub OnToolLifeOperationCompleted(ByVal arg As Object)
If (Not (Me.ToolLifeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ToolLifeCompleted(Me, New ToolLifeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function LoadTableFromFile( ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("LoadTableFromFile", New Object() {FileName, AuxFileName, TableType, Param1, Param2})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub LoadTableFromFileAsync(ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort)
Me.LoadTableFromFileAsync(FileName, AuxFileName, TableType, Param1, Param2, Nothing)
End Sub
'''
Public Overloads Sub LoadTableFromFileAsync(ByVal FileName As String, ByVal AuxFileName As String, ByVal TableType As UShort, ByVal Param1 As UShort, ByVal Param2 As UShort, ByVal userState As Object)
If (Me.LoadTableFromFileOperationCompleted Is Nothing) Then
Me.LoadTableFromFileOperationCompleted = AddressOf Me.OnLoadTableFromFileOperationCompleted
End If
Me.InvokeAsync("LoadTableFromFile", New Object() {FileName, AuxFileName, TableType, Param1, Param2}, Me.LoadTableFromFileOperationCompleted, userState)
End Sub
Private Sub OnLoadTableFromFileOperationCompleted(ByVal arg As Object)
If (Not (Me.LoadTableFromFileCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent LoadTableFromFileCompleted(Me, New LoadTableFromFileCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function MagConfigurePockets(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("MagConfigurePockets", New Object() {magNum, fPocket, lPocket, pockType, rndPock, nearCfg})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub MagConfigurePocketsAsync(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short)
Me.MagConfigurePocketsAsync(magNum, fPocket, lPocket, pockType, rndPock, nearCfg, Nothing)
End Sub
'''
Public Overloads Sub MagConfigurePocketsAsync(ByVal magNum As Short, ByVal fPocket As Short, ByVal lPocket As Short, ByVal pockType As Short, ByVal rndPock As Short, ByVal nearCfg As Short, ByVal userState As Object)
If (Me.MagConfigurePocketsOperationCompleted Is Nothing) Then
Me.MagConfigurePocketsOperationCompleted = AddressOf Me.OnMagConfigurePocketsOperationCompleted
End If
Me.InvokeAsync("MagConfigurePockets", New Object() {magNum, fPocket, lPocket, pockType, rndPock, nearCfg}, Me.MagConfigurePocketsOperationCompleted, userState)
End Sub
Private Sub OnMagConfigurePocketsOperationCompleted(ByVal arg As Object)
If (Not (Me.MagConfigurePocketsCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent MagConfigurePocketsCompleted(Me, New MagConfigurePocketsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function Cycle(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("Cycle", New Object() {ProcNum, Cmd})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub CycleAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort)
Me.CycleAsync(ProcNum, Cmd, Nothing)
End Sub
'''
Public Overloads Sub CycleAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByVal userState As Object)
If (Me.CycleOperationCompleted Is Nothing) Then
Me.CycleOperationCompleted = AddressOf Me.OnCycleOperationCompleted
End If
Me.InvokeAsync("Cycle", New Object() {ProcNum, Cmd}, Me.CycleOperationCompleted, userState)
End Sub
Private Sub OnCycleOperationCompleted(ByVal arg As Object)
If (Not (Me.CycleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent CycleCompleted(Me, New CycleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SyncroCycle(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SyncroCycle", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SyncroCycleAsync(ByVal ProcNum As UShort)
Me.SyncroCycleAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub SyncroCycleAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.SyncroCycleOperationCompleted Is Nothing) Then
Me.SyncroCycleOperationCompleted = AddressOf Me.OnSyncroCycleOperationCompleted
End If
Me.InvokeAsync("SyncroCycle", New Object() {ProcNum}, Me.SyncroCycleOperationCompleted, userState)
End Sub
Private Sub OnSyncroCycleOperationCompleted(ByVal arg As Object)
If (Not (Me.SyncroCycleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SyncroCycleCompleted(Me, New SyncroCycleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function Reset(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("Reset", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub ResetAsync(ByVal ProcNum As UShort)
Me.ResetAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub ResetAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.ResetOperationCompleted Is Nothing) Then
Me.ResetOperationCompleted = AddressOf Me.OnResetOperationCompleted
End If
Me.InvokeAsync("Reset", New Object() {ProcNum}, Me.ResetOperationCompleted, userState)
End Sub
Private Sub OnResetOperationCompleted(ByVal arg As Object)
If (Not (Me.ResetCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent ResetCompleted(Me, New ResetCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function Hold(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("Hold", New Object() {ProcNum, Cmd})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub HoldAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort)
Me.HoldAsync(ProcNum, Cmd, Nothing)
End Sub
'''
Public Overloads Sub HoldAsync(ByVal ProcNum As UShort, ByVal Cmd As UShort, ByVal userState As Object)
If (Me.HoldOperationCompleted Is Nothing) Then
Me.HoldOperationCompleted = AddressOf Me.OnHoldOperationCompleted
End If
Me.InvokeAsync("Hold", New Object() {ProcNum, Cmd}, Me.HoldOperationCompleted, userState)
End Sub
Private Sub OnHoldOperationCompleted(ByVal arg As Object)
If (Not (Me.HoldCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent HoldCompleted(Me, New HoldCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetFeedManOver(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetFeedManOver", New Object() {ProcNum, FeedManOver, Direction})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetFeedManOverAsync(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort)
Me.SetFeedManOverAsync(ProcNum, FeedManOver, Direction, Nothing)
End Sub
'''
Public Overloads Sub SetFeedManOverAsync(ByVal ProcNum As UShort, ByVal FeedManOver As UShort, ByVal Direction As UShort, ByVal userState As Object)
If (Me.SetFeedManOverOperationCompleted Is Nothing) Then
Me.SetFeedManOverOperationCompleted = AddressOf Me.OnSetFeedManOverOperationCompleted
End If
Me.InvokeAsync("SetFeedManOver", New Object() {ProcNum, FeedManOver, Direction}, Me.SetFeedManOverOperationCompleted, userState)
End Sub
Private Sub OnSetFeedManOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetFeedManOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetFeedManOverCompleted(Me, New SetFeedManOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetFeedRateOver(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetFeedRateOver", New Object() {ProcNum, FeedRateOver})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetFeedRateOverAsync(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort)
Me.SetFeedRateOverAsync(ProcNum, FeedRateOver, Nothing)
End Sub
'''
Public Overloads Sub SetFeedRateOverAsync(ByVal ProcNum As UShort, ByVal FeedRateOver As UShort, ByVal userState As Object)
If (Me.SetFeedRateOverOperationCompleted Is Nothing) Then
Me.SetFeedRateOverOperationCompleted = AddressOf Me.OnSetFeedRateOverOperationCompleted
End If
Me.InvokeAsync("SetFeedRateOver", New Object() {ProcNum, FeedRateOver}, Me.SetFeedRateOverOperationCompleted, userState)
End Sub
Private Sub OnSetFeedRateOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetFeedRateOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetFeedRateOverCompleted(Me, New SetFeedRateOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetFeedRapidOver(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetFeedRapidOver", New Object() {ProcNum, FeedRapidOver})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetFeedRapidOverAsync(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort)
Me.SetFeedRapidOverAsync(ProcNum, FeedRapidOver, Nothing)
End Sub
'''
Public Overloads Sub SetFeedRapidOverAsync(ByVal ProcNum As UShort, ByVal FeedRapidOver As UShort, ByVal userState As Object)
If (Me.SetFeedRapidOverOperationCompleted Is Nothing) Then
Me.SetFeedRapidOverOperationCompleted = AddressOf Me.OnSetFeedRapidOverOperationCompleted
End If
Me.InvokeAsync("SetFeedRapidOver", New Object() {ProcNum, FeedRapidOver}, Me.SetFeedRapidOverOperationCompleted, userState)
End Sub
Private Sub OnSetFeedRapidOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetFeedRapidOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetFeedRapidOverCompleted(Me, New SetFeedRapidOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetSpeedRateOver(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetSpeedRateOver", New Object() {ProcNum, SpeedRateOver})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetSpeedRateOverAsync(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort)
Me.SetSpeedRateOverAsync(ProcNum, SpeedRateOver, Nothing)
End Sub
'''
Public Overloads Sub SetSpeedRateOverAsync(ByVal ProcNum As UShort, ByVal SpeedRateOver As UShort, ByVal userState As Object)
If (Me.SetSpeedRateOverOperationCompleted Is Nothing) Then
Me.SetSpeedRateOverOperationCompleted = AddressOf Me.OnSetSpeedRateOverOperationCompleted
End If
Me.InvokeAsync("SetSpeedRateOver", New Object() {ProcNum, SpeedRateOver}, Me.SetSpeedRateOverOperationCompleted, userState)
End Sub
Private Sub OnSetSpeedRateOverOperationCompleted(ByVal arg As Object)
If (Not (Me.SetSpeedRateOverCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetSpeedRateOverCompleted(Me, New SetSpeedRateOverCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetManMovDirection(ByVal ProcNum As UShort, ByVal Direction As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetManMovDirection", New Object() {ProcNum, Direction})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetManMovDirectionAsync(ByVal ProcNum As UShort, ByVal Direction As UShort)
Me.SetManMovDirectionAsync(ProcNum, Direction, Nothing)
End Sub
'''
Public Overloads Sub SetManMovDirectionAsync(ByVal ProcNum As UShort, ByVal Direction As UShort, ByVal userState As Object)
If (Me.SetManMovDirectionOperationCompleted Is Nothing) Then
Me.SetManMovDirectionOperationCompleted = AddressOf Me.OnSetManMovDirectionOperationCompleted
End If
Me.InvokeAsync("SetManMovDirection", New Object() {ProcNum, Direction}, Me.SetManMovDirectionOperationCompleted, userState)
End Sub
Private Sub OnSetManMovDirectionOperationCompleted(ByVal arg As Object)
If (Not (Me.SetManMovDirectionCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetManMovDirectionCompleted(Me, New SetManMovDirectionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetVarJOG(ByVal ProcNum As UShort, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetVarJOG", New Object() {ProcNum})
Value = CType(results(1),Double)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetVarJOGAsync(ByVal ProcNum As UShort)
Me.GetVarJOGAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub GetVarJOGAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetVarJOGOperationCompleted Is Nothing) Then
Me.GetVarJOGOperationCompleted = AddressOf Me.OnGetVarJOGOperationCompleted
End If
Me.InvokeAsync("GetVarJOG", New Object() {ProcNum}, Me.GetVarJOGOperationCompleted, userState)
End Sub
Private Sub OnGetVarJOGOperationCompleted(ByVal arg As Object)
If (Not (Me.GetVarJOGCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetVarJOGCompleted(Me, New GetVarJOGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetVarJOG(ByVal ProcNum As UShort, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetVarJOG", New Object() {ProcNum, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetVarJOGAsync(ByVal ProcNum As UShort, ByVal Value As Double)
Me.SetVarJOGAsync(ProcNum, Value, Nothing)
End Sub
'''
Public Overloads Sub SetVarJOGAsync(ByVal ProcNum As UShort, ByVal Value As Double, ByVal userState As Object)
If (Me.SetVarJOGOperationCompleted Is Nothing) Then
Me.SetVarJOGOperationCompleted = AddressOf Me.OnSetVarJOGOperationCompleted
End If
Me.InvokeAsync("SetVarJOG", New Object() {ProcNum, Value}, Me.SetVarJOGOperationCompleted, userState)
End Sub
Private Sub OnSetVarJOGOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarJOGCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarJOGCompleted(Me, New SetVarJOGCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetVarUAS(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetVarUAS", New Object() {ProcNum, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetVarUASAsync(ByVal ProcNum As UShort, ByVal Mode As UShort)
Me.SetVarUASAsync(ProcNum, Mode, Nothing)
End Sub
'''
Public Overloads Sub SetVarUASAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.SetVarUASOperationCompleted Is Nothing) Then
Me.SetVarUASOperationCompleted = AddressOf Me.OnSetVarUASOperationCompleted
End If
Me.InvokeAsync("SetVarUAS", New Object() {ProcNum, Mode}, Me.SetVarUASOperationCompleted, userState)
End Sub
Private Sub OnSetVarUASOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarUASCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarUASCompleted(Me, New SetVarUASCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetVarRCM(ByVal ProcNum As UShort, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetVarRCM", New Object() {ProcNum})
Value = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetVarRCMAsync(ByVal ProcNum As UShort)
Me.GetVarRCMAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub GetVarRCMAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetVarRCMOperationCompleted Is Nothing) Then
Me.GetVarRCMOperationCompleted = AddressOf Me.OnGetVarRCMOperationCompleted
End If
Me.InvokeAsync("GetVarRCM", New Object() {ProcNum}, Me.GetVarRCMOperationCompleted, userState)
End Sub
Private Sub OnGetVarRCMOperationCompleted(ByVal arg As Object)
If (Not (Me.GetVarRCMCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetVarRCMCompleted(Me, New GetVarRCMCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetVarRCM(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetVarRCM", New Object() {ProcNum, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetVarRCMAsync(ByVal ProcNum As UShort, ByVal Mode As UShort)
Me.SetVarRCMAsync(ProcNum, Mode, Nothing)
End Sub
'''
Public Overloads Sub SetVarRCMAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.SetVarRCMOperationCompleted Is Nothing) Then
Me.SetVarRCMOperationCompleted = AddressOf Me.OnSetVarRCMOperationCompleted
End If
Me.InvokeAsync("SetVarRCM", New Object() {ProcNum, Mode}, Me.SetVarRCMOperationCompleted, userState)
End Sub
Private Sub OnSetVarRCMOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarRCMCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarRCMCompleted(Me, New SetVarRCMCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetVarCYCTIME(ByVal ProcNum As UShort, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetVarCYCTIME", New Object() {ProcNum})
Value = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetVarCYCTIMEAsync(ByVal ProcNum As UShort)
Me.GetVarCYCTIMEAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub GetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetVarCYCTIMEOperationCompleted Is Nothing) Then
Me.GetVarCYCTIMEOperationCompleted = AddressOf Me.OnGetVarCYCTIMEOperationCompleted
End If
Me.InvokeAsync("GetVarCYCTIME", New Object() {ProcNum}, Me.GetVarCYCTIMEOperationCompleted, userState)
End Sub
Private Sub OnGetVarCYCTIMEOperationCompleted(ByVal arg As Object)
If (Not (Me.GetVarCYCTIMECompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetVarCYCTIMECompleted(Me, New GetVarCYCTIMECompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetVarCYCTIME(ByVal ProcNum As UShort, ByVal Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetVarCYCTIME", New Object() {ProcNum, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal Value As UShort)
Me.SetVarCYCTIMEAsync(ProcNum, Value, Nothing)
End Sub
'''
Public Overloads Sub SetVarCYCTIMEAsync(ByVal ProcNum As UShort, ByVal Value As UShort, ByVal userState As Object)
If (Me.SetVarCYCTIMEOperationCompleted Is Nothing) Then
Me.SetVarCYCTIMEOperationCompleted = AddressOf Me.OnSetVarCYCTIMEOperationCompleted
End If
Me.InvokeAsync("SetVarCYCTIME", New Object() {ProcNum, Value}, Me.SetVarCYCTIMEOperationCompleted, userState)
End Sub
Private Sub OnSetVarCYCTIMEOperationCompleted(ByVal arg As Object)
If (Not (Me.SetVarCYCTIMECompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetVarCYCTIMECompleted(Me, New SetVarCYCTIMECompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetProcVarWord(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByRef Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetProcVarWord", New Object() {ProcNum, VarType})
Value = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE)
Me.GetProcVarWordAsync(ProcNum, VarType, Nothing)
End Sub
'''
Public Overloads Sub GetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal userState As Object)
If (Me.GetProcVarWordOperationCompleted Is Nothing) Then
Me.GetProcVarWordOperationCompleted = AddressOf Me.OnGetProcVarWordOperationCompleted
End If
Me.InvokeAsync("GetProcVarWord", New Object() {ProcNum, VarType}, Me.GetProcVarWordOperationCompleted, userState)
End Sub
Private Sub OnGetProcVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcVarWordCompleted(Me, New GetProcVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetProcVarWord(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetProcVarWord", New Object() {ProcNum, VarType, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort)
Me.SetProcVarWordAsync(ProcNum, VarType, Value, Nothing)
End Sub
'''
Public Overloads Sub SetProcVarWordAsync(ByVal ProcNum As UShort, ByVal VarType As PROCWORDVARTYPE, ByVal Value As UShort, ByVal userState As Object)
If (Me.SetProcVarWordOperationCompleted Is Nothing) Then
Me.SetProcVarWordOperationCompleted = AddressOf Me.OnSetProcVarWordOperationCompleted
End If
Me.InvokeAsync("SetProcVarWord", New Object() {ProcNum, VarType, Value}, Me.SetProcVarWordOperationCompleted, userState)
End Sub
Private Sub OnSetProcVarWordOperationCompleted(ByVal arg As Object)
If (Not (Me.SetProcVarWordCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetProcVarWordCompleted(Me, New SetProcVarWordCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetProcVarDouble(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByRef Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetProcVarDouble", New Object() {ProcNum, VarType})
Value = CType(results(1),Double)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE)
Me.GetProcVarDoubleAsync(ProcNum, VarType, Nothing)
End Sub
'''
Public Overloads Sub GetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal userState As Object)
If (Me.GetProcVarDoubleOperationCompleted Is Nothing) Then
Me.GetProcVarDoubleOperationCompleted = AddressOf Me.OnGetProcVarDoubleOperationCompleted
End If
Me.InvokeAsync("GetProcVarDouble", New Object() {ProcNum, VarType}, Me.GetProcVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnGetProcVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.GetProcVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetProcVarDoubleCompleted(Me, New GetProcVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetProcVarDouble(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetProcVarDouble", New Object() {ProcNum, VarType, Value})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double)
Me.SetProcVarDoubleAsync(ProcNum, VarType, Value, Nothing)
End Sub
'''
Public Overloads Sub SetProcVarDoubleAsync(ByVal ProcNum As UShort, ByVal VarType As PROCDOUBLEVARTYPE, ByVal Value As Double, ByVal userState As Object)
If (Me.SetProcVarDoubleOperationCompleted Is Nothing) Then
Me.SetProcVarDoubleOperationCompleted = AddressOf Me.OnSetProcVarDoubleOperationCompleted
End If
Me.InvokeAsync("SetProcVarDouble", New Object() {ProcNum, VarType, Value}, Me.SetProcVarDoubleOperationCompleted, userState)
End Sub
Private Sub OnSetProcVarDoubleOperationCompleted(ByVal arg As Object)
If (Not (Me.SetProcVarDoubleCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetProcVarDoubleCompleted(Me, New SetProcVarDoubleCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetMdiString(ByVal ProcNum As UShort, ByVal MdiString As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetMdiString", New Object() {ProcNum, MdiString})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetMdiStringAsync(ByVal ProcNum As UShort, ByVal MdiString As String)
Me.SetMdiStringAsync(ProcNum, MdiString, Nothing)
End Sub
'''
Public Overloads Sub SetMdiStringAsync(ByVal ProcNum As UShort, ByVal MdiString As String, ByVal userState As Object)
If (Me.SetMdiStringOperationCompleted Is Nothing) Then
Me.SetMdiStringOperationCompleted = AddressOf Me.OnSetMdiStringOperationCompleted
End If
Me.InvokeAsync("SetMdiString", New Object() {ProcNum, MdiString}, Me.SetMdiStringOperationCompleted, userState)
End Sub
Private Sub OnSetMdiStringOperationCompleted(ByVal arg As Object)
If (Not (Me.SetMdiStringCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetMdiStringCompleted(Me, New SetMdiStringCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SetProcessMode(ByVal ProcNum As UShort, ByVal Mode As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SetProcessMode", New Object() {ProcNum, Mode})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SetProcessModeAsync(ByVal ProcNum As UShort, ByVal Mode As UShort)
Me.SetProcessModeAsync(ProcNum, Mode, Nothing)
End Sub
'''
Public Overloads Sub SetProcessModeAsync(ByVal ProcNum As UShort, ByVal Mode As UShort, ByVal userState As Object)
If (Me.SetProcessModeOperationCompleted Is Nothing) Then
Me.SetProcessModeOperationCompleted = AddressOf Me.OnSetProcessModeOperationCompleted
End If
Me.InvokeAsync("SetProcessMode", New Object() {ProcNum, Mode}, Me.SetProcessModeOperationCompleted, userState)
End Sub
Private Sub OnSetProcessModeOperationCompleted(ByVal arg As Object)
If (Not (Me.SetProcessModeCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SetProcessModeCompleted(Me, New SetProcessModeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SelectProcess(ByVal ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SelectProcess", New Object() {ProcNum})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SelectProcessAsync(ByVal ProcNum As UShort)
Me.SelectProcessAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub SelectProcessAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.SelectProcessOperationCompleted Is Nothing) Then
Me.SelectProcessOperationCompleted = AddressOf Me.OnSelectProcessOperationCompleted
End If
Me.InvokeAsync("SelectProcess", New Object() {ProcNum}, Me.SelectProcessOperationCompleted, userState)
End Sub
Private Sub OnSelectProcessOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectProcessCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectProcessCompleted(Me, New SelectProcessCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetSelectedProcess(ByRef ProcNum As UShort, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetSelectedProcess", New Object(-1) {})
ProcNum = CType(results(1),UShort)
ErrClass = CType(results(2),UInteger)
ErrNum = CType(results(3),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetSelectedProcessAsync()
Me.GetSelectedProcessAsync(Nothing)
End Sub
'''
Public Overloads Sub GetSelectedProcessAsync(ByVal userState As Object)
If (Me.GetSelectedProcessOperationCompleted Is Nothing) Then
Me.GetSelectedProcessOperationCompleted = AddressOf Me.OnGetSelectedProcessOperationCompleted
End If
Me.InvokeAsync("GetSelectedProcess", New Object(-1) {}, Me.GetSelectedProcessOperationCompleted, userState)
End Sub
Private Sub OnGetSelectedProcessOperationCompleted(ByVal arg As Object)
If (Not (Me.GetSelectedProcessCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetSelectedProcessCompleted(Me, New GetSelectedProcessCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SelectProcAxis(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SelectProcAxis", New Object() {ProcNum, AxisName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SelectProcAxisAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte)
Me.SelectProcAxisAsync(ProcNum, AxisName, Nothing)
End Sub
'''
Public Overloads Sub SelectProcAxisAsync(ByVal ProcNum As UShort, ByVal AxisName As Byte, ByVal userState As Object)
If (Me.SelectProcAxisOperationCompleted Is Nothing) Then
Me.SelectProcAxisOperationCompleted = AddressOf Me.OnSelectProcAxisOperationCompleted
End If
Me.InvokeAsync("SelectProcAxis", New Object() {ProcNum, AxisName}, Me.SelectProcAxisOperationCompleted, userState)
End Sub
Private Sub OnSelectProcAxisOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectProcAxisCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectProcAxisCompleted(Me, New SelectProcAxisCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SelectPartProgram(ByVal ProcNum As UShort, ByVal PPName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SelectPartProgram", New Object() {ProcNum, PPName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SelectPartProgramAsync(ByVal ProcNum As UShort, ByVal PPName As String)
Me.SelectPartProgramAsync(ProcNum, PPName, Nothing)
End Sub
'''
Public Overloads Sub SelectPartProgramAsync(ByVal ProcNum As UShort, ByVal PPName As String, ByVal userState As Object)
If (Me.SelectPartProgramOperationCompleted Is Nothing) Then
Me.SelectPartProgramOperationCompleted = AddressOf Me.OnSelectPartProgramOperationCompleted
End If
Me.InvokeAsync("SelectPartProgram", New Object() {ProcNum, PPName}, Me.SelectPartProgramOperationCompleted, userState)
End Sub
Private Sub OnSelectPartProgramOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectPartProgramCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectPartProgramCompleted(Me, New SelectPartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function SelectPartProgramFromDrive(ByVal ProcNum As UShort, ByVal PPName As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("SelectPartProgramFromDrive", New Object() {ProcNum, PPName})
ErrClass = CType(results(1),UInteger)
ErrNum = CType(results(2),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub SelectPartProgramFromDriveAsync(ByVal ProcNum As UShort, ByVal PPName As String)
Me.SelectPartProgramFromDriveAsync(ProcNum, PPName, Nothing)
End Sub
'''
Public Overloads Sub SelectPartProgramFromDriveAsync(ByVal ProcNum As UShort, ByVal PPName As String, ByVal userState As Object)
If (Me.SelectPartProgramFromDriveOperationCompleted Is Nothing) Then
Me.SelectPartProgramFromDriveOperationCompleted = AddressOf Me.OnSelectPartProgramFromDriveOperationCompleted
End If
Me.InvokeAsync("SelectPartProgramFromDrive", New Object() {ProcNum, PPName}, Me.SelectPartProgramFromDriveOperationCompleted, userState)
End Sub
Private Sub OnSelectPartProgramFromDriveOperationCompleted(ByVal arg As Object)
If (Not (Me.SelectPartProgramFromDriveCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent SelectPartProgramFromDriveCompleted(Me, New SelectPartProgramFromDriveCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetActivePartProgram(ByVal ProcNum As UShort, ByRef Level As UShort, ByRef Main As String, ByRef [Sub] As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetActivePartProgram", New Object() {ProcNum})
Level = CType(results(1),UShort)
Main = CType(results(2),String)
[Sub] = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetActivePartProgramAsync(ByVal ProcNum As UShort)
Me.GetActivePartProgramAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub GetActivePartProgramAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetActivePartProgramOperationCompleted Is Nothing) Then
Me.GetActivePartProgramOperationCompleted = AddressOf Me.OnGetActivePartProgramOperationCompleted
End If
Me.InvokeAsync("GetActivePartProgram", New Object() {ProcNum}, Me.GetActivePartProgramOperationCompleted, userState)
End Sub
Private Sub OnGetActivePartProgramOperationCompleted(ByVal arg As Object)
If (Not (Me.GetActivePartProgramCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetActivePartProgramCompleted(Me, New GetActivePartProgramCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetActivePartProgramFullPath(ByVal ProcNum As UShort, ByRef Level As UShort, ByRef Main As String, ByRef [Sub] As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As UShort
Dim results() As Object = Me.Invoke("GetActivePartProgramFullPath", New Object() {ProcNum})
Level = CType(results(1),UShort)
Main = CType(results(2),String)
[Sub] = CType(results(3),String)
ErrClass = CType(results(4),UInteger)
ErrNum = CType(results(5),UInteger)
Return CType(results(0),UShort)
End Function
'''
Public Overloads Sub GetActivePartProgramFullPathAsync(ByVal ProcNum As UShort)
Me.GetActivePartProgramFullPathAsync(ProcNum, Nothing)
End Sub
'''
Public Overloads Sub GetActivePartProgramFullPathAsync(ByVal ProcNum As UShort, ByVal userState As Object)
If (Me.GetActivePartProgramFullPathOperationCompleted Is Nothing) Then
Me.GetActivePartProgramFullPathOperationCompleted = AddressOf Me.OnGetActivePartProgramFullPathOperationCompleted
End If
Me.InvokeAsync("GetActivePartProgramFullPath", New Object() {ProcNum}, Me.GetActivePartProgramFullPathOperationCompleted, userState)
End Sub
Private Sub OnGetActivePartProgramFullPathOperationCompleted(ByVal arg As Object)
If (Not (Me.GetActivePartProgramFullPathCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent GetActivePartProgramFullPathCompleted(Me, New GetActivePartProgramFullPathCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''
_
Public Function GetPartProgramLines(ByVal ProcNum As UShort, ByRef PPLine1 As String, ByRef PPLine2 As String, ByRef PPLine3 As String, ByRef PPLine4 As String, ByRef PPLine5 As String, ByRef PPLine6 As String, ByRef PPLine7 As String, ByRef PPLine8 As String, ByRef ErrClass As UInteger, ByRef ErrNum As UInteger) As