チャンネルの値をDoubleとして戻したり、設定したりします。
// get accessor Object rtn = Channel.Value; // set accessor Channel.Value = Object; |
Application.Devices.enable = true ' first add the device if it is not there yet set oDevice = Application.Devices.Item("PC1600") If TypeName (oDevice) = "Nothing" Then set oDevice = Application.Devices.AddDevice( "PC1600" ) End If set oChannel = oDevice.Channel(1) logmessage "The channel 1 value is " & oChannel.Value oChannel.Value = oChannel.Value + 10 logmessage "Added 10 to the value, now: " & oChannel.Value |