Stores control settings.
| Type | Member Name | Description | Default Value |
|---|---|---|---|
| Double | Timeout | Timeout period (1 to 9999 seconds) | 5 |
| Double | Wait | Wait before transmission (0 to 9999 seconds) | 0 |
| Int32 | RepeatNum | Number of repetitions (0 to 9999 times) | 1 |
Stores option settings.
| Type | Member Name | Description | Default Value |
|---|---|---|---|
| Boolean | SendCheck | Check before sending (true:Confirm, false:Don’t confirm) | false |
| Boolean | NotOverWriteMsg | No overwrite message (true:Don’t show, false:Show) | false |
| Boolean | NotEndMsg | No end message (true:Don’t show, false:Show) | false |
| Boolean | TimeLog | Output time stamp (true:Output, false:Don’t output) | false |
| Boolean | CommTimeLog | Output communication time (true:Output, false:Don’t output) | false |
| Boolean | OverWrite | Overwrite with repeat (true:Output, false:Don’t output) | false |
| Boolean | SeparateComma | Split by delimiter (true:Split, false:Don’t split) | false |
| String | ExponentFormat | Exponential display format | "###.0#########E+00" |
| String | LineAccessToken | LINE access token | "" |
| String | ContecDigitalIoDeviceName | V1.60～ CONTEC digital
input/output device name |
"" |
| Boolean | CameraEnable | V1.70～ Enable camera
(true:Enable, false:Disable) |
false |
| String | CameraDeviceName | V1.70～ Camera device
name |
"" |
| String[6] | SeparateDelimiter | V1.70～ Delimiter |
",", ";", "/" |
It is not possible to access the SeparateDelimiter array directly
from VBA.
To get, use the
String OptionParameter.GetSeparateDelimiter(Int32 index)
method.
The index argument is the index of the array (0 to 5).
To set, use the
void OptionParameter.SetSeparateDelimiter(Int32 index, String delimiter)
method.
The index argument is the index of the array (0 to 5), and
the delimiter argument is the delimiter character.
V1.70～ Stores virtual interface command.
| Type | Member Name | Description | Default Value |
|---|---|---|---|
| String | Command | Command | "" |
| String | Response | Response | "" |
Stores interface settings.
| Type | Member Name | Description | Default Value |
|---|---|---|---|
| Int32 | InterfaceType | Interface (0:Not used, 1:RS-232C/USB, 2:LAN, 3:GPIB(NI), 4:GPIB(CONTEC), 5:VISA, 6:Virtual) | 0 |
| Int32 | Terminator | Transmit terminator (0:None, 1:CR+LF, 2:CR, 3:LF) | 1 |
| Int32 | Charset | Charset (0:ASCII, 1:UTF-8, 2:Shift-JIS) | 0 |
| String | RsComPort | RS-232C/USB COM Port | "" |
| Int32 | RsSpeed | RS-232C/USB Speed (4800, 9600, 14400, 19200, 38400, 57600, 115200) | 9600 |
| Int32 | RsData | RS-232C/USB Data (0:7bit, 1:8bit) | 1 |
| Int32 | RsParity | RS-232C/USB Parity (0:None, 1:Odd, 2:Even) | 0 |
| Int32 | RsStopBits | RS-232C/USB Stop bits (0:1bit, 1:2bit) | 0 |
| Boolean | RsFlowXon | RS-232C/USB Flow control Xon/Xoff (true:On, false:Off) | false |
| Boolean | RsFlowRts | RS-232C/USB Flow control RTS/CTS (true:On, false:Off) | true |
| Boolean | RsFlowDsr | RS-232C/USB Flow control DSR/DTR (true:On, false:Off) | true |
| String | LanIp | LAN IP address | "192.168.1.1" |
| Int32 | LanPort | LAN Port | 6866 |
| Int32 | GpibNiBoardId | GPIB(NI) Board ID (0 to 99) | 0 |
| Int32 | GpibNiAddress | GPIB(NI) Address (0 to 30) | 1 |
| Boolean | GpibNiDcl | GPIB(NI) Device clear when connected (true:Clear, false:Don’t clear) | true |
| Boolean | GpibNiEoi | GPIB(NI) Use EOI (true:Use, false:Don’t use) | true |
| Int32 | GpibContecBoardId | GPIB(CONTEC) Driver No. (1 to 4) | 1 |
| Int32 | GpibContecAddress | GPIB(CONTEC) Address (0 to 30) | 1 |
| Boolean | GpibContecDcl | GPIB(CONTEC) Device clear when connected (true:Clear, false:Don’t clear) | true |
| Boolean | GpibContecEoi | GPIB(CONTEC) Use EOI (true:Use, false:Don’t use) | true |
| String | VisaAddress | VISA Address | "" |
| Boolean | VisaEom | VISA Use EOM (true:Use, false:Don’t use) | false |
| VirtualCommand[100] | VirtualCommand | V1.70～ Virtual Interface
Command |
":INPUT?","${INPUT}" |
| Boolean | VirtualScpi | V1.70～ Virtual Interface
Corresponds to SCPI (true:Correspond, false:Not correspond) |
true |
It is not possible to access the VirtualCommand array directly from
VBA.
Accessed via a reference obtained with the
VirtualCommand InterfaceParameter.GetVirtualCommand(Int32 index)
method.
The index argument is the index of the array (0 to 99).
Stores all settings for Sequence Maker.
| Type | Member Name | Description |
|---|---|---|
| ControlParameter | ControlParameter | Control settings |
| OptionParameter | OptionParameter | Option settings |
| InterfaceParameter[12] | InterfaceParameter | Interface settings |
It is not possible to access the InterfaceParameter array directly
from VBA.
Accessed via a reference obtained with the
InterfaceParameter SequenceMakerParameter.GetInterfaceParameter(Int32 index)
method.
The index argument is the index of the array (0 to 11).
Stores binary messages.
| Type | Member Name | Description | Default Value |
|---|---|---|---|
| Byte[] | Data | Data | null |
| Int32 | Length | Data Length | 0 |
Start sending/receiving.
Int32 Start(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim result As Long
result = automationObject.Start()
If result <> 0 Then
Exit Sub
End IfThis is the same function as clicking the Send Command
button on the Sequence Maker ribbon.
It does not return from the
method until the send/receive is complete.
Stop sending/receiving.
Int32 Stop(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim result As Long
result = automationObject.Stop()
If result <> 0 Then
Exit Sub
End IfThis is the same function as clicking the Stop button on
the Sequence Maker ribbon.
The Start() method does not return from
the method until the send/receive is complete, so it is used when the
send/receive is started with the Send Command button on the
ribbon.
Returns send/receive status.
Int32 GetStatus(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim result As Long
result = automationObject.GetStatus()Get control settings.
Int32 GetControlSetting(ref ControlParameter controlSetting); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim controlSetting As Variant
Set controlSetting = automationObject.CreateControlParameter()
Dim result As Long
result = automationObject.GetControlSetting(controlSetting)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateControlParameter() method in the control settings argument.
Set control settings.
Int32 SetControlSetting(ControlParameter controlSetting); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim controlSetting As Variant
Set controlSetting = automationObject.CreateControlParameter()
Dim result As Long
controlSetting.Timeout = 5#
result = automationObject.SetControlSetting(controlSetting)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateControlParameter() method in the control settings argument.
Get option settings.
Int32 GetOptionSetting(ref OptionParameter optionSetting); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim optionSetting As Variant
Set optionSetting = automationObject.CreateOptionParameter()
Dim result As Long
result = automationObject.GetOptionSetting(optionSetting)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateOptionParameter() method in the option settings argument.
Set option settings.
Int32 SetOptionSetting(OptionParameter optionSetting); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim optionSetting As Variant
Set optionSetting = automationObject.CreateOptionParameter()
Dim result As Long
optionSetting.SendCheck = False
result = automationObject.SetOptionSetting(optionSetting)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateOptionParameter() method in the option settings argument.
V1.70～ Get virtual interface command.
Int32 GetVirtualCommand(ref VirtualCommand virtualCommand, Int32 interfaceNo, Int32 commandNo);Interface No. (1 to 12)
Command No. (1 to 100)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim virtualCommand As Variant
Set virtualCommand = automationObject.CreateVirtualCommand()
Dim result As Long
result = automationObject.GetVirtualCommand(virtualCommand, 1, 1)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateVirtualCommand() method in the virtual interface command argument.
V1.70～ Set virtual interface command.
Int32 SetVirtualCommand(VirtualCommand virtualCommand, Int32 interfaceNo, Int32 commandNo);Interface No. (1 to 12)
Command No. (1 to 100)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim virtualCommand As Variant
Set virtualCommand = automationObject.CreateVirtualCommand()
Dim result As Long
virtualCommand.Command = "*IDN?"
virtualCommand.Response = "VIRTUAL"
result = automationObject.SetVirtualCommand(virtualCommand, 1, 1)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateVirtualCommand() method in the virtual interface command argument.
Get interface settings.
Int32 GetInterfaceSetting(ref InterfaceParameter interfaceSetting, Int32 interfaceNo);Interface No. (1 to 12)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim interfaceSetting As Variant
Set interfaceSetting = automationObject.CreateInterfaceParameter()
Dim result As Long
result = automationObject.GetInterfaceSetting(interfaceSetting, 1)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateInterfaceParameter() method in the interface settings argument.
Set interface settings.
Int32 SetInterfaceSetting(InterfaceParameter interfaceSetting, Int32 interfaceNo);Interface No. (1 to 12)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim interfaceSetting As Variant
Set interfaceSetting = automationObject.CreateInterfaceParameter()
Dim result As Long
interfaceSetting.InterfaceType = 1
result = automationObject.SetInterfaceSetting(interfaceSetting, 1)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateInterfaceParameter() method in the interface settings argument.
Get Sequence Maker settings.
Int32 GetSequenceMakerSetting(ref SequenceMakerParameter sequenceMakerSetting); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim sequenceMakerSetting As Variant
Set sequenceMakerSetting = automationObject.CreateSequenceMakerParameter()
Dim result As Long
result = automationObject.GetSequenceMakerSetting(sequenceMakerSetting)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateSequenceMakerParameter() method in the Sequence Maker settings argument.
Set Sequence Maker settings.
Int32 SetSequenceMakerSetting(SequenceMakerParameter sequenceMakerSetting); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim sequenceMakerSetting As Variant
Set sequenceMakerSetting = automationObject.CreateSequenceMakerParameter()
Dim interfaceSetting As Variant
Dim result As Long
sequenceMakerSetting.ControlParameter.Timeout = 5#
sequenceMakerSetting.OptionParameter.SendCheck = False
Set interfaceSetting = sequenceMakerSetting.GetInterfaceParameter(0)
interfaceSetting.InterfaceType = 1
result = automationObject.SetSequenceMakerSetting(sequenceMakerSetting)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateSequenceMakerParameter() method in the Sequence Maker settings argument.
Reading Sequence Maker settings from a file.
Int32 ReadSequenceMakerSetting(ref SequenceMakerParameter sequenceMakerSetting,
String pathname);Settings file name
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim sequenceMakerSetting As Variant
Set sequenceMakerSetting = automationObject.CreateSequenceMakerParameter()
Dim result As Long
result = automationObject.ReadSequenceMakerSetting(sequenceMakerSetting, "SequenceMaker.xml")
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateSequenceMakerParameter() method in the Sequence Maker settings argument.
Write Sequence Maker settings to a file.
Int32 WriteSequenceMakerSetting(SequenceMakerParameter sequenceMakerSetting,
String pathname);Settings file name
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim sequenceMakerSetting As Variant
Set sequenceMakerSetting = automationObject.CreateSequenceMakerParameter()
Dim result As Long
result = automationObject.WriteSequenceMakerSetting(sequenceMakerSetting, "SequenceMaker.xml")
If result <> 0 Then
Exit Sub
End IfSpecify the instance created by the CreateSequenceMakerParameter() method in the Sequence Maker settings argument.
Create an instance of ControlParameter.
ControlParameter CreateControlParameter(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim controlSetting As Variant
Set controlSetting = automationObject.CreateControlParameter()Create an instance of OptionParameter.
OptionParameter CreateOptionParameter(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim optionSetting As Variant
Set optionSetting = automationObject.CreateOptionParameter()V1.70～ Create an instance of VirtualCommand.
VirtualCommand CreateVirtualCommand(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim virtualCommand As Variant
Set virtualCommand = automationObject.CreateVirtualCommand()Create an instance of InterfaceParameter.
InterfaceParameter CreateInterfaceParameter(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim interfaceSetting As Variant
Set interfaceSetting = automationObject.CreateInterfaceParameter()Create an instance of SequenceMakerParameter.
SequenceMakerParameter CreateSequenceMakerParameter(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim sequenceMakerSetting As Variant
Set sequenceMakerSetting = automationObject.CreateSequenceMakerParameter()Create an instance of BinaryData.
BinaryData CreateBinaryData(); Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim binaryData As Variant
Set binaryData = automationObject.CreateBinaryData()Open interface.
Int32 InterfaceOpen(Int32 interfaceNo);Interface No. (1 to 12)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim result As Long
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfClose interface.
Int32 InterfaceClose(Int32 interfaceNo);Interface No. (1 to 12)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim result As Long
result = automationObject.InterfaceOpen(1)
If result <> 0 Then
Exit Sub
End If
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfSend message.
Int32 SendMessage(Int32 interfaceNo, String sendMessage);Interface No. (1 to 12)
Message to send
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim result As Long
result = automationObject.InterfaceOpen(1)
If result <> 0 Then
Exit Sub
End If
result = automationObject.SendMessage(1, "*TRG")
If result <> 0 Then
Call automationObject.InterfaceClose(1)
Exit Sub
End If
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfV1.70～ Send binary message.
Int32 SendBinary(Int32 interfaceNo, Byte[] sendMessage);Interface No. (1 to 12)
Message to send
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim sendMessage(3) As Byte
Dim result As Long
result = automationObject.InterfaceOpen(1)
If result <> 0 Then
Exit Sub
End If
sendMessage(0) = &H25
sendMessage(1) = &H00
sendMessage(2) = &H01
sendMessage(3) = &H25
result = automationObject.SendBinary(1, sendMessage())
If result <> 0 Then
Call automationObject.InterfaceClose(1)
Exit Sub
End If
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfReceive message.
Int32 ReceiveMessage(Int32 interfaceNo, ref String receiveMessage, Double timeout);Interface No. (1 to 12)
Received message
Timeout period (1 to 9999 seconds)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim receiveMessage As String
Dim result As Long
result = automationObject.InterfaceOpen(1)
If result <> 0 Then
Exit Sub
End If
result = automationObject.ReceiveMessage(1, receiveMessage, 5#)
If result <> 0 Then
Call automationObject.InterfaceClose(1)
Exit Sub
End If
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfSend and receive message.
Int32 SendReceiveMessage(Int32 interfaceNo, String sendMessage,
ref String receiveMessage, Double timeout);Interface No. (1 to 12)
Message to send
Received message
Timeout period (1 to 9999 seconds)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim receiveMessage As String
Dim result As Long
result = automationObject.InterfaceOpen(1)
If result <> 0 Then
Exit Sub
End If
result = automationObject.SendReceiveMessage(1, ":MEASure?", receiveMessage, 5#)
If result <> 0 Then
Call automationObject.InterfaceClose(1)
Exit Sub
End If
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfSend and receive binary command message.
Int32 SendReceiveIeeeBinary(Int32 interfaceNo, String sendMessage,
ref BinaryData receiveMessage, Double timeout);Interface No. (1 to 12)
Message to send
Timeout period (1 to 9999 seconds)
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim receiveMessage As Variant
Set receiveMessage = automationObject.CreateBinaryData()
Dim result As Long
result = automationObject.InterfaceOpen(1)
If result <> 0 Then
Exit Sub
End If
result = automationObject.SendReceiveIeeeBinary(1, ":HCOPy:DATA? COLor", receiveMessage, 10#)
If result <> 0 Then
Call automationObject.InterfaceClose(1)
Exit Sub
End If
result = automationObject.InterfaceClose(1)
If result <> 0 Then
Exit Sub
End IfSpecify the instance created with the CreateBinaryData() method for the receive message argument.
Get COM Port names.
String[] GetComPortName();COM Port names
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim comPortName() As String
comPortName = automationObject.GetComPortName()Get VISA Addresses.
String[] GetVisaAddress();VISA Addresses
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim visaAddress() As String
visaAddress = automationObject.GetVisaAddress()Get CONTEC digital input/output device names.
String[] GetContecDigitalIoDeviceName();V1.70～ CONTEC digital input/output device names
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim contecDigitalIoDeviceName() As String
contecDigitalIoDeviceName = automationObject.GetContecDigitalIoDeviceName()V1.70～ Get Camera device names.
String[] GetCameraDeviceName();Camera device names
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim cameraDeviceName() As String
cameraDeviceName = automationObject.GetCameraDeviceName()Get Sequence Maker version number.
String GetVersion();Version number
Dim automationObject As Object
Set automationObject = Application.COMAddIns("Sequence Maker").Object
Dim version As String
version = automationObject.GetVersion()| Value | Description |
|---|---|
| 0 | Success. |
| 1 | Sending/Receiving. |
| 2 | Stopped. |
| 3 | Argument type is wrong. |
| 4 | Interface No. is out of range. |
| 5 | Interface is opened. |
| 6 | Interface is closed. |
| 7 | Driver is not installed. |
| 8 | Driver version is out of date. |
| 9 | Interface not selected. |
| 10 | Interface open failed. |
| 11 | Timeout period is out of range. |
| 12 | Send/Receive failure. |
| 13 | File does not exist. |
| 14 | File access failure. |
| 15 | V1.70～ Command No. is out of
range. |
Sequence Maker
Dim addIn As COMAddIn
Dim automationObject As Object
Set addIn = Application.COMAddIns("Sequence Maker")
Set automationObject = addIn.Object