Ⅰ 串口伺服器怎麼調試啊，需要安裝什麼軟體我打開UPGRADE.EXE後能修改ip，但不知道怎麼運行
UPGRADE.EXE 是升級用的吧
Ⅱ 串口調試軟體的常用串口調試軟體
流行的串口軟體有很多，簡單一點的如SSCOM、串口調試助手，功能強大一點界面好一點的如格西烽火串口助手等，都可以下載用用，挑選最合適自己的。
Ⅲ 串口調試助手
串口調試助手（不斷完善中）
說明
說明：版權所有：滄海一聲笑
郵箱：minios@yeah.net
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怎麼識別
舊的串口助手有些不具備自動檢測可用串口功能，一種方法是修改為支持的串口號，另一種方法可以更換新的串口軟體，如格西烽火、串口調試助手等，支持自動識別串口。
Ⅸ 串口調試助手最新版哪裡下載
你可以 找到 源碼，然後 按自己的 要求 定製 一下，重新編譯
祝你順利