Skip to main content

The VISA Interface



The VISA Interface

Adding the TekVisa ActiveX Control to VB


Use the VB Object Browser to view Functions of the ActiveX




Comments

Post a Comment

Popular posts from this blog

GXWorks3 GXDeveloper3 Notes

Set Device comment using Navigation Tree View -> Device-> Common Device Comment Q1. Blinking erratic display of values when choosing Controller Type : FX A1. Communication issue between the GS2110 HMI and the FX5U PLC over ethernet was resolved by the following settings : System Tree View -> Controller Setting ->CH1-> Controller Type : Melsec iQ-F , I/F : Ethernet Multi Unit type : FX5CPU, IP Address : 192.168.1.17, Port : 5562, Communication TCP Q2. When communication between the FX5U PLC and the GS2110 HMI was established the GXWorks3 Programming software was unable to go online with the PLC - gives communication error A2. The PLC connection set to "Direct" and not "Via Hub" Q3  Unable to establish simultaneous communication to FX5U PLC with SCADA (MX OPC Server ) and HMI ( GS2110 ) Need to add Melsoft  device to correspond to the HMI as shown below Q4. Functions and Function Blocks Functions :  1. Do not get i...
Post a Comment
Read more

FX5U PLC Module Settings

FX5U-4AD-PT-ADP FX5U-8AD
Post a Comment
Read more

Updated LogResults Script 28-Mar-2018

Option Explicit Dim g As SWXRuntimeLib.Global Dim objFSO As Scripting.FileSystemObject Dim objLogFile As Scripting.TextStream Dim client As GENCLIENTWRAPPERLib.client '----------------------------------------------------- Public Sub LogResultsScript(td As TriggerData)     On Error GoTo ErrHandler     ' TODO: Add your code here     Const ForWriting = 2     Set objFSO = CreateObject("Scripting.FileSystemObject")             Dim LogFile As Scripting.TextStream     Set LogFile = objFSO.CreateTextFile("E:\csv\Log.csv", ForWriting, True)         Dim TempWriteToFile As String     Dim WindingNo As String, WindingNoTrim As String     Dim ModelNo As String, FGCode As String     Dim RatedSpd As Integer, EncoderPPR As Integer, InvSwFreq As Integer     Dim RatedI As Double, RatedT As Double, RatedF As Double, StallI As Double    ...
Post a Comment
Read more