【正文】 1，檢驗(yàn)是否有接受事件發(fā)生加載窗體初始化設(shè)置串口（選擇串口、設(shè)置波特率、校驗(yàn)位等）等待 接收程序流程圖 接收程序流程圖 發(fā)送程序設(shè)計(jì)新建一個(gè)標(biāo)準(zhǔn)工程，往其中導(dǎo)入需要的命令按紐、文本框、時(shí)鐘控件和MSComm控件等，并進(jìn)行窗口加載，完成初始化編程。初始化編程主要完成對(duì)主窗口以及MSComm控件屬性的初始化設(shè)置。（初始化程序見附錄） 手動(dòng)發(fā)送字符/數(shù)據(jù)程序在發(fā)送控制模塊區(qū)域?qū)胍粋€(gè)命令按鈕控件，主要屬性設(shè)置如下： 命令按鈕主要屬性設(shè)置名稱CmdSendCaption手動(dòng)發(fā)送Height300Left1590Top5160Width870對(duì)“手動(dòng)發(fā)送”按鈕編程，主程序如下：If = True ThenIf = Then MsgBox 發(fā)送數(shù)據(jù)不能為空, 16, 串口調(diào)試助手 ElseIf = 1 Then = InputModeBinary Call hexSend Else If = 1 Then = InputModeBinary Else = InputModeText End If = Trim() ‘Trim函數(shù)的作用是返回沒有前導(dǎo)和尾隨空白字符的字符串ModeSend = False End IfEnd IfElseMsgBox 串口沒有打開，請(qǐng)打開串口, 48, 串口調(diào)試助手 End If 自動(dòng)發(fā)送字符/數(shù)據(jù)程序自動(dòng)發(fā)送是通過對(duì)時(shí)鐘控件編程實(shí)現(xiàn)的。在界面上，通過點(diǎn)選“自動(dòng)發(fā)送”選項(xiàng)來實(shí)現(xiàn)。時(shí)鐘控件與復(fù)選框控件的主要屬性如表63和表64所示： 時(shí)鐘控件主要屬性設(shè)置名稱TmrautosendEnabledTrueInterval0Left7680Top5880 復(fù)選框控件主要屬性設(shè)置名稱ChkautosendHeight255Left30Top5480Width255點(diǎn)選事件程序：If = 1 ThenIf = True Then = Val(TxtAutoSendTime) = TrueElse = 0MsgBox 串口沒有打開, 48, 串口調(diào)試助手End IfElse If = 0 Then = FalseEnd If時(shí)鐘控件程序：If = Then = 0MsgBox 發(fā)送數(shù)據(jù)不能為空, 16, 串口調(diào)試工具ElseIf = 1 Then = InputModeBinaryCall hexSendElseIf = 1 Then = InputModeBinaryElse = InputModeTextEnd If = Trim()ModeSend = FalseEnd IfEnd If 發(fā)送文件在本設(shè)計(jì)中，需要實(shí)現(xiàn)的是數(shù)據(jù)通信。數(shù)據(jù)存在的形式有很多，最直觀的就是字符串和文本或文件。因此，為了增強(qiáng)軟件功能，增加了發(fā)送文件的功能選項(xiàng)。因?yàn)槲募际潜４嬖陔娔X硬盤或者外接存儲(chǔ)工具中的，所以需要打開相應(yīng)的存儲(chǔ)設(shè)備，選擇路徑，進(jìn)而選中需要發(fā)送的文件。這里，需要一個(gè)CommonDialog控件。CommonDialog控件能夠提供一組標(biāo)準(zhǔn)的操作對(duì)話框，進(jìn)行諸如打開和保存文件，設(shè)置打印選項(xiàng)，以及選擇顏色和字體等操作。在應(yīng)用程序中要使用 CommonDialog 控件，可將其添加到窗體中并設(shè)置其屬性。控件所顯示的對(duì)話框由控件的方法確定。在運(yùn)行時(shí)，當(dāng)相應(yīng)的方法被調(diào)用時(shí)，將顯示一個(gè)對(duì)話框或是執(zhí)行幫助引擎；在設(shè)計(jì)時(shí)，CommonDialog 控件是以圖標(biāo)的形式顯示在窗體中。該圖標(biāo)的大小不能改變。CommDialog控件的主要方法如下表所示 CommDialog控件的主要方法方法所顯示的對(duì)話框ShowOpen顯示“打開”對(duì)話框ShowSave顯示“另存為”對(duì)話框ShowColor顯示“顏色”對(duì)話框ShowFont顯示“字體”對(duì)話框ShowPrinter顯示“打印”或“打印選項(xiàng)”對(duì)話框ShowHelp調(diào)用 Windows 幫助引擎發(fā)送文件之前需要選擇，主程序如下： = cdlCFBoth = Open For Input As 1FileData = StrConv(InputB$(LOF(1), 1), vbUnicode)Close 1接著就可以發(fā)送文件了，對(duì)于文本文件的發(fā)送，其基本思想就是將文本文件逐一讀出，再進(jìn)行發(fā)送，同時(shí)進(jìn)行發(fā)送字符／數(shù)據(jù)的計(jì)數(shù)。要注意的是，讀完文件后，一定要關(guān)閉文件。If = 1 Then = InputModeBinaryElse = InputModeTextEnd If = Trim(FileData)ModeSend = True 接收程序在窗口加載過程中，就得將Rthreshold置為l，它表示每接收到一個(gè)字符(無論來自文本框的還是文本文件的字符／數(shù)據(jù))，都產(chǎn)生接收通信，同時(shí)對(duì)接收的字符／數(shù)據(jù)進(jìn)行計(jì)數(shù)。If = 1 Then = InputModeBinaryCall hexSendElseIf = 1 Then = InputModeBinaryElse = InputModeTextEnd If = Trim()ModeSend = False 數(shù)據(jù)存儲(chǔ)接受的數(shù)據(jù)需要儲(chǔ)存起來，保存接收區(qū)的數(shù)據(jù)可以直接保存在c盤下面，也可以點(diǎn)擊更改按紐，改變保存路徑。SaveTextPath = TxtSavePathOpen TxtSavePath amp。 \ For Output As 1 Print 1, Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 _日 amp。 Hour(Time) amp。 時(shí) amp。 Minute(Time) amp。 分 amp。 Second(Time) amp。 _秒 amp。 vbCrLf amp。 + vbCrLf Close 1 TxtSavePath = OK, Save = FalseSavetime = TimerWhile Timer Savetime + 5DoEventsWendTxtSavePath = SaveTextPath = True更改路徑主程序如下：Dim spShell As ObjectDim spFolder As ObjectDim spFolderItem As ObjectDim spPath As StringConst WINDOW_HANDLE = 0Const NO_OPTIONS = 0Set spShell = CreateObject()Set spFolder = (WINDOW_HANDLE, 選擇目錄, NO_OPTIONS, C:\Scripts)Set spFolderItem = spPath = spPath = Replace(spPath, \, \) = spPathSaveTextPath = 6. 結(jié)論經(jīng)過三個(gè)月的努力，本設(shè)計(jì)圓滿完成了預(yù)定的設(shè)計(jì)要求。在導(dǎo)師的悉心指導(dǎo)下，本文提出了一種在光纖通信實(shí)驗(yàn)平臺(tái)上實(shí)現(xiàn)計(jì)算機(jī)數(shù)據(jù)交換的解決方案，編寫出來的調(diào)試工具能夠?qū)崿F(xiàn)串口選擇，串口設(shè)置，字符串發(fā)送/接收，文件發(fā)送/接收，數(shù)據(jù)存儲(chǔ)，顯示系統(tǒng)時(shí)間等諸多功能。除了完成本設(shè)計(jì)的設(shè)計(jì)要求，還有其他很廣泛的應(yīng)用。本文主要包括以下內(nèi)容：（1） 介紹了光纖通信技術(shù)的產(chǎn)生、發(fā)展歷程、研究現(xiàn)狀以及應(yīng)用越來越廣泛的新技術(shù)，展望了光纖通信技術(shù)的發(fā)展趨勢(shì)。詳細(xì)地研究了光纖通信系統(tǒng)的工作原理和基本結(jié)構(gòu)。（2） 簡(jiǎn)單介紹了串口通信的原理和通信協(xié)議，以及RS232串行通信標(biāo)準(zhǔn)，并介紹了RS232接口的一般接線方法。（3） 設(shè)計(jì)了光纖通信實(shí)驗(yàn)平臺(tái)的部分硬件電路，深入地了解了光線通信系統(tǒng)各部分電路的功能以及技術(shù)指標(biāo)要求。（4） 使用VB語(yǔ)言編寫了一個(gè)具備收發(fā)和存儲(chǔ)功能的串口調(diào)試工具，并使用它在實(shí)驗(yàn)平臺(tái)上實(shí)現(xiàn)了計(jì)算機(jī)的數(shù)據(jù)交換，完成了設(shè)計(jì)目標(biāo)。通過對(duì)本課題的研究，我對(duì)光纖通信技術(shù)、串口通信技術(shù)和VB語(yǔ)言有了更深的認(rèn)識(shí)，并進(jìn)一步鞏固了以前所學(xué)的專業(yè)知識(shí)，增強(qiáng)了查找資料、分析整合資料的能力，完成了設(shè)計(jì)目標(biāo)。7. 參考文獻(xiàn)[1] :西安電子科技大學(xué)出版社,2001[2] Djafar (著),徐公權(quán)等(譯).:機(jī)械工業(yè)出版社,2002[3] (第二版).北京:電子工業(yè)出版社,2003[4] ,2000[5] 畢厚杰,(數(shù)據(jù)):北京郵電大學(xué)出版社,2002[6] :人民郵電出版社,2001[7] :電子工業(yè)出版社,2001[8] :中國(guó)人民大學(xué)出版社,1999[9] :廣西師范大學(xué)出版社，1988[10] B 5 ，19972，l30～l35[11] ：[12] :[13] Govind P. Agrawal, FiberOptic Communications Systems, Third Edition. The Institute of Optics University of Rochester: NY[14] K. Fukuchi, T. Kasamatsu, M. Morie, R. Ohhira, T. Ito, K. Sekiya, D. Ogasahara, and T. Ono, Paper PD24, Proc. Optical Fiber Commun. Conf., Optical Society of America, Washington, DC, 2001.[15] J. B. Stark, P. P. Mitra, and A. Sengupta, Opt. Fiber Technol. 7, 275 (2001).[16] Stevens, W. R. , TCP/IP Illustrated, Vol. 1. Addison Wesley, 1994.[17] Myron Sveum, Data Communications, An Overview, Upper Saddle River, .:Prentice Hall,2000 8. 致謝畢業(yè)設(shè)計(jì)是對(duì)一名大學(xué)生四年學(xué)習(xí)成效的一次全面檢查，也是將所學(xué)知識(shí)融會(huì)貫通的一次實(shí)習(xí)。經(jīng)過三個(gè)多月的努力，我已經(jīng)初步完成了我的畢業(yè)設(shè)計(jì)和論文。在整個(gè)設(shè)計(jì)過程中，我獲益匪淺：不僅鞏固了自己已學(xué)過的知識(shí)，還學(xué)到了很多新知識(shí)，完善了自己的知識(shí)體系；同時(shí)也意識(shí)到了自己在理論聯(lián)系實(shí)際中的不足之處，為以后的學(xué)習(xí)和工作增長(zhǎng)了很多寶貴的經(jīng)驗(yàn)。在此，我要向指導(dǎo)和幫助過我的老師和同學(xué)表示最誠(chéng)摯的謝意！首先我要感謝我的導(dǎo)師XX講師。在三個(gè)月的設(shè)計(jì)過程中，XX老師在設(shè)計(jì)思路、資料查閱等各方面都給與了我進(jìn)行了全面的指導(dǎo)，他在學(xué)術(shù)上幫助，生活上的關(guān)心是我完成畢業(yè)設(shè)計(jì)不可或缺的因素。我還要感謝我的班主任XXX老師，是她帶領(lǐng)我們?nèi)喽冗^了美好的四年。在學(xué)習(xí)上，生活上給予了我莫大的幫助和關(guān)懷，在此表示我最真誠(chéng)的謝意和深深的敬意。感謝在畢業(yè)設(shè)計(jì)期間給予我莫大幫助的同學(xué)們，他們對(duì)我的電路和論文提出了許多寶貴的建議和意見，在此表示我誠(chéng)摯的謝意和衷心的祝福。由于自己的知識(shí)面及能力有限，有不當(dāng)之處敬請(qǐng)各位老師批評(píng)指正，謝謝！