Trying to connect to a Fluke 789 V2.02 Processmeter

ArnMan

Board Regular
Joined
Aug 30, 2017
Messages
64
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

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.
 

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Forum statistics

Threads
1,144,628
Messages
5,725,378
Members
422,621
Latest member
dfrare

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top