Форум РадиоКот

Код: Выделить всё

Do
If Pinb.1 = 0 And A1 = 1 Then                               'если кнопка нажата и а1=1 перейти к повороту двигателя на 1-й шаг

Gosub Step1
End If

If Pinb.1 = 0 And A1 = 2 Then
                                               'если кнопка нажата и а1=2 перейти к повороту двигателя на 2-й шаг
Gosub Step2
End If

If Pinb.1 = 0 And A1 = 3 Then                               'если кнопка нажата и а1=3 перейти к повороту двигателя на 3-й шаг

Gosub Step3
End If

If Pinb.1 = 0 And A1 = 4 Then                               'если кнопка нажата и а1=4 перейти к повороту двигателя на 4-й шаг

Gosub Step4
End If
 Waitms 200



 Ee = Str(a1)
Call D3310position(3 , 0)                                   'вывод на экран значения А1
Call D3310print(ee )


Loop


Step1:
A1 = 2
Portc = &B00000101


Return

Step2:
A1 = 3
Portc = &B00000110

Return

Step3:
A1 = 4
Portc = &B00001001

Return

Step4:
A1 = 1
Portc = &B00001010

Return
End