Ⅰ 串口服务器怎么调试啊，需要安装什么软件我打开UPGRADE.EXE后能修改ip，但不知道怎么运行
UPGRADE.EXE 是升级用的吧
Ⅱ 串口调试软件的常用串口调试软件
流行的串口软件有很多，简单一点的如SSCOM、串口调试助手，功能强大一点界面好一点的如格西烽火串口助手等，都可以下载用用，挑选最合适自己的。
Ⅲ 串口调试助手
串口调试助手（不断完善中）
说明
说明：版权所有：沧海一声笑
邮箱：[email protected]
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
Option Explicit
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()
MSComm1.PortOpen = False '关闭串口
Unload Me '关闭程序
End Sub
'单击“帮助”按钮打开网页链接
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "http://domyself.cublog.cn", "", "", 5
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
Close #1 '关闭文件
End Sub
''''''''初始化
Private Sub form_load()
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
MSComm1.CommPort = 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 '打开串口
Shape1.Shape = 2
Shape1.Visible = True
Shape1.FillStyle = 0 '全部填充
Shape1.FillColor = QBColor(12) '红色
flag_dis = False
Timer2.Enabled = True
Timer2.Interval = 250
rx_count = 0
tx_count = 0
Label14.Caption = rx_count '接收到的字符数
Label15.Caption = tx_count '发送出去的字符数
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
'波特率
Combo2.AddItem "300"
Combo2.AddItem "600"
Combo2.AddItem "1200"
Combo2.AddItem "2400"
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo2.AddItem "38400"
Combo2.AddItem "43000"
Combo2.AddItem "115200"
'校验位
Combo3.AddItem "N"
Combo3.AddItem "E"
Combo3.AddItem "O"
'数据位
Combo4.AddItem "8"
Combo4.AddItem "7"
Combo4.AddItem "6"
'停止位
Combo5.AddItem "1"
Combo5.AddItem "2"
Call new_folder
End Sub
'自动发送
Private Sub Check1_Click()
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
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 MSComm1.CommEvent
Case comEvReceive
inputsignal = MSComm1.Input
rx_count = Len(Trim(inputsignal)) + rx_count
If flag_dis = True Then
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
MSComm1.Output = Text2.Text
End If
End If
End If
End Sub
Private Sub Timer2_Timer()
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，故在程序开头声明如下：
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
然后可以通过单击“帮助”按钮打开网页链接，click 事件代码如下：
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "http://domyself.cublog.cn", "", "", 5
End Sub
2、如何初始化combobox 的下拉列表。
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
3、串口的相关初始化操作。
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
MSComm1.CommPort = 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
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
可以看出来，是先建立文件夹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)是红色。
最新源码：
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
Option Explicit
Dim inputsignal
Dim text_temp As String
Dim flag_dis As Boolean '是否停止显示标志量
Dim rx_count As Single '接收到的字符数
Dim tx_count As Single '发送除去的字符数
'***********************************
Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String
Dim comset_temp As String
Private Sub Combo1_click()
Combo1.ForeColor = RGB(255, 0, 0)
Combo1.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo2_click()
Combo2.ForeColor = RGB(255, 0, 0)
Combo2.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo3_click()
Combo3.ForeColor = RGB(255, 0, 0)
Combo3.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo4_click()
Combo4.ForeColor = RGB(255, 0, 0)
Combo4.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo5_click()
Combo5.ForeColor = RGB(255, 0, 0)
Combo5.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
'计数清零
Private Sub Command5_Click()
rx_count = 0
tx_count = 0
End Sub
'关闭程序
Private Sub Command6_Click()
MSComm1.PortOpen = False '关闭串口
Unload Me '关闭程序
End Sub
'单击“帮助”按钮打开网页链接
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "http://domyself.cublog.cn", "", "", 5
End Sub
Private Sub Command8_Click()
Call new_folder
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
''''''''初始化
Private Sub form_load()
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
MSComm1.CommPort = 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 '打开串口
Shape1.Shape = 2
Shape1.Visible = True
Shape1.FillStyle = 0 '全部填充
Shape1.FillColor = QBColor(12) '红色
flag_dis = False
Timer2.Enabled = True
Timer2.Interval = 250
rx_count = 0
tx_count = 0
Label14.Caption = rx_count '接收到的字符数
Label15.Caption = tx_count '发送出去的字符数
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
'波特率
Combo2.AddItem "300"
Combo2.AddItem "600"
Combo2.AddItem "1200"
Combo2.AddItem "2400"
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo2.AddItem "38400"
Combo2.AddItem "43000"
Combo2.AddItem "115200"
'校验位
Combo3.AddItem "N"
Combo3.AddItem "E"
Combo3.AddItem "O"
'数据位
Combo4.AddItem "8"
Combo4.AddItem "7"
Combo4.AddItem "6"
'停止位
Combo5.AddItem "1"
Combo5.AddItem "2"
'设置combobox.text 初始值
Combo1.Text = "COM1"
Combo2.Text = "9600"
Combo3.Text = "N"
Combo4.Text = "8"
Combo5.Text = "1"
Call new_folder
Call comm_set
End Sub
'自动发送
Private Sub Check1_Click()
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
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 MSComm1.CommEvent
Case comEvReceive
inputsignal = MSComm1.Input
rx_count = Len(Trim(inputsignal)) + rx_count
If flag_dis = True Then
text_temp = Text1.Text '将接收区的文本信息锁存
Text1.Text = text_temp
Else
Text1.Text = (Text1.Text) & (inputsignal)
End If
Case Else
End Select
End Sub
'定时器1 用于定时发送
Private Sub Timer1_Timer()
If MSComm1.PortOpen = True Then '如果串口处于打开的状态
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
'定时器2 用于接收发送量显示
Private Sub Timer2_Timer()
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
'***************************
Public Sub comm_set()
If MSComm1.PortOpen <> False Then
MSComm1.PortOpen = False
End If
x1 = Combo1.Text
x2 = Combo2.Text
x3 = Combo3.Text
x4 = Combo4.Text
x5 = Combo5.Text
MSComm1.InputLen = 0 '表示一次读取所有数据
MSComm1.InBufferSize = 512
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 '每接收一个字符触发一次oncomm 事件
MSComm1.SThreshold = 1
MSComm1.CommPort = Val(Right(x1, 1))
comset_temp = x2 & "," & x3 & "," & x4 & "," & x5
MSComm1.Settings = (comset_temp)
Command2.Caption = "打开串口"
Shape1.FillColor = QBColor(8) '黑色
End Sub
效果图:
最新工程文件：
文件: 串口调试助手.rar
大小: 18KB
下载: 下载
Ⅳ 跪求好心人分享xcom串口调试助手 v2.1 最新版软件免费百度云资源
《xcom串口调试助手v2.1最新版》网络网盘免费下载
链接: https://pan..com/s/1kMdHS5nJhrNvmeBLw2btVA
软件名称:xcom串口调试助手v2.1最新版
大小:422KB
类别:系统工具
介绍:xcom官方版是非常好用方便的串口调试软件，用户在遇到某些需要调试的内容时，可以将其发送到本软件之中进行操作，会有比较详细的提示说明，可以跟着指示步骤来操作，还有多种语言环境可以设置，需要的话就到极光下载站下载吧！
Ⅳ 哪位大神有捷通串口调试软件 V7.0 绿色免费版软件百度云资源
链接:
提取码:m5kc
软件名称:捷通串口调试软件V7.0绿色免费版
语言:简体中文
大小:133.77KB
类别:系统工具
介绍:捷通串口调试软件又被称之为唐老鸭串口软件，它拥有三个发送区，有了它，你能够手动发送数据到串口，在原先的基础上增加了一些新的功能，你可以下载打开软件后进行查看和使用。
Ⅵ 跪求串口调试小助手 V1.3 官方版软件百度云资源
《串口调试小助手 V1.3 官方版软件》网络网盘资料下载
链接: https://pan..com/s/1jG4BG3Kgzszl3FxZRFl4FA
串口调试小助手官方版是专业用于修改串口数据的调试小工具，支持修改串口波特率、校验位、数据位和串口停止位、设置接受区和发送区等功能。其中软件自带的自定义波特率功能能够将列表框由只读变为可写，直接输入你想要的波特率，无需手动设定，并且当再选择其他内定的波特率时，列表框会恢复为只读的状态。
Ⅶ 串口调试工具的软件简介
流行的有很多，简单的有串口调试助手、SSCOM等，支持协议自定义和解析等高级功能的格西烽火串口助手等，可以下载测试一下就了解了。
Ⅷ 串口调试助手中只有COM1-COM4，那么COM6怎么识别
旧的串口助手有些不具备自动检测可用串口功能，一种方法是修改为支持的串口号，另一种方法可以更换新的串口软件，如格西烽火、串口调试助手等，支持自动识别串口。
Ⅸ 串口调试助手最新版哪里下载
你可以 找到 源码，然后 按自己的 要求 定制 一下，重新编译
祝你顺利