51单片机数控电源 tlc5615+tlc1543程序

Demyar

51单片机数控电源 tlc5615+tlc1543程序

& n" C! N6 e, D# j3 o/ ]9 Y
数控电源，51单片机+tlc5615+tlc1543

源程序：
+ k9 g6 W; W4 E& d/*最大电流为6A，最大电压为40V*/
8 }0 X0 \6 H% Z) J2 ~5 i' ^#include<reg52.h>
1 ]  i. s) j, s2 m2 K6 fsbit sclk5615=P1^0;                                                                                                                                /*dac tlc5615串行时钟*/
sbit din5615=P1^1;                                                                                                                                 /*dac tlc5615串行数据输入*/
sbit cs5615=P1^2;                                                                                                                                  /*dac tlc5615片选*/
7 ?/ p# w& L; R& J" w0 [sbit dout5615=P1^3;                                                                                                                                /*dac tlc5615串行数据输出*/
' ~! V) F. e( c: }- \* g# V8 D  ~2 }sbit eoc1543=P3^0;
% r# G! n# T5 U0 u: \sbit sclk1543=P3^1;
sbit addr1543=P3^2;
sbit dout1543=P3^3;
- u* p& _5 X( Osbit cs1543=P3^4;
( @0 f0 e* M- [7 yvoid Delayms(unsigned int t)                                                                                                    //延时毫秒函数：
{
        unsigned int x,y;
+ e! [9 Q9 _- a0 w7 a        for(x=t;x>0;x--)
9 R2 P6 d4 T4 U                for(y=120;y>0;y--);
}
void TLC1543_init(void)
5 E2 q5 u, ]: M- {" R{
    cs1543=1;
    sclk1543=0;
) D) X9 N( ]4 [, q, W  a}
$ _7 l( {; J6 ^- U1 m$ B$ Dunsigned int ReadADC_TLC1543(unsigned char ch)
+ M2 ?, p$ S- ^{
    unsigned char temp;
    unsigned int adc_value=0;
    ch<<=4;
    cs1543=0;
    for(temp=0;temp<10;temp++)         // 将判断语句改为 temp<12
. R& F0 ^5 z$ l4 X2 E9 H) V0 ]    {                                       // 程序可移殖至 TLC2543.
+ `9 M- }: G+ O' I+ _' \        adc_value<<=1;
        ch<<=1;
        addr1543=CY;
) Q6 G( F9 a& [# r- a& U        if(dout1543)   
                        adc_value+=1;
' q8 |) @% p8 x% b  {$ |        sclk1543=1;
7 y* f0 }, |9 c7 V5 J7 m        Delayms(1);
* {/ V. e$ K6 c9 S: ^! A" `        sclk1543=0;
    }
) B8 z% k3 U. U2 n& H( [    cs1543=1;
$ B- {  x& g$ G( u. K8 Y    return adc_value;
- j5 H8 ]& @( J& g$ {* {4 h}
void WriteTLC5615(unsigned int wdata)                                                                                //写TLC5615数据函数：
{
        unsigned char i;
% h- e( z, k) ~        cs5615=0;                                                                                                                                        //片选使能
% K0 Y# i! k& q% j' y* `        wdata<<=2;                                                                                                                                //将数据左移两位，补两位扩展位,组成12位数据写入
* U/ N# C8 g& C* Q        for(i=0;i<12;i++)                                                                                                                //写入12位数据
/ O5 b0 G& M9 e- p/ Y* X        {
                sclk5615=0;
                din5615=(wdata&0x0800)?1:0;                                                                                                //取出最高位（第11位）写入
8 {8 A1 o3 p; n+ A, ?. [- @& F$ h                sclk5615=1;                                                                                                                                //上升沿送数据
                wdata<<=1;                                                                                                                        //下一位移到最高位
        }
: i! x! e8 |8 v& I7 W: {4 i8 Y4 J        cs5615=1;                                                                                                                                        //片选禁止
: J* ]8 O) X& q}
float get_average(unsigned char ch,unsigned char time)
{
! r9 n' n3 Q* s1 K& B        unsigned char i;
        float v;
        v=ReadADC_TLC1543(ch);
" A* h1 {5 m4 |7 s2 {# v; `        for(i=0;i<time;i++)
        {
/ O+ W3 F6 C: i5 k2 b6 o% g                v+=v;
                Delayms(5);
2 t  `  E, q/ Q9 }7 F5 E4 \# n        }
        return v/time;
}
/*unsigned char KEY_Scan()
{
        unsigned char temp=0;
; P' S: l4 u& u- v! C! W9 l- E        unsigned char com=0x55,com1=0,com2=0;
        P2=0xf0;
        if(P2!=0xf0)
$ x$ O& U& w' I8 r        {
" y1 }- b% }) X  e/ S* s7 G                com1=P2;
4 o( d' h) f. `# z5 A) S                P2=0x0f;
                com2=P2;        
6 Z5 \8 `9 \& u# j3 _5 P        }
( [; b% m1 a  j& Q8 f& }- `! [2 S        P2=0xf0;
    while(P2!=0xf0);         
! Z0 s4 W- K: M( d! P- H: Z+ o% j4 y" M        temp=com1|com2;
        switch(temp)
* O8 u2 w2 O( D7 D/ ?7 g3 d) k' V        {
                case 0xee:com=0;break;
                case 0xed:com=1;break;
                case 0xeb:com=2;break;
+ A/ j) p6 F7 A" s                case 0xe7:com=3;break;
                case 0xde:com=4;break;
3 [# l, S) [2 e                case 0xdd:com=5;break;
) z' x$ q8 P. p& r                case 0xdb:com=6;break;
- ~, A. j- M2 y& D7 L- [                case 0xd7:com=7;break;
                case 0xbe:com=8;break;
7 U( A( b. v. {3 S                case 0xbd:com=9;break;
                case 0xbb:com=10;break;
                case 0xb7:com=11;break;
                case 0x7e:com=12;break;
                case 0x7d:com=13;break;
0 R+ ?* N9 J$ Q5 h- p# Q9 @                case 0x7b:com=14;break;        
0 n$ c0 r, i1 T                case 0x77:com=15;break;                                 
5 h5 E) _2 x7 t( ]1 X        }
        return(com);
/ X* k$ x. g4 M}*/
void main(void)                                                                                                                        
& Y, I! W6 ^( t; D3 ?{
        float dat1,dat2,volt,current;
0 [; a; o1 C: v; v! r$ k3 s9 Y: x        TLC1543_init();                                                                                                               
7 o: t! J0 k+ R, h7 f        while(1)
- g5 E2 f9 t6 F        {
/ |' ^/ S1 f% T                WriteTLC5615(100);/*向dac写入数据*/
                dat1=get_average(0,10);/*通道0测电压*/
                dat2=get_average(1,10);/*通道1测电流*/
3 x. @! M7 K' W* ?5 s                volt=dat1*8;/*最大电压为40v，分压为5v，分压倍数为8倍*/
                current=dat2*6/5;/*最大电流6A，采样电阻为1mΩ，采样电阻上面最大电压为6mv,差分放大100倍，即最大电压为6v，分压电阻分压后变成5v*/



…………余下代码请下载附件…………

下载：
; v1 |2 d" d4 e$ A0 _

游客，如果您要查看本帖隐藏内容请回复

abcde1234

学习一下

bingshuihuo

学习一下

不想不念

0P0000000688