51單片機音樂噴泉原理圖+源程序

ID:306990 · 發表于 2018-12-17 13:33

這是我之前做的一個基于51單片機的音樂噴泉
附有原理圖

單片機源程序如下:

#include<reg51.h>
#define uchar unsigned char
#define uint unsigned int
sbit out=P3^7;
sbit led1=P0^0;
sbit led2=P0^1;
sbit led3=P0^2;
sbit led4=P0^3;
sbit led5=P0^4;
sbit led6=P0^5;
sbit led7=P0^6;
sbit led8=P0^7;
sbit SCL=P1^2; //SCL定義為P1口的第3位腳，連接ADC0832SCL腳
sbit DO=P1^3; //DO定義為P1口的第4位腳，連接ADC0832DO腳
sbit CS=P1^0; //CS定義為P1口的第4位腳，連接ADC0832CS腳
uchar scale;
uchar m;
uchar h1,date;
unsigned char adval;
void delay(uint z)
{
uint y;
for(;z>0;z--)
for(y=5;y>0;y--);
}
/***********讀數模轉換數據********************************************************/
//請先了解ADC0832模數轉換的串行協議，再來讀本函數，主要是對應時序圖來理解，本函數是模擬0832的串行協議進行的
// 1 1 0 通道
// 1 1 1 通道
unsigned char ad0832read(bit SGL,bit ODD)
{
unsigned char i=0,value=0,value1=0;
SCL=0;
DO=1;
CS=0; //開始
SCL=1; //第一個上升沿
SCL=0;
DO=SGL;
SCL=1; //第二個上升沿
SCL=0;
DO=ODD;
SCL=1; //第三個上升沿
SCL=0; //第三個下降沿
DO=1;
for(i=0;i<8;i++)
{
SCL=1;
SCL=0; //開始從第四個下降沿接收數據
value<<=1;
if(DO)
value=value|0x01;
}
for(i=0;i<8;i++)
{ //接收校驗數據
value1=value1>>1;
if(DO)
value1=value1|0x80;
SCL=1;
SCL=0;
}
CS=1;
SCL=1;
DO=1;
if(value==value1) //與校驗數據比較，正確就返回數據，否則返回0
return value;
return 0;
}
void penquan() //PWM調壓
{
date=ad0832read(1,0);
if(date>130&&date<=200)
{
scale=(date-100)/10+2;
if(scale>10)
scale=10;
}
else if(date>200)
scale=10;
else if(date<=130)
scale=0;
if(date>=0&&date<130) P0=0xfe;
else if(date>=130&&date<140) P0=0xfc;
else if(date>=140&&date<150) P0=0xf8;
else if(date>=150&&date<160) P0=0xe0;
else if(date>=160&&date<170) P0=0xe0;
else if(date>=170&&date<180) P0=0xc0;
else if(date>=180&&date<200) P0=0x80;
else if(date>=200) P0=0x00;
// if(date>120) led1=0; else led1=1;
// if(date>130) led2=0; else led2=1;
// if(date>140) led3=0; else led3=1;
// if(date>150) led4=0; else led4=1;
// if(date>160) led5=0; else led5=1;
// if(date>170) led6=0; else led6=1;
// if(date>180) led7=0; else led7=1;
// if(date>200) led8=0; else led8=1;
delay(300);
}
void init()
{
TMOD=0x01;
TH0=0xfc;
TL0=0x18;
ET0=1;
TR0=1;
EA=1;
}
void main()
{
init();
while(1)
{
penquan(); //給定個延時次數
}
}
void T0_time() interrupt 1
{
TH0=0xfc;
TL0=0x18;
m++;
if(m<scale)
{
out=0;
}
else
{
out=1;
}
if(m>10)
{
m=0;
}
}

復制代碼

所有資料51hei提供下載:

1-程序V1.0.rar (21.04 KB, 下載次數: 188)

原理圖.pdf (60.16 KB, 下載次數: 138)

ID:1025314 · 發表于 2022-5-10 11:45

樓主，為啥程序中的中斷程序沒有被調用，能解釋一下嗎？

ID:1025314 · 發表于 2022-5-10 11:44

為啥程序中的中斷程序沒有用到呢？

ID:995475 · 發表于 2021-12-21 23:40

樓主，還在嗎？能不能分享你的Proteus圖

ID:908878 · 發表于 2021-5-8 08:28

我想問一下，你這代碼實現的彩燈變化是什么形式的啊？

ID:810127 · 發表于 2021-4-12 21:18

這個是用AD繪制的圖嗎，有沒有proteus繪制的圖啊

ID:898721 · 發表于 2021-3-30 20:05

快樂眼淚發表于 2020-12-20 20:32
正想做一個，謝謝樓主無私奉獻！

終于找到了，感謝樓主分享

ID:399179 · 發表于 2020-12-20 20:32

正想做一個，謝謝樓主無私奉獻！

ID:846386 · 發表于 2020-12-2 00:01

技術知識不錯，學習了

ID:559084 · 發表于 2020-11-29 21:30

一年后才看見，不知道樓主還在沒

ID:762095 · 發表于 2020-7-22 11:41

景帝劉啟發表于 2020-4-11 16:39
這原理圖，可以直接在protues打開用嗎

proteus.不能打開PDF格式文件，所以打不開的，這個原理圖簡單，自己畫也是很快就畫好的

ID:726982 · 發表于 2020-4-11 17:23

樓主，這protues仿真有沒

ID:726982 · 發表于 2020-4-11 16:39

這原理圖，可以直接在protues打開用嗎

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

51單片機音樂噴泉原理圖+源程序

評分