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

ID:358930 · 發(fā)表于 2019-1-2 21:52

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

制作出來的實(shí)物圖如下：

單片機(jī)源碼：

#include<reg51.h>
#define uchar unsigned char//只有256
#define uint unsigned int//有16位但占內(nèi)存。
#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--);
}
//定義溫度數(shù)據(jù)變量
float wdd = 0;//單精度浮點(diǎn)型變量眼3.4*10^38----(-3.4*10^38) 占4個字節(jié)小數(shù)點(diǎn)后7-8位
//double wdd = 0;//雙精度浮點(diǎn)型變量小數(shù)點(diǎn)后15-16位
ulong x = 0;//長整數(shù)型溫度
uint wd;//定義一個溫度用于顯示
sbit SO=P3^2; //P1.0口與SO相連
sbit CS=P3^3; //P1.1口與CS相連
sbit SCK=P3^4; //P1.2口與SCK相連
/*******************************延時函數(shù)**********************************************/
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() //熱電偶數(shù)據(jù)--讀取溫度
{ uchar i;
unsigned long Temp_2;
Temp_2=0;
CS=1;
SCK=0;
Delay1Ms(120); //不低于（52機(jī)）100MS不然數(shù)據(jù)無法刷新
_nop_();_nop_();
CS=0;
for(i=0;i<16;i++)//16位數(shù)據(jù)讀取
{
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;//測試正常運(yùn)行不要
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)//寫數(shù)據(jù)
{
rs=1;//
rw=0;
en=0;
P0=dat;
delay(2);
en=1;
delay(5);
en=0;
delay(2);
}
void write_zfc(uchar *p)//定義一個帶指針的函數(shù)?（字符串）
{
while(*p!=0)//不能用";"
write_dat(*p++);
}
void init_1602()//1602初始化
{
write_com(0x38);//設(shè)置16X2顯示
delay(1);
write_com(0x0C);//0e光標(biāo)不閃//0c不顯//0f閃爍顯示
delay(1);
write_com(0x06);//光標(biāo)移位加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位顯示子函數(shù)
{
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);//設(shè)置溫度
x=Re_Convert(); //讀取溫度//X=讀到的值
wdd=25*x;//溫度量化 X 0.25//取后兩位就X25
wd =(uint)wdd;//浮點(diǎn)型變量轉(zhuǎn)換成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!>");
}
}
}
}

復(fù)制代碼

ID:358930 · 發(fā)表于 2019-1-2 22:04

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

ID:36525 · 發(fā)表于 2019-1-3 08:30

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

ID:358930 · 發(fā)表于 2019-1-3 20:59

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

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

ID:29594 · 發(fā)表于 2020-5-21 08:42

嗯，正好有相似的應(yīng)用，學(xué)習(xí)一下lz的思路和程序。謝謝

ID:695384 · 發(fā)表于 2020-6-22 15:28

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

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

ID:695384 · 發(fā)表于 2020-6-22 15:29

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

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

ID:744744 · 發(fā)表于 2020-6-22 20:20

這個還是很實(shí)用，拆鋁基板最好用

ID:288930 · 發(fā)表于 2020-8-11 11:59

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

ID:813313 · 發(fā)表于 2020-8-11 19:05

有時間學(xué)習(xí)一下樓主的思路,謝謝分享！

ID:813473 · 發(fā)表于 2020-8-12 11:31

很好的學(xué)習(xí)貼，有時間一定好好學(xué)習(xí)

ID:821940 · 發(fā)表于 2020-9-30 10:43

最近也想做一個拆焊臺，打算抄一個用用，學(xué)習(xí)了

ID:826022 · 發(fā)表于 2020-10-6 02:45

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

ID:414556 · 發(fā)表于 2020-10-8 15:45

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

ID:64825 · 發(fā)表于 2020-10-14 20:05

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

ID:138956 · 發(fā)表于 2021-6-3 10:38

MAX6675有些貴

ID:712493 · 發(fā)表于 2021-8-29 09:14

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

好用就行又不做產(chǎn)品自己用還是考慮精度穩(wěn)定

ID:419034 · 發(fā)表于 2022-1-30 09:36

好用就行又不做產(chǎn)品自己用還是考慮精度穩(wěn)

ID:245629 · 發(fā)表于 2023-7-4 16:19

請問溫度誤差大嗎？設(shè)置好一個溫度當(dāng)達(dá)到這個溫度時停止加熱，溫度低于多少又開始加熱？這個溫差可以在軟件哪里調(diào)整嗎？

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

	10^# 無效樓層，該帖已經(jīng)被刪除

	13^# 無效樓層，該帖已經(jīng)被刪除

	15^# 無效樓層，該帖已經(jīng)被刪除

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

評分