Mirley - Elektronika i Programowanie

'====================================
'=== sterownik bramy na tiny 2313 ===
'=========== by matrix ==============
'====================================
 
'sterownik bramy na tiny 2313
$regfile = "2313def.dat"
$crystal = 8000000
dim x as byte
dim wspza as Bit                   'zmienne pomocnicze zapisu stanu silnikow
dim wslza as Bit
dim wspot as Bit
dim wslot as Bit
config INT0 = FALLING
config int1 = falling
Enable Interrupts
Enable Int0
enable INT1
on int0 czujka
on int1 brama_stop
 
Config pind.0 = input
config pind.1 = input
config pind.2 = input
config pind.3 = input
config pinb.2 = input
config pinb.3 = input
config pinb.6 = input
config pinb.7 = input
config portb.0 = output
config portb.1 = output
config portb.4 = output
config portb.5 = output
 
spot Alias portb.0                 'silnik prawy otwiera
spza Alias portb.1                 'silnik prawy zamykla
cpot Alias pinb.2                  'wejscie czujka prawa otwarta brama
cpza Alias pinb.3                  'wejscie czujka prawa zamknieta brama
slot Alias portb.4                 'silnik lewy otwiera
slza Alias portb.5                 'silnik lewy zamyka
clot Alias pinb.6                  'wejscie czujka prawa otwarta brama
clza Alias pinb.7                  'wejscie czujka prawa zamknieta brama
licznik alias pind.0               'wejscie z modulu radiowego
czujnik alias pind.1               'wejscie czujki zabezpieczajacej
portb = 255
portd = 255
 
'licznik = 1
'czujnik = 1
'set pinb.2
'set pinb.3
'set pinb.6
'set pinb.7
x = 0                              'zmienna pomocnicza ustawiona na zero
gosub zamykam
 
 
    do
      if licznik = 0 then
        waitms 50
        gosub wybor
      end if
    loop
 
wybor:                             'zlicza ile razy nacisnieto przycisk na pilocie
incr x
         select case x
         case 1:                   'jesli raz to wezwij program do zamykania bramy
          gosub otwieram
         case 2:                   'jesli drugi raz nacisnieto to zatrzymuje brame
          gosub stopuje
         case 3:                   'jesli nacisnieto trzeci raz to wzywam podprogram zamykania beamy
          gosub zamykam
         case 4:                   'jesli przycisk nacisniety poraz czwarty to zatrzymuje brame
          set spza
          set slza
          x = 0
         end select
return
 
 
otwieram:                          'poprogram otwierania bramy
set slza
set spza
 
do
 if clot = 0 then                  'sprawdzam czy lewa połowa bramy otworzyla sie
  set slot                         'wylaczam otwieranie lewej polowy
   else
  set slza                         'w przeciwnym razie zalaczam go
 end if
 if cpot = 0 then                  'sprawdzam czy prawa polowa otworzyla sie
  set spot                         'i wylaczam otwieranie prawej polowy
   else
  wait 1
  reset spot                       'w przeciwnym razie zalaczam otwieranie
 end if
 if clot = 0 and cpot = 0 then     'jesli obie polowy bramy otworzyly sie to
   set slot                        'wylaczam silniki otwierania
   set spot
   incr x
   exit do                         'wychodze z petli
 end if
 if licznik = 0 then               'jesli nacisnieto przycisk nr1 na pilocie
  gosub wybor                      'licz ile razy?
  exit do
 end if
loop
return
 
 
zamykam:                           'podprogram zamykania bramy
set slot
set spot
 
do
 if clza = 0 then                  'sprawdzam czy lewa połowa bramy zamknela sie
  set slza                         'wylaczam zamykanie lewej polowy
   else
  reset slza                       'w przeciwnym razie zalaczamgo
 end if
 if cpza = 0 then                  'sprawdzam czy prawa polowa zamknela sie
  set spza                         'i wylaczam zamykanie prawej polowy
   else
  wait 1
  reset spza                       'w przeciwnym razie zalaczam zamykanie
 end if
 if clza = 0 then                  'jesli obie polowy bramy zamknely sie to
  if cpza = 0 then
   set slza                        'ustawiam czujki zamknietej bramy do odczytu
   set spza
   exit do                         'i wychodze z petli
  end if
 end if
 if licznik = 0 then               'jesli nacisnieto przycisk nr1 na pilocie
  gosub wybor                      'licz ile razy?
  exit do
 end if
loop
x = 0
return
 
 
 
stopuje:                           'podprogram zatrzymywania silnikow
waitms 500
if slot = 0 then                   'sprawdzam czy silnik lewej polowy dziala i jesli tak
 set slot                          'to zatrzymuje go
 waitms 500
end if
if spot = 0 then                   'i tak kolejno sprawdzam wszystkie silniki
 set spot
 waitms 500
end if
if slza = 0 then
 set slza
 waitms 500
end if
if spza = 0 then
 set spza
 waitms 500
end if
set licznik
return
 
brama_stop:                        'podprogram zatrzymywania bramy na zyczenie
set licznik
wspza = spza                       'zapamietuje stany poszczegolnych silnikow
wslza = slza
wslot = slot
wspot = spot
 if spza = 0 then                  'jesli silnik prawej polowy zamyka sie
  set spza                         'to go zatrzymuje
 end if
 if slza = 0 then                  'jesli silnik lewej polowy zamyka sie
  set slza                         'to zatrzymuje go
 end if
 if slot = 0 then                  'jesli silnik lewej polowy otwiera sie
  set slot                         'to zatrzymuje go
 end if
 if spot = 0 then                  'kesli silnik prawej polowy otwiera sie
  set spot                         'to zatrzymuje go
 end if
        do
         if licznik = 0 then       'jesli uzytkownik chce wlaczyc ponownie brame
           spza = wspza            'to odczytuje wartosci silnikow ktore wczesniej zapisalem
           spot = wspot            'i wartosci te nadaje ospowiednim silnikom
           slza = wslza
           slot = wslot
           exit do
         end if
        loop
return
 
czujka:                            'czujka przedmiotu znajdujacego sie w bramie
 disable INT0                      'zatrzymuje zezwolenie na przerwania w tym INT0
 disable INTERRUPTS
  if clza <> 0 then                'jesli przedmiot znajduje sie w bramie
   if cpza <> 0 then               'a polowki bramy jeszcze nie zamkneły sie to
    set slza                       'wylaczam silniki zamykajace brame
    wait 1
    set spza
   end if
  end if
  do
   if licznik = 0 then             'sprawdzam czy nacisnieto przycisk nr1 na pilocie
    wait 1
    reset slot
    reset spot
   end if
   if clot = 0 then                'sprawdzam czy lewa połowa bramy otworzyla sie
    set slot                       'wylaczam otwieranie lewej polowy
   end if
   if cpot = 0 then                'sprawdzam czy prawa polowa otworzyla sie
    set spot                       'i wylaczam otwieranie prawej polowy
   end if
   if czujnik <> 0 then            'jesli przedmiotu nie ma juz w bramie to
    if clot = 0 then
     if cpot = 0 then
      set czujnik
      wait 4
      exit do                      'wychodze z petli
     end if
    end if
   end if
  loop
 enable INTERRUPTS                 'zezwalam na przerwanie w tym INT0
 enable INT0
 x = 2
return