通讯工程.PPT.ppt

PC机： 定义变量 Dim choise As Integer 选择指示灯号 Dim cnum As Integer 循环计数标志 串口初始化 Private Sub Form_Load() MSComm1.CommPort = 1 设置通信端口号为COM1 MSComm1.Settings = 9600,n,8,1 设置串口通信参数 MSComm1.InputMode = 0 接收文本型数据 MSComm1.PortOpen = True 打开通信端口1 Frame2.Enabled = False Frame3.Enabled = False choise = 1 End Sub 把字符H通过串口发送出去 如果通信正常，单片机返回字符串OK Private Sub CmdTest_Click() Dim buffer As String MSComm1.Output = Trim(TestText.Text) Call delay buffer = MSComm1.Input If buffer = OK Then TestText.Text = OK! CmdTest.Enabled = False Frame2.Enabled = True Frame3.Enabled = True Else TestText.Text = ERROR! CmdTest.Enabled = False End If End Sub 延时 Sub delay() For i = 0 To 2000000 n = n + 1 Next i End Sub 开始计数 Private Sub CmdStart_Click() MSComm1.Output = R Timer1.Enabled = True End Sub 停止计数 Private Sub CmdStop_Click() MSComm1.Output = S End Sub 选择1号灯 Private Sub Option1_Click() choise = 1 End Sub 选择2号灯 Private Sub Option2_Click() choise = 2 End Sub 打开指示灯 Private Sub CmdOpen_Click() If choise = 1 Then MSComm1.Output = A Else MSComm1.Output = C End If End Sub 关闭指示灯 Private Sub CmdClose_Click() If choise = 1 Then MSComm1.Output = B Else MSComm1.Output = D End If End Sub 停止程序运行 Private Sub Cmdquit_Click() Unload Me End Sub 关闭通信端口, Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False End Sub Private Sub Timer1_Timer() cnum = cnum + 1 If cnum 20 Then cnum = 0 End If NumText.Text = cnum End Sub PC端程序设计 人机界面设计如下图 软件： 将数字（0,1，2，3...255,转换为16进制）传给单片机，单片机收到后回传这个数字，PC机接收到回传数据后显示出来， 若发送和接收的数据相同，显示通信正常，否则通信不正常 发送以00开始，以FF结束 定义变量 Dim data, data1 As Variant 串口初始化 在窗体的Load事件中加入下列代码对串口进行初始化: Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.InputMode = 1 MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.Settings = 9600,n,8,1 MSComm1.PortOpen = True senddata.Text = 00 End S