Proteus实现串口控制继电器

仿真

`

千万不要因为Microsoft Visual Studio 2008的开发环境太庞大而不去使用它。Microsoft Visual Studio是基于.NET的开发环境，你可以通过网络找到它，全部文件包括MSDN联机文档大概3.7G，Microsoft Visual Studio 2008 其实包括了VB.NETVC.NETC#J#ASP等众多开发语言。另外，VB与VB.NET的差别也是很大的：

1、操作系统不断升级，越来越多的新特性需要.NET支持。

2、VB.NET编程更简单，功能更强大。

3、执行速度，以往大家总拿C与VB比较，认为C快，VB慢，但是在.NET平台下，C与VB 仅仅是描述语言不同，下层执行代码完全统一，没有速度区别。关于这一点大家可以拿去和idealbum.com的上一个项目“串口调试助手VB版”做个比较，差距还是很明显的。

既然是大势所趋，所以最好还是转向.NET的开发为好。以下的串口控制继电器就是基于VB.NET开发的，原来由马工出品，后经我个人修正了部分BUG并仿真与调试了下位机，作为基础项目，也算是比较完美了。

上位机VB.NET源码：
Public Class Form1
Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Dim temp As String = “”
Dim x, y, z As Integer
Dim send As Byte()
Dim buff As String
Dim DATA1, DATA2 As String
Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
CheckBox1.CheckedChanged,CheckBox2.CheckedChanged,CheckBox3.CheckedChanged,
CheckBox4.CheckedChanged,CheckBox5.CheckedChanged,CheckBox6.CheckedChanged,CheckBox7.CheckedChanged,
CheckBox8.CheckedChanged,CheckBox9.CheckedChanged,CheckBox10.CheckedChanged,CheckBox11.CheckedChanged,
CheckBox12.CheckedChanged,CheckBox13.CheckedChanged,CheckBox14.CheckedChanged,CheckBox15.CheckedChanged,
CheckBox16.CheckedChanged
temp = “”
If CheckBox1.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox2.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox3.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox4.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox5.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox6.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox7.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox8.Checked Then
temp += “1″
Else
temp += “0″
End If
TextBox1.Text = temp
‘*******************************************************
‘二进制文本转换为10进制
‘*******************************************************
y = 0
‘ temp = “10010010″
For x = 1 To 8
z = Mid(temp, x, 1)
If z = 1 Then
Select Case x
Case 1
y += 1
Case 2
y += 2
Case 3
y += 4
Case 4
y += 8
Case 5
y += 16
Case 6
y += 32
Case 7
y += 64
Case 8
y += 128
End Select
End If
Next
TextBox2.Text = y
‘*******************************************************
’10进制文本转换为16进制
‘*******************************************************
If Len(Hex(y)) < 2 Then
TextBox3.Text = “0″ + Hex(y)
Else
TextBox3.Text = Hex(y)
End If
‘*****************************************************
temp = “”
If CheckBox9.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox10.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox11.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox12.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox13.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox14.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox15.Checked Then
temp += “1″
Else
temp += “0″
End If
If CheckBox16.Checked Then
temp += “1″
Else
temp += “0″
End If
TextBox4.Text = temp
y = 0
‘ temp = “10010010″
For x = 1 To 8
z = Mid(temp, x, 1)
If z = 1 Then
Select Case x
Case 1
y += 1
Case 2
y += 2
Case 3
y += 4
Case 4
y += 8
Case 5
y += 16
Case 6
y += 32
Case 7
y += 64
Case 8
y += 128
End Select
End If
Next
TextBox5.Text = y
If Len(Hex(y)) < 2 Then
TextBox6.Text = “0″ + Hex(y)
Else
TextBox6.Text = Hex(y)
End If
DATA1 = TextBox3.Text
DATA2 = TextBox6.Text
buff = “0A” + DATA1 + DATA2 + “0D”
TextBox7.Text = buff
STRTOBIN() ‘文本转换为二进制，通过串口发送二进制数据
‘********************************
‘通过端口发送命令, ‘文本转换为二进制，通过串口发送二进制数据
Try
AxMSComm1.CommPort = 1 ‘”1″ ‘参数设置设端口号
AxMSComm1.Settings = “9600,n,8,1″ ‘ 设波特率
AxMSComm1.PortOpen = True ‘打开端口
AxMSComm1.Output = SEND
AxMSComm1.PortOpen = False ‘关闭端口
ToolStripStatusLabel1.Text = (“发送成功！” + “ 端口” + Str(AxMSComm1.CommPort) + “ ” + “ 设置” + AxMSComm1.Settings) ‘ 显示状态
Catch ex As Exception
MsgBox(“发送失败！端口可能被占用或是无效的端口！”)
End Try
End Sub
‘*******************************************************
‘文本转换为二进制，通过串口发送二进制数据
‘*******************************************************
Public Sub STRTOBIN()
‘文本转换为二进制，通过串口发送二进制数据
Dim X As Integer = 1
Dim Y As Integer = Len(buff)
Dim z As Integer = 0
‘ Dim SEND As Byte()
ReDim SEND(Y / 2 – 1)
While X < Y
SEND(z) = Val(“&H” + (Mid(buff, X, 2)))
z += 1
X += 2
End While
‘ AxMSComm1.Output = SEND
End Sub
End Class