YOKOGAWA wt1600 User Manual page 150

Next i
Call ibonl(Dev, 0)
GpibWaveFloat = 0
End Function
----------------------------------------------------------------------------------------
IM 760101-11E
For l = 0 To 7
vale = vale + (2 ^ l) * Val(Mid$(stre, (8 - l), 1))
Next l
w = Mid$(allb, 10, 23)
For m = 1 To 23
valf = valf + (2 ^ (-m)) * Val(Mid$(w, m, 1))
Next m
If (vale = 0) Then valf = 0 Else: valf = valf + 1
flo = ((-1) ^ valu) * (2 ^ (vale - 127)) * valf
If i < 10 Then
List1.AddItem CStr(i) + "
ElseIf i < 100 Then
List1.AddItem CStr(i) + "
ElseIf i < 1000 Then
List1.AddItem CStr(i) + "
Else
List1.AddItem CStr(i) + " " + CStr(flo)
End If
List1.ListIndex = List1.ListIndex + 1
qry = Space$(200)
Dummy = DoEvents()
7.7 Output of Waveform Data (FLOAT Format)
" + CStr(flo)
" + CStr(flo)
" + CStr(flo)
7
7-21