PicoScope 7 Software
Available on Windows, Mac and Linux
Code: Select all
Imports System.Runtime.InteropServices
Public Class Form1
Declare Function usb_tc08_open_unit Lib "usbtc08.dll" () As Short
Declare Function usb_tc08_get_unit_info Lib "usbtc08.dll" (ByVal handle As Short, ByRef info As tUSBTC08Info) As Short
Structure tUSBTC08Info
Public size As Short
Public DriverVersion As Short
Public PicoppVersion As Short
Public HardwareVersion As Short
Public picovar As Short
Public szSerial As String
Public szCalDate As String
End Structure
Public info As tUSBTC08Info
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim handle As Short = usb_tc08_open_unit()
MessageBox.Show(handle)
'info.size = Marshal.SizeOf(info)
Dim infook As Short = usb_tc08_get_unit_info(handle, info)
MessageBox.Show(infook)
End Sub
End Class
Code: Select all
Declare Function usb_tc08_get_unit_info Lib "usbtc08.dll" (ByVal handle As Short, ByVal info As tUSBTC08Info) As Short
Code: Select all
Declare Function usb_tc08_get_unit_info2 Lib "usbtc08.dll" (ByVal handle As Integer, ByVal info As String, ByVal string_length As Integer, ByVal line_no As Integer) As Integer
Dim usbtc08Info As String * 80
ok = usb_tc08_get_unit_info2(tc08_handle, usbtc08Info, 80, 4)
Code: Select all
ByVal info As String
Code: Select all
usbtc08Info = " "