VBA 中使用 API 串口通信 Serial Port (英文)

《VBA 中使用 API 串口通信 Serial Port (英文)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、'-------------------------------------------------------------------------------''ThisVBmoduleisacollectionofroutinestoperformserialportI/Owithout'usingtheMicrosoftCommControlcomponent.ThismoduleusestheWindowsAPI'toperformtheoverlappedI/Ooperationsnecessaryforserialcommunications.''Thero

2、utinecanhandleupto4serialportswhichareidentifiedwitha'PortID.''Allroutines(withtheexceptionofCommReadandCommWrite)returnanerror'codeor0ifnoerroroccurs.TheroutineCommGetErrorcanbeusedtoget'thecompleteerrormessage.'---------------------------------------------------------------------------

3、----'-------------------------------------------------------------------------------'PublicConstants'-------------------------------------------------------------------------------'OutputControlLines(CommSetLine)ConstLINE_BREAK=1ConstLINE_DTR=2ConstLINE_RTS=3'InputControlLines(CommGetLin

4、e)ConstLINE_CTS=&H10&ConstLINE_DSR=&H20&ConstLINE_RING=&H40&ConstLINE_RLSD=&H80&ConstLINE_CD=&H80&'-------------------------------------------------------------------------------'SystemConstants'-------------------------------------------------------------------------------PrivateConstER

5、ROR_IO_INCOMPLETE=996&PrivateConstERROR_IO_PENDING=997PrivateConstGENERIC_READ=&H80000000PrivateConstGENERIC_WRITE=&H40000000PrivateConstFILE_ATTRIBUTE_NORMAL=&H80PrivateConstFILE_FLAG_OVERLAPPED=&H40000000PrivateConstFORMAT_MESSAGE_FROM_SYSTEM=&H1000PrivateConstOPEN_EXISTING=3'COMMFunct

6、ionsPrivateConstMS_CTS_ON=&H10&PrivateConstMS_DSR_ON=&H20&PrivateConstMS_RING_ON=&H40&PrivateConstMS_RLSD_ON=&H80&PrivateConstPURGE_RXABORT=&H2PrivateConstPURGE_RXCLEAR=&H8PrivateConstPURGE_TXABORT=&H1PrivateConstPURGE_TXCLEAR=&H4'COMMEscapeFunctionsPrivateConstCLRBREAK=9PrivateConstCLRD

7、TR=6PrivateConstCLRRTS=4PrivateConstSETBREAK=8PrivateConstSETDTR=5PrivateConstSETRTS=3'-------------------------------------------------------------------------------'SystemStructures'-------------------------------------------------------------------------------PrivateTy