visa32.bas

LDO在线测试程序

' -------------------------------------------------------------------------
'  Distributed by VXIplug&play Systems Alliance
'  Do not modify the contents of this file.
' -------------------------------------------------------------------------
'  Title   : VISA32.BAS
'  Date    : 11-04-96
'  Purpose : Include file for the VISA Library 1.1 spec
' -------------------------------------------------------------------------

Global Const VI_SPEC_VERSION  = &H00100100&

' - Resource Template Functions and Operations ----------------------------

Declare Function viOpenDefaultRM Lib "VISA32.DLL" Alias "#141" (sesn As Long) As Long
Declare Function viGetDefaultRM Lib "VISA32.DLL" Alias "#128" (sesn As Long) As Long
Declare Function viFindRsrc Lib "VISA32.DLL" Alias "#129" (ByVal sesn As Long, ByVal expr As String, vi As Long, retCount As Long, ByVal desc As String) As Long
Declare Function viFindNext Lib "VISA32.DLL" Alias "#130" (ByVal vi As Long, ByVal desc As String) As Long
Declare Function viOpen Lib "VISA32.DLL" Alias "#131" (ByVal sesn As Long, ByVal viDesc As String, ByVal mode As Long, ByVal timeout As Long, vi As Long) As Long
Declare Function viClose Lib "VISA32.DLL" Alias "#132" (ByVal vi As Long) As Long
Declare Function viGetAttribute Lib "VISA32.DLL" Alias "#133" (ByVal vi As Long, ByVal attrName As Long, attrValue As Any) As Long
Declare Function viSetAttribute Lib "VISA32.DLL" Alias "#134" (ByVal vi As Long, ByVal attrName As Long, ByVal attrValue As Long) As Long
Declare Function viStatusDesc Lib "VISA32.DLL" Alias "#142" (ByVal vi As Long, ByVal status As Long, ByVal desc As String) As Long
Declare Function viLock Lib "VISA32.DLL" Alias "#144" (ByVal vi As Long, ByVal lockType As Long, ByVal timeout As Long, ByVal requestedKey As String, ByVal accessKey As String) As Long
Declare Function viUnlock Lib "VISA32.DLL" Alias "#145" (ByVal vi As Long) As Long
Declare Function viEnableEvent Lib "VISA32.DLL" Alias "#135" (ByVal vi As Long, ByVal eventType As Long, ByVal mechanism As Integer, ByVal context As Long) As Long
Declare Function viDisableEvent Lib "VISA32.DLL" Alias "#136" (ByVal vi As Long, ByVal eventType As Long, ByVal mechanism As Integer) As Long
Declare Function viDiscardEvents Lib "VISA32.DLL" Alias "#137" (ByVal vi As Long, ByVal eventType As Long, ByVal mechanism As Integer) As Long
Declare Function viWaitOnEvent Lib "VISA32.DLL" Alias "#138" (ByVal vi As Long, ByVal inEventType As Long, ByVal timeout As Long, outEventType As Long, outEventContext As Long) As Long

' - Basic I/O Operations --------------------------------------------------

Declare Function viRead Lib "VISA32.DLL" Alias "#256" (ByVal vi As Long, ByVal Buffer As String, ByVal count As Long, retCount As Long) As Long
Declare Function viWrite Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, ByVal Buffer As String, ByVal count As Long, retCount As Long) As Long
Declare Function viAssertTrigger Lib "VISA32.DLL" Alias "#258"(ByVal vi As Long, ByVal protocol As Integer) As Long
Declare Function viReadSTB Lib "VISA32.DLL" Alias "#259" (ByVal vi As Long, status As Integer) As Long
Declare Function viClear Lib "VISA32.DLL" Alias "#260" (ByVal vi As Long) As Long

' - Formatted I/O Operations ----------------------------------------------

Declare Function viSetBuf Lib "VISA32.DLL" Alias "#267" (ByVal vi As Long, ByVal mask As Integer, ByVal bufSize As Long) As Long
Declare Function viFlush Lib "VISA32.DLL" Alias "#268" (ByVal vi As Long, ByVal mask As Integer) As Long
Declare Function viVPrintf Lib "VISA32.DLL" Alias "#270" (ByVal vi As Long, ByVal writeFmt As String, params As Any) As Long
Declare Function viVScanf Lib "VISA32.DLL" Alias "#272" (ByVal vi As Long, ByVal readFmt As String, params As Any) As Long
Declare Function viVQueryf Lib "VISA32.DLL" Alias "#280" (ByVal vi As Long, ByVal writeFmt As String, ByVal readFmt As String, params As Any) As Long

' - Memory I/O Operations -------------------------------------------------

Declare Function viIn8 Lib "VISA32.DLL" Alias "#273" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, val8 As Byte) As Long
Declare Function viOut8 Lib "VISA32.DLL" Alias "#274" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal val8 As Byte) As Long
Declare Function viIn16 Lib "VISA32.DLL" Alias "#261" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, val16 As Integer) As Long
Declare Function viOut16 Lib "VISA32.DLL" Alias "#262" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal val16 As Integer) As Long
Declare Function viIn32 Lib "VISA32.DLL" Alias "#281" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, val32 As Long) As Long
Declare Function viOut32 Lib "VISA32.DLL" Alias "#282" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal val32 As Long) As Long
Declare Function viMoveIn8 Lib "VISA32.DLL" Alias "#283" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal length As Long, buf8 As Byte) As Long
Declare Function viMoveOut8 Lib "VISA32.DLL" Alias "#284" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal length As Long, buf8 As Byte) As Long
Declare Function viMoveIn16 Lib "VISA32.DLL" Alias "#285" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal length As Long, buf16 As Integer) As Long
Declare Function viMoveOut16 Lib "VISA32.DLL" Alias "#286" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal length As Long, buf16 As Integer) As Long
Declare Function viMoveIn32 Lib "VISA32.DLL" Alias "#287" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal length As Long, buf32 As Long) As Long
Declare Function viMoveOut32 Lib "VISA32.DLL" Alias "#288" (ByVal vi As Long, ByVal accSpace As Integer, ByVal offset As Long, ByVal length As Long, buf32 As Long) As Long
Declare Function viMove Lib "VISA32.DLL" Alias "#200" (ByVal vi As Long, ByVal srcSpace As Integer, ByVal srcOffset As Long, ByVal srcWidth As Integer, ByVal destSpace As Integer, ByVal destOffset As Long, ByVal destWidth As Integer, ByVal srcLength As Long) As Long
Declare Function viMapAddress Lib "VISA32.DLL" Alias "#263" (ByVal vi As Long, ByVal mapSpace As Integer, ByVal mapOffset As Long, ByVal mapSize As Long, ByVal accMode As Integer, ByVal suggested As Long, address As Long) As Long
Declare Function viUnmapAddress Lib "VISA32.DLL" Alias "#264" (ByVal vi As Long) As Long
Declare Sub viPeek8 Lib "VISA32.DLL" Alias "#275" (ByVal vi As Long, ByVal address As Long, val8 As Byte)
Declare Sub viPoke8 Lib "VISA32.DLL" Alias "#276" (ByVal vi As Long, ByVal address As Long, ByVal val8 As Byte)
Declare Sub viPeek16 Lib "VISA32.DLL" Alias "#265" (ByVal vi As Long, ByVal address As Long, val16 As Integer)
Declare Sub viPoke16 Lib "VISA32.DLL" Alias "#266" (ByVal vi As Long, ByVal address As Long, ByVal val16 As Integer)
Declare Sub viPeek32 Lib "VISA32.DLL" Alias "#289" (ByVal vi As Long, ByVal address As Long, val32 As Long)
Declare Sub viPoke32 Lib "VISA32.DLL" Alias "#290" (ByVal vi As Long, ByVal address As Long, ByVal val32 As Long)

' - Shared Memory Operations ---------------------------------------------- 

Declare Function viMemAlloc Lib "VISA32.DLL" Alias "#291" (ByVal vi As Long, ByVal memSize As Long, offset As Long) As Long
Declare Function viMemFree Lib "VISA32.DLL" Alias "#292" (ByVal vi As Long, ByVal offset As Long) As Long

' - Attributes ------------------------------------------------------------

Global Const VI_ATTR_RSRC_NAME                   = &HBFFF0002&
Global Const VI_ATTR_RSRC_IMPL_VERSION           = &H3FFF0003&
Global Const VI_ATTR_RSRC_LOCK_STATE             = &H3FFF0004&
Global Const VI_ATTR_MAX_QUEUE_LENGTH            = &H3FFF0005&
Global Const VI_ATTR_USER_DATA                   = &H3FFF0007&
Global Const VI_ATTR_FDC_CHNL                    = &H3FFF000D&
Global Const VI_ATTR_FDC_MODE                    = &H3FFF000F&
Global Const VI_ATTR_FDC_GEN_SIGNAL_EN           = &H3FFF0011&
Global Const VI_ATTR_FDC_USE_PAIR                = &H3FFF0013&
Global Const VI_ATTR_SEND_END_EN                 = &H3FFF0016&
Global Const VI_ATTR_TERMCHAR                    = &H3FFF0018&
Global Const VI_ATTR_TMO_VALUE                   = &H3FFF001A&
Global Const VI_ATTR_GPIB_READDR_EN              = &H3FFF001B&
Global Const VI_ATTR_IO_PROT                     = &H3FFF001C&
Global Const VI_ATTR_ASRL_BAUD                   = &H3FFF0021& 
Global Const VI_ATTR_ASRL_DATA_BITS              = &H3FFF0022& 
Global Const VI_ATTR_ASRL_PARITY                 = &H3FFF0023& 
Global Const VI_ATTR_ASRL_STOP_BITS              = &H3FFF0024& 
Global Const VI_ATTR_ASRL_FLOW_CNTRL             = &H3FFF0025& 
Global Const VI_ATTR_RD_BUF_OPER_MODE            = &H3FFF002A&
Global Const VI_ATTR_WR_BUF_OPER_MODE            = &H3FFF002D&
Global Const VI_ATTR_SUPPRESS_END_EN             = &H3FFF0036&
Global Const VI_ATTR_TERMCHAR_EN                 = &H3FFF0038&
Global Const VI_ATTR_DEST_ACCESS_PRIV            = &H3FFF0039&
Global Const VI_ATTR_DEST_BYTE_ORDER             = &H3FFF003A&
Global Const VI_ATTR_SRC_ACCESS_PRIV             = &H3FFF003C&
Global Const VI_ATTR_SRC_BYTE_ORDER              = &H3FFF003D&
Global Const VI_ATTR_SRC_INCREMENT               = &H3FFF0040&
Global Const VI_ATTR_DEST_INCREMENT              = &H3FFF0041&
Global Const VI_ATTR_WIN_ACCESS_PRIV             = &H3FFF0045&
Global Const VI_ATTR_WIN_BYTE_ORDER              = &H3FFF0047&
Global Const VI_ATTR_CMDR_LA                     = &H3FFF006B&
Global Const VI_ATTR_MAINFRAME_LA                = &H3FFF0070&
Global Const VI_ATTR_WIN_BASE_ADDR               = &H3FFF0098&
Global Const VI_ATTR_WIN_SIZE                    = &H3FFF009A&
Global Const VI_ATTR_ASRL_AVAIL_NUM              = &H3FFF00AC&
Global Const VI_ATTR_MEM_BASE                    = &H3FFF00AD&
Global Const VI_ATTR_ASRL_CTS_STATE              = &H3FFF00AE&
Global Const VI_ATTR_ASRL_DCD_STATE              = &H3FFF00AF&
Global Const VI_ATTR_ASRL_DSR_STATE              = &H3FFF00B1&
Global Const VI_ATTR_ASRL_DTR_STATE              = &H3FFF00B2&
Global Const VI_ATTR_ASRL_END_IN                 = &H3FFF00B3& 
Global Const VI_ATTR_ASRL_END_OUT                = &H3FFF00B4& 
Global Const VI_ATTR_ASRL_RI_STATE               = &H3FFF00BF&
Global Const VI_ATTR_ASRL_RTS_STATE              = &H3FFF00C0&
Global Const VI_ATTR_WIN_ACCESS                  = &H3FFF00C3&
Global Const VI_ATTR_RM_SESSION                  = &H3FFF00C4&
Global Const VI_ATTR_VXI_LA                      = &H3FFF00D5&
Global Const VI_ATTR_MANF_ID                     = &H3FFF00D9&
Global Const VI_ATTR_MEM_SIZE                    = &H3FFF00DD&
Global Const VI_ATTR_MEM_SPACE                   = &H3FFF00DE&
Global Const VI_ATTR_MODEL_CODE                  = &H3FFF00DF&
Global Const VI_ATTR_SLOT                        = &H3FFF00E8&
Global Const VI_ATTR_INTF_INST_NAME              = &HBFFF00E9&
Global Const VI_ATTR_IMMEDIATE_SERV              = &H3FFF0100& 
Global Const VI_ATTR_INTF_PARENT_NUM             = &H3FFF0101&
Global Const VI_ATTR_RSRC_SPEC_VERSION           = &H3FFF0170&
Global Const VI_ATTR_INTF_TYPE                   = &H3FFF0171&
Global Const VI_ATTR_GPIB_PRIMARY_ADDR           = &H3FFF0172&
Global Const VI_ATTR_GPIB_SECONDARY_ADDR         = &H3FFF0173&
Global Const VI_ATTR_RSRC_MANF_NAME              = &HBFFF0174&
Global Const VI_ATTR_RSRC_MANF_ID                = &H3FFF0175&
Global Const VI_ATTR_INTF_NUM                    = &H3FFF0176&
Global Const VI_ATTR_TRIG_ID                     = &H3FFF0177&
Global Const VI_ATTR_GPIB_UNADDR_EN              = &H3FFF0184&
Global Const VI_ATTR_JOB_ID                      = &H3FFF4006&
Global Const VI_ATTR_EVENT_TYPE                  = &H3FFF4010&
Global Const VI_ATTR_SIGP_STATUS_ID              = &H3FFF4011&
Global Const VI_ATTR_RECV_TRID_ID                = &H3FFF4012&
Global Const VI_ATTR_INTR_STATUS_ID              = &H3FFF4023&
Global Const VI_ATTR_STATUS                      = &H3FFF4025&
Global Const VI_ATTR_RET_COUNT                   = &H3FFF4026&
Global Const VI_ATTR_BUFFER                      = &H3FFF4027&
Global Const VI_ATTR_RECV_INTR_LEVEL             = &H3FFF4041&

' - Event Types -----------------------------------------------------------

Global Const VI_EVENT_IO_COMPLETION              = &H3FFF2009&
Global Const VI_EVENT_TRIG                       = &HBFFF200A&
Global Const VI_EVENT_SERVICE_REQ                = &H3FFF200B&
Global Const VI_EVENT_VXI_SIGP                   = &H3FFF2020&
Global Const VI_EVENT_VXI_VME_INTR               = &HBFFF2021&

Global Const VI_ALL_ENABLED_EVENTS               = &H3FFF7FFF&

' - Completion and Error Codes --------------------------------------------

Global Const VI_SUCCESS                          = &H0&
Global Const VI_SUCCESS_EVENT_EN                 = &H3FFF0002&
Global Const VI_SUCCESS_EVENT_DIS                = &H3FFF0003&
Global Const VI_SUCCESS_QUEUE_EMPTY              = &H3FFF0004&
Global Const VI_SUCCESS_TERM_CHAR                = &H3FFF0005&
Global Const VI_SUCCESS_MAX_CNT                  = &H3FFF0006&
Global Const VI_SUCCESS_DEV_NPRESENT             = &H3FFF007D&
Global Const VI_SUCCESS_QUEUE_NEMPTY             = &H3FFF0080&
Global Const VI_SUCCESS_NESTED_SHARED            = &H3FFF0099&
Global Const VI_SUCCESS_NESTED_EXCLUSIVE         = &H3FFF009A&
Global Const VI_SUCCESS_SYNC                     = &H3FFF009B&
Global Const VI_WARN_CONFIG_NLOADED              = &H3FFF0077&
Global Const VI_WARN_NULL_OBJECT                 = &H3FFF0082&
Global Const VI_WARN_NSUP_ATTR_STATE             = &H3FFF0084&
Global Const VI_WARN_UNKNOWN_STATUS              = &H3FFF0085&
Global Const VI_WARN_NSUP_BUF                    = &H3FFF0088&