微波EDA网，见证研发工程师的成长！
首页 > 研发问答 > 嵌入式设计讨论 > MCU和单片机设计讨论 > 求大神帮解决，这个VB写的上位机程序，看不懂求解释

求大神帮解决，这个VB写的上位机程序，看不懂求解释

时间：10-02 整理：3721RD 点击：

  1. Dim rxn As Boolean

  3. Private Sub Command1_Click()

  5. On Error Resume Next

  7.     Dim s As Integer

  9.     s = Val(Text1)
  10.     If s > 255 Then s = 255
  11.     If s < 1 Then s = 1

  13.     MSC1.CommPort = s
  14.     MSC1.PortOpen = True

  16.     If MSC1.PortOpen = True Then
  17.         Command1.Enabled = False
  18.         Command2.Enabled = True
  19.     Else
  20.         Command1.Enabled = True
  21.         Command2.Enabled = False
  22.     End If

  24. End Sub

  26. Private Sub Command2_Click()

  28. On Error Resume Next

  30.     MSC1.PortOpen = False

  32.     If MSC1.PortOpen = True Then
  33.         Command1.Enabled = False
  34.         Command2.Enabled = True
  35.     Else
  36.         Command1.Enabled = True
  37.         Command2.Enabled = False
  38.     End If

  40. End Sub







  48. Private Sub Command3_Click(Index As Integer)

  50.     Dim tbuf(0) As Byte

  52.     tbuf(0) = 1 * 16 + Index

  54.     MSC1.Output = tbuf()

  56. End Sub

  58. Private Sub Command4_Click(Index As Integer)

  60.     Dim tbuf(0) As Byte

  62.     tbuf(0) = 0 * 16 + Index

  64.     MSC1.Output = tbuf()

  66. End Sub

  68. Private Sub MSC1_OnComm()

  70.     On Error Resume Next

  72.     Dim ss() As Byte
  73.     Dim i As Integer
  74.     Dim j As Integer
  75.     Dim k As Integer

  77.     Dim ssr As String


  80.     If MSC1.CommEvent = comEvReceive Then

  82.         ss = MSC1.Input
  83.         For i = 0 To UBound(ss)
  84.             If ss(i) = &H55 Then
  85.                 rxn = True
  86.             Else
  87.                 If rxn = True Then
  88.                     j = (ss(i) Mod 16)
  89.                     k = (ss(i) \ 16)
  90.                     If k < 8 Then
  91.                         ss = ""
  92.                         If j = 0 Then
  93.                             ssr = "储藏箱" & k & "关闭，空闲"
  94.                         ElseIf j = 1 Then
  95.                             ssr = "储藏箱" & k & "打开，存放"
  96.                         ElseIf j = 2 Then
  97.                             ssr = "储藏箱" & k & "关闭，使用中"
  98.                         ElseIf j = 3 Then
  99.                             ssr = "储藏箱" & k & "打开，取走"
  100.                         End If
  101.                         List1.AddItem ssr
  102.                     Else
  103.                         k = k - 8
  104.                         If k < 4 Then
  105.                             ss = ""
  106.                             If j = 0 Then
  107.                                 ssr = "储藏箱" & k & "关闭，空闲"
  108.                             ElseIf j = 1 Then
  109.                                 ssr = "储藏箱" & k & "打开，存放"
  110.                             ElseIf j = 2 Then
  111.                                 ssr = "储藏箱" & k & "关闭，使用中"
  112.                             ElseIf j = 3 Then
  113.                                 ssr = "储藏箱" & k & "打开，取走"
  114.                             End If
  115.                             Label1(k).Caption = ssr
  116.                         End If
  117.                     End If

  119.                 End If
  120.                 rxn = False
  121.             End If
  122.         Next i
  123.     End If

  125. End Sub

复制代码


上一篇：&符号在C语言中有两种含义
下一篇：51单片机串口通信问题

上位机 单片机 相关文章：

栏目分类
热门文章

Copyright © 2017-2020 微波EDA网 版权所有

网站地图

Top