亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

標(biāo)題: 先上一個(gè)VB上位機(jī)串口控制步進(jìn)電機(jī)的程序 [打印本頁(yè)]
作者: qwertyuio543    時(shí)間: 2019-11-23 18:35
標(biāo)題: 先上一個(gè)VB上位機(jī)串口控制步進(jìn)電機(jī)的程序
  1. Public zhuanxiang As String


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


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


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


  30. Private Sub Form_Load()
  31. If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
  32.    
  33.     Combo1.AddItem "COM1"          '1： 這個(gè)串口語(yǔ)句放在Form_Load窗口上運(yùn)行程序就能看見(jiàn)串口號(hào)
  34.     Combo1.AddItem "COM2"         '2： 再一個(gè)放在那個(gè)按鍵的語(yǔ)句上就是按那個(gè)按鍵才會(huì)看見(jiàn)串口號(hào)
  35.     Combo1.AddItem "COM3"          '3:  第二種還愛(ài)死機(jī)  盡量不使用
  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口號(hào)
  43. End Sub


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


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


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


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


  68. Private Sub Timer1_Timer()
  69. Dim speed As Variant                 '這幾段語(yǔ)句是時(shí)間設(shè)置的地方
  70. Dim indate As Byte                    '也是基準(zhǔn)串口波特率在這兒
  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"   '右轉(zhuǎn)，right
  93. zhuanxiang = "反轉(zhuǎn)"
  94. Text3.Text = zhuanxiang
  95. End Sub
復(fù)制代碼


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



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