PicoScope 7 Software
Available on Windows, Mac and Linux
PicoScope 7 Software
Available on Windows, Mac and Linux
OEM & custom applications
PicoScope, Pico data logger and RF products can be used as components in custom applications and OEM projects.
A to Z of PC oscilloscopes
Everything you need to know about PC oscilloscopes from Advanced Triggers to Zooming.
A to Z of Data Loggers
Everything you need to know about PC-based data loggers from Alarms to Zooming.
Application Notes
Details of some of the many applications for Pico data logger and oscilloscope products.
How do I measure...?
Find out how you can measure using Pico products
Videos
Showing you how to get the most out of PicoScope oscilloscope software.
Documentation
Up-to-date versions of the documentation supplied with your products in PDF format.
Educational Experiments
Our library of science experiments suitable for use with oscilloscope and data logging products.
PicoApps
Want to share hints, tips and code with other developers? Show your Pico-based products to the world.
Newsletter
Archive of our monthly Test and Measurement Newsletters.
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
Return to “General Software Discussions”