VBA编程接口实例：PLC数据读写操作指南.pdfVIP

读编程口实例

OptionExplicit

PrivateSubCommand1_Click()DimmStartAs

IntegerDimIAsInteger,mData()AsIntegerOn

ErrorResumeNextReDimmData(Text1.UBound)

mStart=Val(Mid(Text2.Text,2))ForI=0To

UBound(mData)mData(I)=Val(Text1(I).Text)Next如

果Write_PLC(mData(),mStart)那么Debug.Print写

入成功EndSub

PrivateSubCommand2_Click()DimmStartAs

IntegerDimIAsInteger,mData()AsInteger

mStartVal(Mid(Text2.Text,2))If

Read_PLC(mData(),mStart,Text1.UBound+1)

ThenForI=0ToUBound(mData)

读编程口实例