roboforum.ru

Код: Выделить всё • Развернуть

'$prog &HFF , &HBD , &HC9 , &H00
$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 7372800                                          ' указываем на какой частоте будем работать

'----------------------------------------------------------------------------
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                                      'ногу ШИМа правого движка сконфигурировали как выход
'----------------------------------------------------------------------------
Dim Speed As Byte
Speed = 100

Do
  Drl = 1                                                   'направление движения левого движка, в нашем случае это прямо
  Drr = 1                                                   'направление движения правого движка, в нашем случае это прямо
  Pwm1b = Speed : Pwm1a = Speed
Loop

Код: Выделить всё • Развернуть

Drl = 0 и Drr = 0

Код: Выделить всё • Развернуть

$hwstack = 128
$swstack = 128
$framesize = 128

$regfile = "m32def.Dat"
$crystal = 7372800
$baud = 1200

$include "LCD_Siemens_S65.cfg"

Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim W As Word , J As Single

Cls
Box(0 , 0) ,(176 , 131) , White

Do
   Lcdat 1 , 0 , "MiniBot" , Blue , White
   Lcdat 8 , 0 , "Roboforum.ru" , Blue , White

   Start Adc : W = Getadc(7) : Stop Adc : J = W / 400 : J = J * 2

   Lcdat 16 , 0 , "Akb=" ; J , 0 , 255
   Lcdat 24 , 0 , "4" , Blue , White
   Lcdat 32 , 0 , "5" , Blue , White
   Lcdat 40 , 0 , "6" , Blue , White
   Lcdat 48 , 0 , "7" , Blue , White
   Lcdat 56 , 0 , "8" , Blue , White
   Lcdat 64 , 0 , "9" , Blue , White
   Lcdat 72 , 0 , "10" , Blue , White
   Lcdat 80 , 0 , "11" , Blue , White
   Lcdat 88 , 0 , "12" , Blue , White
   Lcdat 96 , 0 , "13" , Blue , White
   Lcdat 104 , 0 , "14" , Blue , White
   Lcdat 112 , 0 , "15" , Blue , White
   Lcdat 120 , 0 , "16" , Blue , White
   Lcdat 128 , 0 , "17" , Blue , White
   Lcdat 136 , 0 , "18" , Blue , White
   Lcdat 142 , 0 , "19" , Blue , White
   Lcdat 150 , 0 , "20" , Blue , White
   Lcdat 158 , 0 , "21" , Blue , White
   Lcdat 166 , 0 , "22" , Blue , White

   Wait 1
Loop

Код: Выделить всё • Развернуть

Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim V As Word

Print "IR Test"

Do
   Start Adc : V = Getadc(0)                                'connected to PA=0(ADC0)
   Stop Adc
   Print "ADC chenel= 0, V= "; V
   Wait 1
Loop

SkyStorm писал(а):Руслан, когда спрашиваеш будь конкретнее.