Picbasic pro ile basit ses uygulaması (ambulans sireni)

Devre pic16f84a mikrodenetleyicisi ile yapıldı yazılım picbasic pro ile hazırlandı basit olarak ambulans siren sesi üretiyor pic basic pro ile pic programlamaya yeni başlayan kişiler için kolay, basit bir örnek olabilir.

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [AYKUT YILMAZ]                                    *
'*  Notice  : Copyright (c) 2007 [end. elektronik teknikeri]    *
'*          : All Rights Reserved                               *
'*  Date    : 15.04.2007                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
aci var byte
i var byte
ses var word

trisb =0
portb=0
pause 250
basla:
for aci = 10 to 125 step 2
ses = (sin aci)*10
for i=1 to 15
'Yukarıdaki 10 ve 15 değerleriyle oynayarak sesi değiştirebilirsiniz.
portb.0=1
pauseus ses
portb.0=0
pauseus ses
next i
next aci
goto basla

Uygulamaya ait picbasic pro ve proteus simülasyon dosyaları;