橫波的形成與傳播的vb演示課件設(shè)計_本科畢業(yè)論文(編輯修改稿)
2025-07-07 23:55 本頁面
【文章內(nèi)容簡介】 便于函數(shù)及變量的定義與使用， （四）以頁為操作基礎(chǔ) VB 工具軟件的操作平臺基礎(chǔ) 是窗體，以窗體頁面 作 為基礎(chǔ)操作平臺，以頁面的形式進行組織。同時在 PPT頁面上進行課件編碼，直接將演示課件使用 VB語言編碼到課件中，在多媒體使用中更 加便捷， 實用。 四 、演示課件 的 visual 的設(shè)計過程 （一）、窗體中控件和窗體設(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， Font 屬性：宋體 圖 41 4 表 41 窗體設(shè)置屬性 使用 Line 控件繪制圖示中的橫縱坐標(biāo)軸，建兩個 TextBox 控件 [8]，在其中分別輸入x和 y,用以標(biāo)注橫縱坐標(biāo)，如圖 42所示： ⒊ 建立 Timer 控件設(shè)置其初始屬性設(shè)置如圖 43， （二） Shape1 數(shù)組以余弦波運行的代碼實現(xiàn) ⒈ 變量和數(shù)組 [5]的定義通過以下代碼實現(xiàn) Public m, i, y, a Dim 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 60 h(k) = Sin(1 / 15 * * k) Next k = False End Sub 屬性 設(shè)置 屬性 設(shè)置 名稱 Shape1 Height 200 BackColor 紅色 Index 160(從 1開始依次每個shape增加 1) BackStyle 1Opaque Left 700(從 shape1（ 1） — 60依次每個加 200) BorderColor 紅色 Shape 3Cirlce BorderStyle 0Transparent Top 4920 BorderWidth 1 Visible True DrawMode 13Copy Pen Width 610 FillColor 紅色 圖 43 圖 42 5 Private Sub Timer1_Timer() t = 0 For j = 0 To (i 1) t = j + m If t 60 Then t = t Mod 60 End If Shape1(i j).Top = y * h(t) + 4920 Next j If i 60 Then i = i + 1 Else m = (m Mod 60) + 1 End If End Sub （三）控制按鈕的運行代碼 在整個課件演示中，我們要通過按鈕控件實現(xiàn)操控波形 的運行過程，上文介紹了的四個按鈕：開始、暫停就、繼續(xù)、結(jié)束，通過按鈕過程，確定 Timer 的 Enabled 屬性是True 或者 False。 ⒈ “開始”按鈕的運行代碼和原理 Private Sub Command1_Click() = Tru Timer1_Timer For k = 1 To 60 Shape1(k).Top = 4920 Next k m = 1 i = 1 y = 1500 a = 30 End Sub 實現(xiàn)“開始”按鈕點擊的過程中， Shape 開始振動，每一次鼠標(biāo)點擊“開始”按鈕時， Shape1 數(shù)組的 Top 屬性都回歸到 4920 這個起始坐標(biāo)，然后再運行。 ⒉ “結(jié)束”按鈕的運行代碼和原理 Private Sub Command2_Click() = False For k = 1 To 60 Shape1(k).Top = 4920 Next k End Sub 當(dāng)鼠標(biāo)點擊“結(jié)束”按鈕時， Timer 停止運行， Shape1 的 Top 屬性都回歸到 4920 ⒊ “暫停”和“繼續(xù)”按鈕的運行代碼和原理 Private Sub Command3_Click() = False 6 圖 42 End Sub Private Sub Command4_Click() = True End Sub 當(dāng)鼠標(biāo)點擊“暫停”按鈕時， Timer 的 Enabled 屬性變?yōu)?False,即， Timer 不運行，此時， Shape1 數(shù)組處于什么位置，其依然是處在什么位置，“繼續(xù)”的運行按鈕運行原理與此相反，即在當(dāng)前狀態(tài)運行 暫停前的狀態(tài)。 （四）橫波傳播過程中的振幅、波長、頻率的控制 在處理控制橫波的頻率、波長、振幅的問題時，我們采用菜單編輯器 [8]生成菜單控制，如圖 41和圖 42所示，為菜單編輯器和生成后的菜單。 ⒈ 振幅大小控制的代碼實現(xiàn) 在前文中所陳述的，通過對 Shape1 數(shù)組的 Top 屬性進行變量賦值： Shape1(i j).Top = y * h(t) + 4920，初始運行時，我們給予 y的賦值是 1500，通過菜單中的每一個子菜單，我們給予 y 不同的值，實現(xiàn)每一個 Shape 控件的偏離 平衡位置 4920 點的
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1