roboforum.ruТехнический форум по робототехнике. |
|
|
$regfile = "m16def.dat"
$crystal = 16000000
Config Pinc.3 = Output : Serva Alias Portc.3
Dim J As Byte
Do
Serva = 1
Waitus 780
For J = 1 To 90
Waitus 6
Next J
Serva = 0
Waitms 20
Loop
End
For J = 1 To 90
Serva = 1
Waitus 780+6*J
Serva = 0
Waitms 20
End
For J = 0 To 180
Serva = 1
Waitus 780 + 6 * J
Serva = 0
Waitms 20
Next
For J = 180 To 0 Step -1
Serva = 1
Waitus 780 + 6 * J
Serva = 0
Waitms 20
Next
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13