单片机电位器调节PWM控制微型直流电机无级调速实验.docVIP

基于STC12C4052AD单片机电位器调节PWM控制微型直流电机无级调速实验 用STC单片机做完电压表演示后，很想做一做STC片内A/D转换与PWM的联用，此前曾用过它的PWM功能，是双键控制LED发光管调光的应用，此次决定搞一次电位器调光/调速的实验；器材如下：1.STC12C4052AD单片机最小系统。2.10K可调电阻。3.光驱出/进仓驱动微电机一只。 电路图如下： 实验程序如下： /**********************************************************************基于STC单片机的电位器调节微型直流电机无级调速演示程序---wannenggong程序根据杜洋的程序模板改编由电位器获得直流变量经片内ADC进行A/D转换，转换值控制片内PWM驱动微电机**********************************************************************/#include STC12C2052AD.H??//单片机头文件#include intrins.h????//51基本运算（包括_nop_空函数）#define uchar unsigned char#define uint unsigned intuint M;sbit ON=P3^0;/*****************************************************************函数名：毫秒级CPU延时函数调? 用：DELAY_MS (?);参? 数：1~65535（参数不可为0）返回值：无结? 果：占用CPU方式延时与参数数值相同的毫秒时间备? 注：应用于1T单片机时i600，应用于12T单片机时i125/******************************************************************/void DELAY_MS (uint a){?uint i;?while( a-- != 0){??for(i = 0; i 600; i++);?}}/*******************************************************************函数名：8位A/D转换函数调? 用：? = Read ();参? 数：无返回值：8位的ADC数据结? 果：读出指定ADC接口的A/D转换值，并返回数值备? 注：适用于STC12C2052AD系列单片机（必须使用STC12C2052AD.h头文件）*******************************************************************/uchar Read (uchar CHA){uchar AD_FIN=0;???//存储A/D转换标志/******以下为ADC初始化程序****************************/??? CHA = 0x07;???//选择ADC的8个接口中的一个（0000 0111 清0高5位）??? ADC_CONTR = 0x40;?//ADC转换的速度设定??? _nop_();??? ADC_CONTR |= CHA;?? //选择A/D当前通道??? _nop_();??? ADC_CONTR |= 0x80;? //启动A/D电源??? DELAY_MS(1);??????? //使输入电压达到稳定（1ms即可? /******以下为ADC执行程序****************************/??? ADC_CONTR |= 0x08;????? //启动A/D转换（0000 1000 令ADCS = 1）??? _nop_();??? _nop_();??? _nop_();??? _nop_();??? while (AD_FIN ==0){???? //等待A/D转换结束??? AD_FIN = (ADC_CONTR 0x10); //0001 0000测试A/D转换结束否??? }??? ADC_CONTR = 0xE7;????? //1111 0111 清ADC_FLAG位, 关闭A/D转换,return (ADC_DATA);????????? //返回A/D转换结果（8位）} /**********PWM初始化函数****************************************/void PWM_init (void){CMOD=0x02; ???//PCA工作模式设定