【文章內(nèi)容簡介】 移動 100各單位的距離。 If = () Then = 5070 End If 這三句代碼的作用是當 全部移動到圖片框外時，它距離圖片框左邊的距離為 5070 個 單 位 ， 以 便控件能夠在圖片框中滾動顯示。 = – 100 If = () Then = 5070 End If 這部分代碼的作用與前一部分代碼的功能類似， 代碼的作用是為了讓兩個標簽中的“歡迎進入西華大學電能管理 中心！”的字體循環(huán)顯示。 實時數(shù)據(jù)顯示界面的軟件代碼設(shè)計原理 圖 實時數(shù)據(jù)顯示界面中的 按鈕和 按鈕與需要設(shè)置代碼，還有窗體的 form load 事件需要代碼， 控件 西華大學課程設(shè)計說明書 第 13 頁 需要代碼， 該通訊控件需要代碼。（ 1） 按鈕的名稱為 ckcmd，代碼 If = 打開串口 的作用是：如果 的 caption 屬性是“打開串口”，代碼 Then = True 的作用是打開相應(yīng)的 RS232 串口，代碼 = 關(guān)閉串口 的作 用是名稱為 ckcmd 的按鈕的 caption 屬性變?yōu)椤瓣P(guān)閉串口”，代碼 = amp。HFFamp。的作用是將 shape 控件的顏色變?yōu)榧t色，代碼 = False 的作用是組合框不可用， 代碼 = True 的作用是 按鈕變?yōu)榭捎谩４a Else = 打開串口 的作用是： 如果名稱為 ckcmd 按鈕的 caption 屬性是“關(guān)閉串口”單擊該命令按鈕之后 ckcmd 的按鈕 caption 屬性變?yōu)椤按蜷_串口”，代碼 = False 的作用是：單擊命令按鈕后，關(guān)閉相應(yīng)的串口。代碼 = True 的作用是組合框 可用，可以選擇相應(yīng)的串口。代碼 = 0 = 0 的作 用 是 兩個 圖像 框 均變 為 黑色 ， 以顯 示現(xiàn) 在 未從 串 口中 讀取 數(shù) 據(jù)。 代 碼 = 自動讀取 的作用是 按鈕的 caption 屬性變?yōu)? “ 自動讀取”代碼 = False End If Exit Sub 的作用是按鈕變?yōu)椴豢捎?，結(jié)束 If 語句和退出 Sub 過程。代碼 On Error GoTo BLAK 的作用是：如果出錯就跳到名稱為 BLAK 的子程序。代碼 BLAK: MsgBox 串口不存在或者被占用 !, vbOKOnly, 提示信息 的作用是如果出錯就用 MsgBox 顯示相應(yīng)的提示信息。如圖 所示。（ 2） 命令按鈕的名稱為 dqcmd，代碼 If = 自動讀取 的作用是如果 按鈕的 caption 屬性是“自動讀取”，代碼 Then = 暫停讀取 的作用是單擊該按鈕后名稱為 dqcmd 的命令按鈕的caption 屬性變?yōu)? “暫停讀取”。代碼 = amp。HFFamp。 的作用是 shape2的顏色變?yōu)榧t色，代碼 = True 的作用是 timer1 不可用，代碼 Else 西華大學課程設(shè)計說明書 第 14 頁 圖 登錄界面 圖 實時數(shù)據(jù)顯示界面 (1) 西華大學課程設(shè)計說明書 第 15 頁 圖 錯誤提示界面 圖 實時數(shù)據(jù)顯示界面 (2) 化 SSTab1 控件的 高度、寬度等參數(shù)。代碼 = 9600,n,8,1 的作用是：設(shè)置初始化參數(shù)，設(shè)置 RS232 的波特率等，代碼 = 0 的 作 用 是清 空 從 接收 緩 存器 中 讀到 的 字符 。 代 碼 = 1000 = False 的作用是設(shè)置 Timer1 的 Interval 屬性為 1s。代碼 = False 的 作 用 是 最 開始 按鈕不可用。代碼 = C:\fyr\My = jkh 西華大學課程設(shè)計說明書 第 16 頁 的作用是在 C 盤創(chuàng)建一個文件夾以便保存數(shù)據(jù)。 代碼 = 60000 的作用是設(shè)置數(shù)據(jù)庫采樣周期為 6秒。代碼 = = = = = = = = = = = = = = = = 的作用是在 form load 事件中將這 16 個文本框清空。代碼 End Sub 的作用是結(jié)束 form load 這個事件過程。（ 5） ， 該 組 合 框 按 鈕 的 名 稱 是 Combo1 ， 代 碼 = + 1 的作用是：單擊組合框打開相應(yīng)的串口。（ 6） 它為通訊控件，它能實現(xiàn)單片機與上位機之間的通訊。代碼 Dim m1 As Single 的作用是設(shè)置 m1是單精度類型的變量，代碼 Select Case 的作用是控件 MSComm1 的CommEvent 事件，代碼 Case EventRxOver Exit Sub 的作用是如果檢測到EventRxOver 事件就退出 Sub 過程。代碼 Case EvReceive BytReceived = 的作用是 MSComm1 控件的 EvReceive 事件，將接受到的數(shù)據(jù)放到BytReceived（）變量中，代碼 For i = 0 To UBound(BytReceived)的作用是 for 循環(huán)從 0 開始到 BytReceived 的上限，代碼 If Len(Hex(BytReceived(i))) = 1 Then strData = strData amp。 0 amp。 Hex(BytReceived(i))的作用是將 BytReceived(i)轉(zhuǎn)換為16 進制數(shù)，如果只有一位 數(shù)則在前面添 0，并將它賦給 strData 這個數(shù)組中，代碼 Else strData = strData amp。 Hex(BytReceived(i))的作用是：否則，直接將 BytReceived(i)賦給變量 strData 中，代碼 End If flag = strData 的作用是：結(jié)束 if語句，將 strData 賦給變量 flag，代碼 If Len(flag) = 2 Then 的意思是：如果 flag 的長度是 2，代碼If flag = F0 Or F1 Or F2 Or F3 Or F4 Or F5 Or F6 Or F7 Or F8 Then flag = Else strData = flag = End If End IF 的作用是設(shè)置F0,F1,F1,F3,F4,F5,F6,F7,F8 為標志位，如果檢測到標志位則將 flag 清空，如果沒有檢測到標志位，則將 flag 和 ctrData 均清空。代碼 If Len(flag) = 10 Then flag = Mid(flag, 9, 2)的作用是如果 flag的長度是 10，則取 flag的后兩位賦給新的變量 flag， 代碼的 If flag = 0F Then flag = gl = AP ElseIf flag = 1F Then flag = gl = AQ ElseIf flag = 2F Then flag = gl = ASZ ElseIf flag = 3F Then flag = gl = BP ElseIf flag = 4F Then flag = gl = BQ ElseIf flag = 5F Then flag = gl = BSZ ElseIf flag = 6F Then flag = gl = CP ElseIf flag = 7F Then flag = gl = CQ ElseIf flag = 8F Then flag = gl = CSZ這部分代碼的作用是根據(jù)需要將 A、 B、 C三相的有功，無功和視在電功放在相應(yīng)的變量中。代碼 newdata = Mid(strData, 3, 6) strData 西華大學課程設(shè)計說明書 第 17 頁 = End If 的作用是將 strData 的 3至 6 位賦值給變量 newdata 中。代碼 findata = Val(amp。H amp。 newdata)的作用是將 newdata 轉(zhuǎn)化為 16 進制數(shù)賦給 findata 中。代碼 Select Case gl Case AP = findata Case AQ = findata Case ASZ = findata Case BP = findata Case BQ = findata Case BSZ = findata Case CP = findata Case CQ = findata Case CSZ = findata End Select 的作用是把電功在對應(yīng)的文本框中顯示。代碼 = + + 的作用是在 text13 中顯示總的有功，代碼 = + + 的作用是在 text14 中顯示總的無功，代碼 = + + 的作用是在 text15 中顯示總的視在電功。代碼 = / 的作用是在 text4 中顯示 A相功率因素，代碼 = / 的作用是在 text8 中顯示 B相功率因素，代碼 = / 的作用是在 text12 總顯示 C相功率因素。代碼 = / 的作用是在 text16中顯示總的功率因素，代碼 Nexti End Select End Sub 的作用是結(jié)束 select 語句，結(jié)束 sub 過程。以上便是整個實時數(shù)據(jù)界面的軟件代碼的設(shè)計的詳細解釋與說明，沒有任何的語法錯誤。 歷史數(shù)據(jù)顯示界面的軟件代碼設(shè)計原理 歷史數(shù)據(jù)顯示界面如圖 所示，其中 和 需要設(shè)計 代碼。 西華大學課程設(shè)計說明書 第 18 頁 圖 歷史數(shù)據(jù)顯示界面 (1)其中 的代碼 If = False Then 的作用是在數(shù)據(jù)庫的末尾加入新記錄。代碼 End If 的作用是加入新記錄。代碼 (0) = Date 的作用是添加系統(tǒng)日期。代碼 (1) = Time 的作用是將系統(tǒng)時間寫入數(shù)據(jù)庫中。代碼 (2) = Val() 的作用是將總有功寫入數(shù)據(jù)庫中。代碼 (3) = Val() 的作用是將總無功寫入數(shù)據(jù)庫中。代碼(4) = Val()的作用是將總視在電功寫入數(shù)據(jù)庫中。代碼 (5) = Val() 的作用是將總功率因數(shù)寫入數(shù)據(jù)庫中。代碼 (6) = Val()的作用是將 A 有功寫入數(shù)據(jù)庫中，代碼 (7) = Val() 的作用是將 A無功寫入數(shù)據(jù)庫中，代碼 (8) = Val() 的作用是將B 相有功寫入數(shù)據(jù)庫中。代碼 (9) = Val() 的作用是將 B 相無功寫入數(shù)據(jù)庫中。代碼 (10) = Val()的作用是將 C相有功寫入數(shù)據(jù)庫中。代碼 (11) = Val() C相無功寫入數(shù)據(jù)庫中。 (2) 西華大學課程設(shè)計說明書 第 19 頁 其中 的代碼 form3歷史數(shù)據(jù)查詢窗體。如圖 所示。 圖 對于圖 的窗體需要對 和窗體的 form load 事件寫代碼。（ 1）其中的代碼 Set dbs = OpenDatabase(c:\fyr\My ) strSQL = PARAMETERS [DateFrom] DateTime, amp。 _ a