【正文】 Box 串口不存在或者被占用!, vbOKOnly, 提示信息End Sub39。 = * If = xhdn And = fyr Then Else MsgBox 請(qǐng)輸入正確的用戶(hù)名和密碼!, vbOKOnly, 錯(cuò)誤信息 End IfEnd SubPrivate Sub Command2_Click() = = End SubPrivate Sub Form_Load() = = = * 39。界面設(shè)計(jì)比較簡(jiǎn)單，及控件的屬性設(shè)置較為復(fù)雜，還有就是程序與RS232之間的通訊比較難實(shí)現(xiàn)，必須要求代碼的準(zhǔn)確無(wú)誤。 _ amp。(1) = Time 的作用是將系統(tǒng)時(shí)間寫(xiě)入數(shù)據(jù)庫(kù)中。 Hex(BytReceived(i))的作用是將BytReceived(i)轉(zhuǎn)換為16進(jìn)制數(shù)，如果只有一位數(shù)則在前面添0，并將它賦給strData這個(gè)數(shù)組中，代碼ElsestrData = strData amp。（2）命令按鈕的名稱(chēng)為dqcmd，代碼If = 自動(dòng)讀取 的作用是如果按鈕的caption屬性是“自動(dòng)讀取”，代碼 Then = 暫停讀取 的作用是單擊該按鈕后名稱(chēng)為dqcmd的命令按鈕的caption屬性變?yōu)?“暫停讀取”。高位和低位不真正的檢查數(shù)據(jù)，簡(jiǎn)單置位邏輯高或者邏輯低校驗(yàn)。比如，標(biāo)準(zhǔn)的ASCII碼是0～127（7位）。典型地，串口用于ASCII碼字符的傳輸。 、的命令按鈕控件和的時(shí)鐘控件。 RS232串口圖 數(shù)據(jù)顯示模塊 主要是通過(guò)Visual Basic軟件處理RS232串口傳來(lái)的數(shù)據(jù)，并在Visual Basic的界面中顯示數(shù)據(jù)。最后智能電表可以通過(guò)加加密防止用戶(hù)竊電，安全性更高?？梢?jiàn)我國(guó)的智能電表設(shè)計(jì)研究還有很大的潛力空間，智能電表在網(wǎng)絡(luò)化、智能化、多功能化等方面還需要我們繼續(xù)深入研究。產(chǎn)品具有可編程功能、DC4～20mA模擬量輸出、RS232串行口和開(kāi)關(guān)量輸出等功能，可以實(shí)現(xiàn)與監(jiān)控系統(tǒng)的聯(lián)網(wǎng)或數(shù)據(jù)的遠(yuǎn)程傳輸?shù)裙δ?。?007年12月初，國(guó)家發(fā)改委發(fā)布了《多功能電能表》和《多功能電能表通信協(xié)議》兩個(gè)行業(yè)標(biāo)準(zhǔn)，2009年10月，國(guó)家電網(wǎng)公司公布了智能電表新標(biāo)準(zhǔn)，提高了電表在計(jì)量、費(fèi)控、通信、功耗、電子線路布線等技術(shù)指標(biāo)，含有MCU成為必選項(xiàng)，要求有更高的計(jì)算能力。，它由四部分組成:控制部分主芯片采用單片機(jī)STC89C52和RS232串口；VB顯示界面；實(shí)時(shí)數(shù)據(jù)顯示傳輸；歷史數(shù)據(jù)查詢(xún)?！　S232C標(biāo)準(zhǔn)規(guī)定的數(shù)據(jù)傳輸速率為50、7100、150、300、600、1200、2400、4800、9600、19200、38400波特。添加組合框控件Combo1，并將其text屬性設(shè)置為COM1,并將其list屬性值設(shè)置為COMCOMCOMCOMCOM5，以便串口的選擇。盡管比按字節(jié)（byte）的并行通信慢，但是串口可以在使用一根線發(fā)送數(shù)據(jù)的同時(shí)用另一根線接收數(shù)據(jù)。 b，數(shù)據(jù)位：這是衡量通信中實(shí)際數(shù)據(jù)位的參數(shù)。對(duì)于偶和奇校驗(yàn)的情況，串口會(huì)設(shè)置校驗(yàn)位（數(shù)據(jù)位后面的一位），用一個(gè)值確保傳輸?shù)臄?shù)據(jù)有偶個(gè)或者奇?zhèn)€邏輯高位。代碼 = 自動(dòng)讀取 的作用是按鈕的caption屬性變?yōu)?“自動(dòng)讀取” = False End If Exit Sub的作用是按鈕變?yōu)椴豢捎茫Y(jié)束If語(yǔ)句和退出Sub過(guò)程。代碼Dim m1 As Single的作用是設(shè)置m1是單精度類(lèi)型的變量，代碼Select Case ，代碼Case EventRxOver Exit Sub的作用是如果檢測(cè)到EventRxOver事件就退出Sub過(guò)程。 (1)其中的代碼If = False Then的作用是在數(shù)據(jù)庫(kù)的末尾加入新記錄。 [DateTo] DateTime。 外接程序》可視化》文件》打開(kāi)數(shù)據(jù)庫(kù)》Microsoft Access》My 》打開(kāi)。同時(shí)這次課程設(shè)計(jì)大大提高了我的動(dòng)手能力，為我以后的工作和學(xué)習(xí)奠定了基礎(chǔ)，在以后的生活中我也可以用我所學(xué)的知識(shí)和對(duì)芯片功能的了解來(lái)設(shè)計(jì)一些日常生活所需的電子產(chǎn)品。打開(kāi)串口部分39。=====================================================Private Sub dqcmd_Click() If = 自動(dòng)讀取 Then = 暫停讀取 = amp。A有功 (7) = Val() 39。顯示歷史數(shù)據(jù)查詢(xún)窗口39。=================================================39。C電流 (18) = Val() 39。系統(tǒng)日期 (1) = Time 39。dn取“電能”之意 ElseIf flag = 1F Then flag = dn = AQ ElseIf flag = 2F Then flag = dn = ASZ ElseIf flag = 3F Then flag = dn = BP ElseIf flag = 4F Then flag = dn = BQ ElseIf flag = 5F Then flag = dn = BSZ ElseIf flag = 6F Then flag = dn = CP ElseIf flag = 7F Then flag = dn = CQ ElseIf flag = 8F Then flag = dn = CSZ ElseIf flag = 0E Then flag = cs = AV 39。!zhuyi = jkh = 60000 39。 通過(guò)這次課程設(shè)計(jì)，讓我對(duì)單片機(jī)以及RS232串口，及vb程序語(yǔ)言有了進(jìn)一步的了解、鞏固和加深，并且對(duì)所學(xué)知識(shí)的得以實(shí)際應(yīng)用。(DateFrom) = strDateFrom (DateTo) = strDateTo 的作用是起始日期顯示。(10) = Val()的作用是將C相有功寫(xiě)入數(shù)據(jù)庫(kù)中。代碼Select Case gl Case AP = findata Case AQ = findataCase ASZ = findata Case BP = findata Case BQ = findata Case BSZ = findata Case CP = findata Case CQ = findata Case CSZ = findata End Select的作用是把電功在對(duì)應(yīng)的文本框中顯示。 = C:\fyr\My = jkh的作用是在C盤(pán)創(chuàng)建一個(gè)文件夾以便保存數(shù)據(jù)。（1）按鈕的名稱(chēng)為ckcmd，代碼If = 打開(kāi)串口 的作用是：如果的caption屬性是“打開(kāi)串口”，代碼Then = True的作用是打開(kāi)相應(yīng)的RS232串口，代碼 = 關(guān)閉串口的作用是名稱(chēng)為ckcmd的按鈕的caption屬性變?yōu)椤瓣P(guān)閉串口”，代碼 = amp。由于數(shù)據(jù)是在傳輸線上定時(shí)的，并且每一個(gè)設(shè)備有其自己的時(shí)鐘，很可能在通信中兩臺(tái)設(shè)備間出現(xiàn)了小小的不同步。例如300波特表示每秒鐘發(fā)送300個(gè)bit。整個(gè)操作過(guò)程非常簡(jiǎn)單便捷。其中由Lable2組成，并設(shè)置它的AutoSize屬性為T(mén)rue，一邊字體的大小適應(yīng)Lable2的大小，并修改Lable2的Caption屬性為Copyright（c）fyr 2013,這樣Lable2的設(shè)計(jì)就完成了，再將Form1的Caption屬性設(shè)置為“登陸”，這樣登陸窗體的第一個(gè)界面就完成了?！? AT89C52有40個(gè)引腳，32個(gè)外部雙向輸入/輸出（I/O）端口，同時(shí)內(nèi)含2個(gè)外中斷口，3個(gè)16位可編程定時(shí)計(jì)數(shù)器,2個(gè)全雙工串行通信口，2個(gè)讀寫(xiě)口線，AT89C52可以按照常規(guī)方法進(jìn)行編程,但不可以在線編程(S系列的才支持在線編程)。智能電表是指具有多功能化、智能化、網(wǎng)絡(luò)化等功能的新式電表，是智能電網(wǎng)的基本設(shè)備之一，承擔(dān)著原始電能數(shù)據(jù)采集、計(jì)量和傳輸?shù)娜蝿?wù)。電壓、電流轉(zhuǎn)換后的數(shù)字量和功率因數(shù)值傳輸給CPU處理器，根據(jù)三相功率、三相能量等電參數(shù)的計(jì)算公式計(jì)算相應(yīng)的各個(gè)電參數(shù)，并對(duì)計(jì)算數(shù)據(jù)做相應(yīng)處理。 AT89C52是一款超強(qiáng)抗干擾/高速/低功耗的單片機(jī)，AT89C52是一個(gè)低電壓，高性能CMOS 8位單片機(jī)，片內(nèi)含8k bytes的可反復(fù)擦寫(xiě)的Flash只讀程序存儲(chǔ)器和256 bytes的隨機(jī)存取數(shù)據(jù)存儲(chǔ)器（RAM），器件采用ATMEL公司的高密度、非易失性存儲(chǔ)技術(shù)生產(chǎn)，兼容標(biāo)準(zhǔn)MCS51指令系統(tǒng)，片內(nèi)置通用8位中央處理器和Flash存儲(chǔ)單元，功能強(qiáng)大的AT89C52單片機(jī)可為您提供許多較復(fù)雜系統(tǒng)控制應(yīng)用場(chǎng)合。其中為時(shí)鐘控件，它的