Publicité
' Télécharge les points de données vers la mémoire volatile
txtError.SelText = "Downloading Arb..." & vbCrLf
With Fgen
.WriteString "DATA VOLATILE, " & DataStr
End With
txtError.SelText = "Download Complete" & vbCrLf
' Configure le signal arbitraire et le délivre
With Fgen
.WriteString "DATA:COPY PULSE, VOLATILE" ' Copie le signal arbitraire dans la
.WriteString "FUNCtion:USER PULSE"
.WriteString "FUNCtion:SHAPe USER"
.WriteString "OUTPut:LOAD 50"
.WriteString "FREQuency 5000;VOLTage 5"
.WriteString "OUTPut ON"
End With
Exit Sub
MyError:
txtError = Err.Description & vbCrLf
Resume Next
End Sub
6
Chapitre 6 Programmes d'application
Listings des programmes
308
' mémoire non volatile
' Sélectionne le signal arbitraire actif
' Délivre le signal arbitraire actif
' L'impédance de sortie est de 50 ohms
' La fréquence de sortie est de 5 kHz
' @ 5 Vpp
' Active la sortie
Publicité
