Mirley - Elektronika i Programowanie

$PROG &HFF , &HA4 , &HD9 , &H00    ' generated. Take care that the chip supports all fuse bytes.
 
$regfile = "m8def.dat"
 
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb.0 = Output
config pinb.1 = input
config pinb.2 = input
Config Adc = Single , Prescaler = Auto , Reference = avcc       'config ADC
Start Adc
 
Dim i As Byte
dim gaz as word
dim pomocnicza_gaz as byte
 
s1 alias pinb.1
s2 alias pinb.2
 
set s1
set s2
 
Enable Interrupts
 
Servo(1) = 50
pomocnicza_gaz = 30
 
 
 
 
  Do
  gaz = getadc(0)               '4 - krotne pobranie ADC dało mie lepszą dokładność
  gaz = gaz + getadc(0)
  gaz = gaz + getadc(0)
  gaz = gaz + getadc(0)
 
    shift gaz , right , 4
    i = gaz
 
    if s1 = 0 then
     incr pomocnicza_gaz
      if pomocnicza_gaz > 60 then
         pomocnicza_gaz = 60
      end if
      waitms 50
    end if
    if s2 = 0 then
     decr pomocnicza_gaz
      if pomocnicza_gaz < 1 then
        pomocnicza_gaz = 1
      end if
      waitms 50
    end if
    i = i + pomocnicza_gaz
 
  servo(1) = i
 
 
 
Loop
End