+- LabVIEWForum.de (https://www.labviewforum.de)
+-- Forum: LabVIEW (/Forum-LabVIEW)
+--- Forum: LabVIEW Allgemein (/Forum-LabVIEW-Allgemein)
+---- Forum: Datenbank & File IO (/Forum-Datenbank-File-IO)
+---- Thema: Frage: Code - LabVIEW (/Thread-Frage-Code-LabVIEW)
Frage: Code - LabVIEW - Iryna - 12.05.2006 13:32
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.
Frage: Code - LabVIEW - A.Berndsen - 16.05.2006 09:24
Hallo Iryna,
was Du gepostet hast, sieht irgendwie nach Source-Code einer der vielen Programmiersprachen aus.
Von Agilent gibt es aber auch zum Teil VI's mit denen Du direkt mit LV arbeiten kannst.
Bei mir sind unter Instrumenten I/O -> Gerätetreiber -> Agilent 34401 zum Beispiel schon ein paar spezielle VI's zu finden.
Hilft Dir das weiter ?
Gruß
Andreas