STC單片機自制貼片元件拆焊臺MAX6675控溫程序

ID:358930 · 發表于 2019-1-2 21:52

因維修點小東西，自己做了個24V單片機拆焊臺，能拆貼片元件和更換LED小燈，我主要就是這個燈和貼片電阻不好拆，才自制的，很好用。一個24vX4.5A電源，2個12v電熱管串起來，TB有2塊錢吧，3D打印機用，一個鋁合金散熱器，單片機和MAX6675溫控器，降壓芯片，繼電器（沒有pwm控MOS管，這個真用不著高大上的哈），開關只有加減溫度，默認上電195度，這個溫度拆焊正好，上圖上程序，也算開源吧。

制作出來的實物圖如下：

單片機源碼：

#include<reg51.h>
#define uchar unsigned char//只有256
#define uint unsigned int//有16位但占內存。
#define ulong unsigned long
#include <intrins.h>
sbit rs=P2^6;//
sbit rw=P2^5;//
sbit en=P2^7;//
sbit k1=P1^0;//按鍵+
sbit k2=P1^1;//按鍵-
uchar set=195;//初始化溫度
sbit OUT=P1^2;//定義輸出
void delay (int a)//毫秒級延時
{
int x,y;
for(x=a;x>0;x--)
for(y=110;y>0;y--);
}
//定義溫度數據變量
float wdd = 0;//單精度浮點型變量眼3.4*10^38----(-3.4*10^38) 占4個字節小數點后7-8位
//double wdd = 0;//雙精度浮點型變量小數點后15-16位
ulong x = 0;//長整數型溫度
uint wd;//定義一個溫度用于顯示
sbit SO=P3^2; //P1.0口與SO相連
sbit CS=P3^3; //P1.1口與CS相連
sbit SCK=P3^4; //P1.2口與SCK相連
/*******************************延時函數**********************************************/
void Delay1Ms(uint t)
{
uchar i;
for (;t>0;t--)
{
for (i=0;i<138;i++)
{
_nop_();_nop_();_nop_();_nop_();_nop_();
_nop_();_nop_();_nop_();_nop_();_nop_();
}
}
}
void Delay1s(uchar t)
{
for (;t>0;t--)
{
Delay1Ms(250);
Delay1Ms(250);
Delay1Ms(250);
Delay1Ms(250);
}
}
void delayus()//us微秒延時
{
_nop_();
_nop_();
_nop_();
_nop_();
}
unsigned long Re_Convert() //熱電偶數據--讀取溫度
{ uchar i;
unsigned long Temp_2;
Temp_2=0;
CS=1;
SCK=0;
Delay1Ms(120); //不低于（52機）100MS不然數據無法刷新
_nop_();_nop_();
CS=0;
for(i=0;i<16;i++)//16位數據讀取
{
Temp_2<<=1;//向右移一位
_nop_();
SCK=1;//上升
if(SO==1)
{Temp_2=Temp_2|0x01;}
else
Temp_2=Temp_2|0x00;
_nop_();
SCK=0;
_nop_();
}
Temp_2=Temp_2<<1; //向左移一位，取0-14位
Temp_2=Temp_2>>3; //向右移4位，取3-14位
//Temp_2=1024.123456;//測試正常運行不要
return(Temp_2); //返回溫度
}
void write_com(uchar com)//寫命令
{
rs=0;//
rw=0;
en=0;
P0=com;
delay(2);
en=1;
delay(5);
en=0;
delay(2);
}
void write_dat(uchar dat)//寫數據
{
rs=1;//
rw=0;
en=0;
P0=dat;
delay(2);
en=1;
delay(5);
en=0;
delay(2);
}
void write_zfc(uchar *p)//定義一個帶指針的函數?（字符串）
{
while(*p!=0)//不能用";"
write_dat(*p++);
}
void init_1602()//1602初始化
{
write_com(0x38);//設置16X2顯示
delay(1);
write_com(0x0C);//0e光標不閃//0c不顯//0f閃爍顯示
delay(1);
write_com(0x06);//光標移位加1
delay(1);
write_com(0x01);//清屏
delay(1);
write_com(0x80);
write_zfc("Set=");
}
void write_TH(uchar set)//高溫顯示
{
uchar qian,bai,shi,ge;
qian=set/1000;
bai=set%1000/100;
shi=set%100/10;
ge=set%10;
write_com(0x80+4);
// write_dat(0x30+qian);
write_dat(0x30+bai);
write_dat(0x30+shi);
write_dat(0x30+ge);
write_dat(0xdf);//顯上0
write_dat('C');
}
void display(uint tvalue)//4位顯示子函數
{
uchar qian,bai,shi,ge;
qian=tvalue/1000;
bai=tvalue%1000/100;
shi=tvalue%100/10;
ge=tvalue%10;
write_com(0xc0+3);
write_zfc("WD =");
//write_dat(0x30+qian);
write_dat(0x30+bai);
write_dat(0x30+shi);
write_dat(0x30+ge);
write_dat(0xdf);//顯上0
write_dat('C');
}
void keyscan()
{
if(k1==0)
{
// delay(5);
//while(!k1);
set++;
if(set>250)set=250;
write_TH(set);
}
if(k2==0)
{
//delay(5);
//while(!k2);
set--;
if(set<30)set=30;
write_TH(set);
}
}
void main()
{
init_1602();
while(1)
{
keyscan();
write_TH(set);//設置溫度
x=Re_Convert(); //讀取溫度//X=讀到的值
wdd=25*x;//溫度量化 X 0.25//取后兩位就X25
wd =(uint)wdd;//浮點型變量轉換成uint型變量16位
//wd=wd-48;//計算
wd=wd/200;//計算
display(wd);
if(wd>set)
{
OUT=1;
write_com(0x80+11);
write_zfc("<off>");
}
else
{
if(wd+1<=set) //讓這回到5C之下才又開始加溫，防閃爍
{
OUT=0;//加熱開始
write_com(0x80+11);
write_zfc("<ok!>");
}
}
}
}

復制代碼

ID:358930 · 發表于 2019-1-2 22:04

本來做的2個加熱管并聯用12V電源，電流10A太大線路發熱，才改24V現在才3.1A左右。開始想做220V的，加熱管也有，但不安全，我們又不是天天用，不用考慮節能的，安全最重要，我電烙鐵都是自制12.6V鋰電池的，調壓是0-24V，很安全，T12那種進口頭子，9V正常焊接，15V能燒的像電熱絲一樣紅，秒殺了無數人。6個18650舊電池用2個小時沒問題，改天也發一下。

ID:36525 · 發表于 2019-1-3 08:30

請問感溫用什么元件18b20達不到195度？？熱電偶？？

ID:358930 · 發表于 2019-1-3 20:59

ls0899 發表于 2019-1-3 08:30
請問感溫用什么元件18b20達不到195度？？熱電偶？？

感溫用MAX6675熱電偶，幾百度沒問題了。

ID:29594 · 發表于 2020-5-21 08:42

嗯，正好有相似的應用，學習一下lz的思路和程序。謝謝

ID:695384 · 發表于 2020-6-22 15:28

ls0899 發表于 2019-1-3 08:30
請問感溫用什么元件18b20達不到195度？？熱電偶？？

【DS18B20關鍵特性】
獨特的1-Wire®接口僅占用一個通信端口
內置溫度傳感器和EEPROM減少外部元件數量
測量溫度范圍：-55°C至+125°C (-67°F至+257°F)
-10°C至+85°C溫度范圍內測量精度為±0.5°C
9位至12位可編程分辨率
無需外部元件
寄生供電模式下只需要2個操作引腳(DQ和GND)
多點通信簡化分布式溫度測量
每個器件具有唯一的64位序列號，存儲在器件ROM內
用戶可靈活定義溫度報警門限，通過報警搜索指令找到溫度超出門限的器件
提供8引腳SO(150 mils)、8引腳μSOP、3引腳TO-92封裝

ID:695384 · 發表于 2020-6-22 15:29

ls0899 發表于 2019-1-3 08:30
請問感溫用什么元件18b20達不到195度？？熱電偶？？

【MAX31855關鍵特性】
冷端補償
14位、0.25°C分辨率
轉換器的溫度分辨率為0.25°C，
溫度讀數為-270°C 至+1800°C，
對于K型熱電偶，在-200°C至+700°C溫度范圍內，保持±2°C精度。
提供K、J、N、T和E型熱電偶器件版本
簡單的SPI兼容接口(只讀)
檢測熱電偶對GND或VCC短路
檢測熱電偶開路
應用
電器設備
汽車
HVAC
工業

ID:744744 · 發表于 2020-6-22 20:20

這個還是很實用，拆鋁基板最好用

ID:288930 · 發表于 2020-8-11 11:59

功能太多了也沒用，有時間學習一下樓主的思路,謝謝分享！

ID:813313 · 發表于 2020-8-11 19:05

有時間學習一下樓主的思路,謝謝分享！

ID:813473 · 發表于 2020-8-12 11:31

很好的學習貼，有時間一定好好學習

ID:821940 · 發表于 2020-9-30 10:43

最近也想做一個拆焊臺，打算抄一個用用，學習了

ID:826022 · 發表于 2020-10-6 02:45

標記一下,一直想著用什么來做發熱元件的.這個發熱管不錯,夠便宜.

ID:414556 · 發表于 2020-10-8 15:45

底下最好墊塊小瓷磚,不然燒桌子

ID:64825 · 發表于 2020-10-14 20:05

不上PID，溫度會不會波動厲害？

ID:138956 · 發表于 2021-6-3 10:38

MAX6675有些貴

ID:712493 · 發表于 2021-8-29 09:14

大漠游民發表于 2021-6-3 10:38
MAX6675有些貴

好用就行又不做產品自己用還是考慮精度穩定

ID:419034 · 發表于 2022-1-30 09:36

好用就行又不做產品自己用還是考慮精度穩

ID:245629 · 發表于 2023-7-4 16:19

請問溫度誤差大嗎？設置好一個溫度當達到這個溫度時停止加熱，溫度低于多少又開始加熱？這個溫差可以在軟件哪里調整嗎？

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

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

STC單片機自制貼片元件拆焊臺MAX6675控溫程序

評分