要實現(xiàn)你的功能,至少需要滿足以下條件:
公司主營業(yè)務:成都網(wǎng)站制作、做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)建站是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)建站推出市南免費做網(wǎng)站回饋大家。
1、你的電腦和下位機都必須具備可使用的串口,并且串口的通訊速率、數(shù)據(jù)位、起始位、結束位等參數(shù)設置一致。這些參數(shù)在VB中使用Comm串口控件或者VB.NET中使用串口類時都可以設置。
2、在VB程序中讀取你要傳送的文本文件,并按字節(jié)按順序打包成字符串或者字節(jié)數(shù)組的形式。此處建議最好在打包好的數(shù)據(jù)前后加特定的報頭和報尾,以及校驗和,以確保下位機能正確接收有效數(shù)據(jù),并重組文件。在確保下位機處在接收狀態(tài)后,通過串口進行發(fā)送。
3、下位機始終處在接收狀態(tài),接收到報頭即開始記錄文件內容,直至接收到報尾,并用校驗和校驗文件的正確性。
說明:
串行通訊是按位傳送的一種通訊方式,發(fā)送和接收方需要同樣的通訊速率等參數(shù),以及對應的數(shù)據(jù)打包接解包方式。其實USB也是一種串行通訊方式,原理和串口一樣,只不過通訊速率更高。
了解通訊機理,采用合適的方式,串口當然可以傳送文本文件,如果你愿意,不在意傳輸?shù)臅r間和效率,理論上什么類型和大小的文件都可以傳送,只要你的下位機有足夠的數(shù)據(jù)存儲區(qū)來存放這些文件。
另外,U盤數(shù)據(jù)拷貝實際上就是通過USB進行串行數(shù)據(jù)通訊,其原理也是使用我上面提到的方法,只不過作為通用的標準,數(shù)據(jù)打包解包等過程被封裝在USB的驅動程序里了。
n = SerialPort1.BytesToRead '讀取字節(jié)數(shù) If n 0 Then '若字節(jié)數(shù)大于0.則執(zhí)行以下操作
ReDim rc(n) '重新定義rc的長度,(之前有定義過)
strrc = 0 '變量類型為字符串(string),一開始使它為0
For i = 1 To n
rc(i) = SerialPort1.ReadByte ‘讀取數(shù)據(jù)
strrc += CStr(Hex(rc(i))) '這里Hex 函數(shù) 返回表示數(shù)的十六進制值的字符串
'CStr 函數(shù) 返回已被轉換為字符串子類型的變體的表達式。
Next
TextBox1.Text = strrc '將strrc的值付給TextBox1.Text即可
End If
串口API通信函數(shù)編程
16位串口應用程序中,使用的16位的Windows API通信函數(shù):
①OpenComm()打開串口資源,并指定輸入、輸出緩沖區(qū)的大?。ㄒ宰止?jié)計)
CloseComm() 關閉串口;
例:int idComDev;
idComDev = OpenComm("COM1", 1024, 128);
CloseComm(idComDev);
②BuildCommDCB() 、setCommState()填寫設備控制塊DCB,然后對已打開的串口進行參數(shù)配置; 例:DCB dcb;
BuildCommDCB("COM1:2400,n,8,1", dcb);
SetCommState(dcb);
③ ReadComm 、WriteComm()對串口進行讀寫操作,即數(shù)據(jù)的接收和發(fā)送.
例:char *m_pRecieve; int count;
ReadComm(idComDev,m_pRecieve,count);
Char wr[30]; int count2;
WriteComm(idComDev,wr,count2);
16位下的串口通信程序最大的特點就在于:串口等外部設備的操作有自己特有的API函數(shù);而32位程序則把串口操作(以及并口等)和文件操作統(tǒng)一起來了,使用類似的操作。
在MFC下的32位串口應用程序
32位下串口通信程序可以用兩種方法實現(xiàn):利用ActiveX控件;使用API 通信函數(shù)。
使用ActiveX控件,程序實現(xiàn)非常簡單,結構清晰,缺點是欠靈活;使用API 通信函數(shù)的優(yōu)缺點則基本上相反。
使用ActiveX控件:
VC++ 6.0提供的MSComm控件通過串行端口發(fā)送和接收數(shù)據(jù),為應用程序提供串行通信功能。使用非常方便,但可惜的是,很少有介紹MSComm控件的資料。
⑴.在當前的Workspace中插入MSComm控件。
Project菜單------Add to Project----Components and Controls-----Registered
ActiveX Controls---選擇Components: Microsoft Communications Control,
version 6.0 插入到當前的Workspace中。
結果添加了類CMSComm(及相應文件:mscomm.h和mscomm.cpp )。
⑵.在MainFrm.h中加入MSComm控件。
protected:
CMSComm m_ComPort;
在Mainfrm.cpp::OnCreare()中:
DWORD style=WS_VISIBLE|WS_CHILD;
if (!m_ComPort.Create(NULL,style,CRect(0,0,0,0),this,ID_COMMCTRL)){
TRACE0("Failed to create OLE Communications Control\n");
return -1; // fail to create
}
⑶.初始化串口
m_ComPort.SetCommPort(1); //選擇COM?
m_ComPort. SetInBufferSize(1024); //設置輸入緩沖區(qū)的大小,Bytes
m_ComPort. SetOutBufferSize(512); //設置輸入緩沖區(qū)的大小,Bytes//
if(!m_ComPort.GetPortOpen()) //打開串口
m_ComPort.SetPortOpen(TRUE);
m_ComPort.SetInputMode(1); //設置輸入方式為二進制方式
m_ComPort.SetSettings("9600,n,8,1"); //設置波特率等參數(shù)
m_ComPort.SetRThreshold(1); //為1表示有一個字符引發(fā)一個事件
m_ComPort.SetInputLen(0);
⑷.捕捉串口事項。MSComm控件可以采用輪詢或事件驅動的方法從端口獲取數(shù)據(jù)。我們介紹比較使用的事件驅動方法:有事件(如接收到數(shù)據(jù))時通知程序。在程序中需要捕獲并處理這些通訊事件。
在MainFrm.h中:
protected:
afx_msg void OnCommMscomm();
DECLARE_EVENTSINK_MAP()
在MainFrm.cpp中:
BEGIN_EVENTSINK_MAP(CMainFrame,CFrameWnd )
ON_EVENT(CMainFrame,ID_COMMCTRL,1,OnCommMscomm,VTS_NONE) //映射ActiveX控件事件
END_EVENTSINK_MAP()
⑸.串口讀寫. 完成讀寫的函數(shù)的確很簡單,GetInput()和SetOutput()就可。兩個函數(shù)的原型是:
VARIANT GetInput();及 void SetOutput(const VARIANT newValue);都要使用VARIANT類型(所有Idispatch::Invoke的參數(shù)和返回值在內部都是作為VARIANT對象處理的)。
無論是在PC機讀取上傳數(shù)據(jù)時還是在PC機發(fā)送下行命令時,我們都習慣于使用字符串的形式(也可以說是數(shù)組形式)。查閱VARIANT文檔知道,可以用BSTR表示字符串,但遺憾的是所有的BSTR都是包含寬字符,即使我們沒有定義_UNICODE_UNICODE也是這樣! WinNT支持寬字符, 而Win95并不支持。為解決上述問題,我們在實際工作中使用CbyteArray,給出相應的部分程序如下:
void CMainFrame::OnCommMscomm(){
VARIANT vResponse; int k;
if(m_commCtrl.GetCommEvent()==2) {
k=m_commCtrl.GetInBufferCount(); //接收到的字符數(shù)目
if(k0) {
vResponse=m_commCtrl.GetInput(); //read
SaveData(k,(unsigned char*) vResponse.parray-pvData);
} // 接收到字符,MSComm控件發(fā)送事件 }
。。。。。 // 處理其他MSComm控件
}
void CMainFrame::OnCommSend() {
。。。。。。。。 // 準備需要發(fā)送的命令,放在TxData[]中
CByteArray array;
array.RemoveAll();
array.SetSize(Count);
for(i=0;iCount;i++)
array.SetAt(i, TxData[i]);
m_ComPort.SetOutput(COleVariant(array)); // 發(fā)送數(shù)據(jù) }
二 使用32位的API 通信函數(shù):
⑴.在中MainFrm.cpp定義全局變量
HANDLE hCom; // 準備打開的串口的句柄
HANDLE hCommWatchThread ;//輔助線程的全局函數(shù)
⑵.打開串口,設置串口
hCom =CreateFile( "COM2", GENERIC_READ | GENERIC_WRITE, // 允許讀寫
0, // 此項必須為0
NULL, // no security attrs
OPEN_EXISTING, //設置產生方式
FILE_FLAG_OVERLAPPED, // 我們準備使用異步通信
NULL );
我使用了FILE_FLAG_OVERLAPPED結構。這正是使用API實現(xiàn)非阻塞通信的關鍵所在。
ASSERT(hCom!=INVALID_HANDLE_VALUE); //檢測打開串口操作是否成功
SetCommMask(hCom, EV_RXCHAR|EV_TXEMPTY );//設置事件驅動的類型
SetupComm( hCom, 1024,512) ; //設置輸入、輸出緩沖區(qū)的大小
PurgeComm( hCom, PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR
| PURGE_RXCLEAR ); //清干凈輸入、輸出緩沖區(qū)
COMMTIMEOUTS CommTimeOuts ; //定義超時結構,并填寫該結構
…………
SetCommTimeouts( hCom, CommTimeOuts ) ;//設置讀寫操作所允許的超時
DCB dcb ; // 定義數(shù)據(jù)控制塊結構
GetCommState(hCom, dcb ) ; //讀串口原來的參數(shù)設置
dcb.BaudRate =9600; dcb.ByteSize =8; dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT ;dcb.fBinary = TRUE ;dcb.fParity = FALSE;
SetCommState(hCom, dcb ) ; //串口參數(shù)配置
上述的COMMTIMEOUTS結構和DCB都很重要,實際工作中需要仔細選擇參數(shù)。
⑶啟動一個輔助線程,用于串口事件的處理。
Windows提供了兩種線程,輔助線程和用戶界面線程。輔助線程沒有窗口,所以它沒有自己的消息循環(huán)。但是輔助線程很容易編程,通常也很有用。
在次,我們使用輔助線程。主要用它來監(jiān)視串口狀態(tài),看有無數(shù)據(jù)到達、通信有無錯誤;而主線程則可專心進行數(shù)據(jù)處理、提供友好的用戶界面等重要的工作。
hCommWatchThread=
CreateThread( (LPSECURITY_ATTRIBUTES) NULL, //安全屬性
0,//初始化線程棧的大小,缺省為與主線程大小相同
(LPTHREAD_START_ROUTINE)CommWatchProc, //線程的全局函數(shù)
GetSafeHwnd(), //此處傳入了主框架的句柄
0, dwThreadID );
ASSERT(hCommWatchThread!=NULL);
⑷為輔助線程寫一個全局函數(shù),主要完成數(shù)據(jù)接收的工作。請注意OVERLAPPED結構的使用,以及怎樣實現(xiàn)了非阻塞通信。
UINT CommWatchProc(HWND hSendWnd){
DWORD dwEvtMask=0 ;
SetCommMask( hCom, EV_RXCHAR|EV_TXEMPTY );//有哪些串口事件需要監(jiān)視?
WaitCommEvent( hCom, dwEvtMask, os );// 等待串口通信事件的發(fā)生
檢測返回的dwEvtMask,知道發(fā)生了什么串口事件:
if ((dwEvtMask EV_RXCHAR) == EV_RXCHAR){ // 緩沖區(qū)中有數(shù)據(jù)到達
COMSTAT ComStat ; DWORD dwLength;
ClearCommError(hCom, dwErrorFlags, ComStat ) ;
dwLength = ComStat.cbInQue ; //輸入緩沖區(qū)有多少數(shù)據(jù)?
if (dwLength 0) { BOOL fReadStat ;
fReadStat = ReadFile( hCom, lpBuffer,dwLength, dwBytesRead,READ_OS( npTTYInfo ) ); //讀數(shù)據(jù)
注:我們在CreareFile()時使用了FILE_FLAG_OVERLAPPED,現(xiàn)在ReadFile()也必須使用
LPOVERLAPPED結構.否則,函數(shù)會不正確地報告讀操作已完成了.
使用LPOVERLAPPED結構, ReadFile()立即返回,不必等待讀操作完成,實現(xiàn)非阻塞
通信.此時, ReadFile()返回FALSE, GetLastError()返回ERROR_IO_PENDING.
if (!fReadStat){
if (GetLastError() == ERROR_IO_PENDING){
while(!GetOverlappedResult(hCom,READ_OS( npTTYInfo ), dwBytesRead, TRUE )){
dwError = GetLastError();
if(dwError == ERROR_IO_INCOMPLETE) continue;//緩沖區(qū)數(shù)據(jù)沒有讀完,繼續(xù)
…… ……
::PostMessage((HWND)hSendWnd,WM_NOTIFYPROCESS,0,0);//通知主線程,串口收到數(shù)據(jù)}
所謂的非阻塞通信,也即異步通信。是指在進行需要花費大量時間的數(shù)據(jù)讀寫操作(不僅僅是指串行通信操作)時,一旦調用ReadFile()、WriteFile(), 就能立即返回,而讓實際的讀寫操作在后臺運行;相反,如使用阻塞通信,則必須在讀或寫操作全部完成后才能返回。由于操作可能需要任意長的時間才能完成,于是問題就出現(xiàn)了。
非常阻塞操作還允許讀、寫操作能同時進行(即重疊操作?),在實際工作中非常有用。
要使用非阻塞通信,首先在CreateFile()時必須使用FILE_FLAG_OVERLAPPED;然后在 ReadFile()時lpOverlapped參數(shù)一定不能為NULL,接著檢查函數(shù)調用的返回值,調用GetLastError(),看是否返回ERROR_IO_PENDING。如是,最后調用GetOverlappedResult()返回重疊操作(overlapped operation)的結果;WriteFile()的使用類似。
⑸.在主線程中發(fā)送下行命令。
BOOL fWriteStat ; char szBuffer[count];
…………//準備好發(fā)送的數(shù)據(jù),放在szBuffer[]中
fWriteStat = WriteFile(hCom, szBuffer, dwBytesToWrite,
dwBytesWritten, WRITE_OS( npTTYInfo ) ); //寫數(shù)據(jù)
//我在CreareFile()時使用了FILE_FLAG_OVERLAPPED,現(xiàn)在WriteFile()也必須使用LPOVERLAPPED結構.否則,函數(shù)會不正確地報告寫操作已完成了.
使用LPOVERLAPPED結構,WriteFile()立即返回,不必等待寫操作完成,實現(xiàn)非阻塞 通信.此時, WriteFile()返回FALSE, GetLastError()返回ERROR_IO_PENDING.
int err=GetLastError();
if (!fWriteStat) {
if(GetLastError() == ERROR_IO_PENDING){
while(!GetOverlappedResult(hCom, WRITE_OS( npTTYInfo ),
dwBytesWritten, TRUE )) {
dwError = GetLastError();
if(dwError == ERROR_IO_INCOMPLETE){// normal result if not finished
dwBytesSent += dwBytesWritten; continue; }
......................
//我使用了多線程技術,在輔助線程中監(jiān)視串口,有數(shù)據(jù)到達時依靠事件驅動,讀入數(shù)據(jù)并向主線程報告(發(fā)送數(shù)據(jù)在主線程中,相對說來,下行命令的數(shù)據(jù)總是少得多);并且,WaitCommEvent()、ReadFile()、WriteFile()都使用了非阻塞通信技術,依靠重疊(overlapped)讀寫操作,讓串口讀寫操作在后臺運行。
要用委托的形式(界面上拖一個txt_Rect文本框)
Delegate?Sub?SetTextCallback(ByVal?InputString?As?String)
Private?Sub?ShowString(ByVal?comData?As?String)
txt_Rect.Text?+=?comData???'將收到的數(shù)據(jù)入接收文字框中
txt_Rect.SelectionStart?=?txt_Rect.Text.Length
txt_Rect.ScrollToCaret()
End?Sub
Private?Sub?SerialPort1_DataReceived(ByVal?sender?As?Object,?ByVal?e?As?System.IO.Ports.SerialDataReceivedEventArgs)?Handles?SerialPort1.DataReceived
Dim?inData?As?String?=?SerialPort1.ReadExisting
Dim?d?As?New?SetTextCallback(AddressOf?ShowString)
BeginInvoke(d,?inData)
End?Sub
本文題目:vb.net下的串行控件 如何在vb編程環(huán)境中添加串口控件
文章源于:http://bm7419.com/article26/dohjjcg.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站制作、、微信小程序、網(wǎng)頁設計公司、App開發(fā)、服務器托管
聲明:本網(wǎng)站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)