PicoScope 7 Software
Available on Windows, Mac and Linux
Code: Select all
Declare Function ps4000aChangePowerSource Lib "ps4000a.dll" (ByVal handle As Integer, ByVal status As Integer) As Integer
Code: Select all
If status = 286 Then
status = ps4000aChangePowerSource(handle, status)
End If
Code: Select all
If handle = 0 Then
MsgBox "Unit not opened", vbOKOnly, "Error Message"
Exit Sub
End If