Contents
hide
@ device pic16f877
define osc 4
define adc_bits 8
main:
trisb =$00
trisa =$ff
adcon1 = 7
speaker var portb.0
sw1 var porta.0
flg_set var bit
speaker =0
flg_set =0
while(1)
if(!sw1) then
pause 150
toggle flg_set
while(!sw1):wend
endif
gosub sounds
pause 10
wend
end
sounds:
if(flg_set)then
pause 10
sound speaker,[100,10]'100 =(1-127 generate frequency 78.74-10 khz )
'10 = constant time 12ms/1 = 120 ms
else
sound speaker,[0,0]
endif
return
About The Author
Ibrar Ayyub
I am an experienced technical writer holding a Master's degree in computer science from BZU Multan, Pakistan University. With a background spanning various industries, particularly in home automation and engineering, I have honed my skills in crafting clear and concise content. Proficient in leveraging infographics and diagrams, I strive to simplify complex concepts for readers. My strength lies in thorough research and presenting information in a structured and logical format.
Follow Us:LinkedinTwitter