Template:Language - Visual Basic .Net Editing The Examples
From Phidgets Support
The Visual Basic .Net examples are derived from the Windows Phidget Control Panel, so you'll need to modify a few things to adapt them for your own purposes. To begin with, you can remove the following line:
commandLineData phidgetParameters = open.parseCmdLine(); //get command line parameters
Then, you can modify any line that mentions phidgetParameters
by setting it to the desired value instead of using PhidgetParameters object.
For instance:
Try 'set all the values grabbed from command line. these values have defaults that are set in ExampleUtils.vb, you can check there to see them
device.Channel = phidgetParameters.Channel 'selects the channel on the device to open
device.DeviceSerialNumber = phidgetParameters.SerialNumber 'selects the device or hub to open
device.HubPort = phidgetParameters.HubPort 'selects th eport on the hub to open
device.IsHubPortDevice = phidgetParameters.isHubPortDevice 'is the device a port on a vint hub?
If phidgetParameters.isRemote Then 'are we trying to open a remote device?
device.IsRemote = True
Net.EnableServerDiscovery(ServerType.Device) 'turn on network scan
If phidgetParameters.Password <> vbNullString And
phidgetParameters.ServerName <> vbNullString Then
Net.SetServerPassword(phidgetParameters.ServerName, phidgetParameters.Password)
End If
Else
device.IsLocal = True
End If
device.Open() 'open the device specified by the above parameters
Catch ex As PhidgetException
errorBox.addMessage("Error opening the device: " + ex.Message)
End Try
Might become:
Try
device.Channel = 0
device.DeviceSerialNumber = 370097
device.HubPort = 0
device.IsHubPortDevice = True
device.IsLocal = True
device.Open()
Catch ex As PhidgetException
errorBox.addMessage("Error opening the device: " + ex.Message)
End Try
You can then manipulate the rest of the code as your application requires. A more in-depth description of programming with Phidgets will be covered in the next section.