找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 9781|回復(fù): 16
打印 上一主題 下一主題
收起左側(cè)

VB6.0制作串口調(diào)試軟件代碼設(shè)計詳解

  [復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:445926 發(fā)表于 2019-3-14 20:47 | 只看該作者 |只看大圖 回帖獎勵 |倒序瀏覽 |閱讀模式
這是我第一次發(fā)帖子，發(fā)的不好多多擔(dān)待！這學(xué)期學(xué)校開了單片機(jī)的課程，我從小就喜歡搗鼓一些小玩意，家里的電器設(shè)備基本上都拆過，有些能裝上去，有些則裝不上去。上了大學(xué)，經(jīng)濟(jì)條件寬裕了，加上網(wǎng)絡(luò)資源日漸豐富，更加喜歡玩電子了。沒有單片機(jī)課之前，玩的是Arduino.但是Arduino 根本學(xué)不到什么東西，里面用的函數(shù)庫文件都是別人封裝好的，直接拿來用罷了。而51單片機(jī)是從零基礎(chǔ)開始的，相當(dāng)于造輪子，雖然也是別人研究出來的，但更接近于底層原理，學(xué)起來更加系統(tǒng)。由于有基礎(chǔ)，所以并不是太難。調(diào)試單片機(jī)時用到串口調(diào)試軟件，發(fā)現(xiàn)網(wǎng)上有好多。就想著自己能不能也寫一個軟件。然后就自學(xué)了vb.雖然這個開發(fā)環(huán)境是98年出版的。但是不得不說，微軟的東西確實很強(qiáng)大，兼容性沒話說。于是就開始了我的編程之路。
1.開發(fā)環(huán)境搭建
網(wǎng)上下載VB6.0的安裝包，建議企業(yè)版！安裝軟件應(yīng)該沒啥問題，裝完打開我們的VB6.0


2.軟件界面設(shè)計

其實很簡單，直接把左邊的控件拖放到主窗體里就行了，加一些組框可以使界面更整潔


3.代碼編寫
  1. Dim fasongcishu, jieshoucishu As Integer
  2. Dim fasongzijie, jieshouzijie, jieshouzijie1, fasongzijie1 As Byte

  4. Private Sub Command5_Click()
  5. List1.Clear
  6. StatusBar1.Panels(4).Text = "接收次數(shù)："
  7. StatusBar1.Panels(3).Text = "接收字節(jié)："
  8. StatusBar1.Panels(2).Text = "發(fā)送次數(shù)："
  9. StatusBar1.Panels(1).Text = "發(fā)送字節(jié)："
  10. End Sub

  12. Private Sub Form_Load()
  13. If Option1.Value = True Then
  14. MSComm1.InputMode = comInputModeText
  15. End If
  16. If Option2.Value = True Then
  17. MSComm1.InputMode = comInputModeBinary
  18. End If
  19. GetAvailablePorts
  20. Combo1.Text = "COM1"
  21. End Sub
  22. Private Sub Command1_Click()
  23. If MSComm1.PortOpen = True Then
  24. MsgBox "串口已經(jīng)打開"
  25. Else

  27. Dim bote, shuju, tingzhi, jiaoyan, Seting As String
  28. bote = Combo2.Text
  29. shuju = Combo3.Text
  30. tingzhi = Combo4.Text
  31. jiaoyan = Combo5.Text
  32. Seting = bote & "," & jiaoyan & "," & shuju & "," & tingzhi
  33. MSComm1.CommPort = Split(Combo1.Text, "COM")(1)
  34. MSComm1.Settings = Seting
  35. MSComm1.OutBufferCount = 0
  36. MSComm1.InBufferCount = 0

  38. MSComm1.InputMode = 0
  39. MSComm1.InputLen = 0

  41. MSComm1.PortOpen = True
  42. Label6.Caption = "串口已經(jīng)連接"
  43. Shape1.BackColor = RGB(0, 200, 0)
  44. End If
  45. End Sub

  47. Private Sub Command2_Click()
  48. If MSComm1.PortOpen = False Then
  49. MsgBox "串口尚未打開"
  50. Else
  51. MSComm1.PortOpen = False
  52. Label6.Caption = "串口已經(jīng)斷開"
  53. Shape1.BackColor = RGB(200, 0, 0)
  54. End If
  55. End Sub

  57. Private Sub Command3_Click()
  58. If MSComm1.PortOpen = True Then
  59. MsgBox "串口已經(jīng)打開,請斷開連接再刷新"
  60. Else
  61. GetAvailablePorts
  62. Combo1.Text = "COM1"
  63. End If
  64. End Sub



  68. Private Sub Command4_Click()
  69. If MSComm1.PortOpen = False Then
  70. MsgBox "串口尚未連接"
  71. Else

  73.   If Option1.Value = True Then
  74.   MSComm1.InputMode = comInputModeText
  75.   End If
  76.   If Option2.Value = True Then
  77.   MSComm1.InputMode = comInputModeBinary
  78.   End If
  79. Me.MSComm1.Output = Text1.Text
  80. List1.AddItem ("來自計算機(jī)：" & Text1.Text)
  81. fasongzijie1 = LenB(StrConv(Text1.Text, vbFromUnicode))
  82. fasongzijie = fasongzijie + fasongzijie1
  83. StatusBar1.Panels(1).Text = "發(fā)送字節(jié)：" & fasongzijie
  84. fasongcishu = fasongcishu + 1
  85. StatusBar1.Panels(2).Text = "發(fā)送次數(shù)：" & fasongcishu
  86. Text1.Text = ""
  87. StatusBar1.Panels(5).Text = "發(fā)送成功！"
  88. End If
  89. MSComm1.OutBufferCount = 0
  90. MSComm1.InBufferCount = 0
  91. MSComm1.InputMode = 1
  92. MSComm1.InputLen = 0
  93. End Sub

  95. Private Sub GetAvailablePorts()
  96.     Dim i As Integer
  97.     Dim blnNoPort As Boolean
  98.     With Combo1
  99.         .Clear
  100.         '嘗試打開COM1到COM16
  101.         For i = 1 To 16
  102.             MSComm1.CommPort = i
  103.             '打開錯誤陷阱
  104.             On Error Resume Next
  105.             MSComm1.PortOpen = True
  106.             '如果串口被成功打開，則這個串口存在
  107.             If Err.Number = 0 Then
  108.                 .AddItem "COM" & i
  109.                 .ItemData(.NewIndex) = i
  110.             End If
  111.             Err.Clear
  112.             ' 關(guān)閉已打開的串口
  113.             If MSComm1.PortOpen Then MSComm1.PortOpen = False
  114.             ' 關(guān)閉錯誤陷阱
  115.             On Error GoTo 0
  116.         Next
  117.         blnNoPort = .ListCount = 0
  118.     End With
  119.     If blnNoPort Then
  120.         MsgBox "計算機(jī)上沒有串行通信接口"
  121.     End If
  122. End Sub

  124.   


  127. Private Sub MSComm1_OnComm()

  129. Dim CommData As String
  130. Dim BytReceived() As Byte
  131.      Dim strBuff As String
  132.      Dim i As Integer
  133.      Select Case MSComm1.CommEvent    '事件發(fā)生
  134.         Case 2
  135.              Cls
  136.              MSComm1.InputLen = 0     '讀入緩沖區(qū)全部內(nèi)容
  137.             strBuff = MSComm1.Input '讀入到緩沖區(qū)
  138. If strBuff = "" Then
  139.             Else
  140.          If MSComm1.InputMode = comInputModeBinary Then
  141.              BytReceived() = strBuff '如果是二進(jìn)制接收模式則進(jìn)行數(shù)據(jù)處理，否則直接顯示字符串
  142.             For i = 0 To UBound(BytReceived)
  143.                  If Len(Hex(BytReceived(i))) = 1 Then
  144.                      strData = strData & "0" & Hex(BytReceived(i)) & " " '如果只有一個字符，則前補(bǔ)0，如F顯示0F，最后補(bǔ)空格
  145.                 Else                                                    '方便顯示觀察如： 00 0F FE
  146.                     strData = strData & Hex(BytReceived(i)) & " "
  147.                  End If
  148.             Next
  149.              CommData = strData
  150.              strData = ""
  151.          Else
  152.              CommData = strBuff
  153.          End If
  154.      

  156. List1.AddItem ("來自單片機(jī)：" & CommData)
  157. jieshoucishu = jieshoucishu + 1
  158. StatusBar1.Panels(4).Text = "接收次數(shù)：" & jieshoucishu
  159. jieshouzijie1 = LenB(StrConv(CommData, vbFromUnicode))
  160. jieshouzijie = jieshouzijie + jieshouzijie1
  161. StatusBar1.Panels(3).Text = "接收字節(jié)：" & jieshouzijie
  162. End If
  163. End Select
  164. End Sub
復(fù)制代碼

4.和另外一個串口調(diào)試軟件進(jìn)行連接通訊


窗體小一點的是我的軟件，后面的是某國產(chǎn)軟件。對了，在同一臺電腦上調(diào)試時需要虛擬串口軟件

COM2和COM3就是虛擬串口生成的端口。
分別對應(yīng)我們軟件里的串口COM2和COM3

差不多就是這些了，單片機(jī)里設(shè)置好了串口通訊的參數(shù)，連接電腦，用我的軟件就可以調(diào)試了。最簡單的可以控制LED 的亮滅。上位機(jī)軟件就是這樣開發(fā)出來的，怎么樣，你Get到了嗎？

評分

參與人數(shù) 1黑幣 +100 收起 理由
admin + 100 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏14 分享淘帖 頂頂1 踩踩
回復(fù)

使用道具 舉報

沙發(fā)
ID:190832 發(fā)表于 2019-3-14 22:33 | 只看該作者
建議試試C#的winform
回復(fù)

使用道具 舉報

板凳
ID:445926 發(fā)表于 2019-3-14 22:56 | 只看該作者

VB.NET我也會和C#.NET 差不多。不過我不喜歡C#的對括號{}
回復(fù)

使用道具 舉報

地板
ID:193628 發(fā)表于 2019-3-16 16:48 | 只看該作者
玩的不錯啊，好~~~~~~~~~~
回復(fù)

使用道具 舉報

5#
ID:333807 發(fā)表于 2019-4-5 17:30 | 只看該作者
好厲害啊
回復(fù)

使用道具 舉報

6#
ID:240545 發(fā)表于 2019-4-5 23:14 | 只看該作者
mark，贊一個！
回復(fù)

使用道具 舉報

7#
ID:476871 發(fā)表于 2019-4-6 11:09 | 只看該作者
很好，樓主贊一個
回復(fù)

使用道具 舉報

8#
ID:633458 發(fā)表于 2019-10-31 19:32 | 只看該作者
大佬幫幫我QAQ，我這邊直接接收是正常的，但是只要往外發(fā)送數(shù)據(jù)之后，再接收到的就全是16進(jìn)制了QAQ
回復(fù)

使用道具 舉報

9#
ID:637553 發(fā)表于 2019-11-7 16:47 | 只看該作者
幸福假小子 發(fā)表于 2019-3-14 22:56
VB.NET我也會和C#.NET 差不多。不過我不喜歡C#的對括號{}

Private Sub Form_Load()
MSComm1.CommPort = 4 '設(shè)定 Com1 用來進(jìn)行串口通訊
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"  '9600 波特率,無校驗,8 位數(shù)據(jù)位,1 位停止位


MSComm1.Output = Text1.Text '將 Text1 中的字符串寫入傳輸寄存器
'Text2.Text = MSComm1.Input
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = flse
End Sub

Private Sub Timer1_Timer()

Dim buffer As String '定義 buffer 為字符串
buffer = MSComm1.Input '將接收寄存器中的字符賦值給 buffer
List1.AddItem buffer '將 buffer 的值加入到列表框中顯示出來
End Sub
回復(fù)

使用道具 舉報

10#
ID:637553 發(fā)表于 2019-11-7 16:47 | 只看該作者
幸福假小子 發(fā)表于 2019-3-14 22:56
VB.NET我也會和C#.NET 差不多。不過我不喜歡C#的對括號{}

CY:
求指點一下，VB做一個通訊，讀多功能儀表數(shù)據(jù)

CY:
讀不出來，

CY:
問題出在哪里

CY:
串口2.3腳短接，文本框能顯示出發(fā)送的指令碼。
回復(fù)

使用道具 舉報

11#
ID:609560 發(fā)表于 2019-11-8 09:37 | 只看該作者
CYY8530 發(fā)表于 2019-11-7 16:47
CY:
求指點一下，VB做一個通訊，讀多功能儀表數(shù)據(jù)

先用下位機(jī)返回數(shù)據(jù)接收結(jié)果，確保數(shù)據(jù)被正確接收。然後再檢查下位機(jī)接收數(shù)據(jù)處理方法及返回數(shù)據(jù)
回復(fù)

使用道具 舉報

12#
ID:298008 發(fā)表于 2020-3-29 11:18 | 只看該作者
謝謝樓主分享�。。�
回復(fù)

使用道具 舉報

13#
ID:323651 發(fā)表于 2020-10-21 21:34 | 只看該作者
謝謝分享，做些簡單應(yīng)用，不錯的
回復(fù)

使用道具 舉報

14#
ID:848824 發(fā)表于 2021-2-17 13:21 | 只看該作者
怎么控制小燈亮滅
回復(fù)

使用道具 舉報

15#
ID:1016815 發(fā)表于 2022-4-8 18:16 | 只看該作者
朋友能發(fā)源文件不，比較菜，困難多，謝謝!
回復(fù)

使用道具 舉報

16#
ID:1010435 發(fā)表于 2022-4-9 22:39 | 只看該作者
我只會用VB做計算器
回復(fù)

使用道具 舉報

17#
ID:1011216 發(fā)表于 2022-4-10 09:52 來自手機(jī) | 只看該作者
串口簡單收發(fā)不難，難再于多次收發(fā)還能穩(wěn)定實現(xiàn)功能
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表