I am trying to get a Phidget 1048_2B to select another channel however after I change the channel 0 to channel 1 I still get channel 0 values.
If I start at Channel 1 then change to Channel 0 I then get Channel 1 values for Channel 0. I even put in a delay routine thinking it needed more time. Even after 15 seconds it still does not change to a new channel reading.
Obviously I do not understand how to correctly change channels.
I am attaching my simple main code here.
Is there a command I need to call to force it to change channels ?
-----------------------------------------------------------
Private Sub ShowPhidget()
Dim StartTime As Double
StartTime = Microsoft.VisualBasic.DateAndTime.Timer
TimerOut = StartTime + 2000
Doit = True
CurrentOperation1.Text = "Attach a PhidgetTemperatureSensor 1"
Application.DoEvents()
AdvTemp0 = New Phidget22.TemperatureSensor
AdvTemp0.Open()
While AdvTemp0.Attached = False And (TimerOut < Microsoft.VisualBasic.DateAndTime.Timer)
If TimerOut >= TimerOut < Microsoft.VisualBasic.DateAndTime.Timer Then
CurrentOperation1.Text = "Attach Timeout"
Application.DoEvents()
End
End If
End While
CurrentOperation1.Text = "Attached"
Application.DoEvents()
AdvTemp0.Channel = 0
AdvTemp0.IsLocal = True
AdvTemp0.ThermocoupleType = ThermocoupleType.K
CurrentOperation2.Text = "Attach a PhidgetTemperatureSensor 2"
Application.DoEvents()
Call Delay(0.15)
While Doit = True
AdvTemp0.Channel = 0
Call Delay(0.15)
Channel0 = AdvTemp0.Temperature
Call Delay(0.15)
Label1.Text = "Current Temperature 0 : " + Str(Channel0)
Application.DoEvents()
CurrentOperation2.Text = "Attached"
Application.DoEvents()
AdvTemp0.Channel = 1
Call Delay(0.15)
Channel1 = AdvTemp0.Temperature
Call Delay(0.15)
Application.DoEvents()
Label2.Text = "Current Temperature 1 : " + Str(Channel1)
End While
End Sub