Hallo,
Ich weiss nicht ob ich hier richtig bin, hab so eine Frage:
Wie kann ich folgende im LabVIEW für Agilent (über Visa) realisieren:
For j = 0 To nop2 - 1
E5270.WriteLine("WV " & t(0) & ",1,0," & vd1 & "," & vd2 & "," & nop1 & ","
& idcomp & "," & p_comp)
E5270.WriteLine("DV " & t(1) & ",0," & vg & "," & igcomp)
E5270.WriteLine("TSR")
E5270.WriteLine("XE")
E5270.WriteLine("*OPC?")
rep = E5270.Read(True)
E5270.WriteLine("ERR? 1") : err = E5270.Read(True)
If err <> 0 Then E5270.WriteLine("DZ") : GoTo Check_err
E5270.WriteLine("NUB?"): rep = E5270.Read(True)
If rep <> nop1 * 3 Then E5270.WriteLine("DZ") : GoTo Check_nop
ret_val = E5270.ReadListAsStringArray()
For i = 0 To nop1 - 1
data1 = ret_val(i * 3)
data2 = ret_val(i * 3 + 1)
data3 = ret_val(i * 3 + 2)
data1 = Right(data1, 12) : tm(i) = Val(data1)
st(i) = Left(data2, 3)
data2 = Right(data2, 12) : md(i) = Val(data2)
data3 = Right(data3, 12) : sc(i) = Val(data3)
data(j, i) = Chr(13) & Chr(10) & vg & ", " & sc(i) & ", " & md(i) * 1000
& ", " & tm(i) & ", " & st(i)
Next i
vg = vg + d_vg
Next j
Wäre sehr dankbar für eure Hilfe.
