找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 6018|回复: 0
打印 上一主题 下一主题
收起左侧

单片机数控直流稳压电源proteus仿真及源程序

[复制链接]
跳转到指定楼层
楼主
分享一个用51单片机做的数控制流稳压电源的proteus仿真,下面是原理图:


单片机源程序:
  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. display();

  86.    }
  87.    }
  88.    void  time() interrupt 3
  89.   {
  90.      clk=!clk;
  91.     }
复制代码


仿真工程文件及所有完整程序等资料下载地址:
http://www.51hei.com/bbs/dpj-56304-1.html

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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