gpara.bas

VB和西门子s300plc串口通讯程序 能实现读写功能

Attribute VB_Name = "GPARA"
Type infotyp
     plcsw As Integer
     pgsw As Integer
     mlfb As String * 30
End Type

Type plcadrtype
     ADR As Byte
     SEGMENTID As Byte
     SLOTNO As Byte
     RACKNO As Byte
End Type


'Public Const BST_IN_RAM As Integer = 16
'Public Const BST_IN_EPROM As Integer = 32

'****************************************************************************************************************************
'variables for demoprogram
'****************************************************************************************************************************
Global DataTypeIdx As Integer
Global DataFieldIdx As Integer
Global ViewTypeIdx As Integer
'Global OutputTypeIdx As Integer

Global VerbIdx As Integer
Global RealBuf(30) As Long
Global value_word(1024) As Integer
Global value_byte(1024) As Byte
Global plcadr(5) As plcadrtype
Global ErrorText As String

Global res As Long
Global AMOUNT As Long
Global BLOCKNO As Long
Global DATANO As Long


Global str As String