橫波的形成與傳播的vb演示課件設(shè)計畢業(yè)論文(編輯修改稿)
2024-07-25 01:12 本頁面
【文章內(nèi)容簡介】 。四、演示課件的visual （一）、窗體中控件和窗體設(shè)置⒈ 如圖41所示，建立窗體，使用shape控件建立shape1（1）—shape1（60）六十個控件組成的控件數(shù)組，設(shè)置其背景顏色為其屬性如表41所示：⒉ 建立按鈕控件[7]四個控件Command1 Command2 Command3 Command4,設(shè)置其Caption屬性依次為：開始、結(jié)束、暫停、繼續(xù)，Top屬性8300，Height屬性：740，Left屬性依次為：1450、4450、7450、10450，F(xiàn)ont屬性：宋體表41 窗體設(shè)置屬性屬性設(shè)置屬性設(shè)置名稱Shape1Height200BackColor紅色Index160(從1開始依次每個shape增加1)BackStyle1OpaqueLeft700(從shape1（1）—60依次每個加200)BorderColor紅色Shape3CirlceBorderStyle0TransparentTop4920BorderWidth1VisibleTrueDrawMode13Copy PenWidth610FillColor紅色圖43圖42使用Line控件繪制圖示中的橫縱坐標軸，建兩個TextBox控件[8]，在其中分別輸入x和y,用以標注橫縱坐標，如圖42所示：⒊ 建立Timer控件設(shè)置其初始屬性設(shè)置如圖43，（二）Shape1數(shù)組以余弦波運行的代碼實現(xiàn)⒈ 變量和數(shù)組[5]的定義通過以下代碼實現(xiàn)Public m, i, y, aDim h(60)⒉ 橫波運行實現(xiàn)及其原理橫波的運行中是以每個質(zhì)點的簡諧振動帶動下一個質(zhì)點的振動實現(xiàn)的，在本課件演示中，實現(xiàn)橫波運行的原理是通過賦值[9]Shape控件的Top屬性實現(xiàn)的，將每一個時刻的變量值賦值給每一個Shape控件,利用For語句If和If……Else的條件語句[9]和Timer控件，實現(xiàn)橫波的運行。Private Sub Form_Load()For k = 1 To 60h(k) = Sin(1 / 15 * * k)Next k = FalseEnd SubPrivate Sub Timer1_Timer()t = 0For j = 0 To (i 1)t = j + mIf t 60 Thent = t Mod 60End IfShape1(i j).Top = y * h(t) + 4920Next jIf i 60 Theni = i + 1Elsem = (m Mod 60) + 1End IfEnd Sub（三）控制按鈕的運行代碼在整個課件演示中，我們要通過按鈕控件實現(xiàn)操控波形的運行過程，上文介紹了的四個按鈕：開始、暫停就、繼續(xù)、結(jié)束，通過按鈕過程，確定Timer的Enabled屬性是True或者False。⒈“開始”按鈕的運行代碼和原理 Private Sub Command1_Click() = TruTimer1_TimerFor k = 1 To 60Shape1(k).Top = 4920Next km = 1i = 1y = 1500a = 30End Sub實現(xiàn)“開始”按鈕點擊的過程中，Shape開始振動，每一次鼠標點擊“開始”按鈕時，Shape1數(shù)組的Top屬性都回歸到4920這個起始坐標，然后再運行。⒉“結(jié)束”按鈕的運行代碼和原理Private Sub Command2_Click() = FalseFor k = 1 To 60Shape1(k).Top = 4920Next kEnd Sub當鼠標點擊“結(jié)束”按鈕時，Timer停止運行，Shape1的Top屬性都回歸到4920⒊“暫?！焙汀袄^續(xù)”按鈕的運行代碼和原理Private Sub Command3_Click() = FalseEnd SubPrivate Sub Command4_Click() = TrueEnd Sub當鼠標點擊“暫?！卑粹o時，Timer的Enabled屬性變?yōu)镕alse,即，Timer不運行，此時，Shape1數(shù)組處于什么位置，其依然是處在什么位置，“繼續(xù)”的運行按鈕運行原理與此相反，即在當前狀態(tài)運行暫停前的狀態(tài)。（四）橫波傳播過程中的振幅、波長、頻率的控制圖42圖41在處理控制橫波的頻率、波長、振幅的問題時，我們采用菜單編輯器[8]生成菜單控制，如圖41和圖42所示，為菜單編輯器和生成后的菜單。⒈振幅大小控制的代碼實現(xiàn)在前文中所陳述的，通過對Shape1數(shù)組的Top屬性進行變量賦值：Shape1(i j).Top = y * h(t) + 4920，初始運行時，我們給予y的賦值是1500，通過菜單中的每一個子菜單，我們給予y不同的值，實現(xiàn)每一個Shape控件的偏離平衡位置4920點的最大位移，以此實現(xiàn)整個橫波傳播過程中振幅的改變，其實現(xiàn)代碼如下：P rivate Sub menuzfd_Click()y = 2000End Sub
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1