bu kod ile pic 16f84 ile ses elde edebiliriz kodları buraya yazıyorum
TIRSA=%00000
TRISB=%00000000
PORTA=0
PORTB=0
i VAR BYTE
FOR i=0 TO 255
PORTA.0,[i,30]
NEXT i
END
'KULLANILAN MALZEMELER pic 16f84 ,10 uf kondansator,pc hoparloru yada ses yükselteç devresi yada isis devre çizim programında simülasyon denemesi yapabilirsiniz.
pic 16f84 porta.0 'a kondansatoru kondansatorun diğer kısmına hoparloru hoparlorun diğer bağlantısınıda
gnd 'ye yapıyoruz.
basit bir devre ama amaç bu yolla web sitelerinden alabileceğimiz notaları 0 ile 255 arası kullanıp melodiler oluşturabiliriz. bunu şöyle yaparız:
TRISA=%00000
TRISB=%00000000
PORTA=0
PORTB=0
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
START:
SOUND PORTA.1,_
[82,82,_ 'DO
88,88,_ 'RE
94,94,_ 'Mi
99,99,_ 'FA
102,102,_ 'SOL
106,106,_ 'LA
110,110] 'Si
NOTALAR:
SOUND PORTA.1,[106,106,110,110]
GOTO START
END