Hello,
This is similar to a previous post of mine, but a different question.
I have gotten a hold of 2 Fluke 789 multimeters. 1 was version 1.01 and the 2nd was Version 2.02
With the code below, I can connect to the version 1.01 all day long. But it will not connect to the version 2.02
I have sent Fluke an email looking for a copy of the commands for the newer version. No luck on getting an answer
So I was wondering if anyone knows how to connect to a Fluke 789 Version 2.X Processmeter using Excel VBA. or maybe even send me in the right direction.
Any help would be greatly appreciate.
This is similar to a previous post of mine, but a different question.
I have gotten a hold of 2 Fluke 789 multimeters. 1 was version 1.01 and the 2nd was Version 2.02
With the code below, I can connect to the version 1.01 all day long. But it will not connect to the version 2.02
Code:
Option Explicit
Dim ioMgr As VisaComLib.ResourceManager
Dim instrAny As VisaComLib.FormattedIO488
Dim instrQuery As String
Dim instrAddress As String
Public Sub Intialize_Click()
On Error GoTo ioError
instrAddress = Range("B4").Value
Set ioMgr = New VisaComLib.ResourceManager
Set instrAny = New VisaComLib.FormattedIO488
Set instrAny.IO = ioMgr.Open("ASRL3::INSTR")
Dim serInfc As VisaComLib.ISerial
Set serInfc = instrAny.IO
serInfc.BaudRate = 9600
serInfc.FlowControl = ASRL_FLOW_NONE
serInfc.Timeout = 10000
instrAny.IO.SendEndEnabled = True
instrAny.IO.TerminationCharacter = 13 ' could be 10 (line feed) or 13 (carriage return)
instrAny.IO.TerminationCharacterEnabled = True
instrAny.IO.Timeout = 10000
Exit Sub
ioError:
MsgBox "An IO error occured:" & vbCrLf & Err.Description
End Sub
Public Sub cmdSendIDN_Click()
On Error GoTo ioError
instrAny.WriteString ("ID")
MsgBox "ID has been sent to Instrument"
Exit Sub
ioError:
MsgBox "An IO error occured:" & vbCrLf & Err.Description
End Sub
Public Sub cmdReadIDN_Click()
On Error GoTo ioError
instrQuery = instrAny.ReadString()
If instrQuery = 0 Then
instrQuery = instrAny.ReadString()
End If
MsgBox instrQuery, , "Instrument response to ID"
Exit Sub
ioError:
MsgBox "An IO error occured:" & vbCrLf & Err.Description
End Sub
Public Sub instrclose_Click()
On Error GoTo ioError
instrAny.IO.Close
MsgBox "Connection Closed"
Exit Sub
ioError:
MsgBox "An IO error occured:" & vbCrLf & Err.Description
End Sub
I have sent Fluke an email looking for a copy of the commands for the newer version. No luck on getting an answer
So I was wondering if anyone knows how to connect to a Fluke 789 Version 2.X Processmeter using Excel VBA. or maybe even send me in the right direction.
Any help would be greatly appreciate.