Mirley - Elektronika i Programowanie

A masz kod do poprzedniej wersji na 12 kanałów?

Mam coś takiego, ale trzeba dopisać wszystkie włączenia lamp:

'************* Konfiguracja uC *****************
'***********************************************
$regfile = "m16def.dat"
$crystal = 16000000
 
Config Porta = &B11111111 : Porta = &B11111111
Config Portb = &B11111111 : Portb = &B11111111
Config Portc = &B11111111 : Portc = &B11111111
Config Portd = &B11111010 : Portd = &B11111111
 
On Int0 Przzew0 Nosave
Config Int0 = Low Level                                     'Falling
Enable Int0
 
Config Rc5 = Pind.2
Dioda Alias Portd.6
 
'Config Timer1 = Timer , Prescale = 64
'Enable Timer1 : On Timer1 Prztimer1
 
Enable Interrupts
'********** Konfiguracja uC Koniec  ************
 
'******************  Zmienne *******************
'***********************************************
Dim Komenda As Byte , Adres As Byte
Dim Odebrano As Bit
'*************  Zmienne Koniec  ****************
 
'**************  Petla glowna ******************
'**********************************************
 
Do
 
  If Odebrano = 1 Then
    If Adres = 0 Then                                       'pilot o adresie 0
      Reset Dioda
 
      'co sie ma dziac w zaleznosci od komendy
 
 
      Waitms 10
      Set Dioda
      Waitms 10
    End If
    Odebrano = 0
    Enable Int0
  End If
 
Loop
End
'************ Petla glowna Koniec **************
Przzew0:
  Disable Int0
  Enable Interrupts
  Getrc5(adres , Komenda)
  Komenda = Komenda And &B01111111
  Odebrano = 1
Return
 
 
'Prztimer1:
'  Toggle Portd.0
'Return

Ps. Jestem w Genewie i nie mam dostępu do wszystkich plików i programów

:) acha :) ok poszukam gdzies mialem to najwyzej dopisze te kody i wkleje ci do sprawdzenia :P potem zajme sie rozpracowaniem schematu.
Z tego co widze to jest na AtMega 16 czyli musze kupic takich ze 2 :) narazie jestem w polsce ale 2 wietnia bede juz we wloszech wiec mam jeszcze pare dni na zakupienie wszytkiego co niezbedne. Musze po pryzjezdzie tam postawic na nogi starego lapa z wyjsciem LPT. Chcialbym tak dobrac wyjscia procka by mozliwie wszytkie byly po jednej stronie.

niezauwazylem ze nie jestem zalogowany :) i nie moge zedytowac posta wyzej ale wykozastac chce kody z SAA3010 w nastepujacej konfiguracji:
2 , 10 , 18 , 26 , 34 , 42 , 50 , 58 , 3 , 11 , 19 , 27 , 35 , 43 , 51 , 59 czyli wszytkie 8 Xów i DR2 ,DR3 bedzie latwiej zrobic pilota dajac 2 rzadki po 8 tact switchy i jedna DR w poziomie u gory a droga na dole a pomiedzy ukladzik w smd, dioda IR w polowie gornego rzadka i wtedy uklad klawiatury bedzie odpowiadal ukladowi lamp na naklejce narysowany bedzie plan ukladu hali sportowej z harakterysycznymi punktami typu dzwi wejsciowe trybuna etc. mysle ze prosciejszej instrukcji obslugi sie juz nie da zrobic :)

:) patrzac na atmega16 najwygodniej bedzie uzyc jako wyjscia PA0....PA7 i PC7......PC0 tak se pomyslalem ze jesli nie bylo by to zbyt skomplikowane dodatkowo mozna by uzyc 2 wejscia albo z PB albo z PD jako klawiatura 2 przyciskowa pomijajac uzycie pilota ALL ON i ALL OFF ktory moglbym umiescic przy wejsciu na scianie i jesli na hale wejdzie inna grupa nie kozystajaca z pilota jednym nacisnieciem wlaczy wszytkie swiatla i jednym nacisnieciem je wylaczy bez grzebania w tablicy rozdzielczej zazwyczaj ludzie wylaczaja roznicowke odlaczajac cala sekcje z ktorej zasilany jest UPS systemu przeciw pozarowego i po rozladowaniu akumulatora wlacza sie alarm w recepcji i trzeba gnac na hale :). Majac takie wlacznik na scianie moglbym tablice zamknac na klucz :) jak i pokusic o zrobienie kabla az z recepcji ktorym wylaczalo by sie swiatlo po zapominalskich hala jest 300 metrow od hotelu. Mam sporo kabla telefonicznego skreti wiec przeciagniecie go w studzienkach nie bedzie wiekszym problemem. Juz przeciagalem kable pod sama brame do blokowania jej by sie nie zamknela automatycznie.