PicoScope 7 Software
Available on Windows, Mac and Linux
Code: Select all
Private Sub cmdStart_Click()
If (tc08_handle > 0) Then
Timer1.Interval = txtSampRate.Text
Call usb_tc08_run(tc08_handle, txtSampRate.Text)
End If
End Sub
Code: Select all
Private Sub Timer1_Timer()
Dim iCh As Integer
Dim temp_buffer(9) As Single
Dim times_ms_buffer As Long
Dim overflow_fleg(9) As Integer
Dim bLength As Long
Dim noOfReading As Long
bLength = 100
Dim flag As Integer
If (tc08_handle > 0) Then
If (Not in_timer) Then
txtComments.Text = ""
in_timer = True
For iCh = 0 To 8
noOfReading = usb_tc08_get_temp(tc08_handle, temp_buffer(iCh), times_ms_buffer, bLength, overflow_fleg(iCh), iCh, cmbTempUnit.ListIndex, 1)
txtChannel(iCh).Text = temp_buffer(iCh)
txtTimeStamp.Text = times_ms_buffer
Next iCh
in_timer = False
txtComments.Text = "Error Code: " & usb_tc08_get_last_error(0)
End If
End If
End Sub
Code: Select all
Private Sub cmdStart_Click()
Dim intSamplingRate As Integer
intSamplingRate = 2000
If (tc08_handle > 0) Then
Timer1.Interval = (intSamplingRate)
Call usb_tc08_run(tc08_handle, intSamplingRate)
End If
End Sub
Private Sub Timer1_Timer()
Dim temp_buffer(9) As Single
Dim times_ms_buffer As Long
Dim overflow_fleg(9) As Integer
Dim bLength As Long
Dim noOfReading As Long
bLength = 500
iCh = 0
Dim flag As Integer
If (tc08_handle > 0) Then
If (Not in_timer) Then
txtComments.Text = ""
in_timer = True
For iCh = 0 To 8
noOfReading = usb_tc08_get_temp(tc08_handle, temp_buffer(iCh), times_ms_buffer, bLength, overflow_fleg(iCh), iCh, cmbTempUnit.ListIndex, 0)
Next iCh
txtTimeStamp.Text = times_ms_buffer
Debug.Print "---------- " & "times_buffer = " & times_ms_buffer & " ----------"
For iCh = 0 To 8
txtChannel(iCh).Text = temp_buffer(iCh)
Debug.Print "Channel No = " & iCh & ", Reading = " & Round(temp_buffer(iCh), 2)
Next iCh
in_timer = False
txtComments.Text = "Error Code: " & usb_tc08_get_last_error(0)
End If
End If
End Sub
Code: Select all
---------- times_buffer = 0 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.85
Channel No = 3, Reading = 26.84
Channel No = 4, Reading = 27.65
Channel No = 5, Reading = 27.64
Channel No = 6, Reading = 25.91
Channel No = 7, Reading = 25.93
Channel No = 8, Reading = 0
---------- times_buffer = 4000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.84
Channel No = 3, Reading = 26.82
Channel No = 4, Reading = 27.63
Channel No = 5, Reading = 27.58
Channel No = 6, Reading = 25.96
Channel No = 7, Reading = 25.98
Channel No = 8, Reading = 0
---------- times_buffer = 8000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.88
Channel No = 3, Reading = 26.86
Channel No = 4, Reading = 27.56
Channel No = 5, Reading = 27.55
Channel No = 6, Reading = 25.95
Channel No = 7, Reading = 25.98
Channel No = 8, Reading = 0
---------- times_buffer = 12000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.83
Channel No = 3, Reading = 26.81
Channel No = 4, Reading = 27.56
Channel No = 5, Reading = 27.58
Channel No = 6, Reading = 25.94
Channel No = 7, Reading = 25.94
Channel No = 8, Reading = 0
Code: Select all
Private Sub cmdStart_Click()
Dim intSamplingRate As Integer
intSamplingRate = 2000
If (tc08_handle > 0) Then
Timer1.Interval = (intSamplingRate / 2)
Call usb_tc08_run(tc08_handle, intSamplingRate)
End If
End Sub
Code: Select all
---------- times_buffer = 0 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.41
Channel No = 3, Reading = 0
Channel No = 4, Reading = 27.49
Channel No = 5, Reading = 0
Channel No = 6, Reading = 25.29
Channel No = 7, Reading = 0
Channel No = 8, Reading = 0
---------- times_buffer = 2000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.39
Channel No = 3, Reading = 0
Channel No = 4, Reading = 27.5
Channel No = 5, Reading = 0
Channel No = 6, Reading = 25.29
Channel No = 7, Reading = 0
Channel No = 8, Reading = 0
---------- times_buffer = 4000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.36
Channel No = 3, Reading = 0
Channel No = 4, Reading = 27.51
Channel No = 5, Reading = 0
Channel No = 6, Reading = 25.27
Channel No = 7, Reading = 0
Channel No = 8, Reading = 0
---------- times_buffer = 6000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.37
Channel No = 3, Reading = 0
Channel No = 4, Reading = 27.48
Channel No = 5, Reading = 0
Channel No = 6, Reading = 25.25
Channel No = 7, Reading = 0
Channel No = 8, Reading = 0
---------- times_buffer = 8000 ----------
Channel No = 0, Reading = 0
Channel No = 1, Reading = 0
Channel No = 2, Reading = 26.39
Channel No = 3, Reading = 0
Channel No = 4, Reading = 27.46
Channel No = 5, Reading = 0
Channel No = 6, Reading = 25.24
Channel No = 7, Reading = 0
Channel No = 8, Reading = 0