单片机音乐喷泉程序

gaoxings

单片机音乐喷泉程序
/ d5 F$ h7 ^! s1 v

% t. X6 z8 ~. G9 ]# E单片机音乐喷泉程序源码：
+ W. q5 c9 C+ j0 q; R#include<reg51.h>
#define uchar unsigned char
#define uint unsigned int
sbit out=P3^7;
sbit led1=P0^0;
sbit led2=P0^1;
$ f  z0 {' p7 {9 [- l6 O0 X7 csbit led3=P0^2;
sbit led4=P0^3;
sbit led5=P0^4;
3 j2 i4 X, O2 ^# @4 {sbit led6=P0^5;
' {& E! ]9 ?- S! ?& E1 M8 E2 Nsbit led7=P0^6;
sbit led8=P0^7;
, a+ v" Z$ v: c+ k6 S' }* E

sbit SCL=P1^2;                //SCL定义为P1口的第3位脚，连接ADC0832SCL脚
, R+ x+ k5 s. r+ g8 C9 Osbit DO=P1^3;                //DO定义为P1口的第4位脚，连接ADC0832DO脚
sbit CS=P1^0;                //CS定义为P1口的第4位脚，连接ADC0832CS脚

; Y, k) I' G0 H+ m0 y( q9 o! D
$ U6 j, G! Y) m2 @8 {- r, T6 h
6 i/ S3 \" ?+ r; {" S
( j& J( K6 w6 T% g* b/ v! R

+ |+ B% S* e8 i( P8 U4 B+ b; I# zuchar h1,date;
unsigned char adval;
void delay(uint z)
7 S: j8 y+ h" c, `{
. K3 {3 I# J! p1 p+ r7 B   uchar y;
, E2 V' U: R5 e/ T8 a) t# G   for(;z>0;z--)
   for(y=5;y>0;y--);
+ {$ w: \" d7 x6 c}


1 \' @7 U6 ]. }; b5 m

* Q+ }2 r$ a5 I, e/***********读数模转换数据********************************************************/        
//请先了解ADC0832模数转换的串行协议，再来读本函数，主要是对应时序图来理解，本函数是模拟0832的串行协议进行的
' C# x! m4 P# o                                                //  1  1  0 通道
                                                //  1  1  1 通道
9 E6 t7 w% ~2 junsigned char ad0832read(bit SGL,bit ODD)
{
        unsigned char i=0,value=0,value1=0;               
" U$ B- _$ y' d; y                SCL=0;
                DO=1;
                CS=0;                //开始
2 e9 E# J' r* c  w                SCL=1;                //第一个上升沿        
& t8 y" N) e4 e                SCL=0;
, Q* S8 Y9 X  I6 X3 `7 a4 d3 x                DO=SGL;
                SCL=1;          //第二个上升沿
                SCL=0;
                DO=ODD;
                SCL=1;           //第三个上升沿
                SCL=0;           //第三个下降沿
  m3 E) O* g& k: p, O+ M( H                DO=1;
% k9 E- g9 m3 |0 r1 D, Y- z0 `                for(i=0;i<8;i++)
0 F5 z3 g; i1 `! P                {
7 r- h+ x' y& h& n$ D# F2 e                        SCL=1;
                        SCL=0; //开始从第四个下降沿接收数据
                        value<<=1;
                        if(DO)
  N8 w9 C: C7 o! g0 c* b                                value++;                                                
( u% O" `5 A) I4 @" z                }
' [8 `; H# M+ R3 M! x                for(i=0;i<8;i++)
                {                        //接收校验数据
1 n6 t) D: H9 w" E/ A                        value1<<=1;
                        if(DO)
2 t* S0 I# v- M# O: R, w5 r  x                                value1+=0x80;
! ]! ^, K: t8 G. Z( k                        SCL=1;
                        SCL=0;
                }
' Z5 e: s: ^3 L) k% E5 @2 r4 U                CS=1;
# [& q( A. }1 K: h                SCL=1;        
                if(value==value1)                                //与校验数据比较，正确就返回数据，否则返回0        
                        return value;
3 |- T1 [1 F: B) X: e* ^2 b        return 0;
" S, X* c1 r1 T0 ?0 R/ m" h# p}

7 O1 z7 Y( M) K" m
void penquan()          //PWM调压
{
0 U. R! Z' g  A5 B2 }/ T4 a6 v    date=ad0832read(1,0);
( W5 K/ F: L9 U  F1 E3 f1 ~/ t+ w        
! M3 _: f/ r0 h$ Z6 q; s    h1=(255-date);
    out=0;
    delay(h1);
# S. W3 h% q4 _1 g; o        if(h1>30) led1=1; else led1=0;
6 K+ e5 @% g1 u# G( b        
& X4 r! N$ |! K, m
7 m/ x" D+ F4 K- @' s& l
7 k1 s2 q( s8 y9 B8 m6 G' }% O

…………余下代码请下载附件…………
) X# l8 {1 n0 u+ }0 V( P8 n' o
; m* h( ~( D7 U( e+ ~$ C; E& {/ O: J下载：

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

  z0 c' h2 Q0 f# T! f, \$ q6 h) g

sunygd

看看楼主的代码

S123456S

看看代码，参考参考
% W0 L4 G9 x3 F1 H