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)