PicoScope 7 Software
Available on Windows, Mac and Linux
Code: Select all
Sub getDeviceInfo(ByVal handle As Short)
Dim infoText(7) As String
Dim infoStr As String
'Dim i As UInteger
infoText(0) = "Driver Version: "
infoText(1) = "USB Version: "
infoText(2) = "Hardware Version: "
infoText(3) = "Variant: "
infoText(4) = "Batch / Serial: "
infoText(5) = "Cal Date: "
infoText(6) = "Error code: "
infoText(7) = "Kernel Driver Ver: "
For i As Integer = 0 To infoText.Length - 1
If i <> 6 Then
infoStr = " "
pico.UnitInfo(infoStr, CShort(infoStr.Length), CType(i, Info))
infoText(i) += infoStr
tbUnitInfo.AppendText(infoText(i))
tbUnitInfo.AppendText(vbNewLine)
End If
Next i
Console.WriteLine(vbNewLine)
End Sub
Code: Select all
Sub getDeviceInfo(ByVal handle As Short)
Dim infoText(7) As String
Dim infoStr As String
Dim i As UInteger
infoText(0) = "Driver Ver: "
infoText(1) = "USB Ver: "
infoText(2) = "Hardware Ver: "
infoText(3) = "Variant: "
infoText(4) = "Batch / Serial: "
infoText(5) = "Cal Date: "
infoText(6) = "Error code: "
infoText(7) = "Kernel Driver Ver: "
For i = 0 To CUInt(infoText.Length - 1)
If i <> 6 Then
infoStr = " "
ps2000_get_unit_info(handle, infoStr, CShort(infoStr.Length), CType(i, Info))
infoText(CInt(i)) += infoStr
Console.WriteLine(infoText(CInt(i)) & vbTab)
End If
Next i
Console.WriteLine(vbNewLine)
End Sub