Code: Select all

Declare Function ps2000_run_streaming_ns Lib "c:\ps2000.dll" (ByVal handle As Integer, ByVal sample_interval As Long, ByVal time_units As Integer, ByVal max_samples As Long, ByVal auto_stop As Integer, ByVal noOfSamplesPerAggregate As Long, ByVal overviewbuffersize As Long) As Integer

Code: Select all

Private Sub Timer1_Timer()
Dim ok As Integer
Dim overflow As Integer
ReDim Values(1) As Integer
Dim no_of_values As Integer
Dim volts_a As Integer
Dim volts_b As Integer
ReDim Values_a(1024) As Integer
ReDim times(1024) As Long
Dim ready As Integer

If slow_collect Then
  no_of_values = 100
  If Not streaming Then
     Call ps2000_set_ets(ps2000_handle, 0, 0, 0)
     Call Channel_select_Click
     ok = ps2000_set_trigger(ps2000_handle, 0, 0, 1, 0, 0)
     If ok = 0 Then
       MsgBox ("No valid data to funktion set_trigger")
     End If
     ok = ps2000_run_streaming(ps2000_handle, 10, no_of_values, 0)
     streaming = True
  End If
   ' turn triggering off.
   no_of_values = ps2000_get_values(ps2000_handle, Values_a(0), 0, 0, 0, overflow, no_of_values)
   mv_a = voltage_range(cboVoltageA.ListIndex)
   For i = 0 To no_of_values - 1 Step 1
     volts_a = (Values_a(i) / 32767) * mv_a
     lstChannelA.AddItem (volts_a & Chr(9) & "mV")
   Next i
End If

End Sub