7,785
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
gg137zeus 2004-09-15
- 打赏
- 举报
HELP!
gg137zeus 2004-09-15
- 打赏
- 举报
谢谢老大，可，难道真的不能对波特率为230400的串口操作啦？
脆皮大雪糕 2004-09-15
- 打赏
- 举报
Settings 属性
设置并返回波特率、奇偶校验、数据位、停止位参数。
语法
object.Settings[ = value]
Settings 属性语法包括下列部分：
部分 描述
object 对象表达式，其值是“应用于”列表中的对象。
value 字符串表达式，说明通讯端口的设置值，如下所述。
说明
当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S"
BBBB 为波特率，P 为奇偶校验，D 为数据位数，S 为停止位数。value 的缺省值是：
"9600,N,8,1"
下表列出合法的波特率：
设置值
110
300
600
1200
2400
9600（缺省）
14400
19200
28800
38400
56000
128000
256000
下表说明合法的奇偶校验值。
设置值 描述
E 偶数 (Even)
M 标记 (Mark)
N 缺省 (Default)
None
O 奇数 (Odd)
S 空格 (Space)
下表列出合法的数据位值。
设置值
4
5
6
7
8 （缺省）
下表列出合法的停止位值。
设置值
1 （缺省）
1.5
2
数据类型
String
设置并返回波特率、奇偶校验、数据位、停止位参数。
语法
object.Settings[ = value]
Settings 属性语法包括下列部分：
部分 描述
object 对象表达式，其值是“应用于”列表中的对象。
value 字符串表达式，说明通讯端口的设置值，如下所述。
说明
当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S"
BBBB 为波特率，P 为奇偶校验，D 为数据位数，S 为停止位数。value 的缺省值是：
"9600,N,8,1"
下表列出合法的波特率：
设置值
110
300
600
1200
2400
9600（缺省）
14400
19200
28800
38400
56000
128000
256000
下表说明合法的奇偶校验值。
设置值 描述
E 偶数 (Even)
M 标记 (Mark)
N 缺省 (Default)
None
O 奇数 (Odd)
S 空格 (Space)
下表列出合法的数据位值。
设置值
4
5
6
7
8 （缺省）
下表列出合法的停止位值。
设置值
1 （缺省）
1.5
2
数据类型
String
脆皮大雪糕 2004-09-15
- 打赏
- 举报
MSComm 控件示例
下面这个简单的例子演示了用调制解调器进行基本的串行通讯：
Private Sub Form_Load ()
' 保存输入子串的缓冲区
Dim Instring As String
' 使用 COM1。
MSComm1.CommPort = 1
' 9600 波特，无奇偶校验，8 位数据，一个停止位。
MSComm1.Settings = "9600,N,8,1"
' 当输入占用时，
' 告诉控件读入整个缓冲区。
MSComm1.InputLen = 0
' 打开端口。
MSComm1.PortOpen = True
' 将 attention 命令送到调制解调器。
MSComm1.Output = "ATV1Q0" & Chr$(13) ' 确保
' 调制解调器以"OK"响应。
' 等待数据返回到串行端口。
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' 从串行端口读 "OK" 响应。
' 关闭串行端口。
MSComm1.PortOpen = False
End Sub
注意 MSComm 控件可以采用轮询或事件驱动的方法从端口获取数据。这个简单的例子使用了轮询方法。关于事件驱动方法的例子请参阅 OnComm 事件的帮助。
下面这个简单的例子演示了用调制解调器进行基本的串行通讯：
Private Sub Form_Load ()
' 保存输入子串的缓冲区
Dim Instring As String
' 使用 COM1。
MSComm1.CommPort = 1
' 9600 波特，无奇偶校验，8 位数据，一个停止位。
MSComm1.Settings = "9600,N,8,1"
' 当输入占用时，
' 告诉控件读入整个缓冲区。
MSComm1.InputLen = 0
' 打开端口。
MSComm1.PortOpen = True
' 将 attention 命令送到调制解调器。
MSComm1.Output = "ATV1Q0" & Chr$(13) ' 确保
' 调制解调器以"OK"响应。
' 等待数据返回到串行端口。
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' 从串行端口读 "OK" 响应。
' 关闭串行端口。
MSComm1.PortOpen = False
End Sub
注意 MSComm 控件可以采用轮询或事件驱动的方法从端口获取数据。这个简单的例子使用了轮询方法。关于事件驱动方法的例子请参阅 OnComm 事件的帮助。
gg137zeus 2004-09-15
- 打赏
- 举报
ps: tztz520(午夜逛街) ，请问你是如何得到230400波特率的啊？
gg137zeus 2004-09-15
- 打赏
- 举报
没人知道吗？或者谁知道根本不可以啊？？
gg137zeus 2004-09-15
- 打赏
- 举报
那请教高手，怎么才能用VB实现230400波特率串口控制呢？
supermarrio 2004-09-15
- 打赏
- 举报
查MSDN就可以看到了
supermarrio 2004-09-15
- 打赏
- 举报
你用的不是合法的设置啊
下表列出合法的波特率：
设置值
110
300
600
1200
2400
9600（缺省）
14400
19200
28800
38400
56000
128000
256000
下表列出合法的波特率：
设置值
110
300
600
1200
2400
9600（缺省）
14400
19200
28800
38400
56000
128000
256000
gg137zeus 2004-09-15
- 打赏
- 举报
是MSComm1的Setting属性里改吗？可我改了不行啊：（
tztz520 2004-09-15
- 打赏
- 举报
可以的.支持如下:
"110"
"300"
"1200"
"2400"
"4800"
"9600"
"19200"
"38400"
"57600"
"115200"
"230400"
"460800"
"921600"
"110"
"300"
"1200"
"2400"
"4800"
"9600"
"19200"
"38400"
"57600"
"115200"
"230400"
"460800"
"921600"
gg137zeus 2004-09-15
- 打赏
- 举报
天呐，没得人应啊？？？各位大侠请指教一下刹：））
gg137zeus 2004-09-15
- 打赏
- 举报
踢一脚，呵呵
gg137zeus 2004-09-15
- 打赏
- 举报
不奇怪啊，现在的无线网卡波特率分两种：115200 & 230400，其中230400是主角啊
脆皮大雪糕 2004-09-15
- 打赏
- 举报
为什么会有那么奇怪的波特率？
