Sound frequency For Basic PRO Compiler

@ 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

Leave a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.