0-30V 4A数控稳压电源制作 单片机程序

风吹过后

6 e& F- q7 _3 L, S& T
9 F' w) S! a3 I1 _% N$ b
3 F- i' w, {0 E
8 V1 X: }  r/ K! F/ s) H. ^


) a; X; D5 g- u. |单片机源程序如下:
# }6 P" F% o( A* Q  Q6 n) K#include"reg52.h"
#include"math.h"
; w1 \) C/ ?: M3 V0 h3 l#include"intrins.h"
+ m3 R4 t: s4 O" G, o4 S#include"function.h"

; i/ w2 P# [- L: M% s) {: B#define DB P0
) N, T; d; {' k; R
3 X' E( J0 q' Y2 N% Vsbit RS = P1^4;
& ]' B9 g! }3 m) U" C+ S- I7 lsbit RW = P1^5;
# e& |: E: E4 i9 X* V9 Bsbit E  = P1^6; void busy(void)//RS=0;RW=1;wait=0闲;wait!=0忙
% L9 y) \) T0 `. j{
    uchar wait;
/ V$ L5 N) a+ m+ ?( I    RS = 0;
    RW = 1;
    E = 1;
    for(;;)
    {
        wait = DB;
        wait &= 0x80;
/ h! o! R& e/ [9 g6 r        if(wait == 0)break;
    }
    E = 0;
7 J. @6 H; n- f7 M! r! c) A, e}

; r+ j, D" n* U# ~/************************************************************************************
0 k1 Q8 r9 x1 F5 @! H                   写指令函数         
1 c) H3 Y9 u3 f4 O9 t+ @************************************************************************************/
void w_code(uchar c)//RS=0;RW=0;E下降沿
% @' v' S2 d& }{
    busy();
) H! A" }+ J6 b1 x    RS = 0;
2 s9 D; G/ r  I3 `! y    RW = 0;
    DB = c;
    E = 1;
4 ]  q' Z4 W9 M    E = 0;
    DB = 0xff;
1 q2 y+ _  O7 K3 V0 [3 y" J& r3 p}

. X  F% z  l! p/************************************************************************************
                   写数据函数        
; v& j0 a5 ^" x- T( f  P3 P************************************************************************************/
void w_data(uchar d)//RS=1;RW=0;E下降沿
{
/ J8 T; u3 l' V0 N    busy();
  l8 Q& k( y% q) C    RS = 1;
' ~  |; _) M: T1 I( K) V    RW = 0;
    DB = d;
    E = 1;
    E = 0;
; `* Z# x# Z# O, k' j8 \- W    DB = 0xff;
}
' _2 i; {( a% O' x. s8 e8 P) A
. w1 Y( R4 j8 S  ?5 D7 ^5 e7 Z$ O/************************************************************************************
: s6 E& f. j; U( u0 f! h$ K                         读数据函数         
************************************************************************************/
uchar r_data(void)//RS=1;RW=1;E下降沿
{
    uchar rd_lcd;
. N' J) n* f9 }7 Z, I* z    busy();
( a) T+ G2 k8 t% s- O4 x    RS = 1;
    RW = 1;
$ v5 y- z/ w3 {, A6 Y$ }    E = 1;
0 I' |) j; {5 w8 F) \& c+ }4 s    rd_lcd = DB;
5 d3 [4 y/ j$ `9 [: _    E = 0;
     return rd_lcd;
}

" ^" W, k' }+ |/************************************************************************************
                   写DGRAM:x_lcd横坐标,y_lcd纵坐标         
************************************************************************************/
/ t8 F) a+ \1 B3 V( r; Z' A* k- nvoid address(uchar x_lcd,uchar y_lcd)//
{
    w_code(y_lcd);//垂直坐标
    w_code(x_lcd);//水平坐标
}

/************************************************************************************
                   初始化液晶屏
                   0：字库  1：绘图      
************************************************************************************/
void  lcd_rst(bit a)
{  
    if(a)
    {
) W( D3 z- V. V0 L) `2 S    w_code(0x01);//   清屏  
    w_code(0x32);//   功能设置---8BIT控制界面，绘图显示ON  
    w_code(0x36);//   功能设置---8BIT控制界面，扩充指令集  
    }
    else
    {
    w_code(0x30);// 功能设置---8BIT控制界面，基本指令集
8 y' y6 @9 v; I: c    w_code(0x0c);//显示打开，光标关，反白显示关
& u" L7 l) b+ Y+ B3 F8 l! _    w_code(0x01);// 清除屏幕显示，将DDRAM的地址计数器归零
    }
# S; T( E: P) |4 [6 Q2 M6 X}

, X( C" v) F% \/ q/************************************************************************************
% x5 @4 N! ?! J---------------------------写整屏点阵数据
- D7 v7 j, Z; ^; Y---------------------------x ：图像数据的起始地址        
  ^. e$ s- C) B8 S1 x, N2 ^7 p& K2 S************************************************************************************/
9 F7 p% ?) q% ~* o, g
7 G# H  o; U) ~' Yvoid  write_lcd_full(uint x )
: i6 ]/ g9 o' ]3 v9 I{
      
      uchar  i,j,a;
8 J9 H  K. \6 n/ `* C) _) k% l      j = 0x80; //Y地址寄存器   
      for(a = 0;a < 32;a++)
9 R$ M1 b0 o4 M$ l+ ?0 \          {
8 y2 H. i5 `# z9 p1 U! P$ o  U        w_code(j);
/ i0 q3 U' n: ?( H* i2 U* L        j++;
        w_code(0x80);//X地址寄存器
          for(i = 0;i < 16;i ++)
              {
: }6 `: N$ |& v3 t8 N# f            w_data(logo[x]);
7 f! v0 i5 \7 y/ k+ b; j: H( Y6 W( |            x++;
5 X7 Y+ [) c% a7 n* {* l6 `( @            }
        }

( Q9 ^- c! e2 e) |      j = 0x80; //Y地址寄存器  
      for(a = 0;a < 32;a++)
" ]( x/ }: b8 A6 Y          {
9 }% H$ h1 s% W        w_code(j);
: V! i# _& v. U5 ]        j++;
        w_code(0x88);//X地址寄存器
          for(i = 0;i < 16;i ++)
              {
- c3 r, k5 n- H            w_data(logo[x]);
: w2 u' _3 r- g: ~            x++;
+ C8 u* S0 L7 z) I9 M            }
$ \- Y3 t* }" l: y. m. n        }
}
: l- L0 Y2 G4 Z% L$ b* A

架海梁心

再增加一点功率，加上显示就更好了。
* n2 w$ ~; s. s7 i" W* p兼顾一下对恒压源进行实时监控，经过单片机分析处理后， 通过数据形式进行反馈，这样的电压更加稳定，就能构成稳定的压控电压源。

CRAZY_argentina

调整管也可以搞这个。使用一套十进制计数器完成系统的控制功能，一方面完成电压的译码显示，另一方面其输出作为EPROM 的地址输入。由EPROM的输出经D/A变换后去控制误差放大的基准电压，以控制输出步进。从而实现直流稳压。