VB做个小串口程序

[longruliang]

各位老鸟们好
有人拖我做一个VB串口小程序
碍于情面接下来了
由于有关串口与下位机通讯方面的，从来没接触过下位机，所以有点摸不着头脑
程序要求很简单
能够加载下位机时间，并进行修改就行了
请教下各位老鸟该怎么编这个程序
如何用MSComm进行下位机连接？
怎么加载它的时间
是否需要什么协议？

[zdingyun]

显然需要PC机的串口与下位机的通讯协议,如波特率,数据位,有无校验,停止位
重要的还需下位机所需通信指令格式,2进制还是ASCII字符等.

[longruliang]

比如我要传输个时间给下位机发送个时间

Private Sub Command1_Click()
If IsDate(Text1.Text) Then'判断时间格式
MsgBox "行"
nowtime = Text1.Text
nowtime = Format(nowtime, "yyyymmddhhmmss")'转换格式
nowtime = "1A" & nowtime & "04"
MSComm1.Output = nowtime
Else
MsgBox "不行"
End If
End Sub

Private Sub MSComm1_OnComm()
Dim s As String
Select Case MSComm1.CommEvent
Case comEvReceive
s = MSComm1.Input
'读取自检信号
If Mid(s, 1, 2) = "1A" And Right(s, 2) = "04" Then '数据判断处理
Text1 = s
sDateTime = Mid(s, 3, 12)
sWeek = Mid(s, 15, 2)
sDateTime = Mid(sDateTime, 1, 2) + 2000 & "-" & Mid(sDateTime, 3, 2) & "-" & Mid(sDateTime, 5, 2) & " " & Mid(sDateTime, 7, 2) & ":" & Mid(sDateTime, 9, 2) & ":" & Mid(sDateTime, 11, 2)
Text1.Text = sDateTime
Label1.Caption = "读取成功"
End If
End Select
End Sub
1A ,04是协议的表头表尾
这样写行不行
这样发送下位机收的到么？
接收下位机返回来的数据是一位一位收还是一块接收？

[zdingyun]

[Quote=引用 5 楼 longruliang 的回复:]
比如我要传输个时间给下位机发送个时间

Private Sub Command1_Click()
If IsDate(Text1.Text) Then'判断时间格式
MsgBox "行"
nowtime = Text1.Text
nowtime = Format(nowtime, "yyyymmddhhmmss")'转换格式
nowtime = "1A" & nowtime & "04"
MSComm1.Output = nowtime
Else
MsgBox "不行"
End If
End Sub

Private Sub MSComm1_OnComm()
Dim s As String
Select Case MSComm1.Co…
[/Quote]
LZ:你的代码是基于ASCII字符形式发送的,下位机接收到"1A2009042317004504"共18个字符.
建议MsgBox函数不要在串口通信中使用,改用标签来提示.

[longruliang]

能说的具体点么
我新手
假如这些都有的话，我应该怎么做
能举个例子不

[贝隆]

建议楼主现向你的朋友把资料要齐了，串口通信有几个要点：
1、通信协议，也就是你要发的命令的格式，一般的ModelBus协议由：起始符+下位机地址+命令符+【数据】+校验码+结束符；按照这个格式发出去，下位机会响应你的命令也按相应的格式返回结果的。所以，首先你的搞清楚通信协议，这是必须的。

2、下位机地址、通信参数的设置，下位机通信需要标识（子地址），通信参数包括：波特率、校验方式、数据位、停止位（比如：9600，n，8，1 含义：波特率：9600、n：无校验、8：8位数据位、1：1个停止位），这些是串口通信的电气规约。

3、在弄明白了以上的问题以后，一切都变得很简单了，说白了，就是一个收发代码的问题了。建议楼主先搞一个串口调试器先试一试通信能不能成功，确保通信命令正确了，一切将很简单了。

4、推荐一个串口调试器：SuperCommTool，很好用，去百度一个吧。

[dengnansky]

给你一个关于串口通讯的代码,你自己去参考一下
mscomm控件上点右键属性,打开后设置串口的端口号,端口参数,如波特率等等,PC一般默认的串口设置为9600,n,8,1
设置完后再用以下代码就可以通讯
Option Explicit
Dim strRec As String

Private Sub CommTest_Click()
On Error GoTo ErrorMessage
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MsgBox Chr(13) + "串口打开成功!", vbOKOnly
End If
Exit Sub
ErrorMessage:
MsgBox Chr(13) + "串口打开失败!" + Chr(10) + "错误代码:" & Err.Number & Chr(10) + "原因:" & Err.Description, vbQuestion
End Sub

Private Sub Exit_Click()
Timer1.Enabled = False
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End
End Sub

Private Sub Form_Load()
MSComm1.InBufferSize = 1024 ' 设置接收缓冲区1024Byte
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512 ' 设置发送缓冲区512Byte
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 ' 每个字符到接收缓冲区都触发接收事件
MSComm1.InputMode = 0 '接收文本型数据
Timer1.Interval = 250 '设置定时器事件间隔时间为500毫秒
Timer1.Enabled = False '启动定时器
Timer2.Interval = 250 '设置定时器事件间隔时间为500毫秒
Timer2.Enabled = False '启动定时器
Timer3.Interval = 250 '设置定时器事件间隔时间为500毫秒
Timer3.Enabled = False '启动定时器
MSComm1.InputLen = 2 '设置或返回一次从接收缓冲区中读取字节数，0表示一次读取所有数据
End Sub

Private Sub MSComm1_OnComm() 'oncomm事件接收串口信息
Select Case MSComm1.CommEvent
Case comEvReceive
strRec = strRec + MSComm1.Input
TextReceive.Text = strRec
Select Case strRec
Case "s1"
TextSend.Text = ""
strRec = ""
Shape1.BackColor = &HFF00&
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Timer1.Enabled = False
Case "n1"
strRec = ""
Shape2.BackColor = &HFF00&
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Case "h1"
Timer2.Enabled = False
TextSend.Text = ""
strRec = ""
Shape3.BackColor = &HFF&
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
Case "z1"
Timer3.Enabled = False
TextSend.Text = ""
strRec = ""
Shape4.BackColor = &HFF&
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
End Select
End Select
End Sub

Private Sub StartComm_Click()
Timer2.Enabled = True
End Sub

Private Sub StartTest_Click()
Timer1.Enabled = True
End Sub

Private Sub StopComm_Click()
Timer3.Enabled = True
End Sub

Private Sub Timer1_Timer()
MSComm1.Output = TextSend.Text
TextSend.Text = "s"
MSComm1.OutBufferCount = 0
End Sub

Private Sub Timer2_Timer()
MSComm1.Output = TextSend.Text
TextSend.Text = "h"
MSComm1.OutBufferCount = 0
End Sub

Private Sub Timer3_Timer()
MSComm1.Output = TextSend.Text
TextSend.Text = "z"
MSComm1.OutBufferCount = 0
End Sub

[zdingyun]

http://topic.csdn.net/u/20090415/23/24847daa-c92d-4c43-92ca-1e77db664c8a.html
上述链接有一实例,既有通信协议,又有相关代码.

[swift19221]

好，学习了