Ding Dong.

Başlatan sanalgezgin, 13 Haziran 2006, 19:40:36

sanalgezgin

Arkadaşlar picbasic pro daki sound komutunu kullanarak ding donk kapi zili sesini elde etmek istiyorum bazi parçalarin notalari elimde var onlari pic e yüklediğim zaman çaliyor. ama ding dong sesini nasil çalacağimi bilmiyorum. bununla ilgili hazir bir data tablosu veya ding dong sesinin notalari elinde olan varmi acaba. müzikten pek anlamam ama notalari elimde olsa oluşturabileceğimi tahmin ediyorum. yardimci olacaklara şimdiden teşekkürler.   :)  :)  :)

mustafacan

forumda bi yerlerde pice ses yüklemek konusu vardı belki senin için daha zahmetsiz bi uygulama olur.
Keşfedilecek çok teknoloji var. Boş Vaktim Yok!

sanalgezgin

burada zil gibi uygulamalarla uğraşan kimse yokmu..  :)  :)  :)

mustafacan

isisin kendi samplelelrinde kapı zili var bide oraya bak
Keşfedilecek çok teknoloji var. Boş Vaktim Yok!

seco06

Sana bir örnek  ;)
@ device pic16F876, XT_OSC, wdt_off, pwrt_on, protect_off


P  con 0
P1 con 0
P2 con 0
P3 con 0

C0  con 60 'DO
CX0 con 61
D0  con 62 'RE
DX0 con 63
E0  con 64 'MI
F0  con 65 'FA
FX0 con 66
G0  con 67 'SOL
GX0 con 68 'SOL

C1  con 82 'DO........
CX1 con 85
D1  con 87 'RE
DX1 con 89
E1  con 92 'MI
F1  con 94 'FA
FX1 con 95
G1  con 97 'SOL
GX1 con 99 'SOL
A1  con 101 'LA
AX1 con 102 'ladiyezsibemol
B1  con 104 'si
BX1 con 105
h1  con 104

C2  con 105
CX2 con 106
D2  con 108
DX2 con 109
E2  con 110
F2  con 111
FX2 con 112
G2  con 113
GX2 con 114
A2  con 115
AX2 con 116
B2  con 117
BX2 con 118
h2  con 117

spkr  var PortB.4
parca var byte

TrisA = %11111     'PortA.0-4 inputs
PortA = 0
TrisB = %11101111  'Portb.4 output
PortB = 0

parca = 0

Main
    parca = parca + 1
    if parca > 15 then parca = 1
    gosub Parca_cal
goto Main

Parca_cal:
    select case parca
        case 01: gosub adinianmay
        case 02: gosub Tutuklu
        case 03: gosub on2devadam
        case 04: gosub Askinmapu
        case 05: gosub adasahille
        case 06: gosub aglamadegm
        case 07: gosub agorameyha
        case 08: gosub agridagief
        case 09: gosub Ahbuhay
        case 10: gosub aradinmi
        case 11: gosub artiksevm
        case 12: gosub askinkanun
        case 13: gosub asivemavi
        case 14: gosub Atesboceg
    end select
    pause 1000
return

 ' Parca Adı: 
adinianmay: 
     Sound portb.4,[A1,29,c2,14,h1,14,A1,29,c2,_ 
     14,h1,14,A1,14,A1,29,c2,14,h1,14,A1,29,_ 
     c2,14,h1,14,A1,14,d2,29,c2,29,h1,14,A1,_ 
     14,h1,29,A1,14,g1,114,g1,29,h1,14,A1,14,_ 
     g1,29,h1,14,A1,14,g1,14,g1,29,h1,14,A1,_ 
     14,g1,29,h1,14,A1,14,g1,14,e2,29,c2,29,_ 
     A1,29,f1,14,g1,14,f1,14,e1,43,f1,8,g1,8,_ 
     A1,8,h1,8,c2,8,d2,8,e2,43] 
return 

' Parca Adı: 
Tutuklu: 
     Sound spkr,[h1,29,c2,29,d2,29,h1,29,A1,29,_
     g1,29,f1,14,e1,14,A1,114,e1,29,f1,14,g1,14,_
     A1,57,p1,29,A1,29,h1,29,c2,29,A1,29,g1,29,f1,29,_
     e1,14,f1,14,g1,114,f1,29,e1,14,f1,14,g1,57,_
     p1,29,g1,29,A1,29,h1,29,c2,14,h1,29,A1,14,g1,29,_
     f1,14,e1,14,f1,114,p1,29,g1,29,A1,29,_
     h1,29,g1,29,f1,29,A1,14,g1,14,f1,14,e1,14,e1,57] 
return 

' Parca Adı: 
on2devadam: 
     Sound spkr,[h1,26,h1,26,fx2,13,e2,13,_ 
     dx2,26,e2,26,e2,13,e2,13,c2,13,h1,13,A1,_ 
     26,h1,26,h1,26,fx2,13,e2,13,dx2,26,e2,13,_ 
     p2,13,e2,26,p2,13,e2,13,e2,13,p2,13,h1,_ 
     26,h1,26,fx2,13,e2,13,dx2,26,e2,26,e2,13,_ 
     e2,13,c2,13,h1,13,A1,26,h1,26,h1,26,fx2,_ 
     13,e2,13,dx2,26,e2,13,p2,13,e2,26,p2,13,e2,13,e2,13] 
return 

' Parca Adı: 
Askinmapu: 
     Sound spkr,[ax1,8,gx1,8,g1,16,gx1,16,_ 
     ax1,63,p1,16,ax1,8,gx1,8,g1,16,gx1,16,ax1,_ 
     32,ax1,16,c2,16,ax1,16,gx1,16,gx1,16,g1,_ 
     16,f1,16,g1,63,p1,16,f1,16,g1,16,dx1,16,_ 
     f1,16,d1,16,dx1,16,c1,16,d1,16,dx1,16,f1,_ 
     16,ax1,63,p1,16,ax1,8,gx1,8,g1,16,gx1,16,_ 
     ax1,32,ax1,16,c2,16,ax1,16,gx1,16,gx1,16,_ 
     g1,16,f1,16,g1,63] 
return 

' Parca Adı: 
adasahille: 
     Sound spkr,[c2,17,d2,17,d2,34,d2,34,c2,_ 
     17,d2,9,e2,9,d2,17,c2,17,ax1,17,ax1,9,A1,_ 
     9,c2,17,c2,9,ax1,9,A1,34,A1,17,ax1,17,c2,_ 
     17,d2,17,c2,17,ax1,17,A1,17,ax1,17,A1,17,_ 
     ax1,17,A1,17,ax1,17,d2,9,c2,9,ax1,9,A1,9,g1,34] 
return 

' Parca Adı: 
aglamadegm: 
     Sound spkr,[c2,32,h1,16,A1,16,gx1,16,_ 
     A1,16,gx1,16,A1,16,fx1,16,d1,32,e1,8,fx1,_ 
     8,g1,32,p1,32,fx1,16,e1,47,d1,32,cx1,16,_ 
     e1,16,d1,24,e1,24,fx1,16,g1,24,A1,24,h1,_ 
     16,c2,32,h1,16,A1,16,gx1,16,A1,16,gx1,16,_ 
     A1,16,fx1,16,d1,32,e1,8,fx1,8,g1,32,p1,_ 
     32,fx1,16,e1,47,d1,32,cx1,16,e1,16,d1,32] 
return 

' Parca Adı: 
agorameyha: 
     Sound spkr,[e2,63,e2,4,f2,4,e2,63,d2,_ 
     8,e2,8,f2,8,e2,8,e2,8,d2,8,d2,8,c2,8,c2,_ 
     8,ax1,8,ax1,8,A1,8,A1,8,g1,8,d2,63,d2,4,_ 
     e2,4,d2,63,c2,8,d2,8,e2,8,d2,8,d2,8,c2,_ 
     8,c2,8,ax1,8,ax1,8,A1,8,A1,16,c2,16,ax1,_ 
     95,c2,16,d2,16,c2,8,ax1,8,A1,32,d2,16,c2,_ 
     16,ax1,16,A1,24] 
return 

' Parca Adı: 
agridagief: 
     Sound spkr,[A1,24,e2,24,e2,48,e2,48,e2,_ 
     24,f2,24,f2,24,e2,24,e2,24,d2,24,d2,24,_ 
     c2,24,d2,48,c2,24,d2,24,d2,48,d2,48,d2,_ 
     24,g2,24,d2,48,d2,24,c2,24,c2,24,h1,24,_ 
     c2,48,h1,24,c2,24,c2,48,c2,48,h1,24,c2,_ 
     24,c2,24,h1,24,h1,24,A1,24,A1,24,g1,24,_ 
     g1,48,h1,24,c2,24,c2,24,h1,24,h1,24,A1,_ 
     24,A1,72,A1,24,A1,48,A1,48] 
return 

' Parca Adı: 
Ahbuhay: 
     Sound spkr,[gx1,9,A1,9,h1,17,h1,17,h1,_ 
     17,A1,9,gx1,9,f1,17,e1,34,gx1,9,A1,9,h1,_ 
     17,h1,17,h1,17,A1,9,gx1,9,f1,17,e1,34,h1,_ 
     9,c2,9,d2,17,d2,17,d2,17,e2,9,d2,9,c2,9,_ 
     h1,9,c2,34,h1,9,A1,9,A1,9,gx1,9,gx1,9,f1,_                 
     9,f1,9,e1,9,e1,34] 
return 

' Parca Adı: 
aradinmi: 
    Sound spkr,[g1,16,g1,16,c2,32,c2,32,c2,_ 
    16,d2,16,dx2,32,dx2,16,d2,16,f2,16,d2,16,_ 
    d2,16,c2,16,d2,16,c2,16,c2,16,ax1,16,ax1,_ 
    63,f1,16,f1,16,ax1,32,ax1,32,ax1,16,c2,_ 
    16,d2,32,d2,16,c2,16,dx2,16,c2,16,c2,16,_ 
    ax1,16,c2,16,ax1,16,ax1,16,gx1,16,gx1,63,_ 
    dx1,16,dx1,16,gx1,32,gx1,32,gx1,16,ax1,_ 
    16,c2,32,c2,16,h1,16,d2,32,d2,16,c2,16,_ 
    h1,95,h1,16,c2,16,d2,8,dx2,8,d2,8,c2,8,d2,63] 
return 

' Parca Adı: 
artiksevm: 
    Sound spkr,[e1,16,f1,16,g1,16,f1,16,e1,_ 
    16,d1,16,e1,126,p1,32,e1,16,f1,16,g1,16,_ 
    A1,16,h1,16,c2,16,A1,126,p1,32,h1,16,c2,_ 
    16,d2,16,c2,16,h1,16,A1,16,g1,32,A1,16,_ 
    h1,16,c2,16,h1,16,A1,16,g1,16,f1,32,e1,_ 
    16,f1,16,g1,16,f1,16,e1,16,d1,16,e1,8,e1,_ 
    8,e1,16,f1,8,f1,8,f1,16,g1,8,g1,8,g1,16,_ 
    f1,8,f1,8,f1,16,e1,32] 
return 

' Parca Adı: 
asivemavi: 
    Sound spkr,[A1,19,h1,19,c2,37,h1,37,A1,_ 
    37,g1,19,f1,10,e1,10,f1,19,f1,10,e1,10,_ 
    d1,74,g1,19,A1,19,h1,37,A1,37,g1,37,f1,_ 
    37,e1,111,A1,19,h1,19,c2,37,h1,37,A1,37,_ 
    g1,19,f1,10,e1,10,f1,19,f1,10,e1,10,d1,_ 
    74,g1,19,A1,19,h1,19,h1,10,A1,10,A1,19,_ 
    A1,10,g1,10,g1,19,g1,10,f1,10,f1,19,e1,_ 
    19,e1,10,g1,10,f1,10,e1,10,e1,19] 
return 

' Parca Adı: 
askinkanun: 
    Sound spkr,[e1,19,e1,19,g1,19,g1,19,A1,_ 
    19,g1,56,A1,19,A1,37,h1,10,A1,10,g1,74,_ 
    c2,19,c2,19,A1,19,g1,19,f1,19,A1,56,g1,_ 
    19,e1,19,f1,19,d1,19,e1,19,p1,37,e2,19,_ 
    f2,37,g2,19,e2,19,d2,19,c2,37,h1,19,c2,_ 
    19,A1,19,h1,19,g1,56,p1,10,c2,19,c2,19,_ 
    A1,19,g1,19,f1,19,A1,56,g1,19,e1,19,f1,_ 
    19,d1,19,e1,37] 
return 

' Parca Adı: 
Atesboceg: 
    Sound spkr,[e2,14,e2,14,d2,14,c2,14,d2,_ 
    21,c2,8,h1,14,d2,14,p2,14,d2,8,d2,8,c2,_ 
    14,h1,14,c2,21,h1,8,A1,29,e2,14,e2,14,d2,_ 
    14,c2,14,d2,21,c2,8,h1,14,d2,14,p2,14,d2,_ 
    8,d2,8,c2,14,h1,14,c2,21,h1,8,A1,29,e1,_ 
    14,e1,14,c2,14,c2,14,h1,8,A1,8,h1,43,p2,_ 
    14,d2,8,d2,8,c2,14,h1,14,c2,21,h1,8,A1,_ 
    29,e1,14,e1,14,c2,14,c2,14,h1,21,A1,8,h1,_ 
    29,p2,14,d2,8,d2,8,c2,14,h1,14,c2,21,h1,8,A1,29] 
return

end

sanalgezgin

ya arkadaslar bu kodlari biliyorum, ding dong kapi zilinin notalarini bilmiyorum müzikten anlamadiğim içinde bu ding dong sesi bana bir şey ifade etmiyor.  noalari bulabileceğim bir yerler biliyormusunuz acaba yardimlariniz için sağolun.   :)  :)  :)

z

Ding dong soylendigi gibi sadece 2 notadan ibaret. Ancak burada problem zarf sinyalini elde etmek. Basicdeki notalar tahminimce duz sinyaldir. Senin yapman gereken sey pwm frekansini ana nota frekansinda baslatmak ve  frekansi sabit tutup duty'i exp yada dogrusal olarak kismak. Ancak bu sekilde dinggggg sesini elde edersin.

Saf notlarla ses ding dong seklinde değil da di seklinde cikar. Basic hiz olarak yetisirmi bilemiyorum asm ile kolayca ustesinden gelinir.

Kod yaz dersen yazamam.
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

My75

Daha orjinal bir sound istersen HT2811 entegresini bir incele piyasada mevcut..Kolay gelsin..
Tomurcuk için çaba göstermeyen dal,odun kalmaya mahkumdur...

CaFFeiNe

mekanik ding-dong zil üstüne başkasını tanımam :)
çok güzel sesi var.

My75

Sana katılıyorum Caffeine,birde bizim görüntülü kapı telefonlarında (commax) kullanılan MT2800 entegresi var süper bir polifonik soundu var özel üretim çünkü nette bulamadım..HT2811 eski versiyonlarda kullanılıyor..
Tomurcuk için çaba göstermeyen dal,odun kalmaya mahkumdur...