Keysight Technologies 3458A Guide D'utilisation page 846

6 Référence
Format SREAL
Le programme suivant montre comment convertir 10 lectures au format SREAL.
10 OPTION BASE 1
20 INTEGER Num_readings
30 Num_readings=10
40 ALLOCATE REAL Rdgs(1:Num_readings) ! CREATION D'UN TABLEAU POUR
42
50 ASSIGN @Dvm TO 722
60 ASSIGN @Buffer TO BUFFER [4*Num_readings] ! AFFECTATION OU NOM
65
70 OUTPUT @Dvm;"PRESET NORM;OFORMAT SREAL;NRDGS";Num_readings
75 ! TRIG SYN, FORMAT DE SORTIE SREAL, 1 PLC, DCV GAMME AUTO,
77
80 TRANSFER @Dvm TO @Buffer;WAIT ! EVENEMENT SYN, TRANSFERT DES
82
90 FOR I=1 TO Num_readings
100 ENTER @Buffer USING "#,B";A,B,C,D ! METTRE UN OCTET DE 8 BITS
102 ! DANS CHAQUE VARIABLE, (li= FIN D'INSTRUCTION NON REQUISE; B
105 ! = LIRE UN OCTET DE 8 BITS ET L'INTERPRETER COMME UN ENTIER
107 ! ENTRE O ET 255)
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+1
160 IF B<=127 THEN B=B+128
170 Rdgs(I)=S*(B*65536.+C*256.+D)*2ˆ(A-23) ! CONVERTIT LECTURE A
175
180
182 ! CHIFFRES; OBLIGATOIRE AVEC SREAL POUR S'ASSURER QUE LES
185 ! VALEURS DE SURCHARGE SERONT ARRONDIES A l .E+38 (SANS
187 ! ARRONDI, LA VALEUR PEUT ETRE LEGEREMENT INFERIEURE)
190 IF ABS(Rdgs(I)=1.E+38 THEN ! EN CAS DE SURCHARGE :
200 PRINT "Overload Occurred" ! IMPRIME " SURCHARGE"
210 ELSE
220 PRINT Rdgs(I)
342
! BORNE INFERIEURE DU TABLEAU A 1
! DECLARATION DE LA VARIABLE
! NOMBRE DE LECTURES = 10
! LES LECTURES
! AFFECTATION DE L'ADRESSE OU MULTIMETRE
! D'ACCES DE LA MEMOIRE-TAMPON
! 10 LECTURES
! LECTURES
! CONVERTIT LECTURE A PARTIR DE SREAL
! CONVERTIT LECTURE A PARTIR DE SREAL
! CONVERTIT LECTURE A PARTIR DE SREAL
! CONVERTIT LECTURE A PARTIR DE SREAL
! CONVERTIT LECTURE A PARTIR DE SREAL
! CONVERTIT LECTURE A PARTIR DE SREAL
! PARTIR DE SREAL
! ARRONDIT LA LECTURE A 7
! SI PAS DE SURCHARGE :
! IMPRIME LES LECTURES
Keysight 3458A Guide d'utilisation