03-29-2006 04:36 PM
ENG1ThrottleData = ENG1ThrottleReader.EndReadMultiSample(i)
Dim ENG1ThrottleVoltage As Double = ENG1ThrottleData(0, 0)lblVoltageENG1.Text = ENG1ThrottleVoltage
Dim ENG2ThrottleVoltage As Double = ENG1ThrottleData(1, 1)lblVoltageENG2.Text = ENG2ThrottleVoltage
ENG1ThrottleReader.BeginReadMultiSample(100, AddressOf OnDataReady, Nothing) End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'ENG1Throttle
ENG1ThrottleTask.AIChannels.CreateVoltageChannel("dev1/ai0,dev1/ai1", "", AITerminalConfiguration.Rse, -10, 10, AIVoltageUnits.Volts)
ENG1ThrottleTask.Timing.ConfigureSampleClock("", Convert.ToDouble(1000), SampleClockActiveEdge.Rising, SampleQuantityMode.ContinuousSamples, 1000)
ENG1ThrottleTask.Control(TaskAction.Verify)
ENG1ThrottleReader =
New AnalogMultiChannelReader(ENG1ThrottleTask.Stream)ENG1ThrottleHandle = ENG1ThrottleReader.BeginReadMultiSample(100,
AddressOf OnDataReady, Nothing) End Sub