機(jī)房管理系統(tǒng)課程設(shè)計(jì)報(bào)告書

1、2012-2013第2學(xué)期 軟件設(shè)計(jì)基礎(chǔ)-VB課程設(shè)計(jì)報(bào)告設(shè)計(jì)名稱： 機(jī)房管理系統(tǒng) 姓 名： 學(xué) 號： 專業(yè)班級： 學(xué) 院： 設(shè)計(jì)時(shí)間： 設(shè)計(jì)地點(diǎn)： 指導(dǎo)教師評語：教師評定：自評成績： 指導(dǎo)教師簽字： 年 月 日18 / 18文檔可自由編輯打印目 錄1.課程設(shè)計(jì)目的2.課程設(shè)計(jì)任務(wù)與要求3.課程設(shè)計(jì)說明書4.課程設(shè)計(jì)成果5.程序調(diào)試過程6.設(shè)計(jì)問題的不足和改進(jìn)方案7.課程設(shè)計(jì)心得8.附錄9.參考文獻(xiàn)1課程設(shè)計(jì)目的軟件設(shè)計(jì)基礎(chǔ)-VB課程設(shè)計(jì)是這門課程的實(shí)踐性教學(xué)環(huán)節(jié)之一，本次設(shè)計(jì)結(jié)合實(shí)際應(yīng)用的要求，使課程設(shè)計(jì)既覆蓋VB的知識點(diǎn)，又接近工程實(shí)際需要。目的是通過課程設(shè)計(jì)的綜合訓(xùn)練，培養(yǎng)學(xué)生實(shí)際分析問

2、題、解決問題的能力，以及編程和動手能力，最終目標(biāo)是通過課程設(shè)計(jì)這種形式，幫助學(xué)生系統(tǒng)掌握VB這門課程的主要內(nèi)容，養(yǎng)成良好的編程習(xí)慣，更好的完成教學(xué)任務(wù)。2課程設(shè)計(jì)任務(wù)與要求：要求：本次課程設(shè)計(jì)利用軟件設(shè)計(jì)基礎(chǔ)-VB課程中所學(xué)到的編程知識和編程技巧，完成具有一定難度和工作量的程序設(shè)計(jì)題目，幫助學(xué)生掌握編程、調(diào)試的基本技能，獨(dú)立完成所布置的任務(wù)。要求：1、對系統(tǒng)進(jìn)行功能需求分析2、設(shè)計(jì)合理的數(shù)據(jù)結(jié)構(gòu)和系統(tǒng)框架3、界面設(shè)計(jì)美觀、清楚、合理4、編程簡練，程序功能齊全，能正確運(yùn)行5、具有一定的創(chuàng)新性6、說明書、流程圖要清楚7、課題完成后必須按要求提交課程設(shè)計(jì)報(bào)告任務(wù)：將自己選擇題目的任務(wù)要求簡單填寫在此

3、處。 設(shè)計(jì)一個(gè)具有80臺電腦的機(jī)房管理系統(tǒng)，可以安排學(xué)生上機(jī)，在學(xué)生下機(jī)后可以從按學(xué)生學(xué)號或按計(jì)算機(jī)號兩種角度查詢學(xué)生的使用的計(jì)算機(jī)號、開始時(shí)刻、結(jié)束時(shí)刻、使用時(shí)間等信息并把它們記錄下來。如：3課程設(shè)計(jì)說明書功能描述 安排具有10為學(xué)號的學(xué)生使用180臺計(jì)算機(jī)中的某一臺，主界面上顯示此學(xué)生當(dāng)前的上機(jī)信息，并在其下機(jī)后把使用記錄保存下來，可以從學(xué)生的學(xué)生號和計(jì)算機(jī)號的兩個(gè)角度調(diào)出。概要設(shè)計(jì)主要寫模塊說明，模塊結(jié)構(gòu)圖，系統(tǒng)流程圖（例N-S流程圖）（五號，宋體）模塊結(jié)構(gòu)圖： 根據(jù)功能分析，建立系統(tǒng)的體系結(jié)構(gòu)，即將整個(gè)系統(tǒng)分解成若干子模塊，用框圖表示各功能模塊之間的接口關(guān)系。Form1一部分顯示80臺

4、計(jì)算機(jī)的使用情況另一部分分別有1. text窗口用來輸入學(xué)生的學(xué)號2. 某臺計(jì)算機(jī)的狀態(tài)和使用信息3. command1按學(xué)生學(xué)號查詢指令4. command2按計(jì)算機(jī)號查詢指令5. command3程序退出指令Form2可以按學(xué)號查詢某位同學(xué)上機(jī)的機(jī)號、開始時(shí)間、結(jié)束時(shí)間、和使用時(shí)間。Form3可以針對某臺計(jì)算機(jī)查詢它使用者的學(xué)號、開始時(shí)刻、結(jié)束時(shí)刻、和使用時(shí)間。 詳細(xì)設(shè)計(jì) 總體流程圖：各功能模塊流程圖：2按學(xué)生學(xué)號查詢學(xué)生學(xué)號的text的輸入框某位學(xué)生使用計(jì)算機(jī)的機(jī)器號、開始時(shí)間、結(jié)束時(shí)間、使用時(shí)間等信息顯示顯示180臺計(jì)算機(jī)的使用情況、學(xué)生學(xué)號text輸入框、按學(xué)號查詢和按計(jì)算機(jī)號查詢的

5、兩個(gè)command命令按鈕1按計(jì)算機(jī)號查詢計(jì)算機(jī)號的text的輸入框某臺特定的計(jì)算機(jī)的使用者的學(xué)號、開始時(shí)刻、結(jié)束時(shí)刻、使用時(shí)間。 代碼實(shí)現(xiàn)詳細(xì)說明各功能模塊的實(shí)現(xiàn)過程，所用到的算法、技巧等（附上代碼）。如：本系統(tǒng)總共10個(gè)窗體：form1form10詳細(xì)如下：form1首頁作用：“進(jìn)入應(yīng)用程序”。所用控件：5個(gè)標(biāo)簽，4個(gè)時(shí)鐘。設(shè)計(jì)思路：用時(shí)鐘控制label1、2,3,4的運(yùn)動。單擊label1,2,5和命令選擇器可進(jìn)入后面窗體，label3.無鏈接窗體，無label4 。詳細(xì)內(nèi)容：屬性較特殊的需要說明。代碼如下： 本程序共涉及3個(gè)窗體1個(gè)模塊，各部分詳細(xì)如下模塊里定義了全局的數(shù)據(jù)類型和變量：

6、Public Zd As Integer '指定的計(jì)算機(jī)的號Public Jq(80) As Boolean '計(jì)算機(jī)是否被使用Public Xh(80) As String '計(jì)算機(jī)使用者的學(xué)號Public Ks(80) As String '開始時(shí)間Public Js(80) As String '結(jié)束時(shí)間Public Sj(80) As String '使用時(shí)間Public Cx As Integer '查詢種類Form 1 （1） .所涉及的80臺計(jì)算機(jī)的顯示情況Private Sub Form_Load()For i = 1 T

7、o 80Jq(i) = TrueLabel1(i).Caption = Format(i, "00")NextEnd Sub（2） .用于完成指定計(jì)算機(jī) Private Sub Text1_KeyPress(KeyAscii As Integer)jl = TrueIf KeyAscii = 13 ThenFor i = 1 To 80 If Xh(i) = Text1.Text Then Zd = i Call Xj jl = False End IfNext If jl = True Then Form2.Show Form1.Hide End IfEnd IfEnd

8、Sub（3）.計(jì)算上機(jī)時(shí)間并顯示Sub Kssj()Jq(Zd) = FalsePicture1(Zd).Picture = LoadPicture(App.Path & "false.jpg")Xh(Zd) = Text1.TextKs(Zd) = Year(Now) & "-" & Format(Month(Now), "00") & "-" & Format(Day(Now), "00") & Chr(13) & TimeLabel4

9、.Caption = Xh(Zd)Label9.Caption = Format(Zd, "00")Label10.Caption = Ks(Zd)Label11.Caption = "(開始上機(jī))"Label12.Caption = "(開始上機(jī))"Form2指定對應(yīng)學(xué)號所使用的計(jì)算機(jī) 代碼如下：Dim i As IntegerPrivate Sub Command1_Click()Zd = List1.List(List1.ListIndex)Call Form1.KssjForm1.ShowUnload Form2End Sub

10、Private Sub Command2_Click()Form1.ShowUnload Form2End SubPrivate Sub Form_Activate()List1.ClearFor i = 1 To 80If Jq(i) = True ThenList1.AddItem Format(i, "00")End IfNextEnd SubForm3.（1）用于針對學(xué)生學(xué)號和計(jì)算機(jī)號兩種方式對上機(jī)情況進(jìn)行查詢。在list中輸出數(shù)據(jù)的格式編排比較特殊， 所用代碼：If Cx = 1 Then For i = 1 To n If a(i) = Text1.Text T

11、hen List1.AddItem b(i) & Space(6) & a(i) & Space(6) & c(i) & Space(1) & d(i) & Space(6) & e(i) & Space(1) & f(i) & Space(6) & g(i) zsj = zsj + Val(g(i) End If（2） 對數(shù)據(jù)進(jìn)行存儲設(shè)計(jì)：lon = LenB(Label4.Caption & Label9.Caption & Label10.Caption & Label

12、11.Caption & Label12.Caption)n = (App.Path & "bc1.dat") / lonOpen App.Path & "bc1.dat" For Random As #1 Len = lonPut #1, n + 1, Label4.Caption & Label9.Caption & Label10.Caption & Label11.Caption & Label12.CaptionClose #14課程設(shè)計(jì)成果運(yùn)行結(jié)果（可用屏幕抓圖的方法說明）（五號，宋體）

13、(多頁)機(jī)房控制界面主窗口可以為不同學(xué)生指定上機(jī)可以按照學(xué)號和計(jì)算機(jī)號查詢上機(jī)的主要情況5.程序調(diào)試過程寫出程序調(diào)試步驟，及遇到的問題。（1） .進(jìn)行對完成指定計(jì)算機(jī)的調(diào)試 。 問題是缺少變量 用boolean變量控制計(jì)算機(jī)的使用情況 若boolean的屬性為true 則計(jì)算機(jī)處于閑置狀態(tài)，若為false 則計(jì)算機(jī)為使用狀態(tài)。（2）.對計(jì)算機(jī)使用的時(shí)間計(jì)算的調(diào)試。 問題處于對時(shí)間的計(jì)算。通過查閱相關(guān)資料采取Ks(Zd) = Year(Now) & "-" & Format(Month(Now), "00") & "-&q

14、uot; & Format(Day(Now), "00") & Chr(13) & Time等算法。（3）.對計(jì)算機(jī)號按同種格式輸出的 。 問題是計(jì)算機(jī)號無法按照同種格式顯示，采用format函數(shù)進(jìn)行控制（4）.對已使用過的計(jì)算機(jī)數(shù)據(jù)的保存。定義了n代表文件個(gè)數(shù)，lon計(jì)算文件長度。并創(chuàng)建了一個(gè)記事本記錄信息。（5）.對未知字符串個(gè)數(shù)的調(diào)試。 運(yùn)用了redim的方法對變量進(jìn)行重新定義。（6）.進(jìn)行按學(xué)號查詢&按計(jì)算機(jī)號查詢時(shí)數(shù)據(jù)的調(diào)用調(diào)試。 Open App.Path & "bc1.dat" For Random

15、As #1 Len = 108 For i = 1 To n Get #1, i, xx(i) a(i) = Mid(xx(i), 1, 10) b(i) = Mid(xx(i), 11, 2) c(i) = Mid(xx(i), 13, 10) d(i) = Mid(xx(i), 23, 9) e(i) = Mid(xx(i), 32, 10) f(i) = Mid(xx(i), 42, 9) g(i) = Mid(xx(i), 51, 4)6.設(shè)計(jì)問題的不足和改進(jìn)方案不足：界面不夠美觀，關(guān)鍵處沒有設(shè)置提示信息。部分代碼冗長不夠精煉?；竞瘮?shù)有待增加。改進(jìn)方案：對界面顏色，背景圖片進(jìn)行調(diào)整，關(guān)鍵步驟設(shè)計(jì)提示信息。爭取采用更精煉的代碼進(jìn)行編寫。7.課程設(shè)計(jì)心得讓我學(xué)會