Задание№3-1 — различия между версиями

Материал из roboforum.ru Wiki
Перейти к: навигация, поиск
Строка 10: Строка 10:
 
Config Pind.4 = Output      'ногу ШИМа левого  движка сконфигурировали как выход
 
Config Pind.4 = Output      'ногу ШИМа левого  движка сконфигурировали как выход
 
Config Pind.5 = Output                                      'ногу ШИМа правого движка сконфигурировали как выход
 
Config Pind.5 = Output                                      'ногу ШИМа правого движка сконфигурировали как выход
 
 
Config Pinb.0 = Output
 
Config Pinb.0 = Output
 
'----------------------------------------------------------------------------
 
'----------------------------------------------------------------------------
 
 
Declare Sub Povorot(byval Gradus As Byte)
 
Declare Sub Povorot(byval Gradus As Byte)
  
 
Do
 
Do
 
   Call Povorot(30)
 
   Call Povorot(30)
 
 
Loop
 
Loop
 
  
 
Sub Povorot(byval Gradus As Byte)
 
Sub Povorot(byval Gradus As Byte)

Версия 10:58, 7 июня 2008

<source lang="vb"> $prog &HFF , &HE4 , &HD9 , &H00 'указываем какие фусибиты надо прошить $regfile = "m32def.dat" ' файл спецификации Меги32 $crystal = 8000000 ' указываем на какой частоте будем работать

'---------------------------------------------------------------------------- Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Config Pinc.2 = Output : Drl Alias Portc.2 'ногу сконфигурировали как выход и обозвали Drl Config Pinc.3 = Output : Drr Alias Portc.3 'ногу сконфигурировали как выход и обозвали Drr Config Pind.4 = Output 'ногу ШИМа левого движка сконфигурировали как выход Config Pind.5 = Output 'ногу ШИМа правого движка сконфигурировали как выход Config Pinb.0 = Output '---------------------------------------------------------------------------- Declare Sub Povorot(byval Gradus As Byte)

Do

  Call Povorot(30)

Loop

Sub Povorot(byval Gradus As Byte) Local A As Byte

  Portb.0 = 1
  For A = 1 To Gradus
     Waitus 100
  Next
  portb.0=1
  Waitus 18000

End Sub </source>