Strona główna » Fora » Pytania » Programowanie

przerobka programu do attiny2313

zibo25, 29 maj, 2010 - 11:00


Mam pytanie do projektu ,,kogut policyjny " takiego jak ten http://elportal.pl/ftp_05/201005avt2942.zip .Mianowicie potrzerbuje dorobic do tego uzadzenia włacznik/wyłacznik taki aby po zwarciu masy do odpowiedniej nuzki uC układ sie załaczał a po ponownym zwarciu tej nuzki sie wyłaczał.Da rade cos takiego dorobic ? Ewentualnie zamienic przycisk nr2 na włacznik/wyłacznik? Bo chciał bym do tego uzadzenia zastosowac odbiornik podczerwieni z tej stronki http://mirley.firlej.org/odbiornik_rc5 i przydało by sie jakos to zalaczac....

‹ PCF8583 i odczyt daty z dniem tygodnia Prosty termostat z dwoma diodami ledami ›



#1mirley, 29 maj, 2010 - 11:36
Portret użytkownika mirley

Re: przerobka programu

Dlaczego chcesz do tego stosować drugi mikrokontroler. Przecież wystarczy dopisać tutaj bezpośrednio obsługę pilota, o ile się zmieści w procku :)

Żeby działało ci na pinie to wystarczy dodać jednego if'a w programie. Z pilotem musiał bym się trochę zadumać a terach brak mi czasu, musiał byś też trochę zmienić wyprowadzenia bo będzie potrzebne wejście przerwania zewnątrznego do obslugi pilota Rc5. W miejsca (jakiś pin) masz wstawić pin od jednego z przycisków

$REGFILE = "2313def.dat"                    
$CRYSTAL = 1000000
 
Config PortB = &B11111111
       PortB = &B11111111
Config PortD = &B1000111      
       PortD = &B1111111
 
D1 Alias PortB.3         
D2 Alias PortB.2        
D3 Alias PortB.1          
D4 Alias PortB.0     
D5 Alias PortD.6         
D6 Alias PortD.0
D7 Alias PortD.1          
D8 Alias PortD.2           
D9 Alias PortB.7           
D10 Alias PortB.6         
D11 Alias PortB.5     
D12 Alias PortB.4      
S1 Alias PinD.3         
S2 Alias PinD.4          
S3 Alias PinD.5          
 
Dim Czas As Byte
Dim Efekt As Byte
Czas = 100
Efekt = 1
 
Do
 
  if (jakiś pin) = 0 then       'to dopisujesz
 
  If S1 = 0 Then
    Waitms 25
    If S1 = 0 Then
      Efekt = Efekt + 1
    End If
  End If
  If S2 = 0 And S3 = 0 Then
    Waitms 25
    If S2 = 0 And S3 = 0 Then
      Efekt = Efekt - 1
    End If
  End If
  If S2 = 0 Then
    Waitms 25
    If S2 = 0 Then
      Czas = Czas + 10
    End If
  End If
  If S3 = 0 Then
    Waitms 25
    If S3 = 0 Then
      Czas = Czas - 10
    End If
  End If
 
  If Efekt = 0 Then
    Efekt = 1
  End If
  If Efekt = 15 Then   
    Efekt = 1
  End If
  If Czas = 0 Then
    Czas = 100
  End If
  If Czas = 250 Then
    Czas = 100
  End If
 
 
  Select Case Efekt
  'tu jest cos z efektami
  End Select
 
  end if    'to dopisujesz
 
Loop 
End

-

UWAGA! Możliwy jest zakup zaprogramowanych uC i zestawów elementów itp. do niektórych projektów. O dostępność proszę pytać via email. Konkretne oferty pojawiają się w cenniku.