I am currently trying to the talk to the HP3497A with a Gpib-USB-HS and VB.NET. I am using the NationalInstruments.NI4882 .net files.
It seems to work but I am getting a beep on the HP3497A everytime I send a write command. I am converting a old computer that has ISA card and using the commands in a old QB file.
We have a new computer with a GPIB-USB-HS connected to it. We are using the same cables and equipment the older computer had connected to it.
Does the NationalInstruments.NI4882 send any extra data with the write command?
Here is my code.
Imports NationalInstruments.NI4882
Module gpib1
Public Sub openGpibData(ByVal b As Integer, ByVal p As Integer, ByVal s As Integer) Try
Cursor.Current = Cursors.WaitCursor
GpibDeviceData = New Device(CInt(b), CByte(p), CByte(s)) '0,9,0 address
Catch ex As Exception MessageBox.Show(ex.Message)
Finally
Cursor.Current = Cursors.Default
End Try
End Sub
Public Sub writeGpibData(ByVal wt As String) Try
GpibDeviceData.Write(wt)
Catch ex As Exception MessageBox.Show(ex.Message)
End Try
End Sub
Public Function readGpibData() As String
Dim gpibdata As String
gpibdata = ""
Try
Cursor.Current = Cursors.WaitCursor
gpibdata = GpibDeviceData.ReadString()
Catch ex As Exception MessageBox.Show(ex.Message)
Finally
Cursor.Current = Cursors.Default
End Try
Return gpibdata End Function
End Module
