16-54
IM 765601-01E
16.4.2 Interface Access Function
Attribute VB_Name = "CommLib"
'
' Interface Access Function
'
' Used modules: VISA interface by National Instruments visa32.bas and vpptype.bas
'
'
' RS232 settings (match with the settings on the GS820)
'
Const RS232_BAUD = 115200 ' Baud rate for RS232 9600/14400/19200/38400/57600/115200
Const RS232_DBIT = 8 ' Data length for RS232 7/8
Const RS232_SBIT = VI_ASRL_STOP_ONE ' Stop bits for RS232 VI_ASRL_STOP_ONE/VI_ASRL_STOP_TWO
Const RS232_PARI = VI_ASRL_PAR_NONE ' Parity for RS232 VI_ASRL_PAR_NONE/VI_ASRL_PAR_EVEN/VI_ASRL_PAR_ODD
Const RS232_FLOW = VI_ASRL_FLOW_NONE ' Flow control for RS232VI_ VI_ASRL_FLOW_NONE/ASRL_FLOW_XON_XOFF/
' VI_ASRL_FLOW_RTS_CTS
' Open function
Function CommOpen(ByVal rsrc, ByVal name As String) As Long
Dim ret, vi As Long
ret = viOpen(rsrc, name, 0, 0, vi)
If (ret < 0) Then
CommOpen = ret
Else
CommOpen = vi
Call viSetAttribute(vi, VI_ATTR_ASRL_BAUD, RS232_BAUD)
Call viSetAttribute(vi, VI_ATTR_ASRL_DATA_BITS, RS232_DBIT)
Call viSetAttribute(vi, VI_ATTR_ASRL_STOP_BITS, RS232_SBIT)
Call viSetAttribute(vi, VI_ATTR_ASRL_PARITY, RS232_PARI)
Call viSetAttribute(vi, VI_ATTR_ASRL_FLOW_CTRL, RS232_FLOW)
Call viSetAttribute(vi, VI_ATTR_ASRL_END_IN, VI_ASRL_END_TERMCHAR)
Call viSetAttribute(vi, VI_ATTR_ASRL_END_OUT, VI_ASRL_END_TERMCHAR)
End If
End Function
' Close function
Function CommClose(ByVal vi) As Long
CommClose = viClose(vi)
End Function
16.4 Sample Programs
