Bài 1:Viết chương trình cho vật chuyển động có Hscroll1, Hscroll2, m1, v1 Dim i As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False
Bài 1:Viết chương trình cho vật chuyển động có Hscroll1, Hscroll2, m1, v1 Dim i As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() Shape1.Left = 10 i = 0 HScroll1.Value = HScroll1.Min HScroll2.Value = HScroll2.Min End Sub Private Sub HScroll1_Change() Label1.Caption = " m1= " & HScroll1.Value Shape1.Top = Shape1.Top - HScroll1.Value Shape1.Left = Shape1.Left - HScroll1.Value Shape1.Width = Shape1.Width + 2 * HScroll1.Value Shape1.Height = Shape1.Height + 2 * HScroll1.Value End Sub Private Sub HScroll2_Change() Label2.Caption = "v1=" & HScroll2.Value End Sub Private Sub Timer1_Timer() i = i + 1 Shape1.Left = Shape1.Left + i * HScroll2.Value If i = 50 Then i = 0 Shape1.Left = 10 End If End Sub . Bài 1: Viết chương trình cho vật chuyển động có Hscroll1, Hscroll2, m1, v1 Dim i As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled. Command3_Click() Shape1.Left = 10 i = 0 HScroll1.Value = HScroll1.Min HScroll2.Value = HScroll2.Min End Sub Private Sub HScroll1_Change() Label1.Caption = " m1= " & HScroll1.Value Shape1.Top = Shape1.Top. HScroll1.Value Shape1.Top = Shape1.Top - HScroll1.Value Shape1.Left = Shape1.Left - HScroll1.Value Shape1.Width = Shape1.Width + 2 * HScroll1.Value Shape1.Height = Shape1.Height + 2 * HScroll1.Value End Sub Private