1. Slava143 - 29 Июля, 2012 - 15:05:07 - перейти к сообщению
Здравствуйте! Работаю с CodeVisionAVR, сетодиодами моргать с Меги8 умею, навыки минимум есть.но хочу как то что бы при нажатии кнопки вкл. пищалка или какаето мелодия. Помогите с кодом программы.
2. sibiryak - 30 Июля, 2012 - 20:48:29 - перейти к сообщению
Пищалка
CODE:
mic2:
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_05s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
ret
mic1:
rcall mic
rcall mic
rcall mic
rcall mic
rcall mic
rcall mic
rcall mic
ret
mic:
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
ret
log1:
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall vikl
ret
kHz38:
rcall vkl
rcall del13
rcall vikl
rcall del13
ret
Hz_1000:
ldi temp2,0b00000010
out portb,temp2
rcall del_00005s
ldi temp2,0b00000000
out portb,temp2
rcall del_00005s
ret
vkl:
ldi temp1,0b00000001 ; включаем пин 0 в порту b
out portb,temp1
ret
vikl:
ldi temp1,0b00000000 ; выключаем
out portb,temp1
ret
del_01s:
ldi R17, $5F
WGLOOP0:
ldi R18, $17
WGLOOP1:
ldi R19, $79
WGLOOP2:
dec R19
brne WGLOOP2
dec R18
brne WGLOOP1
dec R17
brne WGLOOP0
ldi R17, $01
WGLOOP3:
dec R17
brne WGLOOP3
ret
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_05s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
rcall del_01s
rcall mic1
ldi temp2,0b00000000
out portb,temp2
ret
mic1:
rcall mic
rcall mic
rcall mic
rcall mic
rcall mic
rcall mic
rcall mic
ret
mic:
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
rcall Hz_1000
ret
log1:
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall kHz38
rcall vikl
ret
kHz38:
rcall vkl
rcall del13
rcall vikl
rcall del13
ret
Hz_1000:
ldi temp2,0b00000010
out portb,temp2
rcall del_00005s
ldi temp2,0b00000000
out portb,temp2
rcall del_00005s
ret
vkl:
ldi temp1,0b00000001 ; включаем пин 0 в порту b
out portb,temp1
ret
vikl:
ldi temp1,0b00000000 ; выключаем
out portb,temp1
ret
del_01s:
ldi R17, $5F
WGLOOP0:
ldi R18, $17
WGLOOP1:
ldi R19, $79
WGLOOP2:
dec R19
brne WGLOOP2
dec R18
brne WGLOOP1
dec R17
brne WGLOOP0
ldi R17, $01
WGLOOP3:
dec R17
brne WGLOOP3
ret