那位高手做过用vb的comm控件做通过串口接收短信息请指.doc

下载文档 降价啦

7
0
约3.68万字
约 40页
2017-03-01 发布于天津
举报
版权申诉
保障服务

那位高手做过用vb的comm控件做通过串口接收短信息请指.doc

1、本文档共40页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

那位高手做过用vb的comm控件做通过串口接收短信息？请指点！楼主redata（风之子）2002-01-18 09:35:01 在 VB / 非技术类提问我的源程序 ? ? Const ? COM_IN_BUF_SIZE ? = ? 1024 ? ? Dim ? ComInBuffer(COM_IN_BUF_SIZE) ? As ? Variant, ? ComInHeadPtr ? As ? Integer, ? ComInTailPtr ? As ? Integer, ? ComInBufCount ? As ? Integer ? ? Dim ? ComInTimerOut ? As ? Boolean ? ? ? ? ? ? Private ? Sub ? InitPort() ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.CommPort ? = ? 1 ? 选用com1串行口 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.Settings ? = ? 9600,n,8,1 ? 波特率9600，无奇偶校验位，8位数据位1位停止位 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.InputLen ? = ? 1 ? 读取input接收缓冲区全部字节 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.InBufferSize ? = ? 1024 ? 设置接收缓冲区的字节长度 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.InBufferCount ? = ? 0 ? 清除发送缓冲区数据 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.OutBufferCount ? = ? 0 ? 清除接收缓冲区数据 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.InputMode ? = ? 1 ? 输入模式为binary ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.RThreshold ? = ? 1 ? 控件收到数据时将触发OnComm事件 ? ? ? ? ? ? ? ? ? ? ? ? MSComm1.Handshaking ? = ? 2 ? ? ? ? End ? Sub ? ? Private ? Sub ? InitComInBuf() ? ? ? ? ? ? ? ? ? ? ? ? ComInBufCount ? = ? 0 ? ? ? ? ? ? ComInHeadPtr ? = ? 0 ? ? ? ? ? ? ComInTailPtr ? = ? 0 ? ? ? ? ? ? ? ? ? ? ? ? ComInTimer.Enabled ? = ? False ? ? ? ? ? ? ComInTimer.Interval ? = ? 5000 ? ? ? ? ? ? ComInTimerOut ? = ? False ? ? ? ? End ? Sub ? ? Private ? Sub ? InitRecieve() ? ? ? ? ? ? MSComm1.PortOpen ? = ? True ? ? ? ? ? ? ? ? End ? Sub ? ? ? ? Private ? Sub ? RunComInHandle() ? ? ? ? ? ? ? ? ? ? ? ? Do ? While ? MSComm1.PortOpen ? = ? True ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? If ? ComInBufCount ? ? 0 ? Then ? ? ? ? ? ? ? ? ? ? ? ? ? ? ComInHandle ? ? ? ? ? ? ? ? ? ? End ? If ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? DoEvents ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Loop ? ? ? ? ? ? ? ? End ? Sub ? ? ? ? Private ? Sub ? ComInHandle() ? ? ? ? ? ? ? ? ? ? ? ? Dim ? InByte ? As ? Byte ? ? ? ? ? ? Dim ? InPack(COM_IN_BUF_SIZE) ? As ? Byte, ? InPackCount ? As ? Integer ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Do ? W