中學(xué)物理仿真模擬實驗(編輯修改稿)
2025-05-01 02:04 本頁面
【文章內(nèi)容簡介】 Then = + 2000 direction1 = TrueElse = 2000 direction1 = FalseEnd IfEnd SubPrivate Sub Image3_Click() ‘光電門位置調(diào)整If direction2 = False Then = 2000 direction2 = TrueElse = + 2000 direction2 = FalseEnd If = FalseEnd SubPrivate Sub Image4_Click() ‘計時器窗口顯示End Sub Private Sub Image6_Click() ‘滑塊屬性1設(shè)置窗口顯示End Sub Private Sub Image7_Click() ‘調(diào)平窗口顯示End SubPrivate Sub Image8_Click() ‘水平窗口顯示End SubPrivate Sub Image9_Click() ‘滑塊屬性2設(shè)置窗口顯示End SubPrivate Sub mudi_Click() ‘實驗?zāi)康拇翱陲@示End SubPrivate Sub step_Click() ‘實驗步驟窗口顯示End SubPrivate Sub form2_load() flage = FalseEnd SubPrivate Sub Timer1_Timer()v = Dim vv As Singlevv = vIf flage = False Then ‘判斷是完全非彈性碰撞還是非完全彈性碰撞 If Val() = Val() Then ‘M1=M2時 If 3600 + (10 Val()) * 120 Then = + v End If If 7560 + (10 Val()) * 120 And 3599 + (10 Val()) * 120 Then = + v End If If 3240 And = True Then = Val() / vv End If If 6120 And = True Then = Val() / vv End If If 3240 And = True Then = vv End If If 6120 And = True Then = vv End If ElseIf Val() Val() Then ‘M1M2時 If 3600 + (10 Val()) * 120 And 4801 Then = + vv dd = True End If If 3540 + (10 Val()) * 120 Then dd = False End If If 960 And 4801 Then = + vv * (1 * Val() / Val()) End If If 7560 + (10 Val()) * 120 And dd = False Then = + vv * ( + * Val() / Val()) End If If 3240 And = True Then = Val() / vv End If If 6120 And = True Then = Val() / vv * ( + * Val() / Val()) = Val() / (vv * (1 * Val() / Val())) End If If 3240 And = True Then = vv End If If 6120 And = True Then = vv * ( + * Val() / Val()) = vv * (1 * Val() / Val()) End If Else ‘M1M2時 If 3600 + (10 Val()) * 120 Then = + v End If If 6200 + (10 Val()) * 120 + (10 Val()) * 1
物理相關(guān)推薦
鄂ICP備17016276號-1