串口調試工具源碼

『壹』 各位大俠幫忙：求串口調試源碼，最好是C或VB的

是用VB調試精靈的源代碼改過來的，以16進制方式顯示發送：
Option Explicit
Dim intTime As Integer
Private strSendText As String '發送文本數據
Private bytSendByte() As Byte '發送二進制數據
Private blnReceiveFlag As Boolean
Private blnAutoSendFlag As Boolean
Private intPort As Integer
Private strSet As String
Private intReceiveLen As Integer
Private bytReceiveByte() As Byte
Private strAscii As String '設置初值
Private strHex As String
Private intHexWidth As Integer
Private intLine As Integer
Private m As Integer
Private strAddress As String
'字元表示的十六進制數轉化為相應的整數,錯誤則返回 -1
Function ConvertHexChr(str As String) As Integer
Dim test As Integer
test = Asc(str)
If test >= Asc("0") And test <= Asc("9") Then
test = test - Asc("0")
ElseIf test >= Asc("a") And test <= Asc("f") Then
test = test - Asc("a") + 10
ElseIf test >= Asc("A") And test <= Asc("F") Then
test = test - Asc("A") + 10
Else
test = -1 '出錯信息
End If
ConvertHexChr = test
End Function

'字元串表示的十六進制數據轉化為相應的位元組串,返回轉化後的位元組數
Function strHexToByteArray(strText As String, bytByte() As Byte) As Integer
Dim HexData As Integer '十六進制(二進制)數據位元組對應值
Dim hstr As String * 1 '高位字元
Dim lstr As String * 1 '低位字元
Dim HighHexData As Integer '高位數值
Dim LowHexData As Integer '低位數值
Dim HexDataLen As Integer '位元組數
Dim StringLen As Integer '字元串長度
Dim Account As Integer
Dim n As Integer
'計數
'txtSend = "" '設初值
HexDataLen = 0
strHexToByteArray = 0
StringLen = Len(strText)
Account = StringLen \ 2
ReDim bytByte(Account)
For n = 1 To StringLen
Do '清除空格
hstr = Mid(strText, n, 1)
n = n + 1
If (n - 1) > StringLen Then
HexDataLen = HexDataLen - 1
Exit For
End If
Loop While hstr = " "
Do
lstr = Mid(strText, n, 1)
n = n + 1
If (n - 1) > StringLen Then
HexDataLen = HexDataLen - 1
Exit For
End If
Loop While lstr = " "
n = n - 1
If n > StringLen Then
HexDataLen = HexDataLen - 1
Exit For
End If
HighHexData = ConvertHexChr(hstr)
LowHexData = ConvertHexChr(lstr)

If HighHexData = -1 Or LowHexData = -1 Then '遇到非法字元中斷轉化
HexDataLen = HexDataLen - 1
Exit For
Else
HexData = HighHexData * 16 + LowHexData
bytByte(HexDataLen) = HexData
HexDataLen = HexDataLen + 1
End If
Next n
If HexDataLen > 0 Then '修正最後一次循環改變的數值
HexDataLen = HexDataLen - 1
ReDim Preserve bytByte(HexDataLen)
Else
ReDim Preserve bytByte(0)
End If
If StringLen = 0 Then '如果是空串,則不會進入循環體
strHexToByteArray = 0
Else
strHexToByteArray = HexDataLen + 1
End If
End Function

Private Sub cmdManualSend_Click()
If Not Me.MSComm.PortOpen Then
Me.MSComm.CommPort = intPort
Me.MSComm.Settings = strSet
Me.MSComm.PortOpen = True
End If
Call ctrTimer_Timer
If Not blnAutoSendFlag Then
Me.MSComm.PortOpen = False
End If
End Sub
Private Sub cmdAutoSend_Click()
If blnAutoSendFlag Then
Me.ctrTimer.Enabled = False
If Not blnReceiveFlag Then
Me.MSComm.PortOpen = False
End If
Me.cmdAutoSend.Caption = "自動發送"
Else
If Not Me.MSComm.PortOpen Then
Me.MSComm.CommPort = intPort
Me.MSComm.Settings = strSet
Me.MSComm.PortOpen = True
End If
Me.ctrTimer.Interval = intTime
Me.ctrTimer.Enabled = True
Me.cmdAutoSend.Caption = "停止發送"
End If
blnAutoSendFlag = Not blnAutoSendFlag
End Sub

Private Sub ctrTimer_Timer()
Dim longth As Integer
strSendText = Me.txtSend.Text
longth = strHexToByteArray(strSendText, bytSendByte())
If longth > 0 Then
Me.MSComm.Output = bytSendByte
End If
End Sub
'輸入處理,處理接收到的位元組流,並保存在全局變數
Private Sub InputManage(bytInput() As Byte, intInputLenth As Integer)
Dim n As Integer '定義變數及初始化
ReDim Preserve bytReceiveByte(intReceiveLen + intInputLenth)
For n = 1 To intInputLenth Step 1
bytReceiveByte(intReceiveLen + n - 1) = bytInput(n - 1)
Next n
intReceiveLen = intReceiveLen + intInputLenth
End Sub

'為輸出准備文本,保存在全局變數
'總行數保存在intLine
Public Sub GetDisplayText()
Dim n As Integer
Dim intValue As Integer
Dim intHighHex As Integer
Dim intLowHex As Integer
Dim strSingleChr As String * 1
Dim intAddress As Integer
Dim intAddressArray(8) As Integer
Dim intHighAddress As Integer
strAscii = "" '設置初值
strHex = ""
strAddress = ""
'獲得16進制碼和ASCII碼的字元串
For n = 1 To intReceiveLen
intValue = bytReceiveByte(n - 1)
If intValue < 32 Or intValue > 128 Then '處理非法字元
strSingleChr = Chr(46) '對於不能顯示的ASCII碼,
Else '用"."表示
strSingleChr = Chr(intValue)
End If
strAscii = strAscii + strSingleChr
intHighHex = intValue \ 16
intLowHex = intValue - intHighHex * 16
If intHighHex < 10 Then
intHighHex = intHighHex + 48
Else
intHighHex = intHighHex + 55
End If
If intLowHex < 10 Then
intLowHex = intLowHex + 48
Else
intLowHex = intLowHex + 55
End If
strHex = strHex + Chr$(intHighHex) + Chr$(intLowHex) + " "
If (n Mod intHexWidth) = 0 Then
strAscii = strAscii + Chr$(13) + Chr$(10)
strHex = strHex + Chr$(13) + Chr$(10)
Else
End If
Next n
txtAsc = strAscii 'Ascii
txtHex = strHex '16進制
'獲得地址字元串
intLine = intReceiveLen \ intHexWidth
If (intReceiveLen - intHexWidth * intLine) > 0 Then
intLine = intLine + 1
End If
'設置換行
For n = 1 To intLine
intAddress = (n - 1) * intHexWidth
intHighAddress = 8
intAddressArray(0) = intAddress
For m = 1 To intHighAddress
intAddressArray(m) = intAddressArray(m - 1) \ 16
Next m
For m = 1 To intHighAddress
intAddressArray(m - 1) = intAddressArray(m - 1) - intAddressArray(m) * 16
Next m
For m = 1 To intHighAddress
If intAddressArray(intHighAddress - m) < 10 Then
intAddressArray(intHighAddress - m) = intAddressArray(intHighAddress - m) + Asc("0")
Else
intAddressArray(intHighAddress - m) = intAddressArray(intHighAddress - m) + Asc("A") - 10
End If
strAddress = strAddress + Chr$(intAddressArray(intHighAddress - m))
Next m
strAddress = strAddress + Chr$(13) + Chr$(10)
Next n
txtAdd = strAddress '地址
End Sub
Private Sub cmdReceive_Click()
If blnReceiveFlag Then
If Not blnReceiveFlag Then
Me.MSComm.PortOpen = False
End If
Me.cmdReceive.Caption = "開始接收"
Else
If Not Me.MSComm.PortOpen Then
Me.MSComm.CommPort = intPort
Me.MSComm.Settings = strSet
Me.MSComm.PortOpen = True
End If
Me.MSComm.InputLen = 0
Me.MSComm.InputMode = 0
Me.MSComm.InBufferCount = 0
Me.MSComm.RThreshold = 1
Me.cmdReceive.Caption = "停止接收"
End If
blnReceiveFlag = Not blnReceiveFlag
End Sub

Private Sub Form_Load()
intHexWidth = 8
txtAdd = ""
txtHex = ""
txtAsc = ""
txtSend = "11"
txtAdd.Width = 1335
txtHex.Width = 2535
txtAsc.Width = 1215
'設置默認發送接收關閉狀態
blnAutoSendFlag = False
blnReceiveFlag = False
'接收初始化
intReceiveLen = 0
'默認發送方式為16進制
'intOutMode = 1
'初始化串列口
intPort = 1
intTime = 1000
strSet = "9600,n,8,1"
Me.MSComm.InBufferSize = 1024
Me.MSComm.OutBufferSize = 512
If Not Me.MSComm.PortOpen Then
Me.MSComm.CommPort = intPort
Me.MSComm.Settings = strSet
Me.MSComm.PortOpen = True
End If
Me.MSComm.PortOpen = False
End Sub

Private Sub cmdClear_Click()
Dim bytTemp(0) As Byte
ReDim bytReceiveByte(0)
intReceiveLen = 0
Call InputManage(bytTemp, 0)
Call GetDisplayText
Call disPlay
End Sub

Private Sub MsComm_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case Me.MSComm.CommEvent
Case comEvReceive
If blnReceiveFlag Then
If Not Me.MSComm.PortOpen Then
Me.MSComm.CommPort = intPort
Me.MSComm.Settings = strSet
Me.MSComm.PortOpen = True
End If
'此處添加處理接收的代碼
Me.MSComm.InputMode = comInputModeBinary '二進制接收
intInputLen = Me.MSComm.InBufferCount
ReDim bytInput(intInputLen)
bytInput = Me.MSComm.Input
Call InputManage(bytInput, intInputLen)
Call GetDisplayText
'Call disPlay
If Not blnReceiveFlag Then
Me.MSComm.PortOpen = False
End If
End If
End Select
End Sub

Private Sub disPlay()
txtHex = ""
txtAsc = ""
txtAdd = ""
End Sub

『貳』 誰用串口調試工具的源代碼文件呢，就是那種用軟體直接可以打開的，用什麼語言編的都行，vb,c++什麼都行

經典的串口調試工具源代碼vb

http://wenku..com/view/066600d5240c844769eaee0f.html
串口調試助手源程序vc

http://wenku..com/view/51e62eeae009581b6bd9eba7.html

『叄』 求串口調試助手的VC++源代碼

那個很簡單啊 自己寫一個也行 就是creatfile 然後把串口參數設好就行了

『肆』 求串口調試助手源碼（VB），請高手幫幫忙

源碼倒沒有,你可以用mscomm控制來做,很簡單!

『伍』 急需commix1.3串口調試的源碼，要VB的，大俠們幫幫忙啊！

VB 串口 編程
推薦看書
Visual C++_Turbo C串口通信編程實踐
Visual_Basic與_RS-232_串列通信控制

『陸』 Commix 1.2串口調試軟體的源代碼，高分獎勵。

vb寫串口調試軟體很簡單，就用一個mscomm控制項就可以了
下面是主要代碼：
Private Sub Cmd_Click()
MSComm1.CommPort = 1 '決定串口號
MSComm1.Settings = "9600,n,8,1" '設置波特率、校驗位、數據位、停止位的字元串
MSComm1.PortOpen = True '打開串口
MSComm1.Output = "abcd" '向串口發送字元串"abcd"
MSComm1.PortOpen = False '關閉串口
End Sub

Private Sub MSComm1_OnComm() '當收到串口返回值時觸發這個事件
Dim s As String '定義一個字元串變數

s = MSComm1.Input '將串口返回值放到字元串變數s中
MsgBox s '以消息框的方式顯示串口返回的內容
End Sub

『柒』 高手求串口調試助手的工程文件（源程序）

1.建立項目：打開VC＋＋6.0，建立一個基於對話框的MFC應用程序SCommTest（與我源代碼一致，等會你會方便一點）；
2.在項目中插入MSComm控制項 選擇Project菜單下Add To Project子菜單中的 Components and Controls…選項，在彈出的對話框中雙擊Registered ActiveX Controls項（稍等一會，這個過程較慢），則所有注冊過的ActiveX控制項出現在列表框中。 選擇Microsoft Communications Control, version 6.0，，單擊Insert按鈕將它插入到我們的Project中來，接受預設的選項。（如果你在控制項列表中看不到Microsoft Communications Control, version 6.0，那可能是你在安裝VC6時沒有把ActiveX一項選上，重新安裝VC6，選上ActiveX就可以了），
這時在ClassView視窗中就可以看到CMSComm類了，（注意：此類在ClassWizard中看不到，重構clw文件也一樣），並且在控制項工具欄Controls中出現了電話圖標（如圖1所示），現在要做的是用滑鼠將此圖標拖到對話框中，程序運行後，這個圖標是看不到的。

3.利用ClassWizard定義CMSComm類控制對象 打開ClassWizard－>Member Viariables選項卡，選擇CSCommTestDlg類，為IDC_MSCOMM1添加控制變數：m_ctrlComm，這時你可以看一看，在對話框頭文件中自動加入了//{{AFX_INCLUDES() #include "mscomm.h" //}}AFX_INCLUDES （這時運行程序，如果有錯，那就再從頭開始）。
4.在對話框中添加控制項 向主對話框中添加兩個編輯框，一個用於接收顯示數據ID為IDC_EDIT_RXDATA，另一個用於輸入發送數據，ID為IDC_EDIT_TXDATA，再添加一個按鈕，功能是按一次就把發送編輯框中的內容發送一次，將其ID設為IDC_BUTTON_MANUALSEND。別忘記了將接收編輯框的Properties－>Styles中把Miltiline和Vertical Scroll屬性選上，發送編輯框若你想輸入多行文字，也可選上Miltiline。
再打開ClassWizard－>Member Viariables選項卡，選擇CSCommTestDlg類， 為IDC_EDIT_RXDATA添加CString變數m_strRXData， 為IDC_EDIT_TXDATA添加CString變數m_strTXData。說明： m_strRXData和m_strTXData分別用來放入接收和發送的字元數據。
5.添加串口事件消息處理函數OnComm() 打開ClassWizard－>Message Maps，選擇類CSCommTestDlg，選擇IDC_MSCOMM1，雙擊消息OnComm，將彈出的對話框中將函數名改為OnComm，（好記而已）OK。
這個函數是用來處理串口消息事件的，如每當串口接收到數據，就會產生一個串口接收數據緩沖區中有字元的消息事件，我們剛才添加的函數就會執行，我們在OnComm()函數加入相應的處理代碼就能實現自已想要的功能了。請你在函數中加入如下代碼：
void CSCommTestDlg::OnComm()
{
// TODO: Add your control notification handler code here
VARIANT variant_inp;
COleSafeArray safearray_inp;
LONG len,k;
BYTE rxdata[2048]; //設置BYTE數組 An 8-bit integerthat is not signed.
CString strtemp;
if(m_ctrlComm.GetCommEvent()==2) //事件值為2表示接收緩沖區內有字元
{ ////////以下你可以根據自己的通信協議加入處理代碼
variant_inp=m_ctrlComm.GetInput(); //讀緩沖區
safearray_inp=variant_inp; //VARIANT型變數轉換為ColeSafeArray型變數
len=safearray_inp.GetOneDimSize(); //得到有效數據長度
for(k=0;k<len;k++)
safearray_inp.GetElement(&k,rxdata+k);//轉換為BYTE型數組
for(k=0;k<len;k++) //將數組轉換為Cstring型變數
{
BYTE bt=*(char*)(rxdata+k); //字元型
strtemp.Format("%c",bt); //將字元送入臨時變數strtemp存放
m_strRXData+=strtemp; //加入接收編輯框對應字元串
}
}
UpdateData(FALSE); //更新編輯框內容
}

到目前為止還不能在接收編輯框中看到數據，因為我們還沒有打開串口，但運行程序不應該有任何錯誤，不然，你肯定哪兒沒看仔細，因為我是打開VC6對照著做一步寫一行的，運行試試。沒錯吧？那麼做下一步：
6.打開串口和設置串口參數 你可以在你需要的時候打開串口，例如在程序中做一個開始按鈕，在該按鈕的處理函數中打開串口。現在我們在主對話框的CSCommTestDlg::OnInitDialog()打開串口，加入如下代碼：
// TODO: Add extra initialization here
if(m_ctrlComm.GetPortOpen())
m_ctrlComm.SetPortOpen(FALSE);

m_ctrlComm.SetCommPort(1); //選擇com1
if( !m_ctrlComm.GetPortOpen())
m_ctrlComm.SetPortOpen(TRUE);//打開串口
else
AfxMessageBox("cannot open serial port");

m_ctrlComm.SetSettings("9600,n,8,1"); //波特率9600，無校驗，8個數據位，1個停止位
m_ctrlComm.SetInputModel(1); //1：表示以二進制方式檢取數據
m_ctrlComm.SetRThreshold(1);
//參數1表示每當串口接收緩沖區中有多於或等於1個字元時將引發一個接收數據的OnComm事件
m_ctrlComm.SetInputLen(0); //設置當前接收區數據長度為0
m_ctrlComm.GetInput();//先預讀緩沖區以清除殘留數據
現在你可以試試程序了，將串口線接好後（不會接？去看看我寫的串口接線基本方法），打開串口調試助手，並將串口設在com2，選上自動發送，也可以等會手動發送。再執行你編寫的程序，接收框里應該有數據顯示了。
7.發送數據 先為發送按鈕添加一個單擊消息即BN_CLICKED處理函數，打開ClassWizard－>Message Maps，選擇類CSCommTestDlg，選擇IDC_BUTTON_MANUALSEND，雙擊BN_CLICKED添加OnButtonManualsend()函數，並在函數中添加如下代碼：
void CSCommTestDlg::OnButtonManualsend()
{
// TODO: Add your control notification handler code here
UpdateData(TRUE); //讀取編輯框內容
m_ctrlComm.SetOutput(COleVariant(m_strTXData));//發送數據
}
運行程序，在發送編輯框中隨意輸入點什麼，單擊發送按鈕，啊！看看，在另一端的串口調試助手（或別的調試工具）接收框里出現了什麼。

『捌』 版的串口調試助手源代碼.怎麼實現串口發送文件的

如果你測試的是同一台機子上的兩個串口，就連接好2個串口，然後打開兩次串口調試助手，分別選好串口編號，設定波特率等參數，點連接，然後在發送區隨便填點信息點發送，打開的2個串口調試助手的窗口能互相發送接收，就說明這兩個串口能正常通信
如果測試2台不同機子上的串口，就分辨在兩台機子上打開串口調試助手，操作一樣
如果只測試一個串口，RS422和RS485方式的是測不了的，RS232的可以短接2，3針腳，打開一個串口調試助手，選好串口編號和參數，發送信息能在接收區得到回復，證明該串口能工作