【導讀】集計算機管理及軟件開發(fā)、算法設(shè)計與控制為一體的計算機應(yīng)用系統(tǒng)。大宗信息和資料的單位。主要研究內(nèi)容包括：取多盤執(zhí)行機構(gòu)路徑優(yōu)化算法的研。加工；整機系統(tǒng)的試驗研究與改進等。系統(tǒng)裝置實現(xiàn)如下功能：光碟隨機存儲功。同時，光碟取出執(zhí)行機構(gòu)會按照搜索到的光碟位置信息，自動彈出要。的單片機控制電路、驅(qū)動電路和執(zhí)行結(jié)構(gòu)，以路徑最短方式進行路徑優(yōu)化設(shè)計，稍做簡化可直接進入家庭。系統(tǒng)裝置具有廣泛的應(yīng)用前景和市場推廣價值。分界比較值進一步優(yōu)化，使系統(tǒng)的取盤效率大大提高。我的時間，也破壞了我那天的好心情。對許多需要物品存儲管理的場合和單位非常有用。光碟是目前用途最廣、也是最可靠的信息載體，經(jīng)過調(diào)研，我發(fā)現(xiàn)圖書館，根據(jù)觀察，發(fā)現(xiàn)檔案館里存放檔案的檔案柜的設(shè)計和放置十分。其中，柵格為多層層疊式，每層兩組，自動。取盤機構(gòu)設(shè)在中間，可以把選擇的光碟從兩邊彈出。用設(shè)有觸摸屏的計算機控制系統(tǒng)實現(xiàn)其智能功能。

　　

【正文】 作計劃，就是在該研究的基礎(chǔ)上，進行廣泛的調(diào)研，將該裝置進行產(chǎn)品化設(shè)計，同時從實用性和經(jīng)濟性兩個方面進行優(yōu)化和綜合設(shè)計，希望在不久的將來可以推向 市場，服務(wù)于廣大用戶（政府機關(guān) 、 企事業(yè)單位 、家庭 ）。 以直接應(yīng)用于家庭為 一期目標： 在產(chǎn)品化方面做一些提升，功能方面做一些精簡，如取消成本較高和復雜的自動取盤結(jié)構(gòu)和 PC 查詢功能，僅用單片機組成“實現(xiàn)隨意存、編碼查找和燈光位置指示”的 靈巧 系統(tǒng)等等。 以應(yīng)用于圖書館、檔案館、電視臺、廣播電臺、博物館、資料室等單位應(yīng)用為二期目標： 1）目前的步進電機運行速度 稍 慢，導致取盤時間 稍長 。以后會對結(jié)構(gòu)進行改進，既保證速度，也保證精度，縮小用戶等待時間。 2）設(shè)計類似光驅(qū)的硬件系統(tǒng)，能自動讀出光盤的內(nèi)容而不需使用者去輸 入。 3）用工業(yè)計算機 PC104 作為控制核心， 組成基于網(wǎng)絡(luò)的光盤管理裝置， 提高產(chǎn)品品質(zhì) 。 六 、 感謝 本課題之所以有今天這樣的成果，離不開許多熱心人的幫助和他們不厭其煩的指導，在此我表示衷心的感謝！ 首先，感謝廣東實驗中學的 全漢炎 老師 、劉忠毅老師，是他們 指導我如何開展科技創(chuàng)新活動的整個設(shè)計思路 。 43 其次，感謝華南理工大學的陳欽昌老師，田聯(lián)房老師，王孝洪老師，何建雄學長，楊躍學長，鐘春波學長、王磊學長，陳派林學長，他們都給予了我無私的幫助和指導，使我增長了許多工程專業(yè)技術(shù)知識。 再者，感謝海珠區(qū)新華機械廠的陳銳 林廠長，梁校南工程師，葉世棟工程師，他們在機械裝置的設(shè)計和加工方面給予了很多幫助。增長了我關(guān)于機械設(shè)計和加工方面的諸多知識。 最后，感謝我的父母，是他們給予我鼓勵和無微不至的關(guān)懷，本研究傾注了他們太多的心血和汗水。 七 、 附件 主要 程序清單 44 程序附件 精度問題關(guān)鍵程序 ： //////計算對應(yīng)位置上需要的脈沖數(shù)目 void Get_Deal(unsigned long address){ unsigned char i,j,k。 pluse1=0。 if(address=8)//分段計算 pluse1=2546*address。 else if(address=25) pluse1=(2546+135*(address8)/10)*address。 else if(address=51) pluse1=(2820+18*(address25)/10)*address。 else if(address=63) pluse1=(2844+24*(address51)/100)*address。 else if(address=86) pluse1=(2849+(3*(address63)/10))*address。 else if(address=122) pluse1=(2859+24*(address86)/100)*address。 else if(address=140) pluse1=(2862+64*(address122)/100)*address。 else pluse1=(2868+64*(address140)/100)*address。 pluse2=1000。 pluse1_count=0。//初始化脈沖計數(shù)為 0 Step=1。//初始化進入第一種狀態(tài) ICR1=0xB3ff。//10hz 剛開始時不進電機的啟動速度要比較慢 ///////////////////////////// // j=address/8。//計算哪一個位置的指示燈需要亮 k=addressj*8。 if (k==0)// LEDOUT(j,0x80)。 else { if(k==1)LEDOUT(j+1,0x01)。 else{ k。 LEDOUT(j+1,1k)。 } } //////////////////////////// TCCR1B = 0x12。 //start Timer } /////////////////// 45 //步進電機開始時速度漸漸增加 void timer1_pa_isr(void) { //pare occured TCNT1=OCR1A */ if((Step==3)||(Step==5)) ICR1=0x047f。//400hz 這兩種狀態(tài)不用變 PWM 的頻率 else if(pluse1_count800)//針對走過不同的脈沖數(shù)目來調(diào)整 PWM 輸出頻率 ICR1=0x047f。//400 else if(pluse1_count900) ICR1=0x02ff。//600 else if(pluse1_count1000) ICR1=0x023f。//800 else if(pluse1_count1300) ICR1=0x01cc。//1000 else if(pluse1_count1600) ICR1=0x00A6。//1500 else if(pluse1_count1900) ICR1=0x00e6。//2020 else if(pluse1_count2200) ICR1=0x00B8。//2500 else if(pluse1_count2700) ICR1=0x0099。//3000 else if(pluse1_count3000) ICR1=0x0083。//3500 else ICR1=0x0073。//4000 } ///////////////////////////////////// //把整個取盤過程分解為 7 中狀態(tài)，在不同狀態(tài)中進行不同處理 void timer1_ovf_isr(void) { //TIMER1 has overflowed if (Step==1){ pluse1_count=0。 pluse2_count=0。 Step=2。 } else if(Step==2){ if(pluse1_countpluse1){ OCR1A=0x0020。 46 OCR1B=0。 pluse1_count++。 //PORTCamp。=~0x01。// PORTC|=0x01。 } else{ PORTCamp。=0xfe。// Step=3。 pluse1_count=0。 } }//end else if(step_flag==0) else if(Step==3){ if(pluse2_countpluse2){ PORTCamp。=~0x02。 // pluse2_count++。 OCR1A=0。 OCR1B=0x0050。 } else{ Step=4。 pluse2_count=0。 } }// end else if(step_flag==1) else if (Step==4){ //wait Step=5。 } else if(Step==5){ if(pluse2_countpluse2){ PORTC|=0x02。// pluse2_count++。 } else{ Step=6。 pluse2_count=0。 HC595_Init()。// } }//end else if(step_flag==2) else if(Step==6){ if(pluse1_countpluse1){ //PORTC|=0x01。// 47 PORTCamp。=~0x01。 OCR1A=0x0020。 OCR1B=0。 pluse1_count++。 } else{ //PORTCamp。=~0x01。// PORTC|=0x01。 Step=7。 pluse1_count=0。 } }//end else if(step_flag==3) else if(Step==7){ deal_flag=0。 Get_flag=0。 TCCR1B = (0CS12) | (0CS11) | (0CS10) 。 // Step=0。 ICR1=0xB3ff。//10hz //test_flag=0。 } } 取多盤部分關(guān)鍵程序 ： //對光盤的順序進行處理，并通過串口發(fā)送出去 For i = Sent_Com To 1 Step 1 For j = 1 To i 1 If StrSen(j) StrSen(j + 1) Then M = StrSen(j) StrSen(j) = StrSen(j + 1) StrSen(j + 1) = M End If Next Next 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 StrSen(0) = amp。HFA ReDim Preserve StrSen(Sent_Com + 1) StrSen(Sent_Com + 1) = amp。HFF 48 = StrSen //在用戶每次選中一個或者取消選擇光盤時進行的處理 If (0).value 0 Then Sent_Com = Sent_Com + 1 ReDim Preserve StrSen(Sent_Com) StrSen(Sent_Com) = (4).value Else Dim i As Integer For i = 1 To Sent_Com If StrSen(i) = (4).value Then Dim j As Integer If i Sent_Com Then For j = i To Sent_Com StrSen(j) = StrSen(j + 1) Next End If Sent_Com = Sent_Com 1 End If Next End If 光盤掃描功能實現(xiàn)的關(guān)鍵程序 Public Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String) As Long Static FileS As Long 39。文件數(shù)目 Static DirS As Long Dim sDir As String Dim sSubDirs() As String 39。存放子目錄名稱 Dim Index As Long Dim num1 As Integer Dim num2 As Integer If Right(sPath, 1) \ Then sPath = sPath amp。 \ num1 = InStr(1, sPath, :) Print 1, * Print 1, Right(sPath, Len(sPath) num1) sDir = Dir(sPath amp。 sFileSpec) 39。獲得當前目錄下文件名和數(shù)目 Do While Len(sDir) FileS = FileS + 1 ReDim Preserve sFiles(1 To FileS) sFiles(FileS) = sPath amp。 sDir Print 1, sDir amp。 ** amp。 Str(Int(FileLen(sPath amp。 sDir) / 1024)) amp。 K 49 sDir = Dir Loop 39。獲得當前目錄下的子目錄名稱 Index = 0 sDir = Dir(sPath amp。 *.*, 16)