11-09-2005 01:56 PM
writer =
New CounterSingleChannelWriter(Tasks(1).Stream) If SFIOn Thenwriter.WriteSingleSample(
True, New CODataFrequency(1, PDC)) Else TryTasks(1) =
New Task("COtask")Tasks(1).COChannels.CreatePulseChannelFrequency(Channel, "ContinuousPulseTrain", _
COPulseFrequencyUnits.Hertz, COPulseIdleState.Low, 0.0, 1, PDC)
Tasks(1).Timing.ConfigureImplicit(SampleQuantityMode.ContinuousSamples)
Tasks(1).Start()
SFIOn =
True Catch ex As System.ExceptionMessageBox.Show(ex.Message)
FinallyTasks(1).Dispose()
End Try End If End Sub
11-09-2005 02:22 PM - edited 11-09-2005 02:22 PM
Nevermind. I had to pull the Tasks(1).Dispose out of the Finally part of the try catch statement.
As in....get rid of it so that there was a task to update....
Message Edited by SCXI and MS 2k3-VB.NET on 11-09-2005 02:23 PM
11-30-2005 08:13 AM
12-01-2005 03:07 PM - edited 12-01-2005 03:07 PM
Message Edited by ELee [DE] on 12-01-2005 03:09 PM
12-01-2005 03:43 PM
Tasks(16).COChannels.All.PulseDutyCycle = Convert.ToDouble(PDC)
Tasks(16).COChannels.All.PulseFrequency = Convert.ToDouble(40)
of
ctrWriter.WriteSingleSample(True, New CODataFrequency(1, PDC))
Thanks.
12-02-2005 12:07 PM
12-05-2005 08:06 AM
12-05-2005 10:17 AM
01-06-2006 11:22 AM
I am having problems with this again and it is setting my duty cycle to 100%. This is a problem when I am injecting fuel into an exhaust system! I set a loop at the beginning of the subroutine similar to this:
subclock = now.millisecond
do
while now.millisecond - subclock < 50
ctrWriter.WriteSingleSample(True, New CODataFrequency(1, PDC))
01-06-2006 12:45 PM