Cep telefonu melodilerini pic ile çalmak

[hiddenman32]

Merhaba arkadaslar. Bir uygulama için bir melodi üreteci lazımdı bende nokia cep telefonu melodilerini pic moduna ceviren bir yazılım hazırladım ve bulabildiğim kadarı ile sound komutunun notalarının frekanslarını buldum ve aşagıdaki örnek çıktı. İşinize yaraması umudu ile.


Kolay gelsin.

;Include "PROTON_4.INC"
Device = 16F88
       XTAL = 20
              
Symbol  P   =   0
Symbol  P1=   0
Symbol  P2=   0
Symbol  P3=   0      


Symbol C0    =   60      ;DO
Symbol C#0   =   61
Symbol D0    =   62      ;RE
Symbol D#0   =   63
Symbol E0    =   64      ;MI
Symbol F0    =   65      ;FA
Symbol F#0   =   66
Symbol G0    =   67      ;SOL
Symbol G#0   =   68      ;SOL
   
   
Symbol C1   =82      ;DO ........
Symbol C#1=85
Symbol D1   =87      ;RE
Symbol D#1=89
Symbol E1   =92      ;MI
Symbol F1   =94      ;FA
Symbol F#1=95
Symbol G1   =97      ;SOL
Symbol G#1=99      ;SOL
Symbol A1   =101      ;LA
Symbol A#1=102       ;la diyez si bemol
Symbol B1 =104                     ;si     
Symbol B#1=105
Symbol h1   =104        
      
Symbol   C2   =   105    
Symbol   C#2   =   106
Symbol   D2   =   108
Symbol   D#2=   109
Symbol   E2   =   110      
Symbol   F2   =   111
Symbol   F#2   =   112
Symbol   G2   =   113
Symbol   G#2   =   114
Symbol   A2   =   115
Symbol   A#2   =   116
Symbol   B2   =   117
Symbol   B#2   =   118
Symbol  h2    =   117      




; 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]
Delayms 1000


; Parca Adı: Tutuklu

Sound portb.4,[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]
Delayms 1000


; Parca Adı: 12devadam

Sound portb.4,[h1,26,h1,26,f#2,13,e2,13,_
d#2,26,e2,26,e2,13,e2,13,c2,13,h1,13,a1,_
26,h1,26,h1,26,f#2,13,e2,13,d#2,26,e2,13,_
p2,13,e2,26,p2,13,e2,13,e2,13,p2,13,h1,_
26,h1,26,f#2,13,e2,13,d#2,26,e2,26,e2,13,_
e2,13,c2,13,h1,13,a1,26,h1,26,h1,26,f#2,_
13,e2,13,d#2,26,e2,13,p2,13,e2,26,p2,13,e2,13,e2,13]
Delayms 1000

; Parca Adı: Aşkınmapu
Sound portb.4,[a#1,8,g#1,8,g1,16,g#1,16,_
a#1,63,p1,16,a#1,8,g#1,8,g1,16,g#1,16,a#1,_
32,a#1,16,c2,16,a#1,16,g#1,16,g#1,16,g1,_
16,f1,16,g1,63,p1,16,f1,16,g1,16,d#1,16,_
f1,16,d1,16,d#1,16,c1,16,d1,16,d#1,16,f1,_
16,a#1,63,p1,16,a#1,8,g#1,8,g1,16,g#1,16,_
a#1,32,a#1,16,c2,16,a#1,16,g#1,16,g#1,16,_
g1,16,f1,16,g1,63]
Delayms 1000


; Parca Adı: adasahille
Sound portb.4,[c2,17,d2,17,d2,34,d2,34,c2,_
17,d2,9,e2,9,d2,17,c2,17,a#1,17,a#1,9,a1,_
9,c2,17,c2,9,a#1,9,a1,34,a1,17,a#1,17,c2,_
17,d2,17,c2,17,a#1,17,a1,17,a#1,17,a1,17,_
a#1,17,a1,17,a#1,17,d2,9,c2,9,a#1,9,a1,9,g1,34]
Delayms 1000

; 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]
Delayms 1000

; Parca Adı: aglamadegm
Sound portb.4,[c2,32,h1,16,a1,16,g#1,16,_
a1,16,g#1,16,a1,16,f#1,16,d1,32,e1,8,f#1,_
8,g1,32,p1,32,f#1,16,e1,47,d1,32,c#1,16,_
e1,16,d1,24,e1,24,f#1,16,g1,24,a1,24,h1,_
16,c2,32,h1,16,a1,16,g#1,16,a1,16,g#1,16,_
a1,16,f#1,16,d1,32,e1,8,f#1,8,g1,32,p1,_
32,f#1,16,e1,47,d1,32,c#1,16,e1,16,d1,32]
Delayms 1000

; Parca Adı: agorameyha
Sound portb.4,[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,a#1,8,a#1,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,a#1,8,a#1,8,a1,8,a1,16,c2,16,a#1,_
95,c2,16,d2,16,c2,8,a#1,8,a1,32,d2,16,c2,_
16,a#1,16,a1,24]
Delayms 1000

; Parca Adı: agridagief
Sound portb.4,[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]
Delayms 1000

; Parca Adı: Ahbuhay
Sound portb.4,[g#1,9,a1,9,h1,17,h1,17,h1,_
17,a1,9,g#1,9,f1,17,e1,34,g#1,9,a1,9,h1,_
17,h1,17,h1,17,a1,9,g#1,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,g#1,9,g#1,9,f1,_
9,f1,9,e1,9,e1,34]
Delayms 1000

; Parca Adı: aradinmi
Sound portb.4,[g1,16,g1,16,c2,32,c2,32,c2,_
16,d2,16,d#2,32,d#2,16,d2,16,f2,16,d2,16,_
d2,16,c2,16,d2,16,c2,16,c2,16,a#1,16,a#1,_
63,f1,16,f1,16,a#1,32,a#1,32,a#1,16,c2,_
16,d2,32,d2,16,c2,16,d#2,16,c2,16,c2,16,_
a#1,16,c2,16,a#1,16,a#1,16,g#1,16,g#1,63,_
d#1,16,d#1,16,g#1,32,g#1,32,g#1,16,a#1,_
16,c2,32,c2,16,h1,16,d2,32,d2,16,c2,16,_
h1,95,h1,16,c2,16,d2,8,d#2,8,d2,8,c2,8,d2,63]
Delayms 1000

; Parca Adı: artıksevm
Sound portb.4,[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]
Delayms 1000

; Parca Adı: asivemavi
Sound portb.4,[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]
Delayms 1000

; Parca Adı: askinkanun
Sound portb.4,[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]
Delayms 1000

; Parca Adı: Ateşböceğ
Sound portb.4,[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]
Delayms 1000

[fsan]

merhaba hiddenman32,
Picbasic pro ya cevirip proteus ile simüle ettim gayet güzel olmuş..  8) ellerine saglik dostum.


asagidaki Picbasic pro kodu, melodilerin hepsi 16f84 hafizasina sigmadigi icin sadece 4 tanesini caliyor..  

'****************************************************************
'*  Name    : PIC_Melody.BAS                                    *
'*  Author  : "hiddenman32"  thanks!                            *
'*  Date    : 18.08.04                                          *
'*  Version : 1.0                                               *
'*  Notes   : pic-16F84(A), 4Mhz (20Mhz) Xtal,                  *
'*            converted to Picbasic pro by F.San                *
'****************************************************************

@ device pic16F84, XT_OSC, wdt_off, pwrt_on, protect_off

DEFINE OSC 4  '20

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 > 4 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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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 Adi: 
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

BAS, DSN, HEX dosyalar:
http://home.no/fsan/projects/Diverse/PIC_Melody/

[555]

Arkadaşlar ikinize de teşekkürler. Bunları araştırıp toplamak uzun sürer. Büyük kolaylık oldu. Sağolun. Kendimi size karşı borçlu hissediyorum.

[Erkan Gench]

birde şu adresi inceleyin

http://www.beyondlogic.org/pic/ringtones.htm

aynı projenin hi tech C için yapılmış hali.

[DumrulBey]

Merhaba,

Arkadaşlar http://users.picbasic.org/projects/making_music adresine bir haftadır giremiyorum. Problem nedir bilen var mı? Problem bendeyse birisi siteye girip MHT dosyası şeklinde veya daha önce kaydettiği sayfayı e-posta adresime gönderebilir mi? Geçen hafta girmiştim, sistemi yeni yükledim önbellekler uçtu. Çıkmazlardayım anlayacağınız...

Teşekkürler...

[hiddenman32]

İlginize teşekkürler. Çalışmalarınızda başarılar. Yeni melodiler isteyenler olursa yine gönderirim.

Bu arada sound2 kodunu kullanarak polimelodi şeklinde yeniden düzenlemek istiyorum ama müzik bilgim yetersiz bu konuda bilgisi olan varmı veya sound2 yerine frekans out ile yapmayı düşünüyorum. Hepinize Kolay gelsin.

[555]

Freqout ses için çok lüks. Bence buna hiç gerek yok. Çünkü bu komut pwm ile sinüs elde etmeye çalışılıyor. zaten protusta Freqout  ve dtmfout  simülasyonu  zorlanıyor. Ayrıca  freqout için çıkışa filtre vb. eklemek, 20MHz xtall şart gibi bişey. Sinyal genliğinin de gayet düşük olduğunu gözardı etmemek lazım. Fakat bir avantajı tek pinden iki frekans çıkması olabilir.

Hazır konuya el atmışken bir arkadaş çıkıp, dtmf tonları ile nasıl müzik çalarız sorusuna da cevap verse ne iyi olur. Malum bunlar da dual ton. ve bunu da picten kolayca gönderebiliyoruz.

[555]

İşte bişey buldum:

[555]

Arkadaşlar aklıma kötü bişey geldi. . Sakın kimse yapmasın. :oops:
Telefon sapığı olan picimiz zaman zaman görünmez şekilde ilgili aboneyi arayıp  telefonla şarkı falan çalacak. tabi dtmf olarak çalacak. Hani arayıp sessiz bekleyen sapıklar olur ya . İşte onlar gibi. Tabi şarkıyı büyük bir ustalıkla çalarak nitelikli bir sapıklık sergileyecek

[gosub]

Arkadaşım seni tebrik ediyorum gerçekten güzel bir çalışma yapmışsın


SAYGILARIMLA  :roll:

[hiddenman32]

Teşekkür ederim. Daha iyi çalışmalarda hep birlikte olmak arzusuyla.

[z]

Polifonik ses denince aynı anda birden fazla nota çalınabiyor diyemi anlayacağız?

Yoksa nota herhangi bir enstrumanın notasına benziyor diyemi düşüneceğiz? (Harmonik açısından)

[cozturk]

aynı anda birden fazla nota çalınabiyor diye

[tazmana]

bu programın hepsi 16f84e sığmıyor ya bunu eeproma yükleyip 16f84ün oradaki programı çalıştırmasını nasıl sağlayabiliriz..birde bu melodile hangi programla üretiyorsunuz..teşekkürler.

[fsan]

@tazmana,
melodi datalar + bir "stop character" eeproma programlanip daha sonra eepromdaki her melodinin start adresi pic icerisinde bir array degiskenine not edilirse olur tabiki.

bir melodi dinlemek icin bir loop icerisinde:

loop:
I2CREAD SDA, SCL, I2CDEVICE, I2CADDRESS, [DATA]
if DATA = STOP_CHAR then MAIN
GOSUB PLAY_TONE
I2CADDRESS = I2CADDRESS + 1 ' burasi gerekli olmaya bilir.
goto loop

melodi yapma programina gelince:

asagidaki program ile bazi midi dosyalarini cevirmek mumkun gibi görünüyor, yalniz bu codlarin ne anlama geldigini ögrenmek lazim.. bunu belki hiddenman32 arkadas daha iyi bilir ?.


http://www.codingworkshop.com/ringtones/download.html?platform=Windows