ARAMA YAPIN

25 Nisan 2015 Cumartesi

16F628A ile Piyano Devresi

elektronik devreler | Elektronik Devreler şemalar 8 adet buton ile notaları çalan 16F628A mikro işlemci ile yapılan devre.
Devrenin çalışma frekansını kristalsiz dahili osilatör belirliyor.
Butonlara pull-up direnç koymayı unutmayın. Aksi halde butona (tuş)
basılmış gibi kendiliğinden notaları çalar.


   Alttaki linkten piyano projesinin bas ve hex dosyalarını indirebilirsiniz.

'****************************************************************
'*  Name    : piyano_16F628A.BAS                                      *
'*  Author  : [Şinasi Yavuz]                                    *
'*  Notice  : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 25.04.2015                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
'DEFINE LOADER_USED 1
'define osccal_1k 2
     
define osc 4
@ DEVICE pic16f628a,mclr_off,INTRC_OSC_NOCLKOUT

TRISB=%11111110
PORTB=%11111110                  

TRISA=255
PORTA=255

CMCON=7

P  con 0
P1 con 0
P2 con 0
P3 con 0
p4 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
'***********************
parca var byte
sescikisi var portb.0
tus_1 var portb.1
tus_2 var portb.2
tus_3 var portb.3
tus_4 var portb.4
tus_5 var portb.5    
tus_6 var portb.6  
tus_7 var portb.7
tus_8 var porta.0
ana:

  select case   parca


  case tus_1
    Sound sescikisi,[C1,19]
 
   case tus_2
    Sound sescikisi,[D1,19]
 
    case tus_3
    Sound sescikisi,[E1,19]
 
    case tus_4
    Sound sescikisi,[F1,19]
 
    case tus_5
    Sound sescikisi,[G1,19]
 
      case tus_6
    Sound sescikisi,[A1,19]
 
    case tus_7
    Sound sescikisi,[B1,19]
 
    case tus_8
    Sound sescikisi,[CX2,19]
           

      end select  
goto ana

end

piyano_16F628A dosyası indir

Hiç yorum yok:

Yorum Gönder

Yorum yazın