用mfc實現串口編程_用MFC怎麼做串口測試程序我要詳細步聚！！！！！！！！

A. MFC編寫的上位機要實現串口通信，要添加一個串口控制項，可是在控制項里找不到，要怎麼添啊

建立首先打開VC 6.0，建立一個基於對話框的MFC應用程序：PG500。在對話框中創建通信控制項，若Control工具欄中缺少該控制項，可通過菜單Project --> Add to Project --> Components and Control插入即可，再將該控制項從工具箱中拉到對話框中。此時，你只需要關心控制項提供的對Windows 通訊驅動程序的API 函數的介面。換句話說，只需要設置和監視MSComm控制項的屬性和事件。

B. 用MFC怎麼做串口測試程序，我要詳細步聚！！！！！！！！

添加一個mscomm 控制項裡面有，然後設置它的波特率，波特率和下位機的波特率要一致。然後就用
Write和Read方法讀寫數據就行了。
推薦關於MSCOMM控制項的一些說明
VB5.0/6.的MSComm通信控制項提供了一系列標准通信命令的介面，它允許建立串口連接，可以連接到其他通信設備（如Modem）．
還可以發送命令、進行數據交換以及監視和響應在通信過程中可能發生的各種錯誤和事件，從而可以用它創建全雙工、事件驅
動的、高效實用的通信程序。但在實際通信軟體設計過程中，MSComm控制項並非像想像中那樣完美和容易控制．特別是在中文Wln
95／98下通信時更會出現問題。下面就從基礎開始介紹，然後逐步討淪MSComm控制項在編程中出現的問題以及編程技巧。
一、用MSComm控制項通信
1．串口通信基礎知識
一般悅來，計算機都有一個或多個串列埠，它們依次為com1、Com2、…，這些串口還提供了外部設備與pC進行數據傳輸和
皿信的通道。這些串口在CPU和外設之間充當解釋器的角色。當字元數據從CPU發送給外設時，這些字元數據將被轉換成串列比特
流數據；當接收數據時，比特流數據被轉換為字元數據傳遞給CPU，再進一步說，在操作系統方面，Windows用通信驅動程序
（COMM.DRV）調用API函數發送和接收數據，當用通信控制項或聲明調用API函數時，它門由COMM. DRV解釋並傳遞給設備驅動程序，
作為一個vB程序員，要編寫通信程序．只需知道通信控制項提供給Windows通信AP1函數的介面即可．換句話說，只需設定和監視通
信控制項的屬性和事件即可。
2．使用Mscomm控制項
在開始使用MSComm控制項之前。需要先了解其屬性、事件或錯誤
屬性描述
CommPort 設置或返回通信埠號
Settings 以字元串的形式設置或返回波特率、奇偶校驗、數據位和停止位
PortOpen 設置或返回通信埠的狀態。也可以打開和關閉埠
Input 返回和刪除接收緩沖區中的字元
Output 將字元串寫入發送緩沖區

CommEvent屬性為通信事件或錯誤返回下列值之一。在該控制項的對象庫中也可以找到這些常量。
常量值描述
ComEventBreak 1001 收到了斷開信號
ComEventCTSTO 1002 Clear To Send Timeout。在發送字元時，在系統指定的事1件內，CTS（Clear To Send）線是低電平
ComEventDSRTO 1003 Data Set Ready Timeout。在發送字元時，在系統指定的事件內，DSR（Data Set Ready）線是低電平
ComEventFrame 1004 數據幀錯誤。硬體檢測到一個數據幀錯誤
ComEventOverrun 1006 埠溢出。硬體中的字元尚未讀，下一個字元又到達，並且丟失
ComEventCDTO 1007 Carrier Detect Time。在發送字元時，在系統指定的事件內，CD（Carrier Detect）線是低電平。CD
也稱為RLSD（Receive Line Singal Detect，接收線信號檢測）
ComEventRxOver 1008 接收緩沖區溢出。在接收緩沖區中沒有空間
ComEventRxParity 1009 奇偶校驗錯。硬體檢測到奇偶校驗錯誤7
ComEventTxFull 1010 發送緩沖區滿。在對發送字元排隊時，發送緩沖區滿
ComEventDCB 1011 檢取埠DCB（Device Control Blick）時發生了沒有預料到的錯誤

通信事件包含了下面的設置：
常量值描述
ComEvSend 1 發送緩沖區中的字元數比Sthreshold值低
ComEvReceive 2 接收到了Rthreshold個字元。持續產生該事件，直到使用了Input屬性刪除了接收緩沖區中的數據
ComEvCTS 3 CTS（Clear To Send）線改變
ComEvDSR 4 DSR（Data Set Ready）線改變。當DSR從1到0改變時，該事件發生
ComEvCD 5 CD（Carrier Detect）線改變ComEvRing6檢測到響鈴信號。一些URAT（Universal AsynchronousReciver-
-Transmitters,通用非同步收發器）不支持該事件
ComEvEOF 7 收到了EOF字元（ASCII字元26）

Error消息（MSComm控制項）下表列出了MSComm控制項可捕獲的錯誤消息：
常量值描述
ComInvalidPropertyValue 380 無效的屬性值
ComSetNotSupported 383 屬性只讀
ComGetNotSupported 394 屬性只讀
ComPortOpen 8000 埠打開時該存在無效
8001 超時設置必須比0值大
ComPortInvalid 8002 無效的埠號
8003 屬性只在運行時有效
8004 屬性在運行時是只讀的
ComPortAleadyOpen 8005 埠已經打開
8006 設備標識符無效或不支持
8007 不支持設備的波特率
8008 指定的位元組大小無效
8009 預設參數錯誤
8010 硬體不可用（被其他設備鎖住）
8011 函數不能分配隊列
ComNoOpen 8012 設備沒有打開
8013 設備已經打開
8014 不能使用通信通知
ComSetCommStateFailed 8015 不能設置通信狀態
8016 不能設置通信事件屏蔽
ComPortNotOpen 8018 該存在只在埠打開是有效
8019 設備忙
ComReadError 8020 通信設備讀錯誤
ComDCBError 8021 檢取埠設備控制塊時出現內部錯誤

搞清楚以上基本屬性後，就可以開始編寫通信許程序了。在VB5.0/6.0中新建一個工程文件。添加Microsoft Comm Control 5.0組
件，在簡體Form1中加入Command命令按鈕並取名為CmdTest，MSComm控制項取名為MSComm1，加入如下程序代碼。
Private Sub cmdTestClick ( ) '打開串口
MSComml.CommPort =2 '設定Com2
If MSComml.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1" '9600波特率，無校驗，8位數據位，1位停止位
MSComm1.PortOpen = True '打開串口
End if
MSComm1.OutBufferCount = 0 '清空發送緩沖區
MSComm1.InBufferCount = 0 '滑空接收緩沖區

'發送字元數據時注意必須用回車符（vbcr）結束
MSComm1.Output="This is a qood book ! " &vbCr

'潑打電話號碼或發送AT命令
MSComm1.Output = "ATDT 05778191898 , & vbCr

'發送字元數組數據時注意ByteArray必須事先定義賦值
Dim ByteArray as byte( )

'定義動態數組
ReDim ByteArray(1)

'重定義數組大小
ByteArray ( 0 ) =0
ByteArray ( 1 ) = 1
MSComm1.Output = ByteArray
End Sub

private Sub MScommEvent( )
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
'接收二進制數據
MSComm1.InputMode= ComInputModeBinary
Buffer=MSComm1.Input
'接收字元數據
MSComm1.InputMode=comInputModeText
Buffer = MSComml.Input
Case else
End Select
End sub
( 程序1)

二、中文Win 95／98下的通信問題與解決方法
1．接收的數據少於發送的數據
如果通過MSComm控制項一次性傳送較多的二進制數據，那麼，很可能收到的數據不足。例如在設置為24oobps傳輸率的情況下，
一次性可以傳輸2048個字元數據那麼在大多數情況下。一次只能收到1200個字元左右，這址出為新版的MSComm32．OCX中存在一
個影響傳輸二進制數據的臭蟲（bug）．注意這不是特性。
32位Windows API函數（以下簡稱API）使用了幾個用COMMTIMEOUTS結構表示的限時變數，WriteTotalTimeOutConstant 即是其
中的一個，它被Windows內部設定為5000（即5秒），這個常量決定了在通信驅動程序停止傳輸之前花費在發送緩沖區中數據的時間
的長短，5秒鍾意味著通信速度為1200bps情況下僅能發送600個字元，24oobps情況下僅能發送1200個左右的字元。事實上，在一個
緩沖區內一次性發送更多的數據是非常可能的。這個bug同樣也能引發問題，甚至在高速串口門通信情況下，即使系統在使用流控
制，無論叢軟體流（Xon／XofI）還是硬體流（CTS／RTS）。假如數據在發送緩沖區中時，流控制停止了傳輸，如果停止時間超過5
秒鍾．則數據就會丟失。在某些環境下，5秒鍾可能相當短．不過也不必擔心， VB 5.0/6.0版本的MSComm控制項有一個新增的重要的
屬性稱為CommID， CommID指的是當串口被打開時，被API所調用的串口句柄或稱標志，這也意味著能利用API介面函數去修改這個
常量。每次串口關閉後，Windows會自動將之恢復為5000，所以，每次打開串口後需要重斬設定以下API聲明，其代碼見下程序。
Type COMMTIMEOUTS
ReadIntervalTimeout As Long
ReadTotalTimeoutMultiplier As Long
ReadTotalTimeoutConstant As Long
WriteTotalTimeoutMultiplier As Long
WriteTotalTimeoutConstant As Long
End Type
Declare Function SetCommTimeouts Lib "Kernel32"
(BYVal hFile As Long, lpComm TimeoutsAs COMMTIMEOUTS) As Long
Declare Function GetCommTimeouts Lib "Kernel32"
(ByVal hFile As Long, lpCommTimeouts As COMMTIMEOUTS) As Long
Dim timeouts As COMMEOUTS
Dim Ret As Long
If Comm1.PortOpen = False Then
Comm1.PortOpen = True
End if
Ret=GetCommTimeouts ( Comm1.CommID , timeouts )
'Set some default timeouts
timeOuts.ReadIntervalTimeout = 1
timeouts.ReadTotalTimeoutMultiplier =1
timeouts.ReadTotalTimeoutConstant =1
timeouts.WriteTotalTimeoutMultiplier =1
timeouts.WriteTotalTimeoutConstant=
( Comm1.OutBufferSize\Val(Comm1.Settings))*10000+1000
Ret=SetCommTimeouts( Comm1.CommID , timeouts )
( 程序2)

2．如何發送大於128的字元數據
在通信程序中，以單字元方式逐個發送數據時，每一個數據范圍 0-255（即十六進制的00-FF）。在單字元版本的英文Win95或
DOS版的BASIC程序中，只需要將相應的數據轉換成相應的字元發送到通信埠即可。但在中文Win95/98下卻行不通，假設在中文
Win95／98下運行以下程序：
Dim i
For i=0 to 255
MSComm1.Output=chr(i)
Next i

希望在接收端得到預期的0-255之間的數據，結果卻是：前129個數據接收正確，為0-128，後面127個數據為126個0和一個255，
造成這種給果的原因在於中文Windows使用的是雙位元組字元集（DBCS）系統。DBCS系統使用0-128之間的數字表示ASCII字元，大於
128的數字僅作為前導字元，它只是顯示是一個非拉丁語系的字元，而並不代表實際意義。上述程序在調用CHR（）函數時用到了
DBCS字元集，岡此產生了此類錯誤。那麼，如何發送人於128的數據呢？答案是使用字元數組，將以上程序改為：
Dim cc(255) As Byte
For i = 0 To 255
cc(i) = i
Next i
MSComm1.Output = cc
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0
'接收過程 MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant, b1,i
MSComm1.InputMode=comInputModeBinery
MSComm1.InputLen = 0
Buffer = MSComm1.Input
For i=LBound (Buffer) To UBound (Buffer )
Debug.Print Buffer ( i ) ;
Next i
Case . . . . .

3．如何發送0字元（00H，NULL）
在VisuaI C＋＋中使用串口控制項發送0字元有些麻煩，但在VB5.0/6.0中只要注意以下兩點即可：
（1）設置MSComm控制項的屬性 NullDiscard=False；。
（2）使用二進制接收，即用 MSComm1.InputMode=ComInputModeBinary便可以解決問題；

4．如何發送遞中文字元串（DBcS字元）
VB5.0/6.0的各種參考書上均指明MSComm通信控制項不能發送或接收雙位元組字元集系統DBCS）的二進制數據，這對於我國及亞洲一些
使用DBCS字元集的國家不能不說是一大人遺憾。但是我在實踐中發現，用MSComm控制項也可以發送中文字元，具體方法有以下兩種：
（1）直接發送
直接發送即把中文字元等同於英文字元。如：MSComm1.Intput= " 這是一行中文數據！" ，但這種方法發送的中文數據不能太
長，發送緩沖區和接收緩沖區的大小需設定為中文字元的兩倍以上，而且發送與接收系統所處的操作系統版本最好要一致，否則會
出現接收或發送緩沖區溢出之類的錯誤。這種方法時用於一般要求不太高的場合。
（2）間接發送
在發送端將漢字或字元轉換為機器內碼或區位碼數據數組，然後將詠轉換後的數據發送到串口，在接收端接收到數據後，按照
相反的順序得到的數據轉換為相應的漢字或字元，在轉換過程中．要用到位運算，如取得漢字的內碼後需要將高位元組和低位元組分開，
而VB5.0/6.0中並沒有提供此類函數，以下是求整數高、低位元組的函數。

Public Function HiByte(a As Integer )
Dim b
b= a And &HFF00
b = b / 256
If b<0 Then b = b + 256
HiByte = b
End Function

Public Function LowByte(a As Integ`er)
Dim b
b = a And &HFF
LowByte = b
End Function

5．如何用單機進行通信測試
通常在寫好了通信程序後需要兩台PC或一台Pc、一台單片機．將通信口連接後進行測試，但很多時侯因條件限制僅有單台PC機，
測試項目很簡單，那麼能否測試呢？當然可以，而且方法也很簡單。對於九針的串口，找一個廢棄的串口滑鼠，剝外滑鼠線，將連
接2、3針的線對接即可；對於25針的串口，找一枚曲別針（最好有塑料外套的）將它扯直，剝削去兩頭的塑料後在兩頭各彎一個圓
圈，中間對忻後直接套接在串口的2、3針上即可。如果但心不夠安全，則可以將5針按地。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
關於mscomm的用法，提高篇......[mgwmj]?

MSCOMM控制項是個好東西，如果您能夠充分了解他，他會為您衷心的效勞。

大致看了一下下午有關討論MSCOMM的話題，覺得有必要說說我的心得，我一般只做硬體，沒有系統的學過軟體，只是業余時間
學學用用，多少掌握了一點，也在此拿出來玩玩，不知有錯沒有，我可是以為我已經做的很好了^_^

這是一個VB通用串口事件驅動接收程序。一次性接收一個數據包，數據包可以為任意位元組，保證不會丟失一個數據！
Private Sub MSComm_OnComm()
Dim S() As Byte
Dim SS(1024) As Byte
Static N As Long
Static T As Variant

If (MSComm.CommEvent = comEvReceive) Then
S = MSComm.Input '只要有數據就收進來，哪怕只是一個
If (Timer - T > 0.01) Then '間隔10MS以上就認為是一個新的包
text1="" 'text1用於搜集和顯示接收(HEX格式)
N = 0
End If
T = Timer
For i = 0 To UBound(S) '一個數據包可能產生若干個oncomm事件
Text1.Text = Text1.Text & Right("0" & Hex(S(i)) & "H", 3) + " "
SS(N+i)=S(i) '接收數據包緩存於SS()
N=N+UBound(S)
Next i
End If
End Sub

C. MFC做串口編程，如何把COM1轉化為CString型變數

你只需要定義
CString strCBtext;
m_ComboxOption..GetWindowText(strCBtext);

此時strCBtext 就是需要的信息

D. MFC串口編程中發送數據函數的疑問

關於「構造函數沒有返回值」，
請注意： m_mscomm.put_Output調用的參數不是COleVariant的返回值，而是一個COleVariant類的實例。
這樣，m_mscomm.put_Output函數中，可以調用COleVariant中的函數或公用變數。
而構造函數則將變數存入至COleVariant類中，供m_mscomm.put_Output函數調用。

E. 如何用mfc控制項做多個串口通訊的程序

微軟有專門的 MSCOMM32 那個控制項 ocx 控制項好像

或者自己找下用開源的 SerialPort 來進行底層的數據讀寫要自己開讀寫線程

F. mfc串口編程有哪些方法

用 MSCOMM 控制項
用 CSerialport類
用第三方的串口控制項等等

推薦看書
Visual C++_Turbo C串口通信編程實踐

G. 怎麼用MFC使用API函數來做串口通信

示例，僅供參考：

//1.打開串列通信口，保存串口句柄hCom=CreateFile("////.//COM10",GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);if(hCom==(HANDLE)INVALID_FILE_SIZE){
MessageBox("埠無法打開");
return;}if(hCom!=INVALID_HANDLE_VALUE){//設置埠SetupComm(hCom,OUT_BUFF_SIZE,IN_BUFF_SIZE);DCBmyDCB;GetCommState(hCom,&myDCB);myDCB.BaudRate=57600;//波特率myDCB.fBinary=TRUE;//通信方式＝二進制myDCB.fParity=TRUE;//奇偶校驗TRUE＝使用，FALSE＝不使用myDCB.Parity=1;//校驗方式:0－無1－奇2－偶3－標志4－空格myDCB.ByteSize=8;//數據位數myDCB.StopBits=1;//停止位數:0－1位1－1.5位2－2位SetCommState(hCom,&myDCB);}else{
MessageBox("埠無法打開");
return;}//2.發送數據WriteFile(hCom,&datas,Len,NULL,NULL);//3.讀緩沖區並處理收到的數據ReadFile(hCom,&myByte,Len,NULL,NULL);

H. 我用MFC做串口編程時，總是提示Debug Assertion Failed!，讓我終止或忽略程序

一般是因為程序中引用了空指針，數組越界之類的程序非法操作。
VS的調試器會通過斷言判斷是否存在這類的錯誤，如果存在就會彈出這個提示。

VS環境下用F10，一步步跟蹤調試進去，應該能找到斷言的語句類似於
assert(exp)

exp是表達式，根據它分析為什麼斷言失敗吧。

I. 如何用VC進行串口編程

1、新建MFC對話框工程如下

雙擊兩個Button按鈕；

代碼中顯示如下：

[cpp] view plain print?

voidCMSCommTestDlg::OnBnClickedBtnopen()
{
//TODO:
}
voidCMSCommTestDlg::OnBnClickedBtnsend()
{
//TODO:
}
voidCMSCommTestDlg::OnOncommMscomm1()
{
//TODO:Addyourmessagehandlercodehere
}
void CMSCommTestDlg::OnBnClickedBtnopen()

{

// TODO: Add your control notification handler code here

}

void CMSCommTestDlg::OnBnClickedBtnsend()

{

// TODO: Add your control notification handler code here

}

void CMSCommTestDlg::OnOncommMscomm1()

{

// TODO: Add your message handler code here

}

5、將上面代碼補全如下：

[cpp] view plain print?

voidCMSCommTestDlg::OnClickedBtnopen()
{
//TODO:
//如果埠已經開啟，那麼先關閉
if(m_comm1.get_PortOpen())
{
m_comm1.put_PortOpen(FALSE);
}
m_comm1.put_CommPort(3);//選擇com3，可以根據具體情況更改
m_comm1.put_InBufferSize(1024);//設置輸入緩沖區的大小，Bytes
m_comm1.put_OutBufferSize(1024);//設置輸出緩沖區的大小，Bytes
m_comm1.put_Settings(_T("9600,n,8,1"));//波特率9600，無校驗，8個數據位，停止位1
m_comm1.put_InputMode(1);//1:表示以二進制方式檢索數據
m_comm1.put_RThreshold(1);//參數1表示每當串口接收緩沖區中有多於或等於1個字元時將引發一個接收數據的OnComm事件
m_comm1.put_InputLen(0);//設置當前接收區長度是0
if(!m_comm1.get_PortOpen())
{
m_comm1.put_PortOpen(TRUE);
}
else
{
AfxMessageBox(_T("Cannotopenserialport!"));
}
m_comm1.get_Input();//先預讀緩沖區以清除殘留數據
UpdateData(FALSE);
}
voidCMSCommTestDlg::OnClickedBtnsend()
{
//TODO:
UpdateData(TRUE);
m_comm1.put_Output(COleVariant(m_sTXDATA));//發送數據
}
voidCMSCommTestDlg::OnOncommMscomm1()
{
//TODO:Addyourmessagehandlercodehere
VARIANTvariant_inp;
COleSafeArraysafearray_inp;
LONGlen,k;
BYTErxdata[2048];
CStringstrtemp;
if(m_comm1.get_CommEvent()==2)//事件值為2表示緩沖區內有字元
{
variant_inp=m_comm1.get_Input();//讀緩沖區
safearray_inp=variant_inp;//VARIANT型變數轉換為ColeSafeArray型變數
len=safearray_inp.GetDim();//得到有效數據長度
for(k=0;k<len;k++)
{
safearray_inp.GetElement(&k,rxdata+k);//轉換為BYTE型數組
}
for(k=0;k<len;k++)//將數組轉換為CString型變數
{
BYTEbt=*(char*)(rxdata+k);//字元型
strtemp.Format(_T("%c"),bt);//將字元送入臨時變數strtemp存放
m_sRXDATA+=strtemp;//接收到的數據放到編輯框對應的變數中
}
}
SetDlgItemText(IDC_EDIT_RXDATA,m_sRXDATA);
}

導航:首頁 > 編程語言 > 用mfc實現串口編程

用mfc實現串口編程

與用mfc實現串口編程相關的資料