找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 7179|回复: 4
收起左侧

单片机数控直流稳压电源Proteus仿真0-15V 带源程序

[复制链接]
ID:202306 发表于 2017-5-19 12:17 | 显示全部楼层 |阅读模式
基于51单片机的直流稳压电源设计,电压:0-15V

电源的仿真原理图如下(proteus仿真工程文件可到本帖附件中下载):
0.png

仿真图

仿真图
0.png

单片机源程序如下:
  1. #include<reg51.h>
  2. #include<absacc.h>
  3. #define  dac0832 XBYTE[0X7fff]
  4. unsigned char code shu[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90};
  5. float s;
  6. sbit ALE=P3^0;
  7. sbit START=P3^1;
  8. sbit EOC=P3^2;
  9. sbit OE=P3^3;
  10. sbit SHCP=P2^0;
  11. sbit DS=P2^1;
  12. sbit STCP=P2^2;
  13. sbit P11=P3^5;
  14. sbit P12=P3^7;
  15. sbit clk=P2^6;
  16. unsigned char j,k,m,n,i,a;
  17. unsigned int b;
  18. void delay(unsigned char t)
  19. {  while(t--);
  20.    }
  21. void display()
  22. {
  23.   
  24.   j=0x01;
  25.   for(i=0;i<8;i++)
  26.   { if((shu[m]&j)==0)
  27.        { DS=0;}
  28.      else {DS=1;}
  29.     SHCP=1;
  30.     SHCP=0;
  31.       j<<=1;
  32.     }        
  33.         P12=0;
  34.     P11=1;

  35.    
  36.            
  37.    

  38.     STCP=0;
  39.     STCP=1;
  40.     delay(200);
  41.    j=0x01;
  42.     for(i=0;i<8;i++)
  43.      { if((shu[n]&j)==0)
  44.        { DS=0;}
  45.    else {DS=1;}
  46.      SHCP=1;
  47.    SHCP=0;
  48.      j<<=1;
  49.     }
  50.            P11=0;
  51.     P12=1;
  52.   
  53.    
  54.         
  55.       STCP=0;
  56.    STCP=1;
  57.    delay(200);
  58.      }
  59.   

  60. void main()
  61. {
  62. P2=0X87;
  63. TMOD=0X20;
  64. TH1=0X06;
  65. TL1=0X06;
  66. EA=1;
  67. ET1=1;
  68. TR1=1;

  69. while(1)
  70. {
  71.    ALE=1;
  72.    ALE=0;
  73.    START=1;
  74.    START=0;
  75.    while(EOC==0);
  76.    OE=1;
  77.    k=P1;
  78.    a=P1;
  79.    b=a*6;
  80.    m=b/1000;
  81.    n=b%1000/100;
  82.    
  83.    dac0832=k;
  84.   
  85. ……………………

  86. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
0025、数控直流稳压电源.7z (40.05 KB, 下载次数: 157)
回复

使用道具 举报

ID:523554 发表于 2019-4-28 12:28 | 显示全部楼层
学习学习
回复

使用道具 举报

ID:298582 发表于 2019-1-12 21:11 | 显示全部楼层
最近做正负15伏的,敲不出来。下回去看看,谢谢分享
回复

使用道具 举报

ID:421537 发表于 2019-1-10 21:41 | 显示全部楼层
大佬,这个接个电机怎么接呀?
回复

使用道具 举报

ID:217754 发表于 2017-10-13 20:23 | 显示全部楼层
正好需要单片机控制超过5V的例程看一下。下来学习一下。谢谢分享
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表