Table des Matières
Publicité
R&S FSU
REM ************************************************************************
Public Sub ReadTrace()
Dim status As ViStatus
Dim retCnt As Long
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 FSU ---------------------------------
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
1166.1725.63
Exemples de programmation détaillés
'File d'att. pour données binaires en virgule 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
F-1
Publicité
Table des Matières
