Sample Program
7-21
IM 760101-11E
7
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)
Содержание wt1600
Страница 1: ...Digital Power Meter Communication Interface IM 760101 11E 4th Edition ...
Страница 131: ...7 2 IM 760101 11E 7 2 Sample Program Image ...
Страница 138: ...Sample Program 7 9 IM 760101 11E 7 7 4 Output of Normal Measurement Data ...
Страница 142: ...Sample Program 7 13 IM 760101 11E 7 7 5 Output of Harmonic Measurement Data ...