串口调试助手

Command2.Caption = "关闭串口" MSComm1.PortOpen = True Shape1.FillColor = QBColor(12) '红色 Else Command2.Caption = "打开串口" MSComm1.PortOpen = False Shape1.FillColor = QBColor(8) '黑色 End If End Sub '清空接收区 Private Sub Command3_Click() Text1.Text = "" End Sub '停止显示 Private Sub Command4_Click() If flag_dis = False Then flag_dis = True Command4.Caption = "继续显示" Else flag_dis = False Command4.Caption = "停止显示" End If End Sub '串口响应事件 Private Sub mscomm1_oncomm() Select Case mEvent Case comEvReceive inputsignal = MSComm1.Input rx_count = Len(Trim(inputsignal)) + rx_count If flag_dis = True Then
MSComm1.InBufferSize = 5120
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 5120
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
'每接收一个字符触发一次 oncomm 事件
Close #1 '关闭文件
End Sub
''''''''初始化
Private Sub form_load()
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
mPort = 1
'串口 1
MSComm1.InputLen = 0
'表示一次读取所有数据
串口调试助手（不断完善中）
说明
说明：版权所有：沧海一声笑
邮箱：minios@
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal
End Sub
Private Sub Command8_Click()
Open Label16.Caption & "\com_data.txt" For Append As #1
Write #1, " 保存时间：", Format(Now, "yyyy 年 m 月 dd 日 hh:mm")
Write #1, Text1.Text
ByVal nShowCmd As Long) As Long
然后可以通过单击“帮助”按钮打开网页链接，click 事件代码如下：
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "", "", "", 5
text_temp = Text1.Text '将接收区的文本信息锁存 Text1.Text = text_temp Else
Text1.Text = (Text1.Text) & (inputsignal) End If
Case Else End Select End Sub
Private Sub Timer1_Timer() If MSComm1.PortOpen = True Then '如果串口处于打开的状态
If Check1.Value Then If Text2.Text <> "" Then Timer1.Interval = Text3.Text Timer1.Enabled = True
End If End If End Sub '手动发送 Private Sub Command1_Click() MSComm1.Output = Text2.Text tx_count = tx_count + Len(Text2.Text) End Sub '打开\关闭串口 Private Sub Command2_Click() If Command2.Caption = "打开串口" Then
Dim inputsignal
Dim text_temp As String
Dim flag_dis As Boolean '是否停止显示标志量
Dim rx_count As Single '接收到的字符数
Dim tx_count As Single '发送除去的字符数
'关闭程序
Private Sub Command6_Click()
Dim aa As String
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
aa$ = "C:\COMDATA"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
If Check1.Value Then If Text2.Text <> "" Then Timer1.Interval = Text3.Text Timer1.Enabled = True MSComm1.Output = Text2.Text End If
End If End If End Sub Private Sub Timer2_Timer()
End Sub
2、如何初始化 combobox 的下拉列表。
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
3、串口的相关初始化操作。
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Option Explicit
Label14.Caption = rx_count Label15.Caption = tx_count End Sub '创建一个文件 Public Sub new_folder() Dim fol, fso, fil, fils, s, f, fldr Dim aa As String Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next aa$ = "C:\COMDATA" If fso.folderexists(aa$) = False Then fol = fso.CreateFolder(aa$) 'MkDir aa End If
aa$ = "C:\COMDATA\test" If fso.folderexists(aa$) = False Then fol = fso.CreateFolder(aa$) 'MkDir aa End If End Sub
用到的知识点：
1、通过单击按钮打开网页链接。
由于要调用 api，故在程序开头声明如下：
mPort = 1
'串口 1
MSComm1.InputLen = 0
'表示一次读取所有数据
MSComm1.InBufferSize = 5120
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 5120
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
'每接收一个字符触发一次 oncomm 事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
'打开串口
4、如何创建多级文件夹。
Public Sub new_folder()
Dim fol, fso, fil, fils, s, f, fldr
'MkDir aa
End If
aa$ = "C:\COMDATA\test" If fso.folderexists(aa$) = False Then fol = fso.CreateFolder(aa$) 'MkDir aa End If End Sub 可以看出来，是先建立文件夹 COMDATA 后才建立他的子文件夹，不能一次性创建多级文件夹。 5、怎样在指定目录创建文件夹和文件，并写入数据。以及时间的格式化操作。 Private Sub Command8_Click() Open Label16.Caption & "\com_data.txt" For Append As #1 Write #1, " 保存时间：", Format(Now, "yyyy 年 m 月 dd 日 hh:mm") Write #1, Text1.Text Close #1 '关闭文件 End Sub 6、用 shape 控件画圆并将其用特定颜色填充满。 Shape1.Shape = 2 '圆 Shape1.Visible = True '可见 Shape1.FillStyle = 0 '全部填充 Shape1.FillColor = QBColor(12) '红色 另外，QBColor(8)是黑色，QBColor(12)是红色。