关于RS-232的vb程序

bluesky | 当前状态：离线 总积分：58 2024年可用积分：0 注册时间： 2003-05-12 最后登录时间： 2007-01-25 空间发短消息加为好友: 关于RS-232的vb程序

bluesky 发表于 2005/10/19 13:26:56 3056 查看 4 回复 [上一主题] [下一主题]

手机阅读

请高手给我发些关于RS-232的vb程序，谢谢！

1楼 0 0 回复

jiewinds   |   当前状态：离线

总积分：200  2024年可用积分：0

注册时间： 2003-05-12

最后登录时间： 2007-01-25

空间发短消息加为好友

jiewinds   发表于 2004/12/4 9:33:27

发送端： Option Explicit '''''''''''''''''''''''''''''''''''''' Private Sub CmdExit_Click() Comm1.PortOpen = False End End Sub '''''''''''''''''''''''''''''''''''''' Private Sub CmdSend_Click() Comm1.Output = Trim(txtsend.Text) End Sub '''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() Comm1.PortOpen = True End Sub —————————————————————————————————————— 接收端： Private Sub cmdexit_Click() Comm1.PortOpen = False End End Sub '''''''''''''''''''''''''''''''''''''' Private Sub CmdReceive_Click() Dim buf$ buf = Trim(Comm1.Input) If Len(buf) = 0 Then TxtReceive.Text = "empty" Else TxtReceive.Text = buf End If End Sub Private Sub Form_Load() Comm1.PortOpen = True End Sub (转载)
2楼 回复本楼

引用 jiewinds 2004/12/4 9:33:27 发表于2楼的内容
匿名   |   当前状态：离线

总积分：0  2024年可用积分：0

注册时间： 0001-01-01

最后登录时间： 0001-01-01

空间发短消息加为好友

匿名   发表于 2005/7/7 11:51:51

我做了一个外接的loopback,在同一台电脑上测试一下,看能不能发送和接受数据,好象不能用啊,什么都收不到啊
3楼 回复本楼

引用匿名 2005/7/7 11:51:51 发表于3楼的内容
匿名   |   当前状态：离线

总积分：0  2024年可用积分：0

注册时间： 0001-01-01

最后登录时间： 0001-01-01

空间发短消息加为好友

匿名   发表于 2005/7/17 21:54:30

你的协议没有设置好
4楼 回复本楼

引用匿名 2005/7/17 21:54:30 发表于4楼的内容
z-jzhao   |   当前状态：离线

总积分：56  2024年可用积分：0

注册时间： 2005-10-19

最后登录时间： 2007-01-25

空间发短消息加为好友

z-jzhao   发表于 2005/10/19 13:26:56

不设置协议可以吗？我用串口控制仪器，为何控制不到，发送控制命令时，仪器有出错报警。可能是那方面的原因？
5楼 回复本楼

引用 z-jzhao 2005/10/19 13:26:56 发表于5楼的内容

总共 4, 当前 1/1

高级回复 | 发新主题

发表新帖

控制工程师论坛

2016年积分排行