5个回答
展开全部
看msdn啊,里面有
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
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控件只有用来控制串口进行发送数据,接收数据的,本事不具有数据处理功能。
如果你要数据处理,需要添加其他语言例如:
if receive=65 then 'A的ascii
send(67) 'C的ascii
endif
如果你要数据处理,需要添加其他语言例如:
if receive=65 then 'A的ascii
send(67) 'C的ascii
endif
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
当然 可以
否则 你 用 它 接收数据 干什么呢?
否则 你 用 它 接收数据 干什么呢?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以
你会写接收的代码吗?
你会写接收的代码吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个就是通信协议的雏形吧
输入A,输出C
只要你在MSComm1_OnComm中加入对输入的判断即可
输入A,输出C
只要你在MSComm1_OnComm中加入对输入的判断即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询