北邮PIC单片机实验音乐播放器.docx_第1页
北邮PIC单片机实验音乐播放器.docx_第2页
北邮PIC单片机实验音乐播放器.docx_第3页
北邮PIC单片机实验音乐播放器.docx_第4页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

#include#include#include#pragma config FNOSC = PRIPLL / Oscillator Selection#pragma config FPLLIDIV = DIV_2 / PLL Input Divider (PIC32 Starter Kit: use divide by 2 only)#pragma config FPLLMUL = MUL_20 / PLL Multiplier#pragma config FPLLODIV = DIV_1 / PLL Output Divider#pragma config FPBDIV = DIV_1 / Peripheral Clock divisor#pragma config FWDTEN = OFF / Watchdog Timer#pragma config WDTPS = PS1 / Watchdog Timer Postscale#pragma config FCKSM = CSDCMD / Clock Switching & Fail Safe Clock Monitor#pragma config OSCIOFNC = OFF / CLKO Enable#pragma config POSCMOD = XT / Primary Oscillator#pragma config IESO = OFF / Internal/External Switch-over#pragma config FSOSCEN = OFF / Secondary Oscillator Enable/调试模式选择,通过配置寄存器DEV_CONFIG0#pragma config CP = OFF / Code Protect#pragma config BWP = OFF / Boot Flash Write Protect#pragma config PWP = OFF / Program Flash Write Protect#pragma config ICESEL = ICS_PGx2 / ICE/ICD Comm Channel Select#pragma config DEBUG = ON / Debugger Disabled for Starter Kitint m=0;int n=0;int m1=0;n1=0;int p;int delay;int ts,time,savetime;int led1,led2;int freq=1911,1703,1516,1332,1275,1136,1012, 915,851,758,670,638,568,506, 458,426,379,333,319,284,253;int detime=50,56,63,72,75,84,95,100,112,126,143,150,168,189,201,225,253,287,299,336,378;int a=512,522,422,324,322,421,325,322,422,322,422,322,221,125,2,122,322,522,623,622,521,522,222,222,421,325,2,122,322,522,624,622,621,523,222,222,422,322,422,322,222,125,2,222,322,614,612,122,123,714,126,4,4,0;int b=1,2,1,0,0,0;int c=2,3,3,0,0,0;int read(int a,int i) int k=ai/100; int j=(ai-100*k)/10; p=k+7*j-7; if(p0) ts=0; else ts=floor(freqp*80/256); time=ai-100*k-10*j; return ts,time; main() AD1PCFG=0xffff;TRISB=0; T1CON=0x8030; PR1=0xffff; int q=0; while(1) read(a,q); if(time!=0) if(ts!=0)for (m=0;mtime;m+) for(n=0;ndetimep;n+) PORTBbits.RB8=1;TMR1=0;while(TMR1ts)PORTB=0;TMR1=0;while(TMR1ts) m1+; n1=m1%8; T2CON=0x8070; PR2=0Xffff; switch(n1) case 0: PORTBbits.RB9=1;break; case 1: PORTBbits.RB10=1;break; case 2: PORTBbits.RB11=1;break; case 3: PORTBbits.RB12=1;break; case 4: PORTBbits.RB13=1;break; case 5: PORTBbits.RB14=1;break; case 6: PORTB=0xfe00;break; case 7: PORTB=0;break; case 8:PORTB=0xfe00;break; default: PORTB=0xffff; TMR2=0;while(TMR225000)PORTB=0;else for (m=

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论