信息发布软件,b2b软件,广告发布软件
标题: VB.NET通信程序认真学学这个肯定能明白其中的道理哦 [打印本页]
作者: 群发软件 时间: 2017-5-18 23:57
标题: VB.NET通信程序认真学学这个肯定能明白其中的道理哦
本帖最后由 群发软件 于 2017-5-18 23:59 编辑
和大家一起来探讨一下VB.NET通信程序及其在windows平台下的通信软件设计方法，结合具体实例给出了基本的通信程序，希望对大家有帮助。1992年crescent software inc.公司专为vb设计mscomm.vbx用户通信控件，它提供了通过串口发送和接收数据的串行通信能力，不但包括了全部windows api中关于串行通信的16个函数所完成的功能，而且开拓了更多的使用户设计方便的对象属性来满足不同用户不同业务的需求。目前国内众多的vb资料中很少涉及该通信控件的介绍，本文将详细介绍mscomm.vbx通信控件及编程方法，并结合工作中的一个实例给出基本通信程序。
1 mscomm.vbx通信控件描述
mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。
1.1 通信方式
mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题
1)事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有：
mscomm-er-break 收到1个break signal
mscomm-er-cdto cd 信号超时
……
mscomm-ev-cd cd信号改变
……
2)查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。
1.2 通信控件的属性
利用通信控件编制VB.NET通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如：
commport：设置或返回通信口编号。
settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。
portopen：设置或返回通信口状态(包括打开和关闭1个通信口)
……
2.实例
本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机(主站)与32个单片机(子站)之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令(下行命令)，主站在接收子站发回的相应回答命令(上行命令)后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：(1)同期命令，它由定时器触发引起，每隔ls周期发送1次;(2)非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而VB.NET通信程序作为自动监控系统软件的一部分也安装在主站上。
本文仅列出调试VB.NET通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体(form)中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件(mscomm1)用于访问串口，发送和接收数据;periodic定时器控件(periodic)用于控制每秒由主站向各子站发送周期性命令;命令按钮控件(nonperiodic-command)与nonperiodic定时器控件(nonperiodic)用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。
2.1 窗体各控件初始化程序
设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。
sub form-load ()
mscomm1.commport=2 '选用com2串行口
mscomm1.settings="9600，n8，1" '波特率9600，无奇偶校验位，8位数据位1位停止位
mscomm1.inputlen=0 'input将读取接收缓冲区的全部内容
mscomm1.inbuffersize=1024 '设置接收缓冲区的字节长度
mscomm1.portopen=true '打开通信口
mscomm1.inbuffercount=0 '清除发送缓冲区数据
mscomm1.outbuffercount=0 '清除接收缓冲区数据
periodic.inteval=100 '设置ls定时间隔，使遥测命令每隔ls发送1次
nonperiodic.inteval=500 '设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令
command-pressed=false '命令按钮为未激活状态
during- periodic=false '周期性命令数据传输尚未开始
during- nonperiodic=false '非周期性命令数据传输尚未开始
end sub
2.2 非周期性命令发送程序
根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。
sub nonperiodic-command-click ()
command-pressed=true '命令按钮激活
end sub
sub nonperiodic-timer ()
if during- periodic=true or command-pressed=false
then exit sub '若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。
command-pressed=false '命令按钮恢复为未激活状态
call senddata (nonperiodic-command) '发送非周期性命令
mscomm1.rthreshold=r-nonperiodic-byte'发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件
end sub
2.3 periodic定时器程序
在periodic定时器的中断程序中发送周期性命令：
sub periodic-timer ()
if during- nonperiodic=true then exit sub '若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。
during-periodic=true '设置周期性命令数据传输状态为正在进行中
call senddata (periodic-command) '发送周期性命令
mscomm1.rthreshold=r-periodic-byte '发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件
end sub
2.4 oncomm事件程序
根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。
sub mscomm1-oncomm () select case mscomm1.commevent '在此可插入处理各种不同错误或事件的代码
case mscomm-ev-receive
receivestring$=mscomm1.input
select case mscomm1.rthreshold
case r-periodic-byte '周期性命令的应答数据
call disposedata(periodic-command) '处理接收数据
during periodic=false '设置周期性命令数据传输状态为结束
case r-nonperiodic-byte '非周期性命令的应答数据
call disposedata(nonperiodic-command) '处理接收数据
during-nonperiodic=false '设置非周期性命令数据传输状态为结束
end select
end select
随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。
VB.NET通信程序提供了通过串口发送和接收数据的串行通信能力，不但包括了全部windows api中关于串行通信的16个函数所完成的功能，而且开拓了更多的使用户设计方便的对象属性来满足不同用户不同业务的需求。目前国内众多的vb资料中很少涉及该通信控件的介绍，本文将详细介绍mscomm.vbx通信控件及编程方法，并结合工作中的一个实例给出基本通信程序。
mscomm.vbx通信控件描述
mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。
1、信方式
mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题
1)事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。VB.NET通信程序中详细的错误和事件举例有：
- mscomm-er-break
收到1个break signal - mscomm-er-cdto cd 信号超时
- ……
- mscomm-ev-cd cd信号改变
- ……
2)查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。
2、信控件的属性
利用通信控件编制VB.NET通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如：
- commport：设置或返回通信口编号。
- settings：设置或返回以字符串
形式出现的数据通信格式：波特率、
校验、数据位和停 止位。 - portopen：设置或返回通信口状态
(包括打开和关闭1个通信口)
Imports System
Imports System.IO.Ports
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'获取计算机有效串口
Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间，用SerialPort,获取计算机的有效串口
Dim port As String
For Each port In ports
portnamebox.Items.Add(port) '向combobox中添加项
Next port
'初始化界面
baudratebox.Text = baudratebox.Items(2) '注释和不注释的地方可以替换
portnamebox.Text = portnamebox.Items(0)
'baudratebox.SelectedIndex() = 2
' portnamebox.SelectedIndex() = 0
Serial_Port1() '初始化串口
Label3.Text = SerialPort1.IsOpen
statuslabel.Text = "串口未连接"
statuslabel.ForeColor = Color.Red
sendbox.Text = "123"
receivebytes.Text = "0"
linecheck.Enabled = True
timebox.Enabled = True
End Sub
Private Sub Serial_Port1() '设置串口参数
'SerialPort1.BaudRate = Val(baudratebox.Text) '波特率
'SerialPort1.PortName = portnamebox.Text '串口名称
SerialPort1.PortName = portnamebox.SelectedItem
SerialPort1.BaudRate = Val(baudratebox.SelectedItem)
SerialPort1.DataBits = 8 '数据位
SerialPort1.StopBits = IO.Ports.StopBits.One '停止位
SerialPort1.Parity = IO.Ports.Parity.None '校验位
End Sub
'关闭串口连接
Private Sub closebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebtn.Click
Try
SerialPort1.Close() '关闭串口
Label3.Text = SerialPort1.IsOpen
If SerialPort1.IsOpen = False Then
statuslabel.Text = "串口未连接"
statuslabel.ForeColor = Color.Red
receivebox.Text = ""
receivebytes.Text = ""
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'打开串口连接
Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click
Try
SerialPort1.Open() '打开串口
Label3.Text = SerialPort1.IsOpen
If SerialPort1.IsOpen = True Then
statuslabel.Text = "串口已连接"
statuslabel.ForeColor = Color.Green
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'手动发送数据
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
send()
End Sub
'触发接收事件，接收数据
Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Me.Invoke(New EventHandler(AddressOf Sp_Receiving)) '调用接收数据函数
End Sub
'接收数据过程
Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs)
' Dim strIncoming As Byte
Dim strIncoming As Integer
Dim str1() As String
Dim str2() As String
Dim bytes() As Byte
Dim i As Integer
Try
Threading.Thread.Sleep(100) '添加的延时
receivebytes.Text = Str(Val(receivebytes.Text) + SerialPort1.BytesToRead)
If SerialPort1.BytesToRead > 0 Then
ReDim bytes(SerialPort1.BytesToRead)
'strIncoming = Convert.ToByte(SerialPort1.ReadByte())
If receivecheck.Checked = True Then
strIncoming = SerialPort1.ReadByte()
bytes(0) = strIncoming
For i = 1 To SerialPort1.BytesToRead
strIncoming = SerialPort1.ReadByte() '读取缓冲区中的数据
bytes(i) = strIncoming
Next
' SerialPort1.Write(sendbox.Text)'发送数据
SerialPort1.DiscardInBuffer()
str1 = Split(BitConverter.ToString(bytes), "-")
ReDim str2(str1.Length - 1) '去除str1中最后的字符
For i = 0 To str1.Length - 2
str2(i) = str1(i)
Next
receivebox.Text = receivebox.Text & Join(str2, " ")
'BitConverter.ToString(bytes)
Else
receivebox.Text = receivebox.Text & SerialPort1.ReadExisting()
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'更改串口设置
Private Sub portnamebox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles portnamebox.SelectedIndexChanged
Try
Serial_Port1()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'清空接收区
Private Sub clearbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearbtn.Click
receivebox.Text = ""
End Sub
'定时发送数据
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = timebox.Text
send()
End Sub
'选择定时发送的触发事件
Private Sub timecheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timecheck.CheckedChanged
If timecheck.Checked = True Then
If timebox.Text = "" Then
MsgBox("时间间隔不能为0")
timecheck.Checked = False
Else
send()
timebox.Enabled = False
End If
Else
timebox.Enabled = True
End If
End Sub
Public Sub send() '发送数据过程
Dim databyte() As Byte
Dim str1() As String
Dim str2 As String
Dim str3 As String
Dim i As Integer
Try
If sendcheck.Checked = False Then '不按照16进制发送
'timecheck.Enabled = True
If linecheck.Checked = False Then '判断是否选中分行发送
SerialPort1.Write(sendbox.Text)
Else
SerialPort1.WriteLine(sendbox.Text)
End If
Else '按照16进制发送
If InStr(sendbox.Text, " ") Then '判断是否有空格
str1 = Split(sendbox.Text)
str2 = Join(str1, "")
Else
str2 = sendbox.Text
End If
If str2.Length Mod 2 = 0 Then '判断字符串字节数是否为偶数
ReDim databyte(str2.Length / 2) '重新定义数组
For i = 0 To str2.Length / 2 - 1
databyte(i) = Convert.ToByte(Mid(str2, 2 * i + 1, 2), 16) '两个字符转换为一个16进制字节
'databyte(i) = Val(Mid(str2, 2 * i + 1, 2))
Next
SerialPort1.Write(databyte, 0, databyte.Length - 1)
sendbytes.Text = Str(Val(sendbytes.Text) + databyte.Length - 1)
Else
str3 = Mid(str2, 1, (str2.Length - 1)) & "0" & Mid(str2, str2.Length)
ReDim databyte(str3.Length / 2)
For i = 0 To str3.Length / 2 - 1
databyte(i) = Convert.ToByte(Mid(str3, 2 * i + 1, 2), 16)
Next
SerialPort1.Write(databyte, 0, databyte.Length - 1)
sendbytes.Text = Str(Val(sendbytes.Text) + databyte.Length - 1)
End If
'databyte = System.Text.Encoding.Default.GetBytes(sendbox.Text)把每个字符转换成字节
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
'是否按照16进制发送，如果是换行将不可选。如果不是，换行可选
Private Sub sendcheck_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendcheck.CheckedChanged
If sendcheck.Checked = True Then '不按照16进制发送
linecheck.Enabled = False
Else
linecheck.Enabled = True
End If
End Sub
End Class
程序包括16进制发送和接受，定时发送，换行接收，接收和发送数据字节统计
作者: q117971371 时间: 2017-5-19 02:02
错的产品老板也很耐心的指导功能真是很厉害物有所值赞
作者: c19900420 时间: 2017-5-19 02:45
业又给力，很满意，好评！
作者: linshihu 时间: 2017-5-19 14:09
事情好垃圾的
作者: ufo50200 时间: 2017-5-19 18:50
服务超好
作者: q1598188 时间: 2017-5-20 05:44
贝不错。店家服务态度很好。
作者: qiaozong01 时间: 2017-5-25 09:13
家！服务很好，信誉一流，好评。
作者: nidalma001 时间: 2017-6-2 04:30
好，页面设计很满意，而且也很快，非常有效率，第一次买，遇到这么好的卖家，这么高效的服务，真的太幸运了，太谢
作者: huaxue98 时间: 2017-6-14 04:53
很专业。。。
| 欢迎光临 信息发布软件,b2b软件,广告发布软件 (http://postbbs.com/) |
Powered by Discuz! X3.2 |