【正文】 5。 sinth=sqrt(r./(r+f^2))。 b(:,i)=(hh)39。 end subplot(1,2,1) image(xs,ys,b) xlabel(39。) colormap(gray(n)) subplot(1,2,2) b(:,m/2) plot(ys,b(:,m/2)) xlabel(39。) Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 19 混合編程 M 文件轉(zhuǎn)譯為 dll 文件 利用 Mat 軟件將 M 文件轉(zhuǎn)化成 dll 文件，具體操作： (1)啟動 Mat，點(diǎn)擊菜單 File／ (Cmpile to dll，選擇寫好的 m 文件。成功后，在 matlab 的 work 對應(yīng)的目錄下，會生成若干個(gè)文件。 Visual Basic調(diào)用 dll 文件 (1)窗體設(shè)計(jì)。在窗體中添加各種控件，并設(shè)置各控件的屬性及相關(guān)的鏈接，最后形成三級窗體架構(gòu)。 (2)引用 MaxtrixVB庫文件。 將 XXX． bas和 XXX． cls加入到工程中，將生成的 XXX． dll文件復(fù)制到 C盤windows/System32目錄下。 (3)調(diào)試通過 后，點(diǎn)擊文件 /生成 .exe，生成可執(zhí)行文件。由于引用了 MatrixVB庫， 需要將相應(yīng)的庫文件一起復(fù)制到同一文件夾中 ，這些文件包括： ， ， ， ， 。 至此，該光學(xué)衍射仿真實(shí)驗(yàn)系統(tǒng)就可以脫離 VB和Matlab單獨(dú)運(yùn)行。這樣，只要把安裝包拷貝到任意一臺計(jì)算機(jī)上安裝后，就可以使用了。分別點(diǎn)擊“ 夫瑯禾費(fèi)單縫 衍射”，“光柵衍射”，“ 夫瑯禾費(fèi)圓 孔 衍射”進(jìn)入二級窗體進(jìn) 行仿真。 右側(cè)菜單欄是系統(tǒng)輔助菜單，點(diǎn)擊 進(jìn)入可以查看實(shí)驗(yàn)原理，分析數(shù)據(jù)，查看系統(tǒng)幫助，返回主菜單及退出系統(tǒng)。 仿真后結(jié)果如下： 圖 41 夫瑯 禾費(fèi) 單縫 衍射仿真界面 Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 21 光柵衍射仿真 輸入光學(xué)參數(shù)：光波波長 500nm,縫數(shù) 2，縫寬 ，衍射物到觀察屏的距離 5m。 仿真后結(jié)果如下： 43 夫瑯 禾費(fèi) 圓 孔 衍射仿真界面 Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 23 5 總 結(jié) 該系統(tǒng)結(jié)合了 Matlab 在光學(xué)仿真上的優(yōu)勢，還有 Visual Basic 強(qiáng)大的人機(jī)界面制作功能，操作簡單明了，圖像直觀易懂。 數(shù)據(jù)顯示清晰，誤差較小。不過，我還是盡我最大的努力去做，最后，我完成了該光學(xué)衍射仿真實(shí)驗(yàn)系統(tǒng)的設(shè)計(jì)，感覺很欣慰。我會 盡我最大的努力，去 不斷地編寫新功能，并美化操作界面，使該系統(tǒng)能更好更快更準(zhǔn)確地發(fā)揮它應(yīng)有的功能。 [2]周海憲 ：《 光學(xué)系統(tǒng)設(shè)計(jì)》 [M], 機(jī)械工業(yè)出版社 。 [3]謝晉輝：《物理光學(xué)教程》 [M],北京理工大學(xué)出版社 2020 年版 ， 第 153224頁 。 [5]閔聯(lián)營：《 Visual Basic 程序設(shè)計(jì)》 [M],北京大學(xué)出版社 2020 年版 ， 第 1207頁 。 [7]張德豐：《 MATLAB 數(shù)字圖像處理 》 [M],機(jī)械工業(yè)出版社 2020 年 版 ， 第 1109頁 。 [9]陳懷琛 ： 《 MATLAB 及其在理工課程中的應(yīng)用指南 》 [M].西安 電子科技大學(xué) 出版社 2020年版，第 7880 頁。 [11]王仕璠 ：《 現(xiàn)代光學(xué)實(shí)驗(yàn)教程》 [M],北京郵電大學(xué)出版社 2020 年版 ， 第 146頁 。 [13]符運(yùn)良 ： 《 MATLAB 在光學(xué)教學(xué)中的應(yīng)用 》 [J]，《 華南熱帶農(nóng)業(yè)大學(xué)學(xué)報(bào) 》 ，2020 年 10 月第 3期， 5557頁。 Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 25 附 錄 夫瑯禾費(fèi)單縫衍射二級窗體代碼： 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。, 0amp。H10, 0amp。) End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 29 End Sub Private Sub Command6_Click() End End Sub Private Sub Command7_Click() = = = = End Sub Private Sub Command8_Click() = 500 = 2 = = 5 End Sub 光柵衍射三級窗體代碼： Private Sub Command1_Click() End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() End Sub Private Sub Image1_Click() End Sub Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 30 Private Sub Image2_Click() End Sub Private Sub Image3_Click() End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub 夫瑯禾費(fèi)圓孔衍射二級窗體代碼： 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 suer32 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 2), e, X Dim winHwnd As Long, RetVal As Long a(0) = Val() a(1) = Val() a(2) = Val() e = ys03(a) Call keybd_event(vbKeySnapshot, 1, 100, 100) DoEvents = (vbCFBitmap) Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 31 winHwnd = FindWindow(vbNullString, Figure 1) If winHwnd 0 Then RetVal = PostMessage(winHwnd, amp。, 0amp。a=*a。%屏幕上 y 的范圍 Xx 學(xué)院 2020 屆本科生畢業(yè)設(shè)計(jì) 33 n=60。 n=60。 for i=1:n sinphi=ys(i)/D。 sumcos=sum(cos(alpha))。 B(i,:) =(sumcos^2+sumsin^2)/n^2。%確 定灰度的等級 Br=(B/max(B))*N。 image(ym,100*ys,Brt)。單縫衍射圖樣 39。%色調(diào)處理 subplot(1,2,2) plot(B,100*ys,39。)。光強(qiáng)分布圖 39。 %波長 %N=2。d=5*a。xs=ym。 ys=linspace(ym,ym,n)。 alpha=pi*a*sinphi/lambda。 B(i,:) =(sin(alpha)./alpha).^2.*(sin(N*beta)./sin(beta)).^2。 end NC=255。 Brt=Br*ones(1,2)。xlabel(39。) colormap(gray(NC))。k39。set(gca,39。,[0,1])。光強(qiáng)分布圖 39。 ym=2020*lambda*f。 xs=ys。 for i=1:m r=xs(i)^2+ys.^2。 x=2*pi*a*sinth./lambda hh=(2*besselj(1,x)).^2./x.^2。.*5000。夫瑯禾費(fèi)圓孔衍射圖樣 cm39。光強(qiáng)分布 39。在此，我謹(jǐn)致以最誠摯和衷心的感謝。感謝黃振永老師，辛旺輔導(dǎo)員，陳瑋老師，安玉磊老師，謝海軍老師，還有薛竣文老師。在他們的引導(dǎo)下，我的專業(yè)知識與技能得到了很大的豐富和提高，而且還教會了我思考解決問題的方法和技巧，這都將激勵我在今后 的學(xué)習(xí)和工作中不斷地去追求和探索。在這里，我感受到了大學(xué)濃厚的學(xué)術(shù)氛圍和無限的想象空間，還有不怕苦不怕累的奮斗精神。在那里，我們近距離地接觸光學(xué)鏡片的加工制造過程和工藝，這對鞏固我們所學(xué)的光學(xué)理論知識有著很大的幫助。四個(gè)月的實(shí)習(xí)，使我在機(jī)械制造，品質(zhì)管控方面的知識豐富起來。他們給我的生活增添了很多喜怒哀樂，衷心地祝福他們找到理想的 工作，并過著美