Agilent Technologies B1500A Instrukcja Obsługi Strona 287

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 598
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 286
Agilent B1500A/B1505A Programming Guide, Edition 11 3-109
Programming Examples
SPGU Pulse Output and Voltage Measurement
The following program controls a SPGU to measure the terminal voltage, calculate
the load impedance, set it for the automatic output level adjustment, and output
2-level pulse voltage. This program can run without the project template (Table
3-1).
Table 3-28 SPGU Voltage Measurement and Pulse Output Example
Imports Ivi.visa.interop ’1
Module Module1
Sub Main()
Dim B1500 As IResourceManager ’6
Dim session As FormattedIO488
B1500 = New ResourceManager
session = New FormattedIO488
session.IO = B1500.Open("GPIB0::17::INSTR")
session.IO.Timeout = 10000
session.WriteString("*RST" & vbLf) ’13
MsgBox("Click OK to start measurement.", vbOKOnly, "")
Console.Write("SPGU setup... ")
Dim sp_ch() As Integer = {101, 102} ’17
Dim duration As Double = 5
Dim loadz As Double = 50.0
Dim period As Double = 0.0001
Dim p1_del As Double = 0.00001
Dim p1_wid As Double = 0.00008
Dim p_lead As Double = 0.0000001
Dim p_trail As Double = 0.0000001
Dim p1_base As Double = 0
Dim p1_peak As Double = 3
Dim p_stat As Integer = 0
Dim delay As Double = p1_wid / 8
Dim count As Double = 3
Dim interval As Double = (p1_wid - delay * 2) / count
Dim measv As Double = 3.0
Dim rval As String = "" ’32
Line Description
1 This line is required to use the VISA COM library.
6 to 11 Establishes the connection with the Agilent B1500 of the GPIB address 17 on the
interface GPIB0. “GPIB0” is the VISA name. Confirm your GPIB settings, and set
them properly. Also sets the B1500 GPIB IO timeout.
13 Resets the B1500.
17 to 32 Declares variables and sets the value. This program uses the SPGU installed in the slot
1 of the B1500.
Przeglądanie stron 286
1 2 ... 282 283 284 285 286 287 288 289 290 291 292 ... 597 598

Komentarze do niniejszej Instrukcji

Brak uwag