单片机音乐喷泉程序

gaoxings

单片机音乐喷泉程序

& F7 y- a3 A, [5 d. N: w
单片机音乐喷泉程序源码：
, N! s+ g1 g! L  F+ j#include<reg51.h>
#define uchar unsigned char
, I1 J: d5 r1 Y+ i#define uint unsigned int
sbit out=P3^7;
4 I6 A& w+ o; N  ?  o" Fsbit led1=P0^0;
0 a4 h5 A9 V7 v8 C8 Y- B  isbit led2=P0^1;
+ L# b; H/ V+ u  c6 ~; Csbit led3=P0^2;
! d  H% H; Z9 a& ]0 msbit led4=P0^3;
sbit led5=P0^4;
0 A5 m: e( D: L1 R) q" Lsbit led6=P0^5;
sbit led7=P0^6;
sbit led8=P0^7;
" _5 @3 ^1 J' \

sbit SCL=P1^2;                //SCL定义为P1口的第3位脚，连接ADC0832SCL脚
% ]! i2 V1 A) @' x- w: Psbit DO=P1^3;                //DO定义为P1口的第4位脚，连接ADC0832DO脚
sbit CS=P1^0;                //CS定义为P1口的第4位脚，连接ADC0832CS脚


, H) @) o: a) E% X6 J

! L- ?: }+ H5 n* A) t
5 a- \2 y3 ?3 ]9 h2 B% m
uchar h1,date;
- o2 c2 g4 j/ n4 B& Yunsigned char adval;
/ p5 \' P4 z: mvoid delay(uint z)
, k! i4 c3 I  b/ W* @5 r4 @{
( E4 N" N) |5 A   uchar y;
+ T! x  D7 j; d4 V   for(;z>0;z--)
$ q; M- V& ?2 \" w# {! E3 @   for(y=5;y>0;y--);
}

7 H& R4 J' e+ W( k# N7 n3 u
3 c$ j0 O8 V) X1 \- Q* D4 _
! I9 c3 f! A1 V  a  Y
/***********读数模转换数据********************************************************/        
//请先了解ADC0832模数转换的串行协议，再来读本函数，主要是对应时序图来理解，本函数是模拟0832的串行协议进行的
                                                //  1  1  0 通道
. E$ N! L2 K7 N                                                //  1  1  1 通道
/ r/ T! k, d4 U- l& d/ X: Yunsigned char ad0832read(bit SGL,bit ODD)
1 b6 I, j" x; J" m{
* s( B9 k( U) h; Z# ?# L% v/ I        unsigned char i=0,value=0,value1=0;               
                SCL=0;
                DO=1;
3 c8 w7 W  {+ U* B                CS=0;                //开始
8 m1 V- D( N, O0 b                SCL=1;                //第一个上升沿        
                SCL=0;
                DO=SGL;
9 L8 s1 J4 }3 G! z( r                SCL=1;          //第二个上升沿
                SCL=0;
                DO=ODD;
                SCL=1;           //第三个上升沿
+ B8 i) X6 ], W9 ~' t3 ^5 [                SCL=0;           //第三个下降沿
                DO=1;
( _8 K) m) g, R( I                for(i=0;i<8;i++)
                {
! m/ X8 l/ H" U, H1 z                        SCL=1;
& R/ S: E8 M6 k6 ^( t1 I  x# |                        SCL=0; //开始从第四个下降沿接收数据
                        value<<=1;
                        if(DO)
2 q1 B6 U9 U7 m4 z                                value++;                                                
5 `8 X/ O# b1 d$ |; R                }
- V! `3 {* I8 i; k7 s: s                for(i=0;i<8;i++)
/ K/ }7 G1 p3 t" ?1 r                {                        //接收校验数据
                        value1<<=1;
- B0 D; |. f7 k                        if(DO)
1 O4 `# |8 Q* w1 [: X+ D                                value1+=0x80;
                        SCL=1;
& W1 J7 u' f1 A0 e% n                        SCL=0;
; Z* b1 y; ]; z; [* Q! g& ?                }
                CS=1;
* g( v0 L. x0 E- ~9 {7 G) D! M. ^% b                SCL=1;        
! k  f0 c8 l* `- R7 d# t2 a, p                if(value==value1)                                //与校验数据比较，正确就返回数据，否则返回0        
                        return value;
. e. h! ]  t6 B/ F1 L& ]5 C        return 0;
}


$ k2 M! c% p. r+ v8 t; a( G) Wvoid penquan()          //PWM调压
{
    date=ad0832read(1,0);
% x7 e9 r% ?2 {( m$ W8 ?, N, X        
    h1=(255-date);
    out=0;
    delay(h1);
0 l8 d4 T7 R+ _+ l        if(h1>30) led1=1; else led1=0;
        
8 h! @. c5 a  }( _/ v
* H* z$ d3 O5 B/ l5 P
7 M( |* @) Z7 C/ T
9 P2 k( u% N+ P2 i3 X  r
, x  T, E1 E3 a( Z' j) c1 F+ W8 R…………余下代码请下载附件…………

/ O( ?% Z6 v  k下载：
2 C( B' c; u  [& L! O( ~, s

游客，如果您要查看本帖隐藏内容请回复

sunygd

看看楼主的代码

S123456S

看看代码，参考参考
. X3 n. e9 A* b