预览加载中，请您耐心等待几秒...

vb用API对串口操作的类.doc

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共14页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

'************************************************************************* '**模块名：SPort '**byzdt20081110 '**用API对Com进行操作 '************************************************************************* OptionExplicit 'PrivateTypeCOMSTAT 'fCtsHoldAsLong 'fDsrHoldAsLong 'fRlsdHoldAsLong 'fXoffHoldAsLong 'fXoffSentAsLong 'fEofAsLong 'fTximAsLong 'fReservedAsLong 'cbInQueAsLong 'cbOutQueAsLong 'EndType PrivateTypeCOMSTAT fBitFieldsAsLong'SeeCommentinWin32API.TxtCOMSTAT cbInQueAsLong cbOutQueAsLong EndType PrivateTypeCOMMTIMEOUTS ReadIntervalTimeoutAsLong ReadTotalTimeoutMultiplierAsLong ReadTotalTimeoutConstantAsLong WriteTotalTimeoutMultiplierAsLong WriteTotalTimeoutConstantAsLong EndType PrivateTypeDCB DCBlengthAsLong BaudRateAsLong fBitFieldsAsLong'SeeCommentsinWin32API.Txt wReservedAsInteger XonLimAsInteger XoffLimAsInteger ByteSizeAsByte ParityAsByte StopBitsAsByte XonCharAsByte XoffCharAsByte ErrorCharAsByte EofCharAsByte EvtCharAsByte wReserved1AsInteger'Reserved;DoNotUse EndType PrivateTypeOVERLAPPED InternalAsLong InternalHighAsLong offsetAsLong OffsetHighAsLong hEventAsLong EndType PrivateTypeSECURITY_ATTRIBUTES nLengthAsLong lpSecurityDescriptorAsLong bInheritHandleAsLong EndType PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong PrivateDeclareFunctionGetLastErrorLib"kernel32"()AsLong PrivateDeclareFunctionReadFileLib"kernel32"(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToReadAsLong,lpNumberOfBytesReadAsLong,lpOverlappedAsOVERLAPPED)AsLong PrivateDeclareFunctionWriteFileLib"kernel32"(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToWriteAsLong,lpNumberOfBytesWrittenAsLong,lpOverlappedAsOVERLAPPED)AsLong'OVERLAPPED PrivateDeclareFunctionSetCommTimeoutsLib"kernel32"(ByValhFileAsLong,lpCommTimeoutsAsCOMMTIMEOUTS)AsLong PrivateDeclareFunctionGetCommTimeoutsLib"kernel32"(ByValhFileAsLong,lpCommTimeoutsAsCOMMTIMEOUTS)AsLong PrivateDeclareFunctionGetOverlappedResultLib"kernel32"(ByValhFileAsLong,lpOverlappedAsOVERLAPPED,lpNum