您的位置：程序门 -> vb -> 非技术类

vb串行通信文件传送

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb串行通信文件传送

发表于：2007-04-12 14:09:18 楼主

我在做一个vb文件传送的实例
目的是从串口1发送文件,然后从串口2把文件接收并保存起来
但是怎么做都不成功!
请教各位高手有没有这样的例子给我看看!
可以发到我邮箱里
yaodi0813@hotmail.com
或者加我的qq17177770
如果帮助我做成功了,我有谢礼!
希望有高手能尽快给我答复,急~~~!!!!!!!!!!

发表于：2007-04-13 11:47:571楼得分:0

晕,都放了一天了,都没有人搭理我啊?

发表于：2007-04-13 12:57:142楼得分:0

把你的程序发出来,让别人给你改就行了,

发表于：2007-04-13 13:01:253楼得分:0

参考下列代码：
private sub cmdsent_click（)
dim strsent as string
strsent = trim（txtsent.text)
if （strsent = " ") then
msgbox "发送数据不能为空! ", vbokonly, "提示 "
txtsent.setfocus
else
comsent.output = strsent
'msgbox "已经执行发送! ", vbokonly, "提示 "
end if
end sub

private sub comreceive_oncomm（)
select case comreceive.commevent
case comevreceive
comreceive.inputmode = cominputmodetext 'ascii接收
txtreceive.text = comreceive.input
msgbox "收到！ "
end select
end sub

private sub form_load（)
txtreceive = " "
comsent.commport = 1
comsent.portopen = true
comreceive.commport = 2
comreceive.portopen = true
comreceive.rthreshold = 1
'其余属性均按默认设置
end sub

发表于：2007-04-14 11:16:174楼得分:0

这样的我明白了!我想知道的是发送文件的那种
用mscomm控件发送文件!
把文件打开然后读取里面的数据!
从串口1发出去,再从口2接回来保存在电脑里!

其他资讯