Dear Ting1224
透過GPIB Analyzer可以監聽到Tester與Handler的訊息，GPIB Analyzer設定資料畫面如附檔所附。
而透過下列的Code 為何無法監聽到如同GPIB Analyzer的訊息呢?謝謝您。
Imports NationalInstruments.NI4882 'must be included to reference the LangInt assembly
Imports VB = Microsoft.VisualBasic 'included for string manipulation
Module Module1
Const BDINDEX = 1 ' Board Index
Dim li As LangInt 'declare li of type LangInt that has all GPIB functions
Dim c As GpibConstants 'declare c of type GpibConstants that has all GPIB constants
Sub Main()
li = New LangInt 'declare an instance of li
c = New GpibConstants 'declare an instance of c
Dim noncontroller As Integer
Dim buffer As String
Dim panelHandle As Integer
Dim listen As Short
noncontroller = li.ibfind("gpib3")
'Release system control
li.ibrsc(noncontroller, 0)
li.ibpad(noncontroller, 13)
li.ibsad(noncontroller, 126)
li.ibtmo(noncontroller, c.T10s)
li.ibeot(noncontroller, 1)
li.ibeos(noncontroller, 0)
li.ibclr(noncontroller)
li.ibln(noncontroller, 13, 126, listen)
li.ibwait(noncontroller, 0)
'// Wait until non-controller is listener and ATN line is dropped.
While True
If ((li.ibsta And c.LACS) And (Not (li.ibsta And c.ATN))) Then
li.ibrd(noncontroller, buffer, 100) ' Read data bytes
End If
'If addressed to talk, send the response "I am a talker"
If ((li.ibsta And c.TACS) And (Not (li.ibsta And c.ATN))) Then
'// Send data across the bus.
li.ibwrt(noncontroller, "I am a talker", "I am a talker".Length)
End If
End While
End Sub
Best Regards
Robins
