FAIRE EMETTRE DES SONS a UN BUZZER (piezospeaker)

 

Utiliser le programme spin suivant:

Les textes qui suivent un caractére ' sont des commentaires

__________________________________________________________________________________________{ beep1.spin }
'On branche un Speaker Piezo directement entre la masse (- du piezo)
'et une patte (+ du piezo) ici la 18
'bruit de bip et essai de gamme simple

CON
_CLKMODE = XTAL1 + PLL16X 'Set to ext low-speed crystal, 16x PLL
_XINFREQ = 5_000_000 'Frequency on XIN pin is 5 MHz

 

PUB bipbip

repeat 10
PulsePiezoSpeaker(1000, 4400,60) 'pas mal vers 4400 et 60%
waitcnt(clkfreq/20 +cnt)

PUB PulsePiezoSpeaker (Nfois ,frequence,duty) | dureecyclemicrosec, dureeON, dureeOFF

dira[18]~~ ' on ouvre le pin 18 en emission
dureecyclemicrosec:=(clkfreq/frequence)
dureeON:= (dureecyclemicrosec * duty)/100
dureeOFF:= dureecyclemicrosec-dureeON

repeat Nfois 'noter que ce qui est a répéter doit être décalé d'un cran a droite
!outa[18]
waitcnt(dureeON + cnt)
!outa[18]
waitcnt (dureeOFF + cnt)