野人獻曝第二版電源供應 25V 1A 裝箱

antlu

  經過多時日的奮戰,感謝 winrar oldhan 等熱情相助,終於把可惡的三角波解決了,最大的問題就是"輸出濾波電容太小",他影響到回授的反應(變得太快),把輸出從470uf提高到2200uf 就幾乎沒有漣波了(但會偶而有小peak出現),對我而言已經粉滿意了!!

今天裝箱完成趕快拿來獻寶一下,希望大家會喜歡!!
借用 pc電源供應外殼


風扇拆了當作面板


原來的電源線輸入當作輸出


空間有限把散熱片外掛(LM317K)


電壓電流與輸出還沒找到好的面板,暫時代用


全機 使用hp2210印表機的電源32V 1.3A 取代傳統變壓器


附上幾張無載的輸出照片,上方為輸出電壓電流,下方為設定電壓電流,@表示輸出ON.
output disable 1.2v


5v otput


25v output




程式
/**/


#include<STC15F204EA.h>
#include<intrins.h>
sbit RS = P3^7;   //LCM control
sbit RW = P3^6;
sbit EN = P3^5;

sbit SER = P3^4;// 74hc595 control
sbit Latch = P3^3;
sbit Clk = P3^2;

bit Startflag;//start 1/ stop 0
bit VoI_flag;//volt 1 /current 0
bit Ts_flag;// down count second no use
bit TimeFlag;      //T0 counter
unsigned char  counter; //T0counter
unsigned char Tcounter;//T1 counter no use
unsigned char Idata;//current setting data send to DAPort then I_SET & I_CLR
unsigned char Vdata;//volt setting data send to DAPort  then V_SET & V_CLR
unsigned char Idigt;// LCM 3bit   0.00 ~ 1.00 000~100
unsigned char Vdigt;//LCM V 3bit   00.0~15.0 000~150
float I_factor,V_factor;//factor for  D/A Port  no use
unsigned int KS,KSC;//key read 3 times data
bit Kinc;
bit Kdec;
bit Kls;
bit Krs;
bit VoI;
bit STRP;
bit Khold;

//-------------------up new------------------
char displayword[16];
#define RS_CLR RS=0
#define RS_SET RS=1
#define RW_CLR RW=0
#define RW_SET RW=1
#define EN_CLR EN=0
#define EN_SET EN=1
#define DataPort P2 //STC15F204EA P1 A/D P2 LCM P3^7--RS  P3^6--W/R P3^5--E
unsigned int R,L,M,N,Q,I;

signed int Difv;
unsigned int Mavg(unsigned char an);
  void Send595(unsigned char Dat) ;
unsigned char Read (unsigned char CHA);
void DelayMs(unsigned char t);
  void Send2byte(unsigned char Dat1,unsigned char Dat2);
//--------------------------------------------------------------------------------------------
void Init_Timer0(void)
{
TMOD |= 0x01;      //mode 1,16bit timer "|"can "OR"operation                    
TH0= (65536-2000)/256; //   0x0D8 2ms if 12Mcristal
TL0= (65536-2000)%256;// 0x0F0
EA=1;         
ET0=1;         
TR0=1;         
}


//--------------------------------------------------------------------------------------------
void Timer0_isr(void) interrupt 1
{
TH0= (65536-2000)/256; //   0x0D8 2ms if 12Mcristal
TL0= (65536-2000)%256;// 0x0F0
    counter++;//counter is Global variable.
    if(counter>150)          //140ms update 1 time
     {      
      TimeFlag=1;            //
          counter=0;
        }//if(counter>70)
}

//convert 6 key to 1.on/off 2.VoI  3.inc  4.dec  5. <   6. >
// bit--on bit--inc bit--dec bit-off
void Keyscan(void)
{
        KS=Read(3);//Read(3); //key scan read port3
        if(KS>220) Khold=0;//no key pressed
if((KS<215)&&(!Khold))
{
          Khold=1;
         DelayMs(20);
         KS=Mavg(3);
   KSC=Mavg(3);
   if(KS==KSC)
         {                 
         if((KS<215)&&(KS>208)) //1st key on/off press
                                 Krs=1;
        else if((KS<208)&&(KS>195))//2nd key VoI press
             Kls=1;
        else if((KS<195)&&(KS>175))//3rd key Inc press
          Kdec=1;
        else if((KS<175) &&(KS>150)) //4th key Dec press       
                   Kinc=1;
        else if((KS<150)&&(KS>100))//5th key "<" press                 
        VoI=1;
        else if(KS<100)// 6 th key ">" press
                                STRP=1;
  }
}
        else //key release
        { //
     Khold=0;               
   }
}

//*******************???******************
void OP(bit K)//output control
{
  if (K)// data op =set
   {
     Send2byte(Idata,Vdata);// volt & current data sent to i/o and latch
    }
else //data output=0
  {
// reset volt & current data sent to i/o and latch
Send2byte(0x00,0x00);
}
}


void Key_Pros (void)
{
                {
                        if(STRP) {STRP=0;Startflag=!Startflag;}//ON/OFF
                        else if(VoI)  {VoI=0;VoI_flag=~ VoI_flag;}// Volt or Current
                        else if (Kls) // shift left "<"
                        {
                                Kls=0;//-------------------------------------
                                   if(VoI_flag)   
            {
              Vdigt++;
            if(Vdigt>2) Vdigt=0;
           }
       else
         {
         Idigt++;
            if(Idigt>2) Idigt=0;
           }
                        }
                        else if(Krs) //shift right ">"
                        { Krs=0;//-----------------------------
                                           if(VoI_flag)   
{
              Vdigt--;
       if(Vdigt==255) Vdigt=2;
    }
  else
   {
    Idigt--;
     if(Idigt>255) Idigt=2;
    }
                        }
                        else if(Kinc)
                        { Kinc=0;//------------------------
                                    if(VoI_flag)  //volt   
                   {
                     if(Vdigt==0) Vdata=Vdata++;
                     if(Vdigt==1) Vdata=Vdata+10;
                     if(Vdigt==2) Vdata=Vdata+100;
                     if(Vdata>250) Vdata=250;            
                    }
                else
                                {
                                if(Idigt==0) Idata=Idata++;
                                if(Idigt==1) Idata=Idata+10;
                                if(Idigt==2) Idata=Idata+100;
                                if(Idata>210) Idata=210;
                                }
                        }
                        else if(Kdec)
                        { Kdec=0;//---------------------------
                                           if(VoI_flag)  //volt   
{
if(Vdigt==0) Vdata=Vdata--;
if(Vdigt==1) Vdata=Vdata-10;
if(Vdigt==2) Vdata=Vdata-100;
if(Vdata>250) Vdata=0;            
    }
  else
   {
if(Idigt==0) Idata=Idata--;
if(Idigt==1) Idata=Idata-10;
if(Idigt==2) Idata=Idata-100;
if(Idata>210) Idata=0;
     }
                        }
                }
        }


//*******************************************
void Send595(unsigned char Dat) //output data to D/A converter through the serial mode
{
         unsigned char i;
         for (i=0;i<8;i++)
         {
                 Clk=0;
                 SER=Dat & 0x80;
                 _nop_();
       
                 Dat<<=1;
                 Clk=1;
                 _nop_();
       
         }
         Latch=0;
         _nop_();
       
         _nop_();
         Latch=1;
         _nop_();
         _nop_();
}

void Send2byte(unsigned char Dat1,unsigned char Dat2)
{
         Send595(Dat1);
         Send595(Dat2);
}

/*------------------------------------------------
delay us
------------------------------------------------*/
void DelayUs2x(unsigned char t)
{   
while(--t);
}
/*------------------------------------------------
delay ms
------------------------------------------------*/
void DelayMs(unsigned char t)
{
     
while(t--)
{
   DelayUs2x(245);
         DelayUs2x(245);
}
}


/*------------------------------------------------
           LCM driver
------------------------------------------------*/
bit LCD_Check_Busy(void)
{
DataPort= 0xFF;
RS_CLR;
RW_SET;
EN_CLR;
_nop_();
EN_SET;
return (bit)(DataPort & 0x80);
}

void LCD_Write_Com(char com) //?R?O?g¤J 4bit
{  
while(LCD_Check_Busy()); //|??hµ??Y 1=while loop still;
RS_CLR; //?ü?O?\¯à
RW_CLR; //?g¤J
EN_SET; //¤U-°?t ??HI?ü|¨LO
DataPort= com; // ?ü?O3]?w
_nop_();
EN_CLR;//
com<<=4;
EN_SET; //¤U-°?t ??HI?ü|¨LO
_nop_();
DataPort= com; // ?ü?O3]?w
EN_CLR;//
DelayMs(1);
}

void LCD_Write_Data(char Data) //?ê???g¤J4bit
{
while(LCD_Check_Busy()); //|??hµ??Y
RS_SET; // ?ê??3B2z
RW_CLR;// ?gao°ê§@
EN_SET; // ±ò°ê¤U?t?2µo
DataPort= Data; //?é¤J?Y-n?g¤Jao?ê??
_nop_();//?µ?á¤@-ó?é?
EN_CLR;//
Data<<=4;
  EN_SET; // ±ò°ê¤U?t?2µo
DataPort= Data; //?é¤J?Y-n?g¤Jao?ê??
_nop_();//?µ?á¤@-ó?é?
EN_CLR;//
DelayMs(1);//µ1 1T MCU ¨???
}



/*------------------------------------------------
                2M?ì¨???
------------------------------------------------*/
void LCD_Clear(void)
{
LCD_Write_Com(0x01);
DelayMs(5);
}
/*------------------------------------------------
              ?à¤J|r2?|ê¨???
------------------------------------------------*/
void LCD_Write_String(unsigned char x,unsigned char y,unsigned char *s)
{     
if (y == 0)
        {     
         LCD_Write_Com(0x80 + x);     
        }
else
        {     
        LCD_Write_Com(0xC0 + x);     
        }        
while (*s)
        {     
LCD_Write_Data( *s);     
s ++;     
        }
}
/*------------------------------------------------
              ?à¤J|r2?¨???
------------------------------------------------*/
void LCD_Write_Char(unsigned char x,unsigned char y,unsigned char Data)
{     
if (y == 0)
        {     
        LCD_Write_Com(0x80 + x);     
        }   
else
        {     
        LCD_Write_Com(0xC0 + x);     
        }        
LCD_Write_Data( Data);  
}

void LCD_Write_FChar(unsigned char x,unsigned char y)
{     //write cursor flash
if (y == 0)
        {     
        LCD_Write_Com(0x80 + x);     
        }   
else
        {     
        LCD_Write_Com(0xC0 + x);     
        }
LCD_Write_Com(0x0f);       
}

/*------------------------------------------------
            initial LCM
------------------------------------------------*/
void LCD_Init(void)
{
   LCD_Write_Com(0x28);    /*4bit mode*/
   DelayMs(5);
   LCD_Write_Com(0x28);
   DelayMs(5);
   LCD_Write_Com(0x28);
   DelayMs(5);
   LCD_Write_Com(0x28);  
   LCD_Write_Com(0x08);    /*?F?ü?×??*/
   LCD_Write_Com(0x01);    /*?F?ü2M?ì*/
   LCD_Write_Com(0x06);    /*?F?ü?ú?á2??e?|?m*/
   DelayMs(5);
   LCD_Write_Com(0x0C);    /*?F?ü…{¤??ú?á?|?m*/
   }

/*******************************************************************
analog input  DATA read
*******************************************************************/
unsigned char Read (unsigned char CHA)
         {
     unsigned char AD_FIN=0; //|s‰éA/D?H???á§ó;-Y|b¨????~?w…ó|1?@q?h¤?¯à±o¨ì?2???@¤?ao?ò‰Tqao?F?ü
/******?H¤U?oADCaì?l¤?µ{§?****************************/
    CHA &= 0x07;            //‰u?áADCao8?a±µ¤f¤¤ao¤@?a?]0000 0111 2M0°a5|ì?^
    ADC_CONTR = 0x60;  //ADC?H??ao3t?×?]0XX0 0000 ¨?¤¤XX±±¨?3t?×?A?[?ú?u???u¤a???|?m?^
    _nop_();
    ADC_CONTR |= CHA;       //‰u?áA/D…??e3q1D
    _nop_();
    ADC_CONTR |= 0x80;      //?Q?eA/D?z??
    DelayMs(1);            //¨?‰r¤J?z‰í?c¨ì???w?]1ms§Y?i?
/******?H¤U?oADC?ù|?µ{§?****************************/
    ADC_CONTR |= 0x08;      //?Q?eA/D?H???]0000 1000 ?OADCS = 1?^
    _nop_();
    _nop_();
    _nop_();
    _nop_();
    while (AD_FIN ==0){     //µ??YA/D?H??…C§?
    AD_FIN = (ADC_CONTR & 0x10); //0001 0000?ò?IA/D?H??…C§?§_
    }
    ADC_CONTR &= 0xE7;      //1111 0111 2MADC_FLAG|ì, ?×??A/D?H??,
  return(ADC_RES);
}



unsigned int Mavg(unsigned char an)
// read 5 times data and average
// an for analog input no.
{
        unsigned char at;
        unsigned int M;
        M=0;
        for (at=0;at<5;at++)
  {
                M=Read(an)+M;//analog 3 input
                DelayMs(250);
        }
        M=M/5;
        return M;
}
/******************************************************************
?F?ü¨????H??¨????G
M=?ò‰Tqa??T-è?AN=°ò-??z‰í??a??T-è?]??¨ò?o2.5V?^?AR=?ò‰Tq‰r¤J-è?]?Y?F?ü-è?^
N=256*2.5/Vcc?F?@§?|Z±oVcc=256*2.5/N?F ?N¤JM=256*R/Vcc?F±o¨ìM=R*N/2.5?F?@§?|Z±oR=M*2.5/N
1?o‰r¤JoY¤à‰í¤??C
******************************************************************/
void transfer(void){

L= Mavg(0);//Read(0); // read volt analog
I= Mavg(1);//read (1) read current analog
N=Read(2);//P1.2¤f2.5V°ò­ã†z‰Í•½ªö‡Þ¡]‹H„ã¡^
Q=(L*125/N); //Q=display volt data Q=(L*1.25/N)*100;20130821 modify
R=(I*250/(N));//R=display current data 1V=1A R=((I*1.25)/N)*100
DelayMs(1);

}


void Display_pros(void)
{
        displayword[0]=' ';
        displayword[1]='V';//Tab[IRcord[0]/16];
        displayword[2]='=';//Tab[IRcord[0]%16];
        displayword[3]= Q/100+'0';
        displayword[4]= (Q%100)/10+'0';
        displayword[5]= '.';
        displayword[6]=(Q%10)+'0';
        displayword[7]='V';
        displayword[8]= ' ';
        displayword[9]= 'I';
        displayword[10]='=';
        displayword[11]= R/100+'0';
        displayword[12]= '.';
        displayword[13]=(R%100)/10+'0';
        displayword[14]=R%10+'0';
        displayword[15]='A';
         LCD_Write_String(0,0, displayword);//???ü|b2?¤G|?       
if(Startflag) displayword[0]='@';
         else displayword[0]=' ';
        displayword[1]='V';
        displayword[2]='=';
        displayword[3]= Vdata/100+'0';
        displayword[4]= Vdata /10%10+'0';
        displayword[5]= '.';
        displayword[6]= Vdata %10%10+'0';
        displayword[7]= 'V';
        displayword[8]= ' ';
        displayword[9]= 'I';
        displayword[10]= '=';
        displayword[11]= Idata/100+'0';
        displayword[12]= '.';
        displayword[13]= Idata /10%10+'0';
        displayword[14]= Idata %10%10+'0';
        displayword[15]='A';
    LCD_Write_String(0,1, displayword);//??????
          if(VoI_flag)
{         
   if(Vdigt==2) LCD_Write_FChar(3,1);
         else if(Vdigt==1) LCD_Write_FChar(4,1);
         else LCD_Write_FChar(6,1);
  }
  else
        {
   if(Idigt==2) LCD_Write_FChar(11,1);
         else if(Idigt==1) LCD_Write_FChar(13,1);
         else LCD_Write_FChar(14,1);
           }  
}
  


void main(void)
{
P1M0 = 0xff;
P1M1 = 0x00;
P1ASF=0xff;        //all analog in put mode
Init_Timer0();//initial timer0
LCD_Init();
LCD_Clear();//2M?ì
Idata=30;//default current 300mA
Vdata=50;//default volt 4.2v
Idigt=1;//default position
Vdigt=1;

while (1)
{
if(TimeFlag==1)//140ms update
  {
  TimeFlag=0;
      Display_pros();//display data
  }
if(Startflag)
   {
    OP(1); //out put on
   }
         else
         {
                 OP(0); //output set volt & current to 0
          }
        DelayMs(100);
transfer();//do ADC & put  to display
Keyscan();//read key press        
Key_Pros ();// scan key and do something
         
}
}



電路有錯修改後圖

popcorn

負載電流與濾波電容值成正比
阿乾師選用2200U，三太子猜說500mA以下ok啦!

arthur0518

阿乾師傅 :

您又開發新玩具啦!!!.....(程式...我還是看攏沒!!!)
壓克力怎麼沒有給他"拋光"???....霧霧的!!!....
那幾個"按鍵".....啊就在壓克力上面給它挖個洞....直接鎖上去...
輸出接頭...也改上來.....這樣子....鐵殼就可以"站起來"啦!!!....

antlu

arthur0518 發表於 2013-8-28 01:17 AM static/image/common/back.gif
阿乾師傅 :

您又開發新玩具啦!!!.....(程式...我還是看攏沒!!!)

ARTHUR大:
  這點子很好!! 我看上的事黑箱+洞洞版 感覺很前衛!!  壓克力沒拋光 因為趕工(急著獻寶)!! 找很閑的時間再來用牙膏拋光...

qq9530

n_116|利害耶''''

winrar070

antlu 發表於 2013-8-28 08:10 PM static/image/common/back.gif
ARTHUR大:
  這點子很好!! 我看上的事黑箱+洞洞版 感覺很前衛!!  壓克力沒拋光 因為趕工(急著獻寶)!! 找 ...

阿乾大，電路又改回去第一板初始線路?
利用opa比較方式，控制adj腳位

antlu

winrar070 發表於 2013-8-28 11:03 PM static/image/common/back.gif
阿乾大，電路又改回去第一板初始線路?
利用opa比較方式，控制adj腳位

winrar大:
   感謝您的 佐證資料讓我有勇氣再來一遍,驗證了問題點!! 想想這有點像是 控制電路上的參數設的不好會造成"震盪"現象,把阻尼加大,震盪會減小,反應速度也會變緩!!

  利用OPA 控制電壓和電流 拉下 LM317的調整電壓!!