
Sample Program
7-21
IM 760151-17E
7
If a(k) = “E” Then b(k) = “1110”
If a(k) = “F” Then b(k) = “1111”
Next k
allb = b(1) + b(2) + b(3) + b(4) + b(5) + b(6) + b(7) + b(8)
vale = 0
valf = 0
valu = Val(Left$(allb, 1))
stre = Mid$(allb, 2, 8)
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) + “ “ + CStr(flo)
ElseIf i < 100 Then
List1.AddItem CStr(i) + “ “ + CStr(flo)
ElseIf i < 1000 Then
List1.AddItem CStr(i) + “ “ + CStr(flo)
Else
List1.AddItem CStr(i) + “ “ + CStr(flo)
End If
List1.ListIndex = List1.Lis 1
qry = Space$(200)
Dummy = DoEvents()
Next i
Call ibonl(Dev, 0)
GpibWaveFloat = 0
End Function
————————————————————————————————————————————
7.7 Output of Waveform Data (FLOAT Format)