【正文】 tion to conquer difficulties, and system application prospect and meaning. This design USES the Matlab and Visual Basic mixing programming technology, bined with Matlab powerful matrix putation ability and VB the advantage of Xx 學院 2020 屆本科生畢業(yè)設計 III making humanmachine interface, quick speed, the interface is simple goodlooking, simple operation, convenient application of YuGuangXue experiment teaching. Keywords: puter simulation optical diffraction experiment Matlab mixing programming Xx 學院 2020 屆本科生畢業(yè)設計 IV 目 錄 摘 要 ................................................ I ABSTRACT............................................. II 1緒論 ................................................ 1 .................................... 1 光學衍射的定義 .............................. 1 光學衍射的分類 .............................. 1 光學衍射的條件 .............................. 2 光學衍射的特點 .............................. 2 ......................... 2 光學衍射技術的應用 .......................... 2 光學衍射技術的發(fā)展 .......................... 2 2 光學衍射實 驗系統(tǒng)基礎知識 ........................... 4 ............................................ 4 ........................... 4 ........................................ 5 惠更斯－菲涅爾原理 .......................... 5 夫瑯禾費單縫衍射 ............................ 5 光柵衍射 ................................... 6 3 光學衍射仿真實驗系統(tǒng)設計 ........................... 8 ........................................ 8 設計的目標 ................................. 8 研究的內容 ................................. 8 Xx 學院 2020 屆本科生畢業(yè)設計 V .................................. 8 .................................... 9 ........................................ 9 主菜單設計 ................................. 9 二級窗體設計 ............................... 10 三級窗體設計 ............................... 13 Matlab程序設計 ................................ 15 夫瑯禾費單縫衍射程序設計 ................... 15 光柵衍射程序設計 ........................... 16 夫瑯禾費圓孔衍射程序設計 ................... 17 ....................................... 19 M 文件轉譯為 dll文件 ....................... 19 Visual Basic 調用 dll 文件 .................. 19 應用程序打包及發(fā)布 ............................. 19 4 系統(tǒng)仿真 .......................................... 20 ................................. 20 ............................ 20 ................................... 21 ............................ 22 5 總結 .............................................. 23 參考文獻 ............................................. 24 附 錄 ............................................... 25 謝 辭 ............................................... 35 Xx 學院 2020 屆本科生畢業(yè)設計 1 1 緒論 光學衍射簡述 的 定義 衍射（ Diffraction）又稱為繞射，波遇到障礙物或小孔后通過散射繼續(xù)傳播的現(xiàn)象。 其次， 介紹光學衍射實 驗系統(tǒng)的基礎知識，包括光學衍射實驗系統(tǒng)的結構組成，操作方法，還有衡量參數(shù)等。當光孔線度小到可以同光波長相比擬時 ，衍射效應極為明顯，衍射范圍彌漫整個視場，過渡為散射情形。光學衍射實驗是光學實驗的一個重要組成部分。 圖 24 光強與衍射級數(shù) 的關系 單縫衍射圖案，有以下特點： (1)縫寬不波長大得多時，衍射不明顯。 而我，將運用 VB 及 MATLAB 這兩個軟件來設計光學衍射仿真實驗系統(tǒng)。 混合編程方法 采用動態(tài)鏈接庫方法，也就是將 Matlab 編寫的 M 文件轉變成為 VB可以調用的 dll 文件，從而實現(xiàn) VB 對 Matlab 的調用。H10, 0amp。 sumsin=sum(sin(alpha))。對于光屏上任一點 P的光強度，等于 N個相干光在該點產生的干涉光強度與寬度為 a的 夫瑯禾費 單縫 衍射在該點產生的光強度的乘積，其強度可表示為： Xx 學院 2020 屆本科生畢業(yè)設計 17 ? ? 220 ]s in/)[ ( s in]/s in[ ???? NII p ? (35) 其中： 0I 為屏中心的最大光強； 2]/)[(sin ?? 為單縫衍射因子； 2)sin/(sin ??N為多光束干涉因子； ????? sin/? ； ???? sin/d? 。 Brt=Br*ones(1,10)。 ys=linspace(ym,ym,m)。 Visual Basic調用 dll 文件 (1)窗體設計。分別點擊“ 夫瑯禾費單縫 衍射”，“光柵衍射”，“ 夫瑯禾費圓 孔 衍射”進入二級窗體進 行仿真。 [3]謝晉輝：《物理光學教程》 [M],北京理工大學出版社 2020 年版 ， 第 153224頁 。H10, 0amp。 B(i,:) =(sumcos^2+sumsin^2)/n^2。d=5*a。) colormap(gray(NC))。 x=2*pi*a*sinth./lambda hh=(2*besselj(1,x)).^2./x.^2。在那里，我們近距離地接觸光學鏡片的加工制造過程和工藝，這對鞏固我們所學的光學理論知識有著很大的幫助。在他們的引導下，我的專業(yè)知識與技能得到了很大的豐富和提高，而且還教會了我思考解決問題的方法和技巧，這都將激勵我在今后 的學習和工作中不斷地去追求和探索。 xs=ys。 Brt=Br*ones(1,2)。光強分布圖 39。 for i=1:n sinphi=ys(i)/D。 Xx 學院 2020 屆本科生畢業(yè)設計 25 附 錄 夫瑯禾費單縫衍射二級窗體代碼： Option Explicit Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlag As Long, ByVal dwExtraInfo As Long) Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib user32 Alias PostMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click() Dim a(0 To 3), e, X Dim winHwnd As Long, RetVal As Long a(0) = Val() a(1) = Val() a(2) = Val() a(3) = Val() e = ys02(a) Call keybd_event(vbKeySnapshot, 1, 100, 100) DoEvents = (vbCFBitmap) winHwnd = FindWindow(vbNullString, Figure 1) If winHwnd 0 Then RetVal = PostMessage(winHwnd, amp。我會 盡我最大的努力，去 不斷地編寫新功能，并美化操作界面，使該系統(tǒng)能更好更快更準確地發(fā)揮它應有的功能。 至此，該光學衍射仿真實驗系統(tǒng)就可以脫離 VB和Matlab單獨運行。) Xx 學院 2020 屆本科生畢業(yè)設計 19 混合編程 M 文件轉譯為 dll 文件 利用 Mat 軟件將 M 文件轉化成 dll 文件，具體操作： (1)啟動 Mat，點擊菜單 File／ (Cmpile to dll，選擇寫好的 m 文件。光強分布圖 39。 B(i,:) =(sin(alpha)./alpha).^2.*(sin(N*beta)./sin(beta)).^2。xlabel(39。%屏幕上的點數(shù) yp=linspace(0,a,n)。包括 夫瑯禾費單縫 衍射窗體，光柵衍射窗體， 夫瑯禾費圓 孔 衍射窗體。 在