欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 先上一個VB上位機串口控制步進電機的程序 [打印本頁]
作者: qwertyuio543    時間: 2019-11-23 18:35
標題: 先上一個VB上位機串口控制步進電機的程序
  1. Public zhuanxiang As String


  4. Private Sub Combo1_Change()
  5.              '這個里面什么也不寫正好
  6. End Sub


  9. Private Sub Command1_click()
  10. If Command1.Caption = "啟動" Then
  11. MSComm1.Settings = "2400,n,8,1"
  12. MSComm1.PortOpen = True
  13. Command1.Caption = "停止"
  14. MSComm1.Output = "F"  '停機
  15. MSComm1.InputMode = comInputModeBinary
  16. MSComm1.InputLen = 0
  17. Else
  18. Command1.Caption = "啟動"
  19. MSComm1.Output = "E"   '開機
  20. MSComm1.PortOpen = False
  21. End If
  22. End Sub


  25. Private Sub Command2_Click()
  26. End       '退出        這個  End  就是退出語句
  27. End Sub


  30. Private Sub Form_Load()
  31. If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
  32.    
  33.     Combo1.AddItem "COM1"          '1： 這個串口語句放在Form_Load窗口上運行程序就能看見串口號
  34.     Combo1.AddItem "COM2"         '2： 再一個放在那個按鍵的語句上就是按那個按鍵才會看見串口號
  35.     Combo1.AddItem "COM3"          '3:  第二種還愛死機  盡量不使用
  36.     Combo1.AddItem "COM4"
  37.     Combo1.AddItem "COM5"
  38.     Combo1.AddItem "COM6"
  39.     Combo1.AddItem "COM7"
  40.     Combo1.AddItem "COM8"
  41.     Combo1.AddItem "COM9"
  42.     Combo1.ListIndex = 0 '讀取com口號
  43. End Sub


  46. Private Sub LEET_Click()
  47. MSComm1.Output = "B"    '左轉，left
  48. zhuanxiang = "正轉"
  49. Text3.Text = zhuanxiang
  50. End Sub


  53. Private Sub MSComm1_OnComm()
  54.          '這個串口控件在別處設置好后這里也不用放什么  ，也主要是用他的控件“名稱”
  55. End Sub


  58. Private Sub Text1_Change()
  59.           '這個控件就是用他的名稱，別的控件找到他的名稱就是給他數據
  60. End Sub


  63. Private Sub Text3_Change()
  64.                 '這個控件就是用他的名稱，別的控件找到他的名稱就是給他數據
  65. End Sub


  68. Private Sub Timer1_Timer()
  69. Dim speed As Variant                 '這幾段語句是時間設置的地方
  70. Dim indate As Byte                    '也是基準串口波特率在這兒
  71. If MSComm1.InBufferCount > 0 Then
  72. speed = MSComm1.Input
  73. indate = AscB(speed)
  74. Text1.Text = indate
  75. End If
  76. End Sub


  79. Private Sub UP_Click()
  80. MSComm1.Output = "C"  '加速
  81. zhuanxiang = "加速"
  82. Text3.Text = zhuanxiang
  83. End Sub

  85. Private Sub DOWN_Click()
  86. MSComm1.Output = "D"  '減速
  87. zhuanxiang = "減速"
  88. Text3.Text = zhuanxiang
  89. End Sub

  91. Private Sub RIGHT_Click()
  92. MSComm1.Output = "A"   '右轉，right
  93. zhuanxiang = "反轉"
  94. Text3.Text = zhuanxiang
  95. End Sub
復制代碼


作者: wjp19851222    時間: 2021-5-15 19:00
樓主下位機51的代碼有么，謝謝



歡迎光臨 (http://www.raoushi.com/bbs/) Powered by Discuz! X3.1