Тапсырма №8
Пішінге бір батырма Command Button, бір Textbox орналастыр, мына коды жазы?лар.
Private Sub Command1_Click()
Text1.Left = Text1.Left + 10
End Sub
Тапсырма №9
Пішінге 2 Command Button батырмасын, «Пуск» и «Стоп», 1 Shape(фигура) ?асиеті Shape 3-ке те? болатын - Circle(Круг) ж?не BackStyle ?асиеті -1- BorderColor и FillColor – ?ызыл т?сті та?дап орналастыры?дар.
Жо?ар?ы б?лікке 3 Timer ?асиеті Interval -1-ге те? деп енгіземіз. Біреуіне
Enabled ?асиетіне False(ложь), 2-шіге Enabled ?асеиетіне True деп ?згертеміз:
программа коды:
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer3.Enabled = False
Timer2.Enabled = False
Shape1.Left = a
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 25 ' Каждую мл Shape1 будет сдвигаться вправо на 25
a = Shape1.Left
End Sub
Private Sub Timer2_Timer()
Shape1.Left = Shape1.Left - 25 ' Каждую мл Shape1 будет сдвигаться влево на 25
a = Shape1.Left
End Sub
Private Sub Timer3_Timer()
If Shape1.Left <= 0 Then 'Если Shape1.Left <= -400(отскок от левой стенке) то
Timer1.Enabled = True ' Timer1 включается
Timer2.Enabled = False ' Timer2 выключается
End If
If Shape1.Left >= 4400 Then 'Если Shape1.Left <= -400(отскок от правой стенке) то
Timer2.Enabled = True ' Timer2 включается
Timer1.Enabled = False ' Timer1 выключается
End If
End Sub
