Witam wszystkich
Zanim zalozylem ten temat b. duzo szukalem tego co potrzebuje i wiem ze bylo juz pisane na ten temat ale nie znalazlem nic konkretnego wiec pisze . A chodzi mi o to ze potrzebuje napisac program w bascom do attiny 2313 ktory mial by utrzymywac procka w trybie uspienia a gdy wcisne jeden z 2 guzikow to ma sie obudzic wyslac dany kod rc5 i dalej isc spac . Probowalem sam pisac ale z przerwaniami nigdy wczesniej nie mialem doczynienia niestety a nizej wstawiam kod moich wypocin
W kodzie jest wpisane zeby po wcisnieciu piszczal buzzer ale to celowo w fazie testow programu napisalem . Z gory wszystkim dziekuje i pozdrawiam serdecznie Bartek
Zanim zalozylem ten temat b. duzo szukalem tego co potrzebuje i wiem ze bylo juz pisane na ten temat ale nie znalazlem nic konkretnego wiec pisze . A chodzi mi o to ze potrzebuje napisac program w bascom do attiny 2313 ktory mial by utrzymywac procka w trybie uspienia a gdy wcisne jeden z 2 guzikow to ma sie obudzic wyslac dany kod rc5 i dalej isc spac . Probowalem sam pisac ale z przerwaniami nigdy wczesniej nie mialem doczynienia niestety a nizej wstawiam kod moich wypocin
$regfile = "attiny2313.dat"
$crystal = 8000000
Config Portb.3 = Output ' dioda ir nadawcza
Reset Pinb.3
'--------------------------------------------------------------------------------
Config Pind.2 = Input ' pin przerwania INT0
Reset Pind.2
'--------------------------------------------------------------------------------
Config Portd.1 = Output ' guzik 1
S1 Alias Pind.1
Reset S1
'-------------------------------------------------------------------------------
Config Portd.5 = Output ' guzik 2
S2 Alias Pind.5
Reset S2
Sound Pinb.7 , 500 , 200
On Int0 Konf
Enable Int0
Enable Interrupts
Powerdown
Wait 1
Sound Pinb.7 , 500 , 3000
Konf:
Wait 1
Sound Pinb.7 , 100 , 2000
Config Pind.2 = Output : Reset Pind.2 ' pin przerwania INT0
Config Portd.1 = Input : S1a Alias Pind.1 : Set S1a ' guzik S1
Config Portd.5 = Input : S2a Alias Pind.5 : Set S2a ' guzik S2
Do
If S1a = 0 Then Waitms 20
If S1a = 0 Then Sound Pinb.7 , 500 , 500
If S2a = 0 Then Waitms 20
If S2a = 0 Then Sound Pinb.7 , 300 , 500
Loop
Return
W kodzie jest wpisane zeby po wcisnieciu piszczal buzzer ale to celowo w fazie testow programu napisalem . Z gory wszystkim dziekuje i pozdrawiam serdecznie Bartek