橫波的形成與傳播的vb演示課件設(shè)計(jì)畢業(yè)論文(參考版)
2025-07-01 01:12本頁(yè)面
【正文】 附錄一、演示課件Visual Public m, i, y, aDim h(60)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 SubPrivate Sub Command1_Click() = TrueTimer1_TimerFor k = 1 To 60Shape1(k).Top = 4920Next km = 1i = 1y = 1500a = 30End SubPrivate Sub Command2_Click() = FalseFor k = 1 To 60Shape1(k).Top = 4920Next kEnd SubPrivate Sub Command3_Click() = FalseEnd SubPrivate Sub Command4_Click() = TrueEnd SubPrivate Sub menuzfd_Click()y = 2000End SubPrivate Sub menuzfz_Click()y = 1000End SubPrivate Sub menuzfx_Click()y = 500End SubPrivate Sub menuzqc_Click() = 100End SubPrivate Sub menuzqz_Click() = 50End SubPrivate Sub meunzqd_Click() = 25End SubPrivate Sub menubcc_Click()For k = 1 To 60h(k) = Sin(1 / 30 * * k)Next kt = 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 SubPrivate Sub menubcz_Click()For k = 1 To 60h(k) = Sin(1 / 15 * * k)Next kt = 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 SubPrivate Sub menubcd_Click()For k = 1 To 60h(k) = Sin(1 / 10 * * k)Next kt = 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)[1]李忠康 主編，教育學(xué)，山西教育出版社，2009年1月 [2]閻金鐸 郭玉英 主編，中學(xué)物理教學(xué)概論，高等教育出版社，2009年12月，[3]物理課程教材研發(fā)中心 課程教材研究所 主編，物理（選修34），人民教育出版社，2007年4月[4]漆安慎，杜嬋英，力學(xué)，高等教育出版社，2005年6月，[5]劉炳文，Visual Basic程序設(shè)計(jì)（第三版），清華大學(xué)出版社，2006年8月，[6]白康生，Visual Basic程序設(shè)計(jì)，清華大學(xué)出版社，2006年9月，[7]郜煥平 馬希榮，Visual ，機(jī)械工業(yè)出版社，2003年1月[8]賀世娟 陳冀川，Visual Basic ，中國(guó)水利水電出版社，2002年8月[9]胡小江，21天學(xué)通Visual Basic，電子工業(yè)出版社，2009年1月，[10]劉炳文，Visual Basic程序設(shè)計(jì)（
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1