非正弦交流可測電壓與波形.doc

非正弦交流可測電壓與波形想通過MSCOMM控件向51單片機發(fā)送一串字符，如：“ABCDEFGH”，然后由單片機按原來的順序發(fā)送回來，請求怎么編程實現，謝謝！ With MSComm1 .Setting=19200,n,8,1這里根據你的實際情況設置 If Not(.PortOpen) Then .PortOpen=True .InBufferCount=0 .Output=ABCDEFGH Dim Buf Do DoEvents Buf=Buf & .Input Loop Until InStr(Buf,vbCrLf)0這里的結束控制字符根據你的實際情況設定 Debug.Print 接收到的字符為 & BufEnd With單片機發(fā)送回來就要你單片機端處理了，也可以接收一個來自計算機的命令來識別是否要回傳字符，這要你自己在單片機程序里定義和相應的硬件電路實現。 我是用：mscomm1.output=text1.text text.text=ABCDEFGH用INSTR（）函數能否找到結束字符（呵呵，程序還沒有調試）對了，在Output的內容后也要加上結尾控制字符，不然單片機無法判斷某次傳輸是否結束，這也要根據你單片機程序確定。InStr函數找的是結尾控制字符，這和停止位不是一個概念，這樣計算機就可以知道某次傳輸是否結束，是針對一個數據包，而不象停止位是針對一個字符。 mscomm1.output=text1.text & vbcrlf這樣表達對吧？ 由于溫度巡回檢測儀具有結構簡單、使用方便、測量準確和可靠性好等優(yōu)點，因而，它廣泛應用于工業(yè)溫度測量中。98系列上潤儀表WP-RD溫度巡回檢測儀，能完成溫度顯示、輸出控制、網絡通信等功能。但溫度巡回檢測儀內部存儲容量有限，需要與具有強大數據處理能力和豐富軟件資源的微機組成分布式系統，實現由微機對整個測量過程的溫度數據進行統一的顯示、存儲、打印報表、參數設定和數據的進一步處理，這樣必須實現PC機與溫度巡回檢測儀之間的通信。它們之間的通信可以通過并行通信或串行通信兩種方式實現，由于串行通信自身的長處，現已被廣泛的使用。Borland公司推出的Delphi是一種功能強大的高級編程語言，是新一代可視化開發(fā)工具，具有功能強大、簡便易用和代碼執(zhí)行速度快等特點，特別適用在Windows環(huán)境下圖形界面和用戶程序的編制。本文開發(fā)的溫度智能化巡回檢測系統，使用溫度巡回檢測儀作為下位機采集溫度數據，經過預處理后通過自帶的RS232串行口將數據送給上位機PC。在PC機上Win2000環(huán)境下運行用Delphi和VB的通信控件MSComm編制的實時監(jiān)測系統軟件，接受串行口送來的數據，進行相應的數據處理，在用戶界面上進行實時顯示和設置。2 溫度智能化巡回檢測系統通信協議 溫度巡回檢測儀與PC機之間通過RS232異步串行通信接口通信，波特率為1200bps；字節(jié)數據格式為1位起始位、8位數據位和1位停止位；儀表地址傳送格式為雙字節(jié)、16進制、高字節(jié)在前、低字節(jié)在后，數據傳輸格式為3字節(jié)定點數（3字節(jié)定點數低字節(jié)高4位ASC碼低字節(jié)低4位ASC碼高字節(jié)高4位ASC碼高字節(jié)低4位ASC碼小數點高4位ASC碼小數點低4位ASC碼）；巡檢儀與上位機的數據通信是以“幀”為單位進行的，“”為起始符號。3 MSComm控件的注冊和屬性3.1 MSComm控件的注冊 用Delphi實現串行通信，可用的方法有兩種：(1)使用Windows API；(2)使用在Windows操作系統中注冊的控件。其中調用API函數較為復雜，需要掌握大量通信知識；而利用MSComm控件，程序實現相對簡單，結構清晰，并且該控件具有豐富與串行通信密切相關的屬性和事件，提供對串口的各種操作，使用很方便，因此本實時監(jiān)測系統軟件使用第2種方法。 采用MSComm控件進行串行通信時，必須添加一MSComm控件到窗體中。其具體步驟是將MSComm.ocx拷入winntsystem32下，在Delphi主菜單中的Component，選擇Import ActiveX Control命令，彈出Import ActiveX窗口，選擇Microsoft Comm Control5.0，再選擇Add命令，加上MSComm32.ocx，在窗體中生成了一個MSComm對象，就可自由地設置它的屬性了。3.2 MSComm控件的屬性設置 MSComm控件提供了2種處理通信的方式：事件驅動（實時）方式和查詢方式。由于查詢方式會占用大量的CPU時間，效率很低，所以本程序中使用的是事件驅動方式。 利用MSComm控件控制通信程序，關鍵是準確理解和設置通信控件的屬性。下面對程序中所用到的主要屬性事件加以說明。 (1) CommPort屬性。設置或返回串行端口號，其取值范圍為199，缺省為1； (2) Setting屬性。設置或返回串行端口波特率、奇偶校驗位、數據位、停止位等參數,本系統設置為MSComm.Setting“1200，N,8,1; (3) PortOpen屬性。打開或關閉串行端口，格式為：MSComm.PortOpen=TRUE/FALSE; (4) InputMode屬性。設置從緩沖區(qū)讀取數據格式，本程序中設置為0，表示為字符串格式； (5) Input屬性。從接收緩沖區(qū)讀取數據； (6) Output屬性。向發(fā)送緩沖區(qū)寫入數據； (7) InBufferSize屬性。接收緩沖區(qū)的大小，缺省值為1024B； (8) InBufferCount屬性。接收緩沖區(qū)中接收字節(jié)數； (9) OutBufferSize屬性。發(fā)送緩沖區(qū)的大小，缺省值為512B； (10) OutBufferCount屬性。發(fā)送緩沖區(qū)中待發(fā)送字節(jié)數； (11) Inputlen屬性。設置或返回Input每次讀出的字節(jié)數； (12) Rthreshold屬性。在MSComm控件設置CommEvent屬性為comEvReceive并產生Oncomm前，設置并返回的要接收的字符數，缺省值為0，不產生Oncomm事件； (13) Sthreshold屬性。在MSComm控件設置CommEvent屬性為comEvSend并產生Oncomm前，設置并返回傳輸緩沖區(qū)中允許的最小字符數，缺省值為0，不產生Oncomm事件； (14) CommEvent屬性。串口事件或錯誤。VB如何向串口發(fā)送十六進制數VB如何向串口發(fā)送十六進制數用VB編程想把兩個十六進制數按順序從232串口發(fā)送到單片機01h和cch,試了多種方法都不成功,程序不出錯,但單片機就是沒有反應,設置沒問題單片機本身也沒問題.我想，可能還是我對那個串口發(fā)送十六進制數不熟悉，請各位大蝦幫忙，謝謝，晨曦) 一級(初級) 我想可以這樣：大概過程是這樣，先把MSCOMM控件設置成二進制模式，然后再發(fā)送，代碼如下MSComm1.CommPort = 1MSComm1.RThreshold = 1MSComm1.InputMode = comInputModeBinaryMSComm1.PortOpen = Truedim v(1) as bytev(0)=&h1v(1)=&hccMSComm1.output=v這樣應該可以！ 回復人(馮大狂)代碼如下：Private Sub Form_Load()初始化串口With MSComm1.InputMode = 1 設置接受數據的類型是二進制類型數據.InputLen = 8 一次性從接收緩沖區(qū)中讀取所有數據(8個字節(jié)為一組！).InBufferCount = 0 清空接收緩沖區(qū).OutBufferCount = 0 清空發(fā)送緩沖區(qū).SThreshold = 0 不觸發(fā)OnComm()事件.RThreshold = 1 接收1個字節(jié)數據觸發(fā)OnComm()事件.Settings = 9600,N,8,1.CommPort = 1.PortOpen = TrueEnd WithEnd Sub然后在按鈕1中：Private Sub Command1_Click()Dim Data(1) as ByteData(0)= &H1Data(1)=&HCC以上兩個就是你要發(fā)送的數據下面這一句就發(fā)給單片機了MsComm1.Oupput = DataEnd Sub至于對于單片機的反應操作則