标题: 先上一个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.51hei.com/bbs/) Powered by Discuz! X3.1