Table des Matières
Publicité
R&S FSP
REM ------ Créer des variables ---------------------------------------------
Dim traceData(1250) As Single
Dim digits As Byte
Dim traceBytes As Integer
Dim traceValues As Integer
asciiResult$ = Space$(25000)
result$ = Space$(100)
startFreq$ = Space$(100)
span$ = Space$(100)
REM ------ Réglage par défaut du R&S FSP ---------------------------------
Call SetupInstrument
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt) 'Commute sur balayage unique
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
REM ------ Détermination de la gamme de fréquence pour la lecture--------------
status = viWrite(analyzer, "FREQ:STARt?", 11, retCnt)
status = viRead(analyzer, startFreq$, 100, retCnt)
startFreq = Val(startFreq$)
status = viWrite(analyzer, "FREQ:SPAN?", 10, retCnt)
status = viRead(analyzer, span$, 100, retCnt)
span = Val(span$)
REM ------ Lecture au format binaire ------------------------------------
status = viWrite(analyzer, "FORMAT REAL,32", 14, retCnt)
status = viWrite(analyzer, "TRAC1? TRACE1", 13, retCnt)
status = viRead(analyzer, result$, 2, retCnt)
digits = Val(Mid$(result$, 2, 1))'de l'ind. de longueur
result$ = Space$(100)
status = viRead(analyzer, result$, digits, retCnt)
traceBytes = Val(Left$(result$, digits))
status = viRead32(analyzer, traceData(0), traceBytes, retCnt)
status = viRead(analyzer, result$, 1, retCnt)
REM ------ Lecture des données binaires comme paires de fréquence/niveau --
traceValues = traceBytes / 4
stepsize = span / traceValues
For i = 0 To traceValues - 1
Print "Value["; i; "] = "; startFreq + stepsize * i; ", "; traceData(i)
Next i
REM ------ Réglage par défaut du domaine temporel --------------------------
status = viWrite(analyzer, "FREQ:SPAN 0Hz", 13, retCnt)
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
1164.4556.63
Exemples de programmation détaillés
'File d'att. pour données binaires en virg. flottante
'Nbre de caractères de l'indication de longueur
'Long. des données de courbe en octets
'Nbre val. mes. en file d'att.
'File d'att. pour données de courbe ASCII
'File d'att. résultats simples
'File d'att. pour fréq. départ
'File d'att. pour gamme fréq.
'Réglage par défaut
'Règle le format binaire
'Lit la courbe 1
'Lit et sauvegarde le nbre de caract.
'Réinitialise la file d'attente
'Lit et sauvegarde l'indication de longueur
'Lit les données de courbe dans la file d'attente
'Lit le délimiteur <NL>
'Précision unique = 4 octets
'Calcule la largeur de pas de la fréquence
7.17
'Eff. balayage avec synchro
'Lit la fréquence de départ
'Lit la gamme de fréquence
'Commute sur domaine temp.
'Opère bal. avec synchro
F-2
Publicité
Table des Matières
