Inhaltsverzeichnis
Werbung
SREAL-Format
Das folgende Programm demonstriert die Konvertierung von zehn Messwerten,
die im SREAL-Format ausgegeben wurden.
10 OPTION BASE 1
20 INTEGER Num_readings
30 Num_readings=10
40 ALLOCATE REAL Rdgs(1:Num_readings)!Array für Messwerte deklarieren
50 ASSIGN @Dvm TO 722
60 ASSIGN @Buffer TO BUFFER [4*Num_readings]!Puffer-I/O-Pfadname zuweisen
70 OUTPUT @Dvm;"PRESET NORM;OFORMAT SREAL;NRDGS ";Num_readings
71 !Triggerereignis SYN, Ausgabeformat SREAL, 1 PLC, Messfunktion DCV,
75 !automatische Bereichswahl, 10 Messungen
80 TRANSFER @Dvm TO @Buffer;WAIT !SYN-Ereignis, Messwerte übertragen
90 FOR I=1 TO Num_readings
100 ENTER @Buffer USING "#,B";A,B,C,D!Je ein Byte (8 Bit) in jede Variable
101 !einlesen (# = Befehlsabschluss nicht erforderlich, B = ein Byte (8 Bit)
105 !einlesen und als Integer-Wert im Bereich von 0 bis 255 interpretieren)
110 S=1
120 IF A>127 THEN S=-1
130 IF A>127 THEN A=A-128
140 A=A*2- 127
150 IF B>127 THEN A=A+l
160 IF B<=127 THEN B=B+128
170 Rdgs(I)=S*(B*65536.+C*256.+D)*2ˆ(A-23)!Messwert aus SREAL-Format
175
180 Rdgs(I)=DROUND(Rdgs(I),7)
181 !SREAL erforderlich, damit alle 'Übersteuerungswerte' auf 1.E+38 gerun-
185 !det werden (ohne Runden könnte der Wert geringfügig kleiner sein)
190 IF ABS(Rdgs(I)=1.E+38 THEN
200 PRINT "Overload Occurred"
210 ELSE
215
220 PRINT Rdgs(I)
230 END IF
240 NEXT I
Keysight 3458A Benutzerhandbuch
!Array-Indizierung beginnt mit 1
!Variable deklarieren
!Anzahl der Messwerte = 10
!Multimeteradresse zuweisen
!Messwert aus SREAL-Format konvertieren
!Messwert aus SREAL-Format konvertieren
!Messwert aus SREAL-Format konvertieren
!Messwert aus SREAL-Format konvertieren
!Messwert aus SREAL-Format konvertieren
!Messwert aus SREAL-Format konvertieren
!konvertieren
!Auf sieben Stellen runden; dies ist bei
!Im Falle einer Bereichsüberschreitung:
!Bereichsüberschreitung anzeigen
!Falls keine Bereichsüberschreitung
!vorliegt:
!Messwert ausdrucken
Befehlsreferenz
353
6
Werbung
Inhaltsverzeichnis
