Hello
I use component work 2.0 and a PCI-MIO-16XE-10 card.
When I use the component CWAO I have a problem with the event
"Progress".
I just want the component return to me a evenement (progress) when all
the point AO will be out. However, the component return to me the event
in the beginning of the process.
This is my code, please help me:
Private Sub Command1_Click()
Dim donne() As Double
Dim i As Integer
Dim NbPtBuffer As Long
Dim Frequence As Integer
NbPtBuffer = 100
ReDim donne(NbPtBuffer - 1)
'Reconfigure les caneaux pour le test
CWAO1.Device = 1
CWAO1.Channels.RemoveAll
CWAO1.Channels.Add "0"
CWAO1.Channels(1).ChannelString = 0
CWAO1.Channels(1).ChannelType = cwaoVoltage
C
WAO1.Channels(1).ReferenceSource = cwaoInternal
CWAO1.NIterations = 1
CWAO1.NUpdates = NbPtBuffer
CWAO1.ProgressEnabled = True
CWAO1.AutoSelectProgressInterval = False
CWAO1.ProgressInterval = NbPtBuffer
CWAO1.UpdateClock.Frequency = 25
CWAO1.Configure
For i = 0 To NbPtBuffer - 1
donne(i) = CDbl(i) / (NbPtBuffer / 10#)
Next i
CWAO1.Write (donne)
CWAO1.Start
End Sub
Private Sub CWAO1_Progress(UpdateCount As Variant)
MsgBox "AO finish"
End Sub
---------
Thanks for all, you can aswer it to french I'm from QUEBEC
