Pic ile siren sesi yazılması.

[erdogan2734]

    Sevgili arkadaşlar.
İşim gereği pic basic dilini kullanarak siren sesi yapmam gerekiyor.
Melodilerle uğraştım ancak siren sesi elde edemedim. Siren sesi için sinüs lü bir örnek vardı onla deneyip birşeyler elde etmeye
çalıştım ancak ordaki seste yeterli olmadı. Bana yol yordam gösterirseniz çok sevinirim.
   Şimdiden çok teşekkür ederim.

[t2]

'****************************************************************
'*  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

https://320volt.com/picbasic-pro-ile-basit-ses-uygulamasi-ambulans-sireni/

[erdogan2734]

(Resim gizlendi görmek için tıklayın.)

https://320volt.com/picbasic-pro-ile-basit-ses-uygulamasi-ambulans-sireni/

          Sevgili t2, aykut hocamızın bu programına ve devresine ulaştım. Ancak bu şekilde sizde proteusda denediyseniz. Siren sesine pek benzemiyor. Bu mantıkla deneyip yapmaya çalıştım. Hatta çıkış yerine melodide koymayı denedim ancak yine bildiğimiz siren sesini yada yakın bir sesi elde edemedim.

[t2]

• Proteusta biraz tırtırlı çıkar, normaldir. gerçek devreyi denediniz mi?
• pauseus ses gibi gecikmeleri kısaltıp döngüdeki sayacı artırırsanız ses daha yumuşak olacak robotik olmayacaktır.
• Aslında siren için sinüse gerek yok. döngü içinde pin on off yapsa yeterlidir

[erdogan2734]

• Proteusta biraz tırtırlı çıkar, normaldir. gerçek devreyi denediniz mi?
• pauseus ses gibi gecikmeleri kısaltıp döngüdeki sayacı artırırsanız ses daha yumuşak olacak robotik olmayacaktır.

Zaten işimiz siren üzerine olduğu için hemen deneme imkanı bulabiliyorum. Proteustaki aynı sesi alıyorum.
  Dedeğiniz değişiklikleri yaptım  ancak değişen pek bir şey olmadı acaba bunun başka bir yolu yokmudur?

[t2]

yukarıdakimesajı sonraden editledim belki görmemiş olabilirsiniz. Aslında siren için sinüse gerek yok. döngü içinde pin on off yapsa yeterlidir.

bunları döngü içine yertleştiririz. iç içe bir kaç döngü olur. 

pin= 1 , 
pauseus.. bekleme 
pin =0

gibi güzel olur

[t2]

Dahada iyisi hpwm ile yapmak. çok güzeloluyor hatta pic konuşabiliyor. sesler eepromdan geliyor

[erdogan2734]

Dahada iyisi hpwm ile yapmak. çok güzeloluyor hatta pic konuşabiliyor. sesler eepromdan geliyor

Ya aslında hpwm lemi uğraşsam bilemedim. Kullandığımız pic 16f628 ama epromu büyük
olan cinsten bu yeterli olurmuki harici eprom mu kullancaz bilemedim şimdi?

[pwm.c]

başka bir yöntem daha var.
şu program wav formatındaki sesi asm kodlarına dönüştürüyor.
http://www.mediafire.com/file/9a559ja8xx1z4e6/BTcSE11.zip
ambulans sesini düşük çözünürlüklü wav olarak kaydedip bu program ile kadlama yapınız. aldığınız sayısal değerleri tablo olarak pic basice aktarabilirsiniz.
sizi biraz uğraştıracak ama buda bir yöntem işte...

[erdogan2734]

başka bir yöntem daha var.
şu program wav formatındaki sesi asm kodlarına dönüştürüyor.
http://dl.dropbox.com/u/59120073/BTcSE11.zip
ambulans sesini düşük çözünürlüklü wav olarak kaydedip bu program ile kadlama yapınız. aldığınız sayısal değerleri tablo olarak pic basice aktarabilirsiniz.
sizi biraz uğraştıracak ama buda bir yöntem işte...

Program süper oldu birazda kullanımı hakkında bilgi verirsen süper olur.

[t2]

süper filan değil. çöp.

[erdogan2734]

süper filan değil. çöp.

Ciddimisin kullandınmı daha önce?

[erdogan2734]

Ayrıca asm kodları buldum. Anlayan varsa linkini vereyim bana anlatsın? Ben asm okuldayken görmüştüm ama pek beceremedim.
Basic daha iyi geldi sanki.

[t2]

kullanmadım da duydum. bir bit yeniği varmış çalışmıyormuş sesler kötü oluyormuş. Galiba ETE arkadaş bunu çalıştırmıştı anlatıyordu . Belki de o değil başkası yapmıştır.

[Erol YILMAZ]

bana da bu tarz ses lazım oldu,
PIC18F24K22 kullanarak yapmaya karar verdim,
Hatta 4 Mbit lik Flash a veriyi de yazdım...
Daha istediğim gibi denemek nasip olmadı