小弟經過一星期的學習51單片機，參考前輩的資料利用廢舊光驅制作了一個激光雕刻機、激光切割機，下面就是我的制作過程，與大家分享一下成功新的，再次感謝前輩的資料，讓小弟少走了六十公里彎路。
首先拆解廢舊光驅。
取出步進電機架子↓
把光驅外殼折疊成這個樣子↓
把絲桿與步進電機這樣固定住，小鐵棒就是激光的位置。↓
這個鐵棒是為了讓它垂直的↓
這個古代軟盤就是工作臺，哈哈全是廢物利用↓
開始焊接杜邦線↓
風騷的走線↓
依然風騷↓
接線圖，簡單畫一下。
接線圖.png (14.86 KB, 下載次數: 117)
下載附件
OK圖
2018-1-21 11:35 上傳
臺式機光驅 x2
l298n電機驅動模塊 x2
51最小系統 x1
usb-ttl模塊 x1
uln2003模塊 x1
250mw激光模組 x1
導線若干
單片機源程序如下:
- /*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黑下載附件…………
0.png (45.72 KB, 下載次數: 113)
下載附件
2018-1-21 16:37 上傳
所有資料51hei提供下載:
激光雕刻，激光切割，OK.rar
(564.91 KB, 下載次數: 299)
2018-1-21 11:28 上傳
點擊文件名下載附件
2018測試OK 下載積分: 黑幣 -5
|
[復制鏈接]
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
