Agilent Technologies B1500A Instrukcja Obsługi Strona 286

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 598
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 285
3-108 Agilent B1500A/B1505A Programming Guide, Edition 11
Programming Examples
SPGU Pulse Output and Voltage Measurement
Measurement
Result Example
SPGU setup.
SPGU output in progress..........................................
...............................................................
SPGU output stopped.
session.WriteString("ERRX? 0" & vbLf) : msg = session.ReadString(256) 55
err = Val(Left(msg, 2))
If err <> 0 Then session.WriteString("DZ" & vbLf) : GoTo Check_err
session.WriteString("SRP" & vbLf) ’starts pulse output ’59
Console.Write("SPGU output in progress")
Spgu_stat: ’62
Console.Write(".")
session.WriteString("SPST?" & vbLf) : p_stat = session.ReadString(1 + 2)
If p_stat = 1 Then GoTo Spgu_stat
If p_stat = 0 Then GoTo Close
Check_err: ’68
MsgBox("Instrument error: " & Chr(10) & msg, vbOKOnly, "")
Close: ’71
Console.WriteLine(Chr(10) & "SPGU output stopped.")
session.WriteString("CL" & vbLf)
session.Close()
MsgBox("Click OK to stop the program.", vbOKOnly, "")
Console.WriteLine("Program completed." & Chr(10)) 76
End Sub
End Module
Line Description
55 to 57 Reads error buffer. If an error is detected, changes the channel output to 0 V and goes to
Check_err.
59 Starts the SPGU pulse output.
62 to 66 Checks the SPGU pulse output status. And waits for the end status.
68 to 69 Clears the error buffer. And displays a message box to show an error message.
71 to 76 Disables all channels, and closes the connection with the Agilent B1500.
Przeglądanie stron 285
1 2 ... 281 282 283 284 285 286 287 288 289 290 291 ... 597 598

Komentarze do niniejszej Instrukcji

Brak uwag