7,785
社区成员
发帖
与我相关
我的任务
分享VB里面有对串口（rs232口）进行读取的函数或者API吗？
我想对RS232口传过来的数据流进行读取操作
请问有这样的函数或者API吗
还有 当一个I/O信息过来的时候 怎么判断它是从ps/2口过来的数据，还是rs232口过来的数据啊？
谢谢
请问有这样的函数或者API吗
还有 当一个I/O信息过来的时候 怎么判断它是从ps/2口过来的数据，还是rs232口过来的数据啊？
谢谢
...全文
请发表友善的回复…
发表回复
sstlwg 2006-07-19
- 打赏
- 举报
Dim buffer As String
MSComm1.CommPort = 1 '选用COM1串行口
MSComm1.Settings = "9600,N,8,1" '波特率9600，无奇偶校验位，8位数据位1位
MSComm1.InputLen = 11 'Input将读取接收缓冲区的全部内容1'
MSComm1.InBufferSize = 1024 '设置接收缓冲区的字节长度'
MSComm1.PortOpen = True '打开通信口
MSComm1.InBufferCount = 0 '清除发送缓冲区数据
'MSComm1.InputMode = comInputModeascii
' 设定 InputMode 以读取ascii
' 等待直到输入暂存区有 10 个位元组
Do Until MSComm1.InBufferCount >= 10
DoEvents
Loop
' 往暂存区存二进位资料
buffer = MSComm1.Input
' 指定给位元组阵列以便处理
MSComm1.CommPort = 1 '选用COM1串行口
MSComm1.Settings = "9600,N,8,1" '波特率9600，无奇偶校验位，8位数据位1位
MSComm1.InputLen = 11 'Input将读取接收缓冲区的全部内容1'
MSComm1.InBufferSize = 1024 '设置接收缓冲区的字节长度'
MSComm1.PortOpen = True '打开通信口
MSComm1.InBufferCount = 0 '清除发送缓冲区数据
'MSComm1.InputMode = comInputModeascii
' 设定 InputMode 以读取ascii
' 等待直到输入暂存区有 10 个位元组
Do Until MSComm1.InBufferCount >= 10
DoEvents
Loop
' 往暂存区存二进位资料
buffer = MSComm1.Input
' 指定给位元组阵列以便处理
of123 2006-07-17
- 打赏
- 举报
API 函数是微软为 Windows 系统编程而提供的，它不分 VB 还是其他语言。
API 函数中有用于串口操作的。但很少有人在 VB 中直接调用它们。一般用 MSComm 控件。
ps/2 和 RS-232 口有数据进来时触发不同的控件事件，当然可以分出来。
API 函数中有用于串口操作的。但很少有人在 VB 中直接调用它们。一般用 MSComm 控件。
ps/2 和 RS-232 口有数据进来时触发不同的控件事件，当然可以分出来。
of123 2006-07-17
- 打赏
- 举报
请说明你的具体需求。你的问题很宽泛。
