Agilent Technologies InfiniiVision 6000 Series Manual de Serviço descarregar pdf (Página 897)

100

101

Programming Examples 12

Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 897

Console.WriteLine("Offset = {0:f}", fOffset)

Console.WriteLine("Seconds per Division = {0:e}", fSdiv)

Console.WriteLine("Delay = {0:e}", fDelay)

' Print the waveform voltage at selected points:

Dim i As Integer = 0

While i < 1000

Console.WriteLine("Data point {0:d} = {1:f2} Volts at " + _

"{2:f10} Seconds", i, _

(CSng(ResultsArray(i)) - fYreference) * fYincrement + _

fYorigin, _

(CSng(i) - fXreference) * fXincrement + fXorigin)

i=i+50

End While

' SAVE_WAVE_DATA - saves the waveform data to a CSV format

' file named "waveform.csv".

If File.Exists("c:\scope\data\waveform.csv") Then

File.Delete("c:\scope\data\waveform.csv")

End If

Dim writer As StreamWriter = _

File.CreateText("c:\scope\data\waveform.csv")

For index As Integer = 0 To 999

writer.WriteLine("{0:E}, {1:f6}", _

(CSng(index) - fXreference) * fXincrement + fXorigin, _

(CSng(ResultsArray(index)) - fYreference) * fYincrement _

+ fYorigin)

writer.Close()

End Sub

End Class

Class VisaInstrument

Private m_nResourceManager As Integer

Private m_nSession As Integer

Private m_strVisaAddress As String

' Constructor.

Public Sub New(ByVal strVisaAddress As String)

' Save VISA address in member variable.

m_strVisaAddress = strVisaAddress

' Open the default VISA resource manager.

OpenResourceManager()

' Open a VISA resource session.

OpenSession()

' Clear the interface.

Dim nViStatus As Integer

nViStatus = visa32.viClear(m_nSession)

End Sub

Public Sub DoCommand(ByVal strCommand As String)

' Send the command.

VisaSendCommandOrQuery(strCommand)

1 2 ... 892 893 894 895 896 897 898 899 900 901 902 ... 933 934

Comentários a estes Manuais

Sem comentários

Agilent Technologies InfiniiVision 6000 Series Manual de Serviço Página 897

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies InfiniiVision 6000 Series