|
| 天气预报 |
|
|
| 百宝日历 |
载入中... |
|
百宝专栏 |
载入中... |
| 最新货色 |
|
载入中... |
| 粉丝评论 |
|
载入中...
|
|
百宝信息 |
|
载入中... |
| 百宝流量 |
|
（2006-07-01开始）
|
|
匠人手记 |
|
| |
|
|
|
|
|
|
|
|
一个简单的VB串口发送程序（源码）
程序匠人 发表于 2005-10-2 14:36:00 阅读全文 | 回复(2) | 引用通告 | 编辑 |
|
|
一个简单的VB串口发送程序（源码）！ |
'-----发送按钮Click事件子程序-----------
Private Sub Fasong_Click()
Dim JIHAO(0) As Byte ’机号
Dim head_data(4) As Byte ’5 Byte控制字
Dim end_data(0) As Byte '1 Byte 结束字
JIHAO(0) = Val(Text3.Text)
head_data(0) = Val(Text4.Text)
head_data(2) = &HEE 'TIMH
head_data(3) = &HEE 'TIML
head_data(4) = Val(Combo1.Text) 'INMOD
end_data(0) = &HFF
If Combo2.Text = "增加" Then head_data(1) = &H99
If Combo2.Text = "清空" Then head_data(1) = &H33
If Combo2.Text = "删除" Then head_data(1) = &H32
Ready = 0: ErrCount = 0
On Error GoTo ERRORCOM ’打开错误处理
'----------------------------------------------------------
If com1.Value Then MSComm1.CommPort = 1 'Use com1
If com2.Value Then MSComm1.CommPort = 2 'Use com2
MSComm1.Settings = FORM1.Combo3.Text + ",M,8,2" '设定波特率和置校验和位为1
MSComm1.InputLen = 0 '
MSComm1.PortOpen = -1 'Open the port
MSComm1.OutBufferCount = 0
MSComm1.Output = JIHAO ‘发送机号
MSComm1.PortOpen = False ’关闭串口
MSComm1.Settings = FORM1.Combo3.Text + ",S,8,2" '设定波特率和置校验和位为空
MSComm1.OutBufferCount = 0
MSComm1.PortOpen = True
MSComm1.Output = head_data
MSComm1.Output = Text2.Text
MSComm1.Output = end_data
MSComm1.PortOpen = False
Text1.Text = "发送成功!" + Chr(13) & Chr(10) + "发送至" + Text3.Text + "屏体," + "信息编号:" + Text4.Text + Chr(13) & Chr(10) + Chr(13) & Chr(10) + Text1.Text
GoTo comend
ERRORCOM:
Text1.Text = "ERROR!请重新选择COM口!" + Chr(13) & Chr(10) + Chr(13) & Chr(10) + Text1.Text
comend:
On Error GoTo 0
End Sub
| |
看《匠人手记》，与匠人同行！北航出版，正在热卖！
|
回复:一个简单的VB串口发送程序（源码）
cxjr发表评论于2005-10-9 10:39:00 个人主页 | 引用 | 返回 | 删除 | 回复 |
|
 这是转载来的程序,匠人没有验证.
|
看《匠人手记》，与匠人同行！北航出版，正在热卖！
|
回复:一个简单的VB串口发送程序（源码）
lnba发表评论于2005-10-9 9:11:00 个人主页 | 引用 | 返回 | 删除 | 回复 |
|
 到底可行不？
|
看《匠人手记》，与匠人同行！北航出版，正在热卖！
|
|
|
|
广告5号位 [投放] |
|
学习板、开发板、编程器、下载器、仿真器（查看详情……）
|
|
| |
|
《匠人手记》推荐网上购书渠道： 
匠人学习：
