Public Sub Connect_Adam()
MSComm2.RThreshold = 1 '当接收缓冲区中的字符数为RThreshold时,触发OnComm事件;
MSComm2.SThreshold = 1 '在OnComm事件产生之前在传输缓冲区中的最小字符数;
MSComm2.DTREnable = True '使Data Terminal Ready线有效;
MSComm2.EOFEnable = True '当找到EOF字符时激活OnComm事件;
MSComm2.CommPort = 1 ' 使用 COM1。
MSComm2.Settings = "9600,n,8,1" ' 9600波特,偶校验,8位数据,一个停止位。
MSComm2.InputLen = 0 ' 当输入占用时, 告诉控件读入整个缓冲区。
MSComm2.PortOpen = True ' 打开端口。
End Sub 我用的是string类型
MSComm2.RThreshold = 1 '当接收缓冲区中的字符数为RThreshold时,触发OnComm事件;
MSComm2.SThreshold = 1 '在OnComm事件产生之前在传输缓冲区中的最小字符数;
MSComm2.DTREnable = True '使Data Terminal Ready线有效;
MSComm2.EOFEnable = True '当找到EOF字符时激活OnComm事件;
MSComm2.CommPort = 1 ' 使用 COM1。
MSComm2.Settings = "9600,n,8,1" ' 9600波特,偶校验,8位数据,一个停止位。
MSComm2.InputLen = 0 ' 当输入占用时, 告诉控件读入整个缓冲区。
MSComm2.PortOpen = True ' 打开端口。
End Sub 我用的是string类型
解决方案 »
- 打开网页并自动输入用户名和密码自动登录的一个问题
- vb参数传递!
- 如何由程序B来完成对程序A的自动登录过程
- 找到一款vb写的使用缓冲区的传输聊天软件,有不少独到之处
- 请教这样的查询怎么做
- vb+crystal report9.0+sql 高手请进 看看我的代码有何不当(急!)
- 一个小问题,请专家指教
- 请教:文件地创建、访问、修改时间问题
- vb6如何把数据传到Excel并用Excel画曲线
- 大俠求救,如何用VB6.0的ADO2.0访问设有密码的Access数据库
- 用Crystal Report做报表时,希望在打印记录时,每隔一行记录底色是灰色,怎么做??
- 用代码将数据导入FoxPro数据库的问题?务必看看,实现即给分,再现等待????
如果控件的InputMode为0,是字符方式
为1,是二进制方式。
lstr = mscomm1.input
串口通讯的数据格式是否为string类型改为:
dim lstr() as byte 或dim lstr() as variant
lstr = mscomm1.input
lstr = mscomm1.input
lstr是个字节数组