找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 9426|回復(fù): 4
收起左側(cè)

VB串口調(diào)試軟件源代碼

  [復(fù)制鏈接]
ID:323859 發(fā)表于 2018-5-6 23:13 | 顯示全部樓層 |閱讀模式
VB串口調(diào)試軟件的運行界面如下：
0.png

源碼工程資料包：
0.png

vb源程序如下:
  1. VERSION 5.00
  2. Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "mscomm32.ocx"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
  4. Begin VB.Form 串口調(diào)試軟件
  5.    BackColor       =   &H0091CACA&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "串口調(diào)試軟件V1.0"
  8.    ClientHeight    =   6360
  9.    ClientLeft      =   4020
  10.    ClientTop       =   3120
  11.    ClientWidth     =   10815
  12.    FillColor       =   &H0091CACA&
  13.    ForeColor       =   &H0091CACA&
  14.    Icon            =   "串口調(diào)試助手.frx":0000
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    Picture         =   "串口調(diào)試助手.frx":030A
  18.    ScaleHeight     =   6360
  19.    ScaleWidth      =   10815
  20.    Begin MSComDlg.CommonDialog CommonDialog1
  21.       Left            =   8160
  22.       Top             =   5880
  23.       _ExtentX        =   847
  24.       _ExtentY        =   847
  25.       _Version        =   393216
  26.       Filter          =   "文本文件（*.txt）|*.txt"
  27.    End
  28.    Begin VB.Timer TmrNowTime
  29.       Interval        =   1000
  30.       Left            =   1320
  31.       Top             =   4320
  32.    End
  33.    Begin VB.Timer TmrAutoSend
  34.       Left            =   7680
  35.       Top             =   5880
  36.    End
  37.    Begin MSCommLib.MSComm MSComm
  38.       Left            =   7080
  39.       Top             =   5760
  40.       _ExtentX        =   1005
  41.       _ExtentY        =   1005
  42.       _Version        =   393216
  43.       DTREnable       =   -1  'True
  44.    End
  45.    Begin VB.PictureBox Picture1
  46.       BackColor       =   &H00E0E0E0&
  47.       Height          =   500
  48.       Left            =   9360
  49.       Picture         =   "串口調(diào)試助手.frx":3EEC
  50.       ScaleHeight     =   435
  51.       ScaleWidth      =   435
  52.       TabIndex        =   43
  53.       Top             =   5850
  54.       Width           =   500
  55.    End
  56.    Begin VB.TextBox TxtAutoSendTime
  57.       Height          =   300
  58.       Left            =   1320
  59.       TabIndex        =   41
  60.       Text            =   "1000"
  61.       Top             =   5730
  62.       Width           =   660
  63.    End
  64.    Begin VB.CommandButton CmdAmend
  65.       Appearance      =   0  'Flat
  66.       Caption         =   "更改"
  67.       Height          =   300
  68.       Left            =   1250
  69.       TabIndex        =   37
  70.       Top             =   3450
  71.       Width           =   505
  72.    End
  73.    Begin VB.CommandButton CmdSaveDisp
  74.       Appearance      =   0  'Flat
  75.       Caption         =   "保存顯示數(shù)據(jù)"
  76.       Height          =   300
  77.       Left            =   30
  78.       TabIndex        =   36
  79.       Top             =   3450
  80.       Width           =   1225
  81.    End
  82.    Begin VB.CommandButton CmdHelp
  83.       Caption         =   "關(guān)于"
  84.       Height          =   300
  85.       Left            =   8760
  86.       TabIndex        =   21
  87.       Top             =   6050
  88.       Width           =   505
  89.    End
  90.    Begin VB.CommandButton CmdQuit
  91.       Caption         =   "關(guān)閉程序"
  92.       Height          =   495
  93.       Left            =   9900
  94.       TabIndex        =   20
  95.       Top             =   5820
  96.       Width           =   870
  97.    End
  98.    Begin VB.CommandButton CmdClearCounter
  99.       Caption         =   "計數(shù)清零"
  100.       Height          =   300
  101.       Left            =   6100
  102.       TabIndex        =   19
  103.       Top             =   6080
  104.       Width           =   865
  105.    End
  106.    Begin VB.CommandButton CmdSendFile
  107.       Caption         =   "發(fā)送文件"
  108.       Height          =   280
  109.       Left            =   5580
  110.       TabIndex        =   18
  111.       Top             =   5700
  112.       Width           =   900
  113.    End
  114.    Begin VB.TextBox TxtSendPath
  115.       Alignment       =   2  'Center
  116.       BackColor       =   &H0091CACA&
  117.       Height          =   270
  118.       Left            =   3800
  119.       TabIndex        =   17
  120.       Text            =   "還沒有選擇文件"
  121.       Top             =   5740
  122.       Width           =   1700
  123.    End
  124.    Begin VB.CommandButton CmdSelectFile
  125.       Caption         =   "選擇發(fā)送文件"
  126.       Height          =   280
  127.       Left            =   2520
  128.       TabIndex        =   16
  129.       Top             =   5700
  130.       Width           =   1225
  131.    End
  132.    Begin VB.TextBox TxtTXCount
  133.       Alignment       =   2  'Center
  134.       BackColor       =   &H0091CACA&
  135.       Height          =   270
  136.       Left            =   4680
  137.       TabIndex        =   15
  138.       Text            =   "TX:0"
  139.       Top             =   6080
  140.       Width           =   1340
  141.    End
  142.    Begin VB.TextBox TxtRXCount
  143.       Alignment       =   2  'Center
  144.       BackColor       =   &H0091CACA&
  145.       Height          =   270
  146.       Left            =   3340
  147.       TabIndex        =   14
  148.       Text            =   "RX:0"
  149.       Top             =   6080
  150.       Width           =   1350
  151.    End
  152.    Begin VB.TextBox TxtStatus
  153.       Alignment       =   2  'Center
  154.       BackColor       =   &H0091CACA&
  155.       Height          =   270
  156.       Left            =   260
  157.       TabIndex        =   13
  158.       Top             =   6080
  159.       Width           =   3100
  160.    End
  161.    Begin VB.CheckBox ChkAutoSend
  162.       BackColor       =   &H0091CACA&
  163.       Caption         =   "Check4"
  164.       Height          =   255
  165.       Left            =   30
  166.       TabIndex        =   12
  167.       Top             =   5480
  168.       Width           =   255
  169.    End
  170.    Begin VB.CheckBox ChkHexSend
  171.       BackColor       =   &H0091CACA&
  172.       Caption         =   "Check3"
  173.       Height          =   255
  174.       Left            =   30
  175.       TabIndex        =   11
  176.       Top             =   5160
  177.       Width           =   255
  178.    End
  179.    Begin VB.CommandButton CmdSend
  180.       Caption         =   "手動發(fā)送"
  181.       Height          =   300
  182.       Left            =   1590
  183.       TabIndex        =   10
  184.       Top             =   5160
  185.       Width           =   870
  186.    End
  187.    Begin VB.CommandButton CmdClearSend
  188.       Caption         =   "清空重填"
  189.       Height          =   300
  190.       Left            =   100
  191.       TabIndex        =   9
  192.       Top             =   4850
  193.       Width           =   870
  194.    End
  195.    Begin VB.TextBox TxtSend
  196.       Height          =   865
  197.       Left            =   2560
  198.       MultiLine       =   -1  'True
  199.       ScrollBars      =   2  'Vertical
  200.       TabIndex        =   8
  201.       Top             =   4820
  202.       Width           =   8225
  203.    End
  204.    Begin VB.TextBox TxtSavePath
  205.       BackColor       =   &H0091CACA&
  206.       Height          =   270
  207.       Left            =   60
  208.       TabIndex        =   7
  209.       Text            =   "C:\COMDATA"
  210.       Top             =   3760
  211.       Width           =   1650
  212.    End
  213.    Begin VB.CheckBox ChkHexReceive
  214.       BackColor       =   &H0091CACA&
  215.       Caption         =   "Check2"
  216.       Height          =   255
  217.       Left            =   50
  218.       TabIndex        =   6
  219.       Top             =   3100
  220.       Width           =   255
  221.    End
  222.    Begin VB.CheckBox ChkAutoClear
  223.       BackColor       =   &H0091CACA&
  224.       Caption         =   "Check1"
  225.       Height          =   255
  226.       Left            =   50
  227.       TabIndex        =   5
  228.       Top             =   2850
  229.       Width           =   255
  230.    End
  231.    Begin VB.CommandButton CmdStopdisp
  232.       Caption         =   "停止顯示"
  233.       Height          =   310
  234.       Left            =   30
  235.       TabIndex        =   4
  236.       Top             =   2520
  237.       Width           =   1050
  238.    End
  239.    Begin VB.CommandButton CmdClearReceive
  240.       Caption         =   "清空接收區(qū)"
  241.       Height          =   310
  242.       Left            =   30
  243.       TabIndex        =   3
  244.       Top             =   2190
  245.       Width           =   1050
  246.    End
  247.    Begin VB.Frame Frame1
  248.       BackColor       =   &H0091CACA&
  249.       Height          =   2200
  250.       Left            =   0
  251.       TabIndex        =   2
  252.       Top             =   -100
  253.       Width           =   1650
  254.       Begin VB.ComboBox CboStopbit
  255.          Height          =   300
  256.          ItemData        =   "串口調(diào)試助手.frx":7ACE
  257.          Left            =   750
  258.          List            =   "串口調(diào)試助手.frx":7ADB
  259.          TabIndex        =   26
  260.          Text            =   "1"
  261.          Top             =   1300
  262.          Width           =   800
  263.       End
  264.       Begin VB.ComboBox CboDatabit
  265.          Height          =   300
  266.          ItemData        =   "串口調(diào)試助手.frx":7AEA
  267.          Left            =   750
  268.          List            =   "串口調(diào)試助手.frx":7AFA
  269.          TabIndex        =   25
  270.          Text            =   "8"
  271.          Top             =   1000
  272.          Width           =   800
  273.       End
  274.       Begin VB.ComboBox CboParitybit
  275.          Height          =   300
  276.          ItemData        =   "串口調(diào)試助手.frx":7B0A
  277.          Left            =   750
  278.          List            =   "串口調(diào)試助手.frx":7B1D
  279.          TabIndex        =   24
  280.          Text            =   "NONE"
  281.          Top             =   700
  282.          Width           =   800
  283.       End
  284.       Begin VB.ComboBox CboBaudrate
  285.          Height          =   300
  286.          ItemData        =   "串口調(diào)試助手.frx":7B3F
  287.          Left            =   750
  288.          List            =   "串口調(diào)試助手.frx":7B6A
  289.          TabIndex        =   23
  290.          Text            =   "9600"
  291.          Top             =   400
  292.          Width           =   800
  293.       End
  294.       Begin VB.ComboBox CboCom
  295.          Height          =   300
  296.          ItemData        =   "串口調(diào)試助手.frx":7BC3
  297.          Left            =   750
  298.          List            =   "串口調(diào)試助手.frx":7BF4
  299.          TabIndex        =   22
  300.          Text            =   "COM1"
  301.          Top             =   111
  302.          Width           =   800
  303.       End
  304.       Begin VB.CommandButton CmdSwitch
  305.          Caption         =   "關(guān)閉串口"
  306.          Height          =   440
  307.          Left            =   720
  308.          TabIndex        =   1
  309.          Top             =   1740
  310.          Width           =   870
  311.       End
  312.       Begin VB.Image ImgSwitchOn
  313.          Appearance      =   0  'Flat
  314.          Height          =   420
  315.          Left            =   120
  316.          Picture         =   "串口調(diào)試助手.frx":7C58
  317.          Top             =   1680
  318.          Width           =   450
  319.       End
  320.       Begin VB.Image ImgSwitchOff
  321.          Height          =   420
  322.          Left            =   120
  323.          Picture         =   "串口調(diào)試助手.frx":B6F5
  324.          Top             =   1680
  325.          Width           =   450
  326.       End
  327.       Begin VB.Label Label8
  328.          Alignment       =   2  'Center
  329.          BackColor       =   &H0091CACA&
  330.          Caption         =   "停止位"
  331.          Height          =   255
  332.          Left            =   50
  333.          TabIndex        =   33
  334.          Top             =   1400
  335.          Width           =   600
  336.       End
  337.       Begin VB.Label Label7
  338.          Alignment       =   2  'Center
  339.          BackColor       =   &H0091CACA&
  340.          Caption         =   "數(shù)據(jù)位"
  341.          Height          =   255
  342.          Left            =   50
  343.          TabIndex        =   32
  344.          Top             =   1080
  345.          Width           =   600
  346.       End
  347.       Begin VB.Label Label6
  348.          Alignment       =   2  'Center
  349.          BackColor       =   &H0091CACA&
  350.          Caption         =   "校驗位"
  351.          Height          =   255
  352.          Left            =   50
  353.          TabIndex        =   31
  354.          Top             =   760
  355.          Width           =   600
  356.       End
  357.       Begin VB.Label Label5
  358.          Alignment       =   2  'Center
  359.          BackColor       =   &H0091CACA&
  360.          Caption         =   "波特率"
  361.          Height          =   255
  362.          Left            =   50
  363.          TabIndex        =   30
  364.          Top             =   470
  365.          Width           =   600
  366.       End
  367.       Begin VB.Label Label4
  368.          Alignment       =   2  'Center
  369.          BackColor       =   &H0091CACA&
  370.          Caption         =   "串口"
  371.          Height          =   255
  372.          Left            =   50
  373.          TabIndex        =   29
  374.          Top             =   160
  375.          Width           =   600
  376.       End
  377.    End
  378.    Begin VB.TextBox TxtReceive
  379.       Height          =   4750
  380.       Left            =   1800
  381.       MultiLine       =   -1  'True
  382.       ScrollBars      =   2  'Vertical
  383.       TabIndex        =   0
  384.       Top             =   6
  385.       Width           =   8990
  386.    End
  387.    Begin VB.Label LblWeb
  388.       BackColor       =   &H0091CACA&
  389.       Caption         =   "WEB"
  390.       ForeColor       =   &H008A7839&
  391.       Height          =   220
  392.       Left            =   8880
  393.       MouseIcon       =   "串口調(diào)試助手.frx":EE3B
  394.       TabIndex        =   46
  395.       Top             =   5760
  396.       Width           =   300
  397.    End
  398.    Begin VB.Label LblNewDate
  399.       Alignment       =   2  'Center
  400.       BackColor       =   &H0091CACA&
  401.       Caption         =   "顯示日前"
  402.       Height          =   255
  403.       Left            =   240
  404.       TabIndex        =   45
  405.       Top             =   4440
  406.       Width           =   1215
  407.    End
  408.    Begin VB.Label LblNowTime
  409.       Alignment       =   2  'Center
  410.       BackColor       =   &H0091CACA&
  411.       Caption         =   "當(dāng)前時間"
  412.       ForeColor       =   &H00000000&
  413.       Height          =   195
  414.       Left            =   240
  415.       TabIndex        =   44
  416.       Top             =   4200
  417.       Width           =   1215
  418.    End
  419.    Begin VB.Label Label14
  420.       BackColor       =   &H0091CACA&
  421.       Caption         =   "毫秒"
  422.       Height          =   255
  423.       Left            =   2000
  424.       TabIndex        =   42
  425.       Top             =   5760
  426.       Width           =   450
  427.    End
  428.    Begin VB.Label LblArtoSendCyc
  429.       BackColor       =   &H0091CACA&
  430.       Caption         =   "自動發(fā)送周期："
  431.       Height          =   200
  432.       Left            =   60
  433.       TabIndex        =   40
  434.       Top             =   5760
  435.       Width           =   1270
  436.    End
  437.    Begin VB.Label LblAutoSend
  438.       Alignment       =   2  'Center
  439.       BackColor       =   &H0091CACA&
  440.       Caption         =   "自動發(fā)送(周期改變后重選)"
  441.       Height          =   200
  442.       Left            =   240
  443.       TabIndex        =   39
  444.       Top             =   5510
  445.       Width           =   2215
  446.    End
  447.    Begin VB.Label Label11
  448.       Alignment       =   2  'Center
  449.       BackColor       =   &H0091CACA&
  450.       Caption         =   "十六進制發(fā)送"
  451.       Height          =   200
  452.       Left            =   240
  453.       TabIndex        =   38
  454.       Top             =   5200
  455.       Width           =   1200
  456.    End
  457.    Begin VB.Label Label10
  458.       BackColor       =   &H0091CACA&
  459.       Caption         =   "十六進制顯示"
  460.       Height          =   200
  461.       Left            =   330
  462.       TabIndex        =   35
  463.       Top             =   3140
  464.       Width           =   1200
  465.    End
  466.    Begin VB.Label LblArtoclear
  467.       BackColor       =   &H0091CACA&
  468.       Caption         =   "自動清空"
  469.       Height          =   200
  470.       Left            =   330
  471.       TabIndex        =   34
  472.       Top             =   2870
  473.       Width           =   800
  474.    End
  475.    Begin VB.Label LblSend
  476.       BackColor       =   &H0091CACA&
  477.       BorderStyle     =   1  'Fixed Single
  478.       Caption         =   "發(fā)送的字符/數(shù)據(jù)"
  479.       Height          =   270
  480.       Left            =   1100
  481.       TabIndex        =   28
  482.       Top             =   4850
  483.       Width           =   1420
  484.    End
  485.    Begin VB.Label LblReceive
  486.       BackColor       =   &H0091CACA&
  487.       BorderStyle     =   1  'Fixed Single
  488.       Caption         =   "接收區(qū)"
  489.       Height          =   255
  490.       Left            =   1130
  491.       TabIndex        =   27
  492.       Top             =   2180
  493.       Width           =   595
  494.    End
  495. End
  496. Attribute VB_Name = "串口調(diào)試軟件"
  497. Attribute VB_GlobalNameSpace = False
  498. Attribute VB_Creatable = False
  499. Attribute VB_PredeclaredId = True
  500. Attribute VB_Exposed = False

  502. '=====================================================================================
  503. '                   變量定義

  505. '=====================================================================================

  507. Option Explicit                                                                     ' 強制顯式聲明

  509. Dim ComSwitch As Boolean                                                            ' 串口開關(guān)狀態(tài)判斷
  510. Dim FileData As String                                                              ' 要發(fā)送的文件暫存
  511. Dim SendCount As Long                                                               ' 發(fā)送數(shù)據(jù)字節(jié)計數(shù)器
  512. Dim ReceiveCount As Long                                                            ' 接收數(shù)據(jù)字節(jié)計數(shù)器
  513. Dim InputSignal As String                                                           ' 接收緩沖暫存
  514. Dim OutputSignal As String                                                          ' 發(fā)送數(shù)據(jù)暫存
  515. Dim DisplaySwitch As Boolean                                                        ' 顯示開關(guān)
  516. Dim ModeSend As Boolean                                                             ' 發(fā)送方式判斷
  517. Dim Savetime As Single                                                              ' 時間數(shù)據(jù)暫存 延時用
  518. Dim SaveTextPath As String                                                          ' 保存文本路徑

  520. ' 網(wǎng)頁超鏈接申明
  521. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

  523. '====================================================================================
  524. '                 自動發(fā)送選擇

  526. '=====================================================================================

  528. Private Sub ChkAutoSend_Click()

  530. On Error GoTo Err
  531.     If ChkAutoSend.Value = 1 Then                                                   ' 如果有效則，自動發(fā)送
  532.         If MSComm.PortOpen = True Then                                              ' 串口狀態(tài)判斷
  533.             TmrAutoSend.Interval = Val(TxtAutoSendTime)                             ' 設(shè)置自動發(fā)送時間
  534.             TmrAutoSend.Enabled = True                                              ' 打開自動發(fā)送定時器
  535.         Else
  536.             ChkAutoSend.Value = 0                                                   ' 串口沒有打開去掉自動發(fā)送
  537.             MsgBox "串口沒有打開，請打開串口", 48, "串口調(diào)試助手"                   ' 如果串口沒有被打開，提示打開串口
  538.         End If
  539.     ElseIf ChkAutoSend.Value = 0 Then                                               ' 如果無效，不發(fā)送
  540.             TmrAutoSend.Enabled = False                                             ' 關(guān)閉自動發(fā)送定時器
  541.     End If
  542. Err:
  543.         
  544. End Sub

  546. '=====================================================================================
  547. '              超鏈接我的博客

  549. '=====================================================================================

  551. Private Sub LblWeb_Click()                                                          ' 單擊打開網(wǎng)站
  552.    
  553.     ShellExecute Me.hwnd, "open", "http://blog.163.com/zhaojun_xf/", "", "", 5      ' 要打開的網(wǎng)站
  554.    
  555. End Sub

  557. ' 鼠標(biāo)移入 WEB 區(qū)
  558. Private Sub LblWeb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  560.     LblWeb.ForeColor = &H8A7839                                                     ' 鼠標(biāo)移入WEB時的顏色
  561.     LblWeb.MousePointer = 99                                                        ' 鼠標(biāo)移入WEB時的鼠標(biāo)的現(xiàn)狀 ,小手型
  562.     'LblWeb.MouseIcon = LoadPicture("f:\我的VB\串口調(diào)試軟件\圖片\mouse.cur")         ' 鼠標(biāo)形狀圖片

  564. End Sub

  566. ' 鼠標(biāo)移出 WEB 區(qū)
  567. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  569.     LblWeb.ForeColor = vbBlue                                                      ' 鼠標(biāo)移出WEB時的顏色
  570.     Me.MousePointer = vbDefault                                                    ' 鼠標(biāo)移出WEB時的鼠標(biāo)的現(xiàn)狀 即Me.MousePointer = 0

  572. End Sub

  574. '=====================================================================================
  575. '              自動發(fā)送定時器

  577. '=====================================================================================

  579. Private Sub TmrAutoSend_Timer()                                                     ' 定時器

  581. On Error GoTo Err
  582.     If TxtSend.Text = "" Then                                                       ' 判斷發(fā)送數(shù)據(jù)是否為空
  583.         ChkAutoSend.Value = 0                                                       ' 關(guān)閉自動發(fā)送
  584.         MsgBox "發(fā)送數(shù)據(jù)不能為空", 16, "串口調(diào)試助手"                               ' 發(fā)送數(shù)據(jù)為空則提示
  585.     Else
  586.         
  587.         If ChkHexSend.Value = 1 Then                                                ' 發(fā)送方式判斷
  588.             MSComm.InputMode = comInputModeBinary                                   ' 二進制發(fā)送
  589.             Call hexSend                                                            ' 發(fā)送十六進制數(shù)據(jù)
  590.         Else                                                                        ' 按十六進制接收文本方式發(fā)送的數(shù)據(jù)時，文本也要按二進制發(fā)送發(fā)送
  591.             If ChkHexReceive.Value = 1 Then
  592.                 MSComm.InputMode = comInputModeBinary                               ' 二進制發(fā)送
  593.             Else
  594.                 MSComm.InputMode = comInputModeText                                 ' 文本發(fā)送
  595.             End If
  596.         
  597.             MSComm.Output = Trim(TxtSend.Text)                                      ' 發(fā)送數(shù)據(jù)
  598.         
  599.             ModeSend = False                                                        ' 設(shè)置文本發(fā)送方式
  600.         End If
  601.     End If
  602. Err:
  603.    
  604. End Sub

  606. '=====================================================================================
  607. '              窗體載入

  609. '=====================================================================================

  611. Private Sub Form_Load()                                                         ' 載入窗體
  612.    
  613.     On Error GoTo Err
  614.     LblWeb.FontUnderline = True                                                 ' WEB上加下劃線
  615.     LblWeb.ForeColor = vbBlue                                                   ' 藍色顯示W(wǎng)EB
  616.    
  617.     TxtSend.Text = "http://www.newxing.com/"                            ' 載入發(fā)送信息
  618.     If MSComm.PortOpen = True Then MSComm.PortOpen = False                      ' 先判斷串口是否打開，如果打開則先關(guān)閉
  619.     ' 初始化串口
  620.     Call Comm_initial(Val(Mid(CboCom.Text, 4, 1)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text)
  621. Err:
  622.    
  623. End Sub

  625. '=====================================================================================
  626. '                   保存接收文本

  628. '=====================================================================================

  630. Private Sub CmdSaveDisp_Click()                                                 ' 保存顯示數(shù)據(jù)
  631.    
  632.     On Error GoTo Err                                                           ' 錯誤處理
  633.    
  634.     SaveTextPath = TxtSavePath                                                  ' 路徑暫存
  635.     Open TxtSavePath & "\1.txt" For Output As #1                                ' 打開文件
  636.     ' 不存在的話 會創(chuàng)建文件,如已存在 會覆蓋
  637.     ' output 改為append 為追加
  638.     ' 改為input 則只讀
  639.     Print #1, Year(Date) & "年" & Month(Date) & "月" & Day(Date) & _
  640.     "日" & Hour(Time) & "時" & Minute(Time) & "分" & Second(Time) & _
  641.     "秒" & vbCrLf & TxtReceive.Text + vbCrLf                                    ' 把接收區(qū)的文本保存 文本前加上保存時間 （0000年00月00日00時00分00秒）
  642.     ' vbcrlf 為回車換行
  643.     Close #1                                                                    ' 關(guān)閉文件
  644.    
  645.     TxtSavePath = "OK,1.txt Save"                                               ' 提示保存成功
  646.     CmdSaveDisp.Enabled = False
  647.    
  648.     Savetime = Timer                                                            ' 記下開始的時間
  649.     While Timer < Savetime + 5                                                  ' 循環(huán)等待 5 - 要延時的時間
  650.         DoEvents                                                                ' 轉(zhuǎn)讓控制權(quán)，以便讓操作系統(tǒng)處理其它的事件。
  651.     Wend
  652.    
  653.     TxtSavePath = SaveTextPath                                                  ' 顯示保存路徑
  654.     CmdSaveDisp.Enabled = True
  655. Err:
  656.    
  657. End Sub

  659. '=====================================================================================
  660. '               停止顯示

  662. '=====================================================================================

  664. Private Sub CmdStopdisp_Click()

  666. On Error GoTo Err
  667.     If DisplaySwitch = False Then
  668.         DisplaySwitch = True                                                        ' 關(guān)閉顯示
  669.         CmdStopdisp.Caption = "繼續(xù)顯示"
  670.     Else
  671.         DisplaySwitch = False                                                       ' 開啟顯示
  672.         CmdStopdisp.Caption = "停止顯示"
  673.     End If
  674. Err:
  675.    
  676. End Sub

  678. '=====================================================================================
  679. '               計數(shù)器清零

  681. '=====================================================================================

  683. Private Sub CmdClearCounter_Click()                                                 ' 清除計數(shù)器
  684.      
  685. On Error GoTo Err
  686.     SendCount = 0                                                                   ' 發(fā)送計數(shù)器清零
  687.     ReceiveCount = 0                                                                ' 接收計數(shù)器清零
  688.     TxtRXCount.Text = "RX:" & 0                                                     ' 接收計數(shù)
  689.     TxtTXCount.Text = "TX:" & 0                                                     ' 發(fā)送計數(shù)
  690. Err:
  691.         
  692. End Sub

  694. '=====================================================================================
  695. '                更改保存顯示數(shù)據(jù)的目錄

  697. '=====================================================================================

  699. Private Sub CmdAmend_Click() '更改

  701.     Dim spShell As Object                                                           ' 定義存放引用對象的變量
  702.     Dim spFolder As Object                                                          ' 定義存放引用對象的變量
  703.     Dim spFolderItem As Object                                                      ' 定義存放引用對象的變量
  704.     Dim spPath As String                                                            ' 定義存放的變量
  705.    
  706.     On Error GoTo Err                                                               ' 錯誤處理，防止取消打開文件夾時報錯
  707.     Const WINDOW_HANDLE = 0
  708.     Const NO_OPTIONS = 0
  709.    
  710.     Set spShell = CreateObject("Shell.Application")
  711.     Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "選擇目錄:", NO_OPTIONS, "C:\Scripts")
  712.     Set spFolderItem = spFolder.Self
  713.     spPath = spFolderItem.Path
  714.     spPath = Replace(spPath, "\", "\")                                              ' Replace函數(shù)的返回值是一個字符串
  715.     TxtSavePath.Text = spPath                                                       ' 把文件夾路徑顯示在標(biāo)簽上
  716.     SaveTextPath = TxtSavePath.Text                                                 ' 路徑暫存
  717. Err:

  719. End Sub

  721. '=====================================================================================
  722. '                  串口設(shè)置

  724. '=====================================================================================

  726. Private Sub CboBaudrate_Click()                                                     ' 修改波特率
  727.    
  728.     Call Comm_reSet(Val(Mid(CboCom.Text, 4, 2)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text)             '串口設(shè)置

  730. End Sub

  732. Private Sub CboCom_Click()                                                          ' 修改串口
  733.    
  734.     Call Comm_reSet(Val(Mid(CboCom.Text, 4, 2)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text)             '串口設(shè)置

  736. End Sub

  738. Private Sub CboDatabit_Click()                                                      ' 修改數(shù)據(jù)位
  739.    
  740.     Call Comm_reSet(Val(Mid(CboCom.Text, 4, 2)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text)             '串口設(shè)置

  742. End Sub
  743.         
  744. Private Sub CboParitybit_Click()                                                    ' 修改校驗位
  745.    
  746.     Call Comm_reSet(Val(Mid(CboCom.Text, 4, 2)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text)             '串口設(shè)置

  748. End Sub

  750. Private Sub CboStopbit_Click()                                                      ' 修改停止位

  752.     Call Comm_reSet(Val(Mid(CboCom.Text, 4, 2)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text)             '串口設(shè)置

  754. End Sub

  756. '=====================================================================================
  757. '             清空數(shù)據(jù)

  759. '=====================================================================================

  761. Private Sub CmdClearSend_Click()                                                    ' 清除發(fā)送區(qū)

  763.     TxtSend.Text = ""
  764.    
  765. End Sub

  767. Private Sub CmdClearReceive_Click()                                                 ' 清空接收區(qū)

  769.     TxtReceive.Text = ""
  770.    
  771. End Sub

  773. '=====================================================================================
  774. '             選擇要發(fā)送的文件并放入內(nèi)存中

  776. '=====================================================================================

  778. Private Sub CmdSelectFile_Click()                                                   ' 選擇要發(fā)送的文件

  780.     On Error GoTo Err                                                               ' 錯誤處理

  782.     CommonDialog1.Flags = cdlCFBoth
  783.     CommonDialog1.ShowOpen
  784.     TxtSendPath.Text = CommonDialog1.FileName                                       ' 把打開的文件名給于TxtSendPath
  785.    
  786.     Open TxtSendPath.Text For Input As 1                                            ' 打開選擇的文件
  787.     FileData = StrConv(InputB$(LOF(1), 1), vbUnicode)                               ' 顯示打開的文件
  788.     Close 1                                                                         ' 關(guān)閉文件
  789.    
  790. Err:
  791.    
  792. End Sub

  794. '=====================================================================================
  795. '                   文件數(shù)據(jù)發(fā)送

  797. '=====================================================================================

  799. Private Sub CmdSendFile_Click() '發(fā)送文件
  800.    
  801. On Error GoTo Err
  802.     If MSComm.PortOpen = True Then                                                  ' 如果串口打開了，則可以發(fā)送數(shù)據(jù)
  803.         If FileData = "" Then                                                       ' 判斷發(fā)送數(shù)據(jù)是否為空
  804.             MsgBox "發(fā)送的文件為空", 16, "串口調(diào)試助手"                             ' 發(fā)送數(shù)據(jù)為空則提示
  805.         Else
  806.             If ChkHexReceive.Value = 1 Then                                         ' 如果按十六進制接收時，按二進制發(fā)送，否則按文本發(fā)送
  807.                 MSComm.InputMode = comInputModeBinary                               ' 二進制發(fā)送
  808.             Else
  809.                 MSComm.InputMode = comInputModeText                                 ' 文本發(fā)送
  810.             End If
  811.             
  812.             MSComm.Output = Trim(FileData)                                          ' 發(fā)送數(shù)據(jù)
  813.             
  814.             ModeSend = True                                                         ' 設(shè)置文本發(fā)送方式
  815.         End If
  816.     Else
  817.         MsgBox "串口沒有打開，請打開串口", 48, "串口調(diào)試助手"                       ' 如果串口沒有被打開，提示打開串口
  818.     End If
  819. Err:
  820.   
  821. End Sub

  823. '====================================================================================
  824. '                     發(fā)送文本數(shù)據(jù)

  826. '====================================================================================

  828. Private Sub CmdSend_Click()                                                     ' 發(fā)送按鈕
  829.    
  830.     On Error GoTo Err
  831.     If MSComm.PortOpen = True Then                                              ' 如果串口打開了，則可以發(fā)送數(shù)據(jù)
  832.         If TxtSend.Text = "" Then                                               ' 判斷發(fā)送數(shù)據(jù)是否為空
  833.             MsgBox "發(fā)送數(shù)據(jù)不能為空", 16, "串口調(diào)試助手"                       ' 發(fā)送數(shù)據(jù)為空則提示
  834.         Else
  835.             If ChkHexSend.Value = 1 Then                                        ' 發(fā)送方式判斷
  836.                 MSComm.InputMode = comInputModeBinary                           ' 二進制發(fā)送
  837.                 Call hexSend                                                    ' 發(fā)送十六進制數(shù)據(jù)
  838.             Else                                                                ' 按十六進制接收文本方式發(fā)送的數(shù)據(jù)時，文本也要按二進制發(fā)送發(fā)送
  839.                 If ChkHexReceive.Value = 1 Then
  840.                     MSComm.InputMode = comInputModeBinary                       ' 二進制發(fā)送
  841.                 Else
  842.                     MSComm.InputMode = comInputModeText                         ' 文本發(fā)送
  843.                 End If
  844.                
  845.                 MSComm.Output = Trim(TxtSend.Text)                              ' 發(fā)送數(shù)據(jù)
  846.                 ModeSend = False                                                ' 設(shè)置文本發(fā)送方式
  847.             End If
  848.         End If
  849.     Else
  850.         MsgBox "串口沒有打開，請打開串口", 48, "串口調(diào)試助手"                   ' 如果串口沒有被打開，提示打開串口
  851.     End If
  852. Err:
  853.    
  854. End Sub

  856. '====================================================================================
  857. '                 通信觸發(fā)事件

  859. '====================================================================================

  861. Private Sub MSComm_OnComm()                                                         ' 設(shè)置oncomm事件，讀取片機內(nèi)存的值
  862.    
  863. On Error GoTo Err
  864.     Select Case MSComm.CommEvent                                                    ' 每接收1個數(shù)就觸發(fā)一次
  865.         Case comEvReceive
  866.             If ChkHexReceive.Value = 1 Then
  867.                 Call hexReceive                                                     ' 十六進制接收
  868.             Else
  869.                 Call textReceive                                                    ' 文本接收
  870.         End If
  871.             
  872.         Case comEvSend                                                              ' 每發(fā)送1個數(shù)就觸發(fā)一次
  873.             If ChkHexSend.Value = 1 Then
  874.             Else
  875.                 Call textSend                                                       ' 文本發(fā)送
  876.             End If
  877.             
  878.         Case Else
  879.     End Select
  880. Err:
  881.   
  882. End Sub

  884. '====================================================================================
  885. '                 文本接收

  887. '====================================================================================
  888. Private Sub textReceive()
  889.    
  890.     On Error GoTo Err
  891.     InputSignal = MSComm.Input
  892.     ReceiveCount = ReceiveCount + LenB(StrConv(InputSignal, vbFromUnicode))     ' 計算總接收數(shù)據(jù)
  893.     If DisplaySwitch = False Then                                               ' 顯示接收文本
  894.         TxtReceive.Text = TxtReceive.Text & InputSignal                         ' 單片機內(nèi)存的值用TextReceive顯示出
  895.         TxtReceive.SelStart = Len(TxtReceive.Text)                              ' 顯示光標(biāo)位置
  896.         
  897.     End If
  898.     TxtRXCount.Text = "RX:" & ReceiveCount                                      ' 接收字節(jié)數(shù)顯示
  899.    
  900.     If ChkAutoClear.Value = 1 Then                                              ' 自動清空判斷
  901.         If ReceiveCount >= 65535 Then
  902.             TxtReceive.Text = ""
  903.         End If
  904.     End If
  905. Err:
  906.    
  907. End Sub

  909. '====================================================================================
  910. '                 文本發(fā)送

  912. '====================================================================================

  914. Private Sub textSend()
  915.    
  916.     On Error GoTo Err
  917.     If ModeSend = True Then
  918.         OutputSignal = FileData                                                 ' 發(fā)送文件
  919.     Else
  920.         OutputSignal = TxtSend.Text                                             ' 發(fā)送文本
  921.     End If
  922.    
  923.     SendCount = SendCount + LenB(StrConv(OutputSignal, vbFromUnicode))          ' 計算總發(fā)送數(shù)
  924.     TxtTXCount.Text = "TX:" & SendCount                                         ' 發(fā)送字節(jié)數(shù)顯示
  925. Err:
  926.    
  927. End Sub


  930. '====================================================================================
  931. '                 十六進制發(fā)送

  933. '====================================================================================

  935. Private Sub hexSend()
  936.    
  937.     On Error Resume Next
  938.     Dim outputLen As Integer                                                    ' 發(fā)送數(shù)據(jù)長度
  939.     Dim outData As String                                                       ' 發(fā)送數(shù)據(jù)暫存
  940.     Dim SendArr() As Byte                                                       ' 發(fā)送數(shù)組
  941.     Dim TemporarySave As String                                                 ' 數(shù)據(jù)暫存
  942.     Dim dataCount As Integer                                                    ' 數(shù)據(jù)個數(shù)計數(shù)
  943.     Dim i As Integer                                                            ' 局部變量
  944.    
  945.     outData = UCase(Replace(TxtSend.Text, Space(1), Space(0)))                  ' 先去掉空格，再轉(zhuǎn)換為大寫字母
  946.     outData = UCase(outData)                                                    ' 轉(zhuǎn)換成大寫
  947.     outputLen = Len(outData)                                                    ' 數(shù)據(jù)長度
  948.    
  949.     For i = 0 To outputLen
  950.         TemporarySave = Mid(outData, i + 1, 1)                                  ' 取一位數(shù)據(jù)
  951.         If (Asc(TemporarySave) >= 48 And Asc(TemporarySave) <= 57) Or (Asc(TemporarySave) >= 65 And Asc(TemporarySave) <= 70) Then
  952.             dataCount = dataCount + 1
  953.         Else
  954.             Exit For
  955.             Exit Sub
  956.         End If
  957.     Next
  958.    
  959.     If dataCount Mod 2 <> 0 Then                                                ' 判斷十六進制數(shù)據(jù)是否為雙數(shù)
  960.         dataCount = dataCount - 1                                               ' 不是雙數(shù)，則減1
  961.     End If
  962.    
  963.     outData = Left(outData, dataCount)                                          ' 取出有效的十六進制數(shù)據(jù)
  964.    
  965.     ReDim SendArr(dataCount / 2 - 1)                                            ' 重新定義數(shù)組長度
  966.     For i = 0 To dataCount / 2 - 1
  967.         SendArr(i) = Val("&H" + Mid(outData, i * 2 + 1, 2))                     ' 取出數(shù)據(jù)轉(zhuǎn)換成十六進制并放入數(shù)組中
  968.     Next
  969.    
  970.     SendCount = SendCount + (dataCount / 2)                                     ' 計算總發(fā)送數(shù)
  971.     TxtTXCount.Text = "TX:" & SendCount
  972.    
  973.     MSComm.Output = SendArr                                                     ' 發(fā)送數(shù)據(jù)
  974.    
  975. End Sub

  977. '====================================================================================
  978. '                 十六進制數(shù)據(jù)接受

  980. '====================================================================================

  982. Private Sub hexReceive()
  983.    
  984.     On Error GoTo Err
  985.     Dim ReceiveArr() As Byte                                                    ' 接收數(shù)據(jù)數(shù)組
  986.     Dim receiveData As String                                                   ' 數(shù)據(jù)暫存
  987.     Dim Counter As Integer                                                      ' 接收數(shù)據(jù)個數(shù)計數(shù)器
  988.     Dim i As Integer                                                            ' 循環(huán)變量
  989.    
  990.     If (MSComm.InBufferCount > 0) Then
  991.         Counter = MSComm.InBufferCount                                          ' 讀取接收數(shù)據(jù)個數(shù)
  992.         receiveData = ""                                                        ' 清緩沖
  993.         
  994.         ReceiveArr = MSComm.Input                                               ' 數(shù)據(jù)放入數(shù)組
  995.         
  996.         For i = 0 To (Counter - 1) Step 1                                       ' 數(shù)據(jù)格式處理
  997.             
  998.             If (ReceiveArr(i) < 16) Then
  999.                 receiveData = receiveData & "0" + Hex(ReceiveArr(i)) & Space(1) ' 小于16，前面加0
  1000.             Else
  1001.                 receiveData = receiveData & Hex(ReceiveArr(i)) & Space(1)       ' 加空格顯示
  1002.             End If
  1003.             
  1004.         Next i
  1005.         
  1006.         TxtReceive.Text = TxtReceive.Text + receiveData                         ' 顯示接收的十六進制數(shù)據(jù)
  1007.         TxtReceive.SelStart = Len(TxtReceive.Text)                              ' 顯示光標(biāo)位置
  1008.     End If
  1009.    
  1010.     ReceiveCount = ReceiveCount + Counter                                       ' 接收計數(shù)
  1011.     TxtRXCount.Text = "RX:" & ReceiveCount                                      ' 接收字節(jié)數(shù)顯示
  1012.    
  1013.     If ChkAutoClear.Value = 1 Then                                              ' 自動清空判斷
  1014.         If ReceiveCount >= 65535 Then
  1015.             TxtReceive.Text = ""
  1016.         End If
  1017.     End If
  1018. Err:
  1019.    
  1020. End Sub

  1022. '=====================================================================================
  1023. '                串口開關(guān)

  1025. '=====================================================================================

  1027. Private Sub CmdSwitch_Click()                                                   ' 串口開關(guān)按鈕
  1028.    
  1029.     On Error GoTo Err
  1030.     If MSComm.PortOpen = True Then
  1031.         ComSwitch = True
  1032.     Else
  1033.         ComSwitch = False
  1034.     End If
  1035.    
  1036.     If ComSwitch = False Then
  1037.         OpenCom                                                                 ' 打開串口
  1038.         ComSwitch = True
  1039.     Else
  1040.         CloseCom                                                                ' 關(guān)閉串口
  1041.         ComSwitch = False
  1042.     End If
  1043. Err:
  1044.    
  1045. End Sub



  1049. '=====================================================================================
  1050. '              初始化串口

  1052. '=====================================================================================

  1054. Private Sub Comm_initial(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)
  1055.    
  1056.     On Error GoTo ErrorTrap                                                     ' 錯誤則跳往錯誤處理
  1057.    
  1058.     If MSComm.PortOpen = True Then MSComm.PortOpen = False                      ' 先判斷串口是否打開，如果打開則先關(guān)閉
  1059.    
  1060.     MSComm.CommPort = Port                                                      ' 設(shè)定端口
  1061.     MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 設(shè)置波特率，無校驗，8位數(shù)據(jù)位，1位停止位
  1062.     MSComm.InBufferSize = 1024                                                  ' 設(shè)置接收緩沖區(qū)為1024字節(jié)
  1063.     MSComm.OutBufferSize = 4096                                                 ' 設(shè)置發(fā)送緩沖區(qū)為4096字節(jié)
  1064.     MSComm.InBufferCount = 0                                                    ' 清空輸入緩沖區(qū)
  1065.     MSComm.OutBufferCount = 0                                                   ' 清空輸出緩沖區(qū)
  1066.     MSComm.SThreshold = 1                                                       ' 發(fā)送緩沖區(qū)空觸發(fā)發(fā)送事件
  1067.     MSComm.RThreshold = 1                                                       ' 每X個字符到接收緩沖區(qū)引起觸發(fā)接收事件
  1068.     MSComm.OutBufferCount = 0                                                   ' 清空發(fā)送緩沖區(qū)
  1069.     MSComm.InBufferCount = 0                                                    ' 滑空接收緩沖
  1070.     MSComm.PortOpen = True                                                      ' 打開串口
  1071.    
  1072.     If MSComm.PortOpen = True Then
  1073.         TxtStatus.Text = "STATUS：" & CboCom.Text & " OPEND，" & CboBaudrate.Text & "," & Left(CboParitybit.Text, 1) & "," & CboDatabit.Text & "," & CboStopbit.Text
  1074.     Else
  1075.         TxtStatus.Text = "STATUS：COM Port Cloced"                              ' 串口沒打開時，提示串口關(guān)閉狀態(tài)
  1076.     End If
  1077.     Exit Sub
  1078.    
  1079. ErrorTrap:                                                                      ' 錯誤處理
  1080.     Select Case Err.Number
  1081.     Case comPortAlreadyOpen                                                     ' 如果串口已經(jīng)打開，則提示
  1082.         MsgBox "沒有發(fā)現(xiàn)此串口或被占用", 49, "串口調(diào)試助手"
  1083.         CloseCom
  1084.     Case Else
  1085.         MsgBox "沒有發(fā)現(xiàn)此串口或被占用", 49, "串口調(diào)試助手"
  1086.         CloseCom
  1087.     End Select
  1088.     Err.Clear
  1089.    
  1090. End Sub

  1092. '=====================================================================================
  1093. '               串口設(shè)置

  1095. '=====================================================================================

  1097. Private Sub Comm_reSet(Port As Byte, BaudRate As String, ParityBit As String, DataBit As Integer, StopBit As Integer)
  1098.    
  1099.     On Error GoTo ErrorHint                                                     ' 錯誤則跳往錯誤處理
  1100.    
  1101.     If MSComm.PortOpen = True Then MSComm.PortOpen = False                      ' 先判斷串口是否打開，如果打開則先關(guān)閉
  1102.    
  1103.     MSComm.CommPort = Port                                                      ' 設(shè)定端口
  1104.     MSComm.Settings = BaudRate & "," & ParityBit & "," & DataBit & "," & StopBit ' 設(shè)置波特率，無校驗，8位數(shù)據(jù)位，1位停止位
  1105.     MSComm.PortOpen = True                                                      ' 打開串口
  1106.    
  1107.     If MSComm.PortOpen = True Then
  1108.         CmdSwitch.Caption = "關(guān)閉串口"
  1109.         'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口調(diào)試軟件\圖片\kai.jpg")      ' 顯示串口已經(jīng)打開的圖標(biāo)
  1110.         ImgSwitchOn.Visible = True
  1111.         ImgSwitchOff.Visible = False
  1112.         TxtStatus.Text = "STATUS：" & CboCom.Text & " OPEND，" & CboBaudrate.Text & "," & Left(CboParitybit.Text, 1) & "," & CboDatabit.Text & "," & CboStopbit.Text
  1113.     Else
  1114.         CmdSwitch.Caption = "打開串口"
  1115.         ImgSwitchOn.Visible = False
  1116.         ImgSwitchOff.Visible = True
  1117.         'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口調(diào)試軟件\圖片\guan.jpg")     ' 顯示串口已經(jīng)關(guān)閉的圖標(biāo)
  1118.         TxtStatus.Text = "STATUS：COM Port Cloced"
  1119.     End If
  1120.     Exit Sub
  1121.    
  1122. ErrorHint:                                                                      ' 錯誤處理
  1123.    
  1124.     Select Case Err.Number
  1125.     Case comPortAlreadyOpen                                                     ' 如果串口已經(jīng)打開，則提示
  1126.         MsgBox "沒有成功，請重試", vbExclamation, "串口調(diào)試助手"
  1127.         CloseCom                                                                ' 調(diào)用關(guān)閉串口函數(shù)
  1128.     Case Else
  1129.         MsgBox "沒有成功，請重試", vbExclamation, "串口調(diào)試助手"
  1130.         CloseCom                                                                ' 調(diào)用關(guān)閉串口函數(shù)
  1131.     End Select
  1132.     Err.Clear                                                                   ' 清除 Err 對象的屬性
  1133.    
  1134. End Sub

  1136. '=====================================================================================
  1137. '             串口開關(guān)子程序

  1139. '=====================================================================================

  1141. Private Sub OpenCom()                                                           '打開串口
  1142.    
  1143.     On Error GoTo Err
  1144.     If MSComm.PortOpen = True Then MSComm.PortOpen = False                      ' 先判斷串口是否打開，如果打開則先關(guān)閉
  1145.    
  1146.     Call Comm_reSet(Val(Mid(CboCom.Text, 4, 1)), CboBaudrate.Text, Left(CboParitybit.Text, 1), CboDatabit.Text, CboStopbit.Text) ' 串口設(shè)置
  1147.    
  1148.     If MSComm.PortOpen = True Then
  1149.         TxtStatus.Text = "STATUS：" & CboCom.Text & " OPEND，" & CboBaudrate.Text & "," & Left(CboParitybit.Text, 1) & "," & CboDatabit.Text & "," & CboStopbit.Text
  1150.         CmdSwitch.Caption = "關(guān)閉串口"
  1151.         ImgSwitchOn.Visible = True                                              ' 顯示串口已經(jīng)打開的圖標(biāo)
  1152.         ImgSwitchOff.Visible = False
  1153.     Else
  1154.         TxtStatus.Text = "STATUS：COM Port Cloced"                              ' 串口狀態(tài)顯示
  1155.         CmdSwitch.Caption = "打開串口"
  1156.         'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口調(diào)試軟件\圖片\guan.jpg")     ' 顯示串口已經(jīng)關(guān)閉的圖標(biāo)
  1157.         ImgSwitchOff.Visible = True
  1158.         ImgSwitchOn.Visible = False
  1159.     End If
  1160. Err:
  1161.    
  1162. End Sub

  1164. Private Sub CloseCom()                                                          '關(guān)閉串口
  1165.    
  1166.     On Error GoTo Err
  1167.     If MSComm.PortOpen = True Then MSComm.PortOpen = False                      ' 先判斷串口是否打開，如果打開則先關(guān)閉
  1168.    
  1169.     TxtStatus.Text = "STATUS：COM Port Cloced"                                  ' 串口狀態(tài)顯示
  1170.     CmdSwitch.Caption = "打開串口"
  1171.     'ImgSwitch.Picture = LoadPicture("f:\我的VB\串口調(diào)試軟件\圖片\guan.jpg")         ' 顯示串口已經(jīng)關(guān)閉的圖標(biāo)
  1172.     ImgSwitchOn.Visible = False
  1173.     ImgSwitchOff.Visible = True
  1174. Err:
  1175.    
  1176. End Sub

  1178. '=====================================================================================
  1179. '               顯示時間

  1181. '=====================================================================================

  1183. Private Sub TmrNowTime_Timer()
  1184.    
  1185.     LblNewDate.Caption = Date                                                   ' 顯示時間
  1186.     LblNowTime.Caption = Time                                                   ' 顯示系統(tǒng)時間
  1187.    
  1188. End Sub

  1190. '=====================================================================================
  1191. '                程序退出

  1193. '=====================================================================================

  1195. Private Sub CmdQuit_Click()                                                     ' 退出程序
  1196.    
  1197.     If MSComm.PortOpen = True Then MSComm.PortOpen = False                      ' 先判斷串口是否打開，如果打開則先關(guān)閉
  1198.    
  1199.     Unload Me                                                                   ' 卸載窗體，并退出程序
  1200.     End
  1201.    
  1202. End Sub

  1204. '=====================================================================================
  1205. '               幫助信息

  1207. '=====================================================================================

  1209. Private Sub CmdHelp_Click()                                                     ' 載入幫助信息窗口
  1210.    
  1211.     FrmHelp.Show
  1212.    
  1213. End Sub


  1216. '--------------- 程序結(jié)束 ------------------

復(fù)制代碼

所有資料51hei提供下載:
VB 串口調(diào)試軟件源代碼.rar (50.04 KB, 下載次數(shù): 176)

回復(fù)

使用道具 舉報

ID:328112 發(fā)表于 2019-5-22 21:44 | 顯示全部樓層
CommonDialog1.Flags = cdlCFBoth  編譯不能通過.顯示變量未定義////
回復(fù)

使用道具 舉報

ID:74872 發(fā)表于 2019-6-4 16:12 | 顯示全部樓層
下載學(xué)習(xí)，感謝分享
回復(fù)

使用道具 舉報

ID:298008 發(fā)表于 2020-4-26 20:41 | 顯示全部樓層
謝謝樓主分享�。�！
回復(fù)

使用道具 舉報

ID:298008 發(fā)表于 2020-4-26 20:51 | 顯示全部樓層
謝謝樓主分享�。�！
回復(fù)

使用道具 舉報

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

本版積分規(guī)則

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

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

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