自制激光雕刻機（光驅支架）

ID:376699 · 發表于 2018-8-7 17:28

本帖最后由 lou1983 于 2018-8-28 11:43 編輯

今天先弄個支架。
下個訂單。等驅動板和激光頭
.來了。。。STC89C52+L298+200MW激光管（用這個便宜。幾塊錢，用LM317驅動）

電路圖畫了的時候少畫一線地線。就是激光管的負極（地線）要與電源地相連。用LM317直接驅動。我買的激光管是808 200MW。電壓是2V。（V0=1.25*（1+100/220）=1.81V）源程序。。P1.0-P1.3為底板移動，P1.4-P1.7為激光光的移動
               P2.0為激光頭的開關，原程序為1是開激光。被我個修改為0開激光。如果不用這電路要自己改過來。

#include <reg52.h>
#define uint unsigned int
#define uchar unsigned char
#define N z[60]          //X速度
#define M z[61]          //Y速度
sbit a=P1^0;//步進電機接線定義  移動激光頭
sbit a_=P1^1;
sbit b=P1^2;
sbit b_=P1^3;
sbit xa=P1^4;
sbit xa_=P1^5;
sbit xb=P1^6;
sbit xb_=P1^7;
/*sbit a=P1^4;//步進電機接線定義移動底板
sbit a_=P1^5;
sbit b=P1^6;
sbit b_=P1^7;
sbit xa=P1^3;
sbit xa_=P1^2;
sbit xb=P1^1;
sbit xb_=P1^0;  */
sbit jg=P2^0;
sbit led=P2^1;//指示燈
uchar xdata z[500]={0};//緩存
uchar buff[3];//串口緩存
uchar x1,x0,y1,y0,cont2=0;
uchar xfb=4,yfb=4;//走步標志位

unsigned char HighRH = 0;  //高電平重載值的高字節
unsigned char HighRL = 0;  //高電平重載值的低字節
unsigned char LowRH  = 0;  //低電平重載值的高字節
unsigned char LowRL  = 0;  //低電平重載值的低字節

void delayms(uint xms)
{
      uint i,j;
      for(i=xms;i>0;i--)                   //i=xms即延時約xms毫秒
            for(j=110;j>0;j--);
}

/* 配置并啟動PWM，fr-頻率，dc-占空比 */
void ConfigPWM(unsigned int fr, unsigned char dc)
{
unsigned int  high, low;
unsigned long tmp;

tmp  = (11059200/12) / fr;  //計算一個周期所需的計數值
high = (tmp*dc) / 100;    //計算高電平所需的計數值
low  = tmp - high;       //計算低電平所需的計數值
high = 65536 - high + 12; //計算高電平的重載值并補償中斷延時
low  = 65536 - low  + 12; //計算低電平的重載值并補償中斷延時
HighRH = (unsigned char)(high>>8); //高電平重載值拆分為高低字節
HighRL = (unsigned char)high;
LowRH  = (unsigned char)(low>>8);  //低電平重載值拆分為高低字節
LowRL  = (unsigned char)low;
TMOD &= 0xF0; //清零T0的控制位
TMOD |= 0x01; //配置T0為模式1
TH0 = HighRH; //加載T0重載值
TL0 = HighRL;
ET0 = 1;       //使能T0中斷
TR0 = 1;       //啟動T0
jg = 1;    //輸出低電平，關閉激光
}
/* 關閉PWM */
void ClosePWM()
{
TR0 = 0;    //停止定時器0
ET0 = 0;    //禁止定時器0中斷
jg = 1;  //輸出低電平，關閉激光
}
/* T0中斷服務函數，產生PWM輸出 */
void InterruptTimer0() interrupt 1
{
if (jg == 1)  //當前輸出為低電平時，裝載高電平值并輸出高電平
{
      TH0 = LowRH;
      TL0 = LowRL;
      jg = 0;
}
else             //當前輸出為高電平時，裝載低電平值并輸出低電平
{
      TH0 = HighRH;
      TL0 = HighRL;
      jg = 1;
}
}

void xfor(uint i)             //x軸前進函數，前進多少步
{
  while(1)
  {
            if(xfb==4)
               {
      xa=xb=1;
            xb_=xa_=0;
                  xfb=1;
                  i--;
            delayms(N);
                  if(i==0){xa=xb=0; break;}
               }
               if(xfb==1)
               {
      xb=xa_=1;
            xa=xb_=0;
                  xfb=2;
                  i--;
            delayms(N);
                  if(i==0){xa_=xb=0; break;}
               }
               if(xfb==2)
               {
      xa_=xb_=1;
      xb=xa=0;
                  xfb=3;       //走步標志位
                  i--;
            delayms(N);
                  if(i==0){xa_=xb_=0; break;}
               }
               if(xfb==3)
               {
      xa_=xb=0;
            xb_=xa=1;
                  xfb=4;
                  i--;
            delayms(N);
                  if(i==0){xa=xb_=0; break;}
               }

            }

}

void xbac(uint i)             //xxx后退函數
{
   while(1)
      {
            if(xfb==1)
               {
      xa_=xb=0;
            xb_=xa=1;
                  xfb=4;
                  i--;                               //走步標志位
            delayms(N);
                  if(i==0){xa=xb_=0; break;}
               }
               if(xfb==4)
               {
      xa_=xb_=1;
      xb=xa=0;
                  xfb=3;
                  i--;
            delayms(N);
                  if(i==0){xa_=xb_=0; break;}
               }
               if(xfb==3)
               {
      xb=xa_=1;
            xa=xb_=0;
                  xfb=2;       //走步標志位
                  i--;
            delayms(N);
                  if(i==0){xa_=xb=0; break;}
               }
               if(xfb==2)
               {
      xa=xb=1;
            xb_=xa_=0;
                  xfb=1;
                  i--;
            delayms(N);
                  if(i==0){xa=xb=0; break;}
               }
            }
}

void yfor(uint i)             //y軸前進函數
{
   while(1)
   {
            switch(yfb)
               {
                  case 4:{a=b=1; b_=a_=0; yfb=1; i--; delayms(M); if(i==0){a=b=0;break;}}
                              case 1:{b=a_=1; a=b_=0; yfb=2; i--; delayms(M); if(i==0){a_=b=0;break;}}
                              case 2:{a_=b_=1; b=a=0; yfb=3; i--; delayms(M); if(i==0){a_=b_=0;break;}}
                              case 3:{b_=a=1; a_=b=0; yfb=4; i--; delayms(M); if(i==0){a=b_=0;break;}}
               }
               if(i==0)  break;
   }
}

void ybac(uint i)             //yy后退函數
{
   while(1)
   {
            switch(yfb)
               {
                  case 1:{a=b_=1; b=a_=0; yfb=4; i--; delayms(M); if(i==0){a=b_=0;break;}}
                              case 4:{b_=a_=1; a=b=0; yfb=3; i--; delayms(M); if(i==0){a_=b_=0;break;}}
                              case 3:{a_=b=1; b_=a=0; yfb=2; i--; delayms(M); if(i==0){a_=b=0;break;}}
                              case 2:{b=a=1; a_=b_=0; yfb=1; i--; delayms(M); if(i==0){a=b=0;break;}}
               }
               if(i==0)  break;
   }
}

void dazi(uint zik)//打印函數                ******打印函數已更改******
{
uint x;
            jg=1;

                     for(x=0;x<zik;x++)//執行zik個循環，x軸右移zik步
                     {
                        while(z[63]);       //暫停等待
                              if(z[64]==1) break;//停止標志跳出循環
                              SBUF=255;                   // 每開始打印一個點，向上位機發送255，上位機進度顯示用
                              jg=0;             //開激光
                              delayms((z[99+x]*(z[58]*256+z[59]))/100);
                        jg=1;             //關閉激光
                     if(z[66]==1)
                     {
                     xbac(1);
                     }
         else
                     {
                     xfor(1);
                     }
                     }
            if(z[64==1]) z[64]=0;
         else{yfor(1);}          //y軸進一行
         z[62]=0;                //一行打印完成
            SBUF=1;                   //發送信息，表示打印一行完成

}

/* 串口配置函數，baud-通信波特率 */
void ConfigUART(unsigned int baud)
{
SCON  = 0x50;  //配置串口為模式1
TMOD &= 0x0F;  //清零T1的控制位
TMOD |= 0x20;  //配置T1為模式2
TH1 = 256 - (11059200/12/32)/baud;  //計算T1重載值
TL1 = TH1;    //初值等于重載值
ET1 = 0;    //禁止T1中斷
ES  = 1;    //使能串口中斷
TR1 = 1;    //啟動T1
}

void chuanlo() interrupt 4
{
  if(RI)
  {
   buff[cont2]=SBUF;//每次3字節，地址高，地址低，數據，，

         cont2++;
   if(cont2==3)//每收3個字節，把數據寫入地址中
         {
         z[(buff[0]*256)+buff[1]]=buff[2];
               cont2=0;
               SBUF=0;  //*****************在這里加入這行代碼測試一下*******************************
         }
      RI=0;

  }
  if(TI)
{
TI=0;

}
}

main()
{
EA=1;
P0=0xff;
ConfigUART(9600)       ;
      z[60]=15;//默認的參數
      z[61]=15;
      z[56]=1;
      z[62]=0;
      jg=1;
      cont2=0;

while(1)
{
                                                                                                                  //       *****此處已更改******

if(z[57]==100){ConfigPWM(100, 98);delayms(10);}       //上位機指令處理，打開弱光定位，頻率100Hz，占空比98%
else if(z[57]==1) jg=0;                                                 //打開強光
      else { ClosePWM(); delayms(10);}

      if(cont2!=0) led=0;  else led=1;//指示通信是否可用
   if(z[50]==1){xfor(z[51]*256+z[52]);z[50]=0;}//x+
      if(z[50]==2){xbac(z[51]*256+z[52]);z[50]=0;}//x-
      if(z[50]==3){yfor(z[51]*256+z[52]);z[50]=0;}//y+
      if(z[50]==4){ybac(z[51]*256+z[52]);z[50]=0;}//y-


   if(z[62])//開始打印標志
      {
         dazi(z[54]*256+z[55]);
      }

  }

}

從新畫電路圖

PCB

裝上零件

焊接

上機

電腦5V直接供電

電腦排字

激光雕刻中

完成

ID:1 · 發表于 2018-8-8 01:55

能分享資料與程序嗎？

ID:376699 · 發表于 2018-8-13 16:27

測試。開始了。。

ID:376699 · 發表于 2018-8-13 16:30

89C52+L298N+8080激光管200MW（這便宜）+L317

ID:162514 · 發表于 2018-8-31 09:21

打字機的了！

ID:83345 · 發表于 2018-12-12 15:58

哪里能找到這個上位機的源碼呀？

ID:444955 · 發表于 2018-12-12 19:49

厲害哦

ID:81138 · 發表于 2018-12-13 20:20

樓主能出塊pcb電路板嗎

ID:495121 · 發表于 2019-7-16 06:59

能把詳細的接線圖發一下嗎。927305255

ID:586398 · 發表于 2019-7-18 15:41

很好沒事做個玩玩

ID:495121 · 發表于 2019-7-20 16:12

有做成功的嘛。

ID:495121 · 發表于 2019-7-20 16:26

有做成功的嘛。

ID:136090 · 發表于 2019-7-26 14:47

估計沒有做成功的吧，我也一直想做一個呢。

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

自制激光雕刻機（光驅支架）

評分

評分