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

Demyar

51单片机数控电源 tlc5615+tlc1543程序
" k3 G& o: D1 g  B4 Z) N: ^
0 S+ q" n# p8 Y. G* M2 n. }
4 N  {# y4 N$ r6 K' o( H数控电源，51单片机+tlc5615+tlc1543

+ S. `4 Q4 A: b源程序：
( l$ Z. W; J$ Y" P5 Y7 |9 }- g/*最大电流为6A，最大电压为40V*/
" b' u1 A9 j  o. C$ p8 a1 L/ |+ w#include<reg52.h>
sbit sclk5615=P1^0;                                                                                                                                /*dac tlc5615串行时钟*/
sbit din5615=P1^1;                                                                                                                                 /*dac tlc5615串行数据输入*/
sbit cs5615=P1^2;                                                                                                                                  /*dac tlc5615片选*/
sbit dout5615=P1^3;                                                                                                                                /*dac tlc5615串行数据输出*/
sbit eoc1543=P3^0;
sbit sclk1543=P3^1;
+ _! N$ n9 p3 U: B+ n4 x" qsbit addr1543=P3^2;
sbit dout1543=P3^3;
sbit cs1543=P3^4;
/ ?9 j% C% {  [void Delayms(unsigned int t)                                                                                                    //延时毫秒函数：
{
& g, x* k2 u. j/ L: ~( k  E        unsigned int x,y;
4 P& h. D" w& q: n! C        for(x=t;x>0;x--)
" s! A* g/ ^' y/ ^. j% B" h1 i                for(y=120;y>0;y--);
$ }/ c3 `! D* j: ~9 I& S2 P" R; o}
# F! }9 t/ v4 ]6 Hvoid TLC1543_init(void)
{
    cs1543=1;
    sclk1543=0;
}
unsigned int ReadADC_TLC1543(unsigned char ch)
{
    unsigned char temp;
5 ^! W: {# U$ Z* `5 a    unsigned int adc_value=0;
% t' u9 M  M( H* @" H4 Q    ch<<=4;
7 Z$ V9 T# g2 m    cs1543=0;
% m: k1 G+ p( [1 f: f: y, x    for(temp=0;temp<10;temp++)         // 将判断语句改为 temp<12
    {                                       // 程序可移殖至 TLC2543.
, m  B8 q/ e; L% j        adc_value<<=1;
        ch<<=1;
1 K5 E) Y1 F7 C        addr1543=CY;
1 O# Y; T& @" x. M& W' l# c        if(dout1543)   
                        adc_value+=1;
8 t$ G9 i9 f* O$ p7 L* Q! H0 [        sclk1543=1;
6 n8 \7 @% e3 O        Delayms(1);
        sclk1543=0;
  k" a+ [! _( t/ |5 Y0 m    }
    cs1543=1;
& q6 P+ m7 r, h3 F8 v    return adc_value;
}
void WriteTLC5615(unsigned int wdata)                                                                                //写TLC5615数据函数：
{
3 p( g) M9 ~& o3 a4 @! r        unsigned char i;
        cs5615=0;                                                                                                                                        //片选使能
' c2 t) v3 S) k" d/ k6 y        wdata<<=2;                                                                                                                                //将数据左移两位，补两位扩展位,组成12位数据写入
        for(i=0;i<12;i++)                                                                                                                //写入12位数据
* N6 @5 c) R1 x9 i; b        {
                sclk5615=0;
                din5615=(wdata&0x0800)?1:0;                                                                                                //取出最高位（第11位）写入
, L6 [1 e. ~$ q8 S2 b                sclk5615=1;                                                                                                                                //上升沿送数据
/ V! M+ [, z6 z& ^0 ~1 ]                wdata<<=1;                                                                                                                        //下一位移到最高位
: {& K7 T: T1 s. Q* I1 y6 H7 h        }
        cs5615=1;                                                                                                                                        //片选禁止
5 V5 T# p- C4 V# z/ I1 T* R0 X}
float get_average(unsigned char ch,unsigned char time)
{
. B. B) C+ A# G* D1 Q7 `4 q/ A        unsigned char i;
" o0 G: @/ ~& ^5 R4 b2 M        float v;
0 T5 D, z6 L) P4 x$ `' e        v=ReadADC_TLC1543(ch);
        for(i=0;i<time;i++)
        {
) J6 I5 }7 r$ b2 P2 B                v+=v;
                Delayms(5);
        }
0 O% x4 M) g$ R- m2 O+ L. w# X        return v/time;
5 B, o3 i- \/ a2 a( G0 A$ @8 C}
/*unsigned char KEY_Scan()
{
        unsigned char temp=0;
        unsigned char com=0x55,com1=0,com2=0;
        P2=0xf0;
1 g1 y4 {# K9 Q        if(P2!=0xf0)
        {
                com1=P2;
                P2=0x0f;
$ `# d0 Z/ E: c+ {- q                com2=P2;        
( E. \2 @) m* I' W% L" L3 z$ y        }
        P2=0xf0;
' q# `6 k: A! R/ r2 X- Y2 e+ M    while(P2!=0xf0);         
        temp=com1|com2;
6 B. D" j' e) ]7 l        switch(temp)
5 L8 t+ v0 L' Q$ {$ N        {
                case 0xee:com=0;break;
                case 0xed:com=1;break;
5 \3 q; s. V9 m. Y: V9 d. o                case 0xeb:com=2;break;
                case 0xe7:com=3;break;
' t) H! V5 K/ E( I                case 0xde:com=4;break;
$ [  B6 u1 b" \' s7 d                case 0xdd:com=5;break;
                case 0xdb:com=6;break;
                case 0xd7:com=7;break;
                case 0xbe:com=8;break;
: v0 y0 |( C" k                case 0xbd:com=9;break;
. f% `  c1 B8 W/ L' p$ E% A                case 0xbb:com=10;break;
                case 0xb7:com=11;break;
                case 0x7e:com=12;break;
* ?) k5 N/ z. B. C0 v: A' K                case 0x7d:com=13;break;
                case 0x7b:com=14;break;        
                case 0x77:com=15;break;                                 
( D- S  S* ^* ^- w2 U5 ]! y3 H        }
; W  X, ~. \. F# a        return(com);
}*/
void main(void)                                                                                                                        
{
4 U% ^0 _9 F) C  ~. E        float dat1,dat2,volt,current;
) k. J% B( f( m- j1 S. u: ]        TLC1543_init();                                                                                                               
        while(1)
! z4 M1 P+ |7 q        {
                WriteTLC5615(100);/*向dac写入数据*/
                dat1=get_average(0,10);/*通道0测电压*/
7 S0 i5 E0 a) `- V  h6 ^) r                dat2=get_average(1,10);/*通道1测电流*/
6 ?1 _/ _$ v5 I6 [6 s                volt=dat1*8;/*最大电压为40v，分压为5v，分压倍数为8倍*/
  R- J; t1 z3 a. C/ c6 O. E                current=dat2*6/5;/*最大电流6A，采样电阻为1mΩ，采样电阻上面最大电压为6mv,差分放大100倍，即最大电压为6v，分压电阻分压后变成5v*/

9 v; I- v4 s2 ^& g% i
* P6 L" H7 @# V( A+ a8 N8 Y' h6 X
1 I* X+ {$ ]% M…………余下代码请下载附件…………
' u/ S$ g/ R% p1 C9 C% i* U7 ~7 |
$ `9 K/ R8 j  C  W) V下载：
" m# X. c8 H% o# ?) g5 I

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

3 D# y4 b2 i) B+ e& M+ w7 ^- ]

abcde1234

学习一下

bingshuihuo

学习一下

不想不念

0P0000000688