Keysight 3458A Benutzerhandbuch Seite 352

6 Befehlsreferenz
DINT-Format
Das folgende Programm ähnelt dem vorangegangenen, abgesehen davon, dass
es 50 Messungen initiiert und die Messwerte im DINT-Format zum
Steuercomputer überträgt.
10 OPTION BASE 1
20 INTEGER Num_readings,I,J,K
30 Num_readings=50
40 ALLOCATE REAL Rdgs(1:Num_readings)!Array für Messwerte deklarieren
50 ASSIGN @Dvm TO 722
60 ASSIGN dBuffer TO BUFFER[4*Num_readings] !Puffer-I/O-Pfadname zuweisen
70 OUTPUT @Dvm;"PRESET NORM;RANGE 10;OFORMAT DINT;NRDGS ";Num_readings
71 !Triggerfreigabeereignis AUTO, Triggerereignis SYN, Messfunktion DCV,
75 !Bereich 10 V, Ausgabeformat DINT, 50 Messungen, AUTO
80 TRANSFER @Dvm TO @Buffer;WAIT !SYN-Ereignis, Messwerte übertragen
90 OUTPUT @Dvm; "ISCALE?"
95
100 ENTER @Dvm; S
110 FOR I=1 TO Num_readings
120 ENTER @Buffer USING "#,W,W";J,K!Je ein 16-Bit-Zweierkomplement-Wort in
121 !die Variablen J und K einlesen (# = Befehlsabschluss ist nicht
125 !erforderlich, W = Daten als 16-Bit-Zweierkomplement-Integer einlesen)
130 Rdgs(I)=(J*65536.+K+65536.*(K<O))!Wert in Real-Format konvertieren
140 R=ABS(Rdgs(I))
145
150 IF R>2147483647 THEN PRINT "OVLD"!Falls Bereichsüberschreitung, Meldung
155
160 Rdgs(I)=Rdgs(I)*S
170 Rdgs(I)=DROUND(Rdgs(I),8)
180 PRINT Rdgs(I)
190 NEXT I
200 END
352
!Array-Indizierung beginnt mit 1
!Variablen deklarieren
!Anzahl der Messwerte = 50
!Multimeteradresse zuweisen
!Skalierungsfaktor für DINT-Format
!abfragen
!Skalierungsfaktor einlesen
!Anhand des absoluten Wertes auf
!Bereichsüberschreitung überprüfen
!anzeigen
!Skalierungsfaktor anwenden
!Konvertierten Messwert runden
!Messwerte ausdrucken
Keysight 3458A Benutzerhandbuch