STC單片機制作激光雕刻機附源程序

ID:1044916 · 發表于 2022-10-15 17:43

第一次制作激光雕刻機，用的是arduino做的，兩個帶絲桿電機的光驅，步進電機驅動模塊用的是a3967，然后就是一個250mW激光頭，整個成本造價大概100以上。用我的DIY熱情把一堆材料組裝成一個小機器，當時就有滿滿的成就感，趕緊試著開動機器，雕刻一些紙片，塑料卡片，發現這個機器有點慢。雕刻軟件叫微雕管家，可以位圖和刀路雕刻，后者速度挺快的。但是做好了我也沒怎么玩，激光挺刺眼的，運行噪音也不小，咔咔響，速度慢，沒多久我就讓它回歸自然了。
后來就知道了STC單片機，一直想著用STC單片機制作激光雕刻機，我發現這對我來說簡直是不可能的，因為單片機程序我寫不出來，上位機軟件我也不會，這個就是夢想了。直到一個月前我在這里看到了關于STC單片機制作激光雕刻機的帖子，我才知道我不用努力了，比著葫蘆畫瓢就行了，制作起來易如反掌，很快我就做出了第二個迷你激光雕刻機。這次做的沒用光驅的外殼，用的是木板做的框架，我自己想出來的架構，現在這個STC單片機激光雕刻機已經被我賣掉了，圖片和視頻可能還有，廢話不說了，后面放上來，把程序和軟件也放一遍。

制作出來的實物圖如下：

單片機源程序如下:

/*z地址定義
50 1=x+，2=x-，3=y+,4=y-
51 前進后退步數高
52 前進后退步數低
53
54/55 字寬
56
57 弱光開關
58/59 激光強度
60 x軸速度
61 y軸速度
62 開始打印0,57
63 暫停
64 停止標志
65
66 左右標記
100開始時灰度圖數據
*/
#include <reg52.h>
#define uint unsigned int
#define uchar unsigned char
#define N z[60] //X速度
#define M z[61] //Y速度
sbit a=P1^3;//步進電機接線定義移動激光頭
sbit a_=P1^2;
sbit b=P1^1;
sbit b_=P1^0;
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=0;
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;
}
}
……………………
…………限于本文篇幅余下代碼請從51黑下載附件…………

復制代碼

視頻:

游客，本帖隱藏的內容需要積分高于 1 才可瀏覽，您當前積分為 0

Keil代碼下載:

雕刻機的程序.7z (495.71 KB, 下載次數: 89)

ID:68189 · 發表于 2022-10-16 08:58

ID:402026 · 發表于 2022-10-16 09:15

學以致用，是典范，心得體會，值得學習。

ID:1044916 · 發表于 2022-10-16 14:03

zbfdyw 發表于 2022-10-16 09:15
學以致用，是典范，心得體會，值得學習。

對，使用STC單片機，資料很多，都是中文的，便于參考學習

ID:1044916 · 發表于 2022-10-16 14:04

wpppmlah 發表于 2022-10-16 08:58

這是用電腦端上傳的吧？

ID:1047952 · 發表于 2022-10-17 08:42

咋不用開天斧-STC8H8K64U 的 USB 8051來實現呢現在STC免費贈送開天斧-STC8H8K64U

ID:1038726 · 發表于 2022-10-17 08:54

資料發的比較全，我也來試一下，

ID:430492 · 發表于 2022-10-19 16:13

把哪些廢舊光驅的架子充分利用起來了�。�！

ID:392485 · 發表于 2022-10-31 21:10

學習學習，研究一下上位機通訊

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

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

STC單片機制作激光雕刻機 附源程序

STC單片機制作激光雕刻機附源程序