中學(xué)物理仿真模擬實(shí)驗(yàn)(參考版)
2025-04-07 02:04本頁(yè)面
【正文】 Visual basic 。Form2: (主界面)Option ExplicitPublic flage As BooleanPublic direction1 As Boolean, direction2 As BooleanPublic v As Integer, dd As BooleanPrivate Sub Command1_Click()Dim i As Integer, j As Integer, t As IntegerIf = Or = Then ‘判斷滑塊質(zhì)量輸入數(shù)據(jù)t = MsgBox(請(qǐng)先設(shè)置滑塊1的屬性!, 16, 操作步驟錯(cuò)誤) 的正確性BeepGoTo hui:End IfIf = Or = Thent = MsgBox(請(qǐng)先設(shè)置滑塊2的屬性!, 16, 操作步驟錯(cuò)誤)BeepGoTo hui:End If = 50 ‘設(shè)置觸發(fā)時(shí)間間隔hui:End SubPrivate Sub Command2_Click() ‘實(shí)驗(yàn)器具位置初始化 = True = 960 = 4800 = 0 = = = End SubPrivate Sub Command3_Click() ‘使用Slider控件來(lái)設(shè)置V1A = True = False = 8520 = 960End SubPrivate Sub data_Click() ‘?dāng)?shù)據(jù)處理窗口顯示End SubPrivate Sub exit_Click() ‘退出實(shí)驗(yàn)EndEnd SubPrivate Sub Label2_Click() ‘滑塊屬性1設(shè)置窗口顯示End SubPrivate Sub Label3_Click() ‘滑塊屬性2設(shè)置窗口顯示End SubPrivate Sub Image2_Click() ‘光電門位置調(diào)整 = FalseIf direction1 = False 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() ‘計(jì)時(shí)器窗口顯示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() ‘實(shí)驗(yàn)?zāi)康拇翱陲@示End SubPrivate Sub step_Click() ‘實(shí)驗(yàn)步驟窗口顯示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時(shí) 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
物理相關(guān)推薦
鄂ICP備17016276號(hào)-1