奇思妙想了很久，終于在一天臨睡覺前那一秒來了靈感，特殊探測頭解決了，實現幾乎0電壓檢測，不用傳統的高頻高壓，源代碼上傳，探測儀的探測頭不方便說了，后面還會加顏色識別儀，用來配合探頭作比較處理。功能基本上能用于生產線了，2018年最后的單片 狂想曲。
制作出來的實物圖如下：
單片機源程序如下:
- void main()
- {
- uchar j;
- LCD12864_Init();
- Delay1s(1);
-
- for(j=1;j>0;j-- )
- {
- LCD12864_WPoss(0,0,"全智能接頭測試儀");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(1,1,"");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(2,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(3,0,"蘇州寶興電線電纜");//第1行顯示表1 ≈≈∝≠
- Delay1s(5);
- LCD12864_WPoss(0,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(1,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(2,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(3,0," ");//第1行顯示表1 ≈≈∝≠
- Delay1s(1);
- LCD12864_WPoss(0,0,"");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(1,1,"啟動檢測中--");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(2,2,"");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(3,0,"");//第1行顯示表1 ≈≈∝≠
- Delay1s(9);
- LCD12864_WPoss(0,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(1,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(2,0," ");//第1行顯示表1 ≈≈∝≠
- LCD12864_WPoss(3,0," ");//第1行顯示表1 ≈≈∝≠
- Delay1s(1);
- }
- Disp_img(logo); //顯示一幅畫面
- Delay1s(20);
- LCD12864_Init(); //再次初始化用于返回
- Delay1s(1);
- LCD12864_WPoss(0,2,"檢測啟動");//第1行顯示表1
- Delay1s(1);
- LCD12864_WPoss(3,2,"報警復位");//第1行顯示表1
- bb=1;//關一下聲音
- stop=1; //停機信號
- cls=1;//計量清除
- pcls=1;//報警清除
-
- Delay1s(1);
-
- HH = IapReadByte(0x00);//開機時從EEPROM中讀取H高8位參數
- HL = IapReadByte(0x01);//開機時從EEPROM中讀取H的低8位參數
- H=HH*256+HL;//讀出溫度上限值
-
-
- LH = IapReadByte(0x02);//開機時從EEPROM中讀取L高8位參數
- LL = IapReadByte(0x03);//開機時從EEPROM中讀取L的低8位參數
- L=LH*256+LL;//讀出溫度下限值
-
-
- while(1)
- {
-
- keyscan();//矩陣報警輪檢測
-
- display1(H);//顯示報警接頭數量
-
-
- }
- }
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
所有資料51hei提供下載:
128顯STC12電線接頭檢測儀OK1.zip
(56.89 KB, 下載次數: 15)
2018-12-15 04:09 上傳
點擊文件名下載附件
|
