数控直流稳压电源 Proteus

数控直流稳压电源 Proteus数控直流稳压电源 Proteus

//http://proteus.5d6d.com
#include
#include
#define  dac0832 XBYTE[0X7fff]
unsigned char code shu[]={0xc00xf90xa40xb00x990x920x820xf80x800x90};
float s;
sbit ALE=P3^0;
sbit START=P3^1;
sbit EOC=P3^2;
sbit OE=P3^3;
sbit SHCP=P2^0;
sbit DS=P2^1;
sbit STCP=P2^2;
sbit P11=P3^5;
sbit P12=P3^7;
sbit clk=P2^6;
unsigned char jkmnia;
unsigned int b;
void delay（unsigned char t）
{  while（t--）; 
   }
void display（）
{ 
  
  j=0x01;
  for（i=0;i<8;i++）
  { if（（shu[m]&j）==0）
       { DS=0;}
     else {DS=1;}
    SHCP=1;
    SHCP=0;
      j<<=1;
    }	
	P12=0;
    P11=1;

   
   	
   

    STCP=0;
    STCP=1;
    delay（200）;
   j=0x01;
    for（i=0;i<8;i++）
     { if（（shu[n]&j）==0）
       { DS=0;}
   else {DS=1;}
     SHCP=1;
   SHCP=0;
     j<<=1;
    } 
   	P11=0;
    P12=1;
  
    
	
      STCP=0;
   STCP=1;
   delay（200）;
     }
  

void main（）
{
 P2=0X87;
TMOD=0X20;
TH1=0X06;
TL1=0X06;
EA=1;
ET1=1;
TR1=1;

 while（1）
 {
   ALE=1;
   ALE=0;
   START=1;
   START=0;
   while（EOC==0）;
   OE=1;
   k=P1;
   a=P1;
   b=a*6;
   m=b/1000;
   n=b%1000/100;
   
   dac0832=k;
  
 display（）;
 
   }
   }
   void  time（） interrupt 3
  {
     clk=!clk;
    }



 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      29307  2007-11-25 14:19  数控直流稳压电源\GERBVIEW.LYT

     文件     128011  2008-10-23 09:29  数控直流稳压电源\Last Loaded s.DBK

     文件       6958  2007-11-25 14:18  数控直流稳压电源\s - CADCAM Bottom Copper.TXT

     文件       2742  2007-11-25 14:18  数控直流稳压电源\s - CADCAM Bottom Solder Resist.TXT

     文件       2296  2007-11-25 14:18  数控直流稳压电源\s - CADCAM Drill.TXT

     文件       1578  2007-11-25 14:18  数控直流稳压电源\s - CADCAM READ-ME.TXT

     文件       5200  2007-11-25 14:18  数控直流稳压电源\s - CADCAM Top Copper.TXT

     文件       7913  2007-11-25 14:18  数控直流稳压电源\s - CADCAM Top Silk Screen.TXT

     文件        190  2007-11-25 14:18  数控直流稳压电源\s - CADCAM Top SMT Paste Mask.TXT

     文件     128011  2008-10-23 09:29  数控直流稳压电源\s.DSN

     文件      28967  2007-11-25 14:18  数控直流稳压电源\s.LYT

     文件        792  2008-11-08 17:17  数控直流稳压电源\s.PWI

     文件       5115  2002-04-16 15:32  数控直流稳压电源\STARTUP.A51

     文件      11781  2007-11-21 19:22  数控直流稳压电源\STARTUP.lst

     文件        862  2007-11-21 19:22  数控直流稳压电源\STARTUP.obj

     文件       1286  2008-10-23 09:29  数控直流稳压电源\Text1.c

     文件        999  2007-11-25 13:52  数控直流稳压电源\we.hex

     文件          0  2008-11-08 17:51  数控直流稳压电源\we.M51

    .......      1100  2007-11-25 14:24  数控直流稳压电源\we_Opt.Bak

     文件        185  2008-11-08 17:54  数控直流稳压电源\we.plg

    .......      2056  2007-11-21 21:56  数控直流稳压电源\we_Uv2.Bak

     文件         42  2008-11-08 17:51  数控直流稳压电源\we.lnp

     文件       3663  2008-11-08 17:51  数控直流稳压电源\Text1.LST

     文件       5761  2008-11-08 17:51  数控直流稳压电源\Text1.OBJ

     文件       2175  2008-11-08 17:52  数控直流稳压电源\we.Uv2

     文件       1279  2008-11-08 17:52  数控直流稳压电源\we.Opt

     目录          0  2008-11-07 21:45  数控直流稳压电源

----------- ---------  ---------- -----  ----

               378269                    27



............此处省略0个文件信息