【正文】 1，檢驗是否有接受事件發(fā)生加載窗體初始化設(shè)置串口（選擇串口、設(shè)置波特率、校驗位等）等待 接收程序流程圖 接收程序流程圖 發(fā)送程序設(shè)計新建一個標準工程，往其中導(dǎo)入需要的命令按紐、文本框、時鐘控件和MSComm控件等，并進行窗口加載，完成初始化編程。初始化編程主要完成對主窗口以及MSComm控件屬性的初始化設(shè)置。（初始化程序見附錄） 手動發(fā)送字符/數(shù)據(jù)程序在發(fā)送控制模塊區(qū)域?qū)胍粋€命令按鈕控件，主要屬性設(shè)置如下： 命令按鈕主要屬性設(shè)置名稱CmdSendCaption手動發(fā)送Height300Left1590Top5160Width870對“手動發(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 串口沒有打開，請打開串口, 48, 串口調(diào)試助手 End If 自動發(fā)送字符/數(shù)據(jù)程序自動發(fā)送是通過對時鐘控件編程實現(xiàn)的。在界面上，通過點選“自動發(fā)送”選項來實現(xiàn)。時鐘控件與復(fù)選框控件的主要屬性如表63和表64所示： 時鐘控件主要屬性設(shè)置名稱TmrautosendEnabledTrueInterval0Left7680Top5880 復(fù)選框控件主要屬性設(shè)置名稱ChkautosendHeight255Left30Top5480Width255點選事件程序：If = 1 ThenIf = True Then = Val(TxtAutoSendTime) = TrueElse = 0MsgBox 串口沒有打開, 48, 串口調(diào)試助手End IfElse If = 0 Then = FalseEnd If時鐘控件程序：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è)計中，需要實現(xiàn)的是數(shù)據(jù)通信。數(shù)據(jù)存在的形式有很多，最直觀的就是字符串和文本或文件。因此，為了增強軟件功能，增加了發(fā)送文件的功能選項。因為文件都是保存在電腦硬盤或者外接存儲工具中的，所以需要打開相應(yīng)的存儲設(shè)備，選擇路徑，進而選中需要發(fā)送的文件。這里，需要一個CommonDialog控件。CommonDialog控件能夠提供一組標準的操作對話框，進行諸如打開和保存文件，設(shè)置打印選項，以及選擇顏色和字體等操作。在應(yīng)用程序中要使用 CommonDialog 控件，可將其添加到窗體中并設(shè)置其屬性?？丶@示的對話框由控件的方法確定。在運行時，當相應(yīng)的方法被調(diào)用時，將顯示一個對話框或是執(zhí)行幫助引擎；在設(shè)計時，CommonDialog 控件是以圖標的形式顯示在窗體中。該圖標的大小不能改變。CommDialog控件的主要方法如下表所示 CommDialog控件的主要方法方法所顯示的對話框ShowOpen顯示“打開”對話框ShowSave顯示“另存為”對話框ShowColor顯示“顏色”對話框ShowFont顯示“字體”對話框ShowPrinter顯示“打印”或“打印選項”對話框ShowHelp調(diào)用 Windows 幫助引擎發(fā)送文件之前需要選擇，主程序如下： = cdlCFBoth = Open For Input As 1FileData = StrConv(InputB$(LOF(1), 1), vbUnicode)Close 1接著就可以發(fā)送文件了，對于文本文件的發(fā)送，其基本思想就是將文本文件逐一讀出，再進行發(fā)送，同時進行發(fā)送字符／數(shù)據(jù)的計數(shù)。要注意的是，讀完文件后，一定要關(guān)閉文件。If = 1 Then = InputModeBinaryElse = InputModeTextEnd If = Trim(FileData)ModeSend = True 接收程序在窗口加載過程中，就得將Rthreshold置為l，它表示每接收到一個字符(無論來自文本框的還是文本文件的字符／數(shù)據(jù))，都產(chǎn)生接收通信，同時對接收的字符／數(shù)據(jù)進行計數(shù)。If = 1 Then = InputModeBinaryCall hexSendElseIf = 1 Then = InputModeBinaryElse = InputModeTextEnd If = Trim()ModeSend = False 數(shù)據(jù)存儲接受的數(shù)據(jù)需要儲存起來，保存接收區(qū)的數(shù)據(jù)可以直接保存在c盤下面，也可以點擊更改按紐，改變保存路徑。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。 時 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)過三個月的努力，本設(shè)計圓滿完成了預(yù)定的設(shè)計要求。在導(dǎo)師的悉心指導(dǎo)下，本文提出了一種在光纖通信實驗平臺上實現(xiàn)計算機數(shù)據(jù)交換的解決方案，編寫出來的調(diào)試工具能夠?qū)崿F(xiàn)串口選擇，串口設(shè)置，字符串發(fā)送/接收，文件發(fā)送/接收，數(shù)據(jù)存儲，顯示系統(tǒng)時間等諸多功能。除了完成本設(shè)計的設(shè)計要求，還有其他很廣泛的應(yīng)用。本文主要包括以下內(nèi)容：（1） 介紹了光纖通信技術(shù)的產(chǎn)生、發(fā)展歷程、研究現(xiàn)狀以及應(yīng)用越來越廣泛的新技術(shù)，展望了光纖通信技術(shù)的發(fā)展趨勢。詳細地研究了光纖通信系統(tǒng)的工作原理和基本結(jié)構(gòu)。（2） 簡單介紹了串口通信的原理和通信協(xié)議，以及RS232串行通信標準，并介紹了RS232接口的一般接線方法。（3） 設(shè)計了光纖通信實驗平臺的部分硬件電路，深入地了解了光線通信系統(tǒng)各部分電路的功能以及技術(shù)指標要求。（4） 使用VB語言編寫了一個具備收發(fā)和存儲功能的串口調(diào)試工具，并使用它在實驗平臺上實現(xiàn)了計算機的數(shù)據(jù)交換，完成了設(shè)計目標。通過對本課題的研究，我對光纖通信技術(shù)、串口通信技術(shù)和VB語言有了更深的認識，并進一步鞏固了以前所學的專業(yè)知識，增強了查找資料、分析整合資料的能力，完成了設(shè)計目標。7. 參考文獻[1] :西安電子科技大學出版社,2001[2] Djafar (著),徐公權(quán)等(譯).:機械工業(yè)出版社,2002[3] (第二版).北京:電子工業(yè)出版社,2003[4] ,2000[5] 畢厚杰,(數(shù)據(jù)):北京郵電大學出版社,2002[6] :人民郵電出版社,2001[7] :電子工業(yè)出版社,2001[8] :中國人民大學出版社,1999[9] :廣西師范大學出版社，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īng)過三個多月的努力，我已經(jīng)初步完成了我的畢業(yè)設(shè)計和論文。在整個設(shè)計過程中，我獲益匪淺：不僅鞏固了自己已學過的知識，還學到了很多新知識，完善了自己的知識體系；同時也意識到了自己在理論聯(lián)系實際中的不足之處，為以后的學習和工作增長了很多寶貴的經(jīng)驗。在此，我要向指導(dǎo)和幫助過我的老師和同學表示最誠摯的謝意！首先我要感謝我的導(dǎo)師XX講師。在三個月的設(shè)計過程中，XX老師在設(shè)計思路、資料查閱等各方面都給與了我進行了全面的指導(dǎo)，他在學術(shù)上幫助，生活上的關(guān)心是我完成畢業(yè)設(shè)計不可或缺的因素。我還要感謝我的班主任XXX老師，是她帶領(lǐng)我們?nèi)喽冗^了美好的四年。在學習上，生活上給予了我莫大的幫助和關(guān)懷，在此表示我最真誠的謝意和深深的敬意。感謝在畢業(yè)設(shè)計期間給予我莫大幫助的同學們，他們對我的電路和論文提出了許多寶貴的建議和意見，在此表示我誠摯的謝意和衷心的祝福。由于自己的知識面及能力有限，有不當之處敬請各位老師批評指正，謝謝！