標(biāo)題: 單片機LCR電橋程序 許老師多年前的作品 [打印本頁]
作者: lzc123456789    時間: 2021-10-21 08:33
標(biāo)題: 單片機LCR電橋程序 許老師多年前的作品
該電橋，具有價格便宜，性能精度能滿足一般電子愛好者的使用,電路方面許老師的自述文件里都有介紹，現(xiàn)提供熱心網(wǎng)友提供的更新程序，最后聲明：所有文件的所有權(quán)益歸原作者許老師所有.

單片機源程序如下:
  1. //==========================================================================
  2. //  LCR表驅(qū)動程序 V2.0
  3. //  許劍偉 于莆田 2012.01
  4. //==========================================================================
  5. //==========================================================================
  6. #define uchar unsigned char
  7. #define uint  unsigned int
  8. #define ulong  unsigned long
  9. #include <reg52.h>
  10. #include <math.h>

  12. //==========================================================================
  13. // 項目：LCD1602 四線驅(qū)動程序
  14. // 設(shè)計要點：
  15. //     LCD1602 的運行速度慢，而單片機運行的速度快，因此容易因為速度不
  16. //     匹配造成調(diào)試失敗。因此，調(diào)試之前應(yīng)準(zhǔn)確測試lcd_delay() 延時函數(shù)
  17. //     準(zhǔn)確的延時量，如果不能滿足注釋中的要求，則應(yīng)調(diào)整循次數(shù)。每步操
  18. //     作所需的延時量，按照數(shù)據(jù)手冊指標(biāo)指行，同時留下足夠的時間余量。
  19. // 硬件連接：
  20. //     至少需要9條線，電源線2條，7條信號線。信號線詳見程序中的接口定義。
  21. //     清注意對LCD1602對比度的調(diào)節(jié)，否則無顯示。
  22. // 設(shè)計：許劍偉,于莆田,2010.12
  23. //==========================================================================
  24. sbit lcd_RS = P0^6; //數(shù)據(jù)命令控制位,0命令1數(shù)據(jù)
  25. sbit lcd_RW = P0^5; //讀寫位,0寫1讀
  26. sbit lcd_EN = P0^4; //使能位,下降沿觸發(fā)
  27. sbit lcd_D4 = P0^3; //數(shù)據(jù)端口D4
  28. sbit lcd_D5 = P0^2; //數(shù)據(jù)端口D5
  29. sbit lcd_D6 = P0^1; //數(shù)據(jù)端口D6
  30. sbit lcd_D7 = P0^0; //數(shù)據(jù)端口D7
  31. //==========================================================================
  32. code char path[32]={
  33. 0x00,0x00,0x0e,0x11,0x11,0x0a,0x1b,0x00,
  34. 0x00,0x11,0x11,0x13,0x1d,0x10,0x10,0x10,
  35. 0x0e,0x11,0x1f,0x11,0x11,0x0e,0x00,0x00,
  36. 0x1C,0x10,0x1B,0x12,0x1B,0x01,0x07,0x00
  37. };//自定義符號
  38. char binLian=0,ATA=0,ATB=1;
  39. char OX[8]={0,0,0,0,0,0,8,0};
  40. int DDS3=1, c3 = 0; //交替顯示變量
  41. char digW=4; //數(shù)字顯示位數(shù)宏
  42. code uchar abc[][5]={
  43. "  err","   40","  120","  360"," 1080","   1K","   3K","   9K","  27K","  10K",
  44. "  30K","  90K"," 270K"," 100K"," 300K"," 900K"," 2.7M","   13","  4.5","  1.5"
  45. };

  47. void lcd_delay(int n){ //LCD專用延時函數(shù)
  48.   //32MHz鐘頻下，約循環(huán)3000次延遲1毫秒
  49.   int i,j;
  50.   if(n<0)    { for(i=0;i< 30;i++); return; } //10us
  51.   if(n== 0)  { for(i=0;i<150;i++); return; } //50us
  52.   for(;n;n--){ for(j=0;j<3000;j++);        } //n毫秒
  53. }
  54. //==========================================================================
  55. void lcd_B(char f, uchar c, char t){ //控制四線式接口LCD的7個腳
  56.   //f=0寫命令字, f=1寫RAM數(shù)據(jù), f=2讀地址（或讀忙）, f=3讀RAM數(shù)據(jù)
  57.   lcd_EN = 0;
  58.   lcd_RS = f%2;
  59.   lcd_RW = f/2%2;
  60.   //移入高四位
  61.   lcd_D4 = c & 16;
  62.   lcd_D5 = c & 32;
  63.   lcd_D6 = c & 64;
  64.   lcd_D7 = c & 128;
  65.   lcd_EN = 1;  lcd_delay(-1);  lcd_EN = 0; //使能脈沖
  66.   if(f==4) { lcd_delay(t); return; }
  67.   //移入低四位
  68.   lcd_D4 = c & 1;
  69.   lcd_D5 = c & 2;
  70.   lcd_D6 = c & 4;
  71.   lcd_D7 = c & 8;
  72.   lcd_EN = 1;  lcd_delay(-1);  lcd_EN = 0; //使能脈沖
  73.   lcd_delay(t);  //不同的命令,響應(yīng)時間不同,清零命令需要2ms
  74. }
  75. //==========================================================================
  76. void lcd_init(){ //LCD1602 初始化
  77.   //啟動四線模式須勢行9個步驟，初始化所須耗時較長，約65ms，時限不可減
  78.   lcd_delay(20); //啟動lcd之前須延時大于15ms，直到VDD大于4.5V
  79.   lcd_B(4, 0x30, 9); //置8線模式,須延時大于4.1ms
  80.   lcd_B(4, 0x30, 5); //置8線模式,須延時大于100us
  81.   lcd_B(4, 0x30, 5); //置8線模式,手冊中未指定延時
  82.   lcd_B(4, 0x20, 5); //進(jìn)入四線模式
  83.   lcd_B(0, 0x28, 5); //四線模式雙行顯示
  84.   lcd_B(0, 0x0C, 5); //打開顯示器
  85.   lcd_B(0, 0x80, 5); //RAM指針定位
  86.   lcd_B(0, 0x01, 5); //啟動清屏命初始化LCD
  87. }
  88. //==========================================================================
  89. //=========================幾個功能常用函數(shù)=================================
  90. void lcd_cls()         { lcd_B(0, 0x01+0, 2);  } //清屏
  91. void lcd_cur0()        { lcd_B(0, 0x0C+0, 0);  } //隱藏光標(biāo)
  92. void lcd_goto1(uchar x){if(ATB) lcd_B(0, 0x80+x, 0); else lcd_B(0, 0x94+x, 0);} //設(shè)置DDRAM地址,第1行x位
  93. void lcd_goto2(uchar x){if(ATB) lcd_B(0, 0xC0+x, 0); else lcd_B(0, 0xD4+x, 0);} //設(shè)置DDRAM地址,第2行x位
  94. void lcd_goto3(uchar x){if(ATB) lcd_B(0, 0x94+x, 0); else lcd_B(0, 0x80+x, 0);} //設(shè)置DDRAM地址,第3行x位
  95. void lcd_goto4(uchar x){if(ATB) lcd_B(0, 0xD4+x, 0); else lcd_B(0, 0xC0+x, 0);} //設(shè)置DDRAM地址,第4行x位
  96. void lcd_putc(uchar d) { lcd_B(1, 0x00+d, 0);  } //字符輸出
  97. void lcd_puts(uchar *s){ for(; *s; s++) lcd_B(1,*s,0); } //字串輸出
  98. //==============字符顯示函數(shù)====================

  100. void lcd_putp(float a,float b,char bo,char n, float qmin){ //帶單位顯示復(fù)數(shù),n是單位下限,qmin是最小位權(quán)值(用于限定有效數(shù)字)
  101.   code uchar dwB[] = {'p','n','u','m',' ','k','M','G'}; //單位表
  102.   char i,j, c=0, h=digW-1, fh[2]={' ','+'};
  103.   long d,q,qm,Q=1; //最高位權(quán)
  104.   float f,g=1;
  105.   if(a<0) fh[0] = '-', a = -a;
  106.   if(b<0) fh[1] = '-', b = -b;
  107.   if(a>b) f = a; else f = b;
  108.   for(i=1;i<digW;i++) Q *= 10;
  109.   for(i=0;i<3;i++){ if(f*g >= 1000) g/=1000, c++; } //以3位為單位移動小數(shù)點,右移
  110.   for(i=0;i<n;i++){ if(f*g < 1)     g*=1000, c--; } //以3位為單位移動小數(shù)點,左移
  111. if ((n==1)&&(c==-1)){
  112.   for(i=1;i<2 && f*g<Q;i++) g*=10,h--;           //繼續(xù)移動小數(shù)點，使之滿字
  113. }else if ((n==2)&&(c==-2)){
  114.   for(i=1;i<3 && f*g<Q;i++) g*=10,h--;           //繼續(xù)移動小數(shù)點，使之滿字
  115. }else if ((n==4)&&(c==-4)){
  116.   for(i=1;i<2 && f*g<Q;i++) g*=10,h--;           //繼續(xù)移動小數(shù)點，使之滿字
  117. }else{
  118.   for(i=1;i<digW && f*g<Q;i++) g*=10,h--;        //繼續(xù)移動小數(shù)點，使之滿字
  119. }
  120.   qm = g*qmin;
  121.   for(i=0;i<2;i++){
  122.    if(i) d = b*g;      //取出實部
  123.    else  d = a*g;      //取出虛部
  124.    if(qm) d+=qm/2, d-=d%qm;//去除小于qmin的尾數(shù)
  125.    q = Q;
  126.    lcd_putc(fh[i]);        //顯示符號
  127.    for(j=0; j<digW; j++){  //數(shù)字輸出
  128.     lcd_putc(d/q+48);      //數(shù)字
  129.     if(j==h) lcd_putc('.');//小數(shù)點
  130.     d %= q, q /= 10;  
  131.    }
  132.    if(!bo) break;     //不顯示虛部
  133.   }
  134.   //lcd_putc(dwB[c+4]); //單位
  135. if(dwB[c+4]=='u') { lcd_putc(9);} else {
  136. if(n==1){
  137. if(dwB[c+4]==' ') { lcd_putc(8); OX[6]=32; } else { lcd_putc(dwB[c+4]); OX[6]=8; } //自動單位
  138. }
  139. else { lcd_putc(dwB[c+4]); OX[6]=8; }
  140. } //符號

  142. }
  143. void lcd_putf(float a, char n, float qmin) //帶單位顯示浮點數(shù),n是單位下限
  144.   { lcd_putp(a,0,0,n,qmin); }
  145. void lcd_int(int a,char w){ //定寬顯示正整數(shù)
  146.   char i=0, s[5] = {' ',' ',' ',' ',' '};
  147.   if(a<0) { a=-a; lcd_puts("-"); }
  148.   else    lcd_puts(" ");
  149.   do{
  150.    s[i++] = a%10+48;
  151.    a /= 10;
  152.   }while(a);
  153.   for(;w;w--) lcd_putc(s[w-1]);
  154. }

  156. //==========================================================================
  157. //===============================延時函數(shù)===================================
  158. void delay(uint loop) { uint i; for(i=0;i<loop;i++); } //延時函數(shù)
  159. void delay2(uint k)   { for(;k>0;k--) delay(10000);  } //長延時,k=100大約對應(yīng)1秒

  161. //==========================================================================
  162. //=================================AD轉(zhuǎn)換===================================
  163. sfr P1ASF = 0x9D;     //將P1置為模擬口寄存器(使能),各位中為1的有效
  164. sfr ADC_CONTR = 0xBC; //A/D轉(zhuǎn)換控制寄存器
  165. sfr ADC_res   = 0xBD; //A/D轉(zhuǎn)換結(jié)果寄存器
  166. sfr ADC_resl  = 0xBE; //A/D轉(zhuǎn)換結(jié)果寄存器

  168. void set_channel(char channel){
  169. P1ASF = 1<<channel;
  170. ADC_CONTR = channel+128; //最高位是電源開關(guān),低3位通道選擇
  171. delay(1); //首次打開電源應(yīng)延遲，使輸入穩(wěn)定
  172. }
  173. uint getAD2(){
  174. ADC_CONTR |= 0x08;             //00001000,置ADC_START=1啟動A/D 轉(zhuǎn)換
  175. while ( !(ADC_CONTR & 0x10) ); //等待A/D轉(zhuǎn)換結(jié)束(ADC_FLAG==0)
  176. ADC_CONTR &= 0xE7;             //11100111,置ADC_FLAG=0清除結(jié)束標(biāo)記, 置ADC_START=0關(guān)閉A/D 轉(zhuǎn)換
  177. return ADC_res*4 + ADC_resl;
  178. }
  179. /*
  180. uchar get_AD(){
  181. ADC_CONTR |= 0x08;             //00001000,置ADC_START=1啟動A/D 轉(zhuǎn)換
  182. while( !(ADC_CONTR & 0x10) );  //等待A/D轉(zhuǎn)換結(jié)束(ADC_FLAG==0)
  183. ADC_CONTR &= 0xE7;             //11100111,置ADC_FLAG=0清除結(jié)束標(biāo)記, 置ADC_START=0關(guān)閉A/D 轉(zhuǎn)換
  184. return ADC_res;
  185. }
  186. */


  189. //==========================================================================
  190. //==================================EEPROW偏程==============================
  191. sfr IAP_data  = 0xC2;
  192. sfr IAP_addrH = 0xC3;
  193. sfr IAP_addrL = 0xC4;
  194. sfr IAP_cmd   = 0xC5;
  195. sfr IAP_trig  = 0xC6;
  196. sfr IAP_contr = 0xC7;
  197. /********************
  198. 寫字節(jié)時，可以將原有數(shù)據(jù)中的1改為0，無法將0改為1，只能使用擦除命令將0改為1
  199. 應(yīng)注意，擦除命令會將整個扇區(qū)擦除
  200. *********************/
  201. int eepEn = 0;
  202. void saEEP(){ //觸發(fā)并EEP保護(hù)
  203. if(eepEn==12345) IAP_trig = 0x5A;  //先送5A
  204. if(eepEn==12345) IAP_trig = 0xA5;  //先送5A再送A5立即觸發(fā)
  205. IAP_cmd = 0;      //關(guān)閉令，保護(hù)
  206. IAP_contr = 0;    //關(guān)EEPROM，保護(hù)
  207. IAP_trig = 0;
  208. IAP_addrL = 255; //設(shè)置讀取地址的低字節(jié)，地址改變才需要設(shè)置
  209. IAP_addrH = 255; //設(shè)置讀取地址的高字節(jié)，地址改變才需要設(shè)置
  210. }
  211. uchar readEEP(uint k){ //讀取
  212. IAP_addrL = k;    //設(shè)置讀取地址的低字節(jié)，地址改變才需要設(shè)置
  213. IAP_addrH = k>>8; //設(shè)置讀取地址的高字節(jié)，地址改變才需要設(shè)置
  214. IAP_contr = 0x81; //設(shè)置等待時間，1MHz以下取7，2M以下取6，3M取5，6M取4，12M取3，20M取2，24M取1，30M取0，前導(dǎo)1表示許檔IAP
  215. IAP_cmd = 1;      //讀取值1，寫取2，擦除取3，擦除時按所在字節(jié)整個扇區(qū)攛除
  216. saEEP(); //觸發(fā)并保護(hù)
  217. return IAP_data;
  218. }
  219. void writeEEP(uint k, uchar da){ //寫入
  220. IAP_data = da;    //傳入數(shù)據(jù)
  221. IAP_addrL = k;    //設(shè)置讀取地址的低字節(jié)，地址改變才需要設(shè)置
  222. IAP_addrH = k>>8; //設(shè)置讀取地址的高字節(jié)，地址改變才需要設(shè)置
  223. IAP_contr = 0x81; //設(shè)置等待時間，1MHz以下取7，2M以下取6，3M取5，6M取4，12M取3，20M取2，24M取1，30M取0，前導(dǎo)1表示許檔IAP
  224. IAP_cmd = 2;      //讀取值1，寫取2，擦除取3，擦除時按所在字節(jié)整個扇區(qū)攛除
  225. saEEP(); //觸發(fā)并保護(hù)
  226. }
  227. void eraseEEP(uint k){ //擦除
  228. IAP_addrL = k;    //設(shè)置讀取地址的低字節(jié)，地址改變才需要設(shè)置
  229. IAP_addrH = k>>8; //設(shè)置讀取地址的高字節(jié)，地址改變才需要設(shè)置
  230. IAP_contr = 0x81; //設(shè)置等待時間，1MHz以下取7，2M以下取6，3M取5，6M取4，12M取3，20M取2，24M取1，30M取0，前導(dǎo)1表示許檔IAP
  231. IAP_cmd = 3;      //讀取值1，寫取2，擦除取3，擦除時按所在字節(jié)整個扇區(qū)攛除
  232. saEEP(); //觸發(fā)并保護(hù)
  233. }


  236. xdata struct Ida{
  237. char zo[3];//三個頻率下的零點改正值
  238. char j1;   //相位補償(3倍檔)
  239. char j2;   //相位補償(10倍檔)
  240. char J[4];  //相位補償(V/I變換器)
  241. char R[4]; //下臂電阻修正(40,1k,10k,100k)
  242. char g1;   //增益修正(3倍檔)
  243. char g2;   //增益修正(10倍檔)
  244. char phx; //1kHz以下相位改正
  245. char R4b; //100k檔7.8kHz頻率下的幅度補償
  246. char G2b; //9倍檔7.8kHz頻率下的幅度補償
  247. char feq; //頻率修正
  248. char ak;  //AD斜率修正
  249. float QRs[3],QXs[3]; //短路清零數(shù)據(jù)
  250. float QRo[3],QXo[3]; //開路清零數(shù)據(jù)
  251. } cs;

  253. void cs_RW(char rw){
  254. uchar i,*p = &cs;
  255. const int offs=512;
  256. if(rw){
  257.   delay2(10); //等待(防止掉電誤識別鍵盤而調(diào)用本函數(shù))
  258.   eraseEEP(offs);
  259.   for(i=0;i<sizeof(cs);i++) writeEEP(i+offs,p[i]);
  260. }else{
  261.   for(i=0;i<sizeof(cs);i++) p[i]=readEEP(i+offs);
  262. }
  263. }

  265. //==========================================================================
  266. //==================================LCR主程序===============================
  267. //==========================================================================
  268. sfr P1M1=0x91; //P1端口設(shè)置寄存器
  269. sfr P1M0=0x92; //P1端口設(shè)置寄存器
  270. sfr P0M1=0x93; //P0端口設(shè)置寄存器
  271. sfr P0M0=0x94; //P0端口設(shè)置寄存器
  272. sfr P2M1=0x95; //P2端口設(shè)置寄存器
  273. sfr P2M0=0x96; //P2端口設(shè)置寄存器
  274. sfr P3M1=0xB1; //P3端口設(shè)置寄存器
  275. sfr P3M0=0xB2; //P3端口設(shè)置寄存器


  278. sbit spk=P2^3; //蜂鳴器
  279. sbit Kb=P2^1;  //量程開關(guān)B
  280. sbit Ka=P2^2;  //量程開關(guān)A
  281. sbit DDS2=P1^2;//移相方波輸出口
  282. sbit K3=P1^7;
  283. sbit K4=P1^6;
  284. sbit K5=P1^5;  //7.8kHz濾波開關(guān)
  285. sbit K6=P1^4;
  286. sbit K8=P2^0;  //100Hz濾波開關(guān)
  287. sbit K32=P1^1; //32kHz發(fā)生器
  288. xdata uchar menu=1,menu2=0; //菜單變量

  290. //==============低頻信號DDS相關(guān)參數(shù)====================
  291. //PCA相關(guān)寄存器
  292. sfr CMOD = 0xD9;   //鐘源選擇控制等
  293. sfr CH = 0xF9;     //PCA的計數(shù)器
  294. sfr CL = 0xE9;     //PCA的計數(shù)器
  295. sfr CCON = 0xD8;   //PCA控制寄存器
  296. sfr CCPAM0 = 0xDA; //PCA模塊0工作模式寄存器
  297. sfr CCPAM1 = 0xDB; //PCA模塊1工作模式寄存器
  298. sfr CCAP0L = 0xEA; //模塊0捕獲寄存器低位
  299. sfr CCAP0H = 0xFA; //模塊0捕獲寄存器高位
  300. sfr IPH = 0xB7;

  302. sbit PPCA  = IP^7;   //PCA的中斷優(yōu)先級設(shè)置
  303. sbit CCF0  = CCON^0; //PCA的模塊0中斷標(biāo)志
  304. sbit CCF1  = CCON^1; //PCA的模塊1中斷標(biāo)志
  305. sbit CR = CCON^6;    //PCA計數(shù)器使能

  307. uint ph=0, phM=256, feq=977; //相位,phM相位步進(jìn)值
  308. uchar *ph8 = (char*)&ph;    //ph的高8位地址
  309. xdata float feqX=976.6; //實際輸出頻率
  310. uchar code sinB[256]={
  311. //查詢表中不可裝載零值，否則會造成無中斷產(chǎn)生
  312. 255,255,255,255,255,255,254,254,253,252,252,251,250,249,248,247,246,245,243,242,240,239,237,236,234,232,230,229,227,225,222,220,
  313. .......
  314. uchar chuX=0; //方波DDS初相
  315. //==============低頻信號DDS函數(shù)====================
  316. void PWM_init(){ //把PCA置為PWM
  317.   CMOD = 2;   //0000 0010 計數(shù)源選擇,鐘源取fosc/2
  318.   CL = CH = 0;
  319.   CCAP0L = CCAP0H = 192; //占空比為25%
  320.   //CCPAM0=0x42;//0100 0010,PCA的模塊0設(shè)置為PWM模式,無中斷
  321.   CCPAM0=0x53;//0101 0011,PCA的模塊0設(shè)置為PWM模式,有中斷，下降沿中斷
  322.   PPCA = 1;   //優(yōu)先中斷
  323.   IPH |= 128;
  324.   //CR = 1;   //開始計數(shù)
  325.   EA = 1;     //開總中斷
  326. }

  328. void PCAinter(void) interrupt 7 {//PCA中斷
  329.   uchar x,y;
  330.   CCF0=0; //清除中斷請求,以免反復(fù)中斷
  331.   x = *ph8;        //截斷正弦相位累加器,取高8位
  332.   y = x + chuX;    //方波相位
  333.   CCAP0H = sinB[x];//正弦DDS輸出
  334. if(DDS3) {  DDS2 = fbB[y];   //方波DDS輸出
  335. }else {DDS2 = 0;}
  336.   ph += phM;       //相位累加
  337.   K32 = ~K32;
  338. }
  339. void setDDS(uint f){ //參考時鐘是c=(fosc/2)/256=32000000/2/256=62500,頻率f=c*phM/2^16
  340. feq = f;
  341. phM=f*65536.0/62500; //phM=f*2^16/62500
  342. feqX = 62500.0*phM/65536*(1+cs.feq/10000.0); //實際輸出頻率
  343. ph = 0;              //高頻時，使波形對稱
  344. if(!f) CR=0; else CR=1;
  345. }

  347. //相位控制函數(shù)
  348. xdata char xw=0; //相位
  349. void set90(char k){ //設(shè)置方波的相位差
  350.   k %= 4;
  351.   if(k<0) k += 4;
  352.   if(k==0) chuX=0;   //移相0度
  353.   if(k==1) chuX=64;  //移相90度
  354.   if(k==2) chuX=128; //移相180度
  355.   if(k==3) chuX=192; //移相270度
  356.   xw = k;
  357. }
  358. void set902() { set90(xw+1); } //相位步進(jìn)

  360. //==============量程控制函數(shù)====================
  361. xdata char rng=1; //量程
  362. void setRng(char k){//切換量程
  363. if(k>3) k=3;
  364. if(k<0) k=0;
  365. if(k==0) Ka=0,Kb=0; //40歐
  366. if(k==1) Ka=0,Kb=1; //1k歐
  367. if(k==2) Ka=1,Kb=0; //10k歐
  368. if(k==3) Ka=1,Kb=1; //100k歐
  369. rng = k;
  370. }
  371. void setRng2(){ setRng( (rng+1)%4); } //量程步進(jìn)

  373. //==============增益控制函數(shù)====================
  374. char curGain=1; //當(dāng)前增益索引號
  375. void setGain(char k){ //設(shè)置電路增益
  376.   if(k>3) k=3;
  377.   if(k<0) k=0;
  378.   if(k==0) K4=0,K6=0; //1倍
  379.   if(k==1) K4=0,K6=1; //3倍
  380.   if(k==2) K4=1,K6=0; //9倍
  381.   if(k==3) K4=1,K6=1; //27倍
  382.   curGain = k;
  383. }
  384. void setGain2(){ setGain((curGain+1)%4); }


  387. //==============AD非線性改正與過采樣=================
  388. uint getAD10(){ //120次采樣,用reentrant申明，有的單片機無法運行
  389. int i;
  390. long c;
  391. for(i=0;i<250;i++) c += getAD2();
  392. return (c+12)/25;
  393. }
  394. uint getAD10b(){ //120次采樣,用reentrant申明，有的單片機無法運行
  395. xdata long c = 0, c2 = 0;
  396. int i;
  397. for(i=0;i<250;i++){
  398.   ADC_CONTR |= 0x08;             //00001000,置ADC_START=1啟動A/D 轉(zhuǎn)換
  399.   while ( !(ADC_CONTR & 0x10) ); //等待A/D轉(zhuǎn)換結(jié)束(ADC_FLAG==0)
  400.   ADC_CONTR &= 0xE7;             //11100111,置ADC_FLAG=0清除結(jié)束標(biāo)記, 置ADC_START=0關(guān)閉A/D 轉(zhuǎn)換
  401.   c  += ADC_resl;
  402.   c2 += ADC_res;
  403. }
  404. c3 = c;
  405. c = ( c2*4L + c )/25;
  406. c3= ( c2*4L + c3 ) -c*25;
  407. return c;
  408. }



  412. //==============LCR測量====================
  413. code float ga[4] =  {  1,   3,   9,  27 }; //增益表
  414. code float dwR[4] = { 40, 1e3, 1e4, 1e5 }; //各檔電阻表
  415. xdata int Vxy[12]={0,0,0,0,1,1}; //Vxy[Vx1,Vy1,Vx2,Vy2,g1,g2]
  416. xdata char Sxw[4]={0,1,0,1};    //保存正確相位
  417. xdata int Vz[24];               //LCR測量結(jié)果隊
  418. xdata uchar tim=0,tims=0;
  419. xdata char pau=0; //暫停坐標(biāo)自動旋轉(zhuǎn)
  420. xdata char isQ=1;

  422. #define Vfull 9600
  423. #define gad (9600/30)
  424. uchar mT = 6; //測量速度,mT取值為6或12或24時，可以消除數(shù)字噪聲，尾數(shù)不動，但不利于于取平均
  425. //==============設(shè)置頻率====================
  426. xdata char feqK=1; //頻率索引號
  427. void setF(char k){
  428.   if(k==-1) k = (feqK+1)%3; //步進(jìn)
  429.   feqK = k;
  430.   if(k==0) { setDDS(100);   K5=0; K8=1; mT=12; } //置為100Hz
  431.   if(k==1) { setDDS(977);   K5=0; K8=0; mT=6;  } //置為1kHz
  432.   if(k==2) { setDDS(7813);  K5=1; K8=0; mT=6;  } //置為7.8125kHz
  433.   TH1 = 150, TL1 = 171; //置為20ms
  434.   tims = 0;
  435.   tim = 0;
  436.   ph = 0;
  437. }
  438. int absMax(int a,int b){ //取兩個數(shù)絕對值最大者
  439.   if(a<0) a = -a;
  440.   if(b<0) b = -b;
  441.   if(b>a) a = b;
  442.   return a;
  443. }

  445. char yc1=0,yc2=0; //溢出標(biāo)識
  446. char slw = 1; //降速倍率
  447. char chg=0;   //量程切換標(biāo)記
  448. void timerInter1(void) interrupt 3 {//T1中斷,LCR數(shù)據(jù)采集
  449. code int y[5]={0,-15,30,24,0}; //滿度用30
  450. code int x[5]={4900,5090,5140,5500,6120};
  451.   char g,gb,Rb,i; int c=0,cc=0;
  452.   tims++;
  453.   if(tims>=mT/slw) tims = 0, tim++, c = 1;
  454.   if(tim>=4) tim=0;
  455.   if(pau) return;
  456.   if(!c) return; //tim未進(jìn)位觸發(fā)
  457.   c = getAD10b();   //讀取電壓值
  458.   cc= c3;
  459.   c -= cs.zo[feqK];
  460. if(cs.ak>0){
  461. for(i=0;i<4;i++){ //非線性改正
  462.   if(c<x[i]||c>=x[i+1]) continue;
  463.   c += cs.ak*( y[i] + (y[i+1]-y[i]) * ((int)(c-x[i])) / (x[i+1]-x[i]) ) / 30;
  464.   break;
  465. }
  466. }
  467.   
  468.   Vxy[tim] = xw<2 ? c : -c;  //保存當(dāng)前電壓
  469.   Vxy[tim+6] = xw<2 ? cc : -cc;  //保存當(dāng)前電壓
  470.   Vxy[tim/2+4] = curGain;    //保存當(dāng)前增益
  471.   Sxw[tim] = ( Sxw[tim]+(c<0 ? 2 : 0) )%4;  //相位翻轉(zhuǎn)(預(yù)測下次的相位采用值)
  472.   if(tim==1||tim==3){ //上下臂切換
  473.     if(tim==1) { K3=1, c = absMax(Vxy[2],Vxy[3]), g=Vxy[5]; yc2 = c>Vfull ? 1:0; }//切換到下臂
  474.     if(tim==3) { K3=0, c = absMax(Vxy[0],Vxy[1]), g=Vxy[4]; yc1 = c>Vfull ? 1:0; }//切換到上臂
  475.     gb=g, Rb=rng;
  476.     if(c>Vfull){ if(g==0&&rng>0&&K3&&isQ) Rb=rng-1; gb=0; }
  477.     else if(c<gad*1 ) gb = g+3; //增加27倍
  478.     else if(c<gad*3 ){ gb = g+2;if(c<gad*2&&rng>=1&&rng<=2&&K3&&isQ ) { gb=0; Rb=rng+1; }} //增加9倍
  479.     else if(c<gad*9)  gb = g+1; //增加3倍
  480.         if(gb>3) gb = 3;
  481.     if(g==3&&rng<3&&K3&&isQ) { gb=0; Rb=rng+1; }
  482.     if(g==0&&c<gad*1&&rng<3&&K3&&isQ) { gb=0; Rb=rng+1; }

  484.         setRng(Rb); setGain(gb); //置量程
  485.     if(gb!=g || Rb!=rng) slw = 2, chg++; //量程正在改變，則加速測量
  486.     if(tim==3){ if(!chg) slw=1; chg=0; }
  487.   }
  488.   set90( Sxw[ (tim+1)%4 ] ); //相位旋轉(zhuǎn)
  489.   if(tim==3){ for(i=0;i<12;i++) Vz[i+12]=Vz[i], Vz[i]=Vxy[i]; }
  490. }


  493. void showR(char binLian, char showk){ //顯示LCR
  494.   xdata float a=0,b=0,c=0,qq=0,dd=0,e,w,L,C;
  495.   xdata int gr=cs.R[rng], g1=cs.g1, g2=cs.g2;
  496.   xdata int g12 = g1 + g2;          //增益最大補償
  497.   xdata int j12 = (int)cs.j1+cs.j2; //相位最大補償
  498.   xdata float JD = 0, G = 0, cJD;   //補償變量
  499.   xdata float v[4];
  500.   xdata char ATC=0,d3=1;

  502.   //LCR計算
  503.   if(feqK<0||feqK>2) return;
  504.   if(feq==7813&&rng==3) gr += cs.R4b; //7.8kHz時下臂修正量
  505.   //可控增益單元的增益修正、相位補償量
  506.   if(feq==7813) g2 += cs.G2b;  //7.8kHz時9倍檔修正量
  507. ……………………

  509. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼

所有資料51hei附件下載:
2004程序_3.0_全自動電橋V1.rar (28.53 KB, 下載次數(shù): 470)
LCR數(shù)字電橋自制方案.pdf (1.39 MB, 下載次數(shù): 412)
LCR數(shù)字電橋.docx (257.25 KB, 下載次數(shù): 337)
作者: 雪玉寐影    時間: 2021-12-7 02:53
許老師把資料公開了？怪不得某寶多出來很多套件！
作者: jsh560    時間: 2021-12-11 09:18
吃透了嗎?可以一起討論學(xué)習(xí)下嗎
作者: dhbt2021    時間: 2021-12-11 19:02
置量程不懂�。。。。�！
作者: tanguoyong    時間: 2022-1-1 20:58
置量程不懂�。。。。�！
作者: luckzsh    時間: 2022-3-2 00:10
一起討論學(xué)習(xí)下
作者: n0si9na1    時間: 2022-3-3 17:15
感謝分享，過了這么多年，許老師這個電橋還是很給力啊，DIY者樂此不疲
作者: youlinys    時間: 2022-3-13 15:08
感謝許老師的無私奉獻(xiàn)。
作者: 18201700208    時間: 2022-4-8 15:43
high，供電不足
作者: lao4jiadian    時間: 2022-4-13 13:53
哪位壇友能把徐老師電橋的硬件資料發(fā)上來啊，學(xué)習(xí)一下
作者: 看看再說吧    時間: 2022-6-28 05:37
這個固件在2004屏幕上顯示不完整。
作者: xiaoyuxinke    時間: 2022-6-28 21:30
固件其實是LCD1602的,但寫的用2004的屏,會導(dǎo)致顯示不完整,
作者: angmall    時間: 2022-7-30 13:48
lao4jiadian 發(fā)表于 2022-4-13 13:53
哪位壇友能把徐老師電橋的硬件資料發(fā)上來啊，學(xué)習(xí)一下

XJW01許老師 LCR數(shù)字電橋板原理圖



作者: ywcffc    時間: 2022-9-8 11:07
有沒有全套2004LCD可以完全使用的固件和硬件，網(wǎng)上找的都不是很全
作者: 我欠你錢么    時間: 2023-4-18 16:50
研究研究代碼，看看能不能搞懂
作者: heizelalala    時間: 2023-8-5 02:55
太有用啦
作者: 1045964948    時間: 2023-9-7 16:59
我想問一下樓主能理解這個程序的意思嗎，我最近在搞電橋，想移植程序到stm32無奈看不懂許老師這個stc的程序，如果知道可以回復(fù)我一下我最近都在線
作者: mafeimafei_2012    時間: 2023-12-25 16:30
感謝老師的無私奉獻(xiàn)。
作者: zyfzyf007    時間: 2024-2-23 20:26

感謝老師的無私奉獻(xiàn)。
作者: Su_xin    時間: 2024-3-1 15:17
12864版嗎?
作者: 還沒想好名字啊    時間: 2024-3-2 09:47
1045964948 發(fā)表于 2023-9-7 16:59
我想問一下樓主能理解這個程序的意思嗎，我最近在搞電橋，想移植程序到stm32無奈看不懂許老師這個stc的程序 ...

我也學(xué)不會，期待許老師出山答疑。STC的程序，有幾個小伙伴在學(xué)習(xí)  STC官方也在折騰好像
作者: 1109    時間: 2024-3-8 21:07
哪里有這個電橋的PCB文件，我想去打個板子調(diào)試下效果。
作者: paladina    時間: 2024-5-7 17:12
好東西，學(xué)習(xí)。能有大拿解釋一下程序就更好了
作者: daxia7203    時間: 2024-11-30 17:53
不錯不錯
作者: STC莊偉    時間: 2024-12-4 09:21
LCR 電橋，移植，辛苦費RMB2000
===12C5A60S2實現(xiàn)，許老師
立創(chuàng)開源：LCR測量@8051U, 參考許老師原創(chuàng)
用管腳兼容的 8051USB 實現(xiàn)后開源許老師，公布了 LCR 電橋開源資料
歡迎學(xué)習(xí)許老師的大作 !
8H8K64U / 32G12K128片內(nèi)的 ADC就是真12位ADC
===能準(zhǔn)確的測量 0 ~ 4095 體現(xiàn)的外部真實模擬電壓
2024年，8051U推出， 管腳基本兼容 12C5A60S2
作者: lzxxx588    時間: 2025-1-1 20:20
雪玉寐影 發(fā)表于 2021-12-7 02:53
許老師把資料公開了？怪不得某寶多出來很多套件！

想自己搞一個玩玩不知道好搞不
作者: 1109    時間: 2025-1-2 09:41
STC莊偉 發(fā)表于 2024-12-4 09:21
LCR 電橋，移植，辛苦費RMB2000
===12C5A60S2實現(xiàn)，許老師
立創(chuàng)開源：LCR測量@8051U, 參考許老師原創(chuàng)

方便給個開源鏈接嗎？我在立創(chuàng)開源沒有搜到。
作者: 2048858214    時間: 2025-4-17 08:09
新版本stm32的 100Khz 不好弄啊 許老師聯(lián)系不到了
作者: 荒野ac    時間: 2025-4-18 12:34
置量程不懂�。。�！
作者: 荒野ac    時間: 2025-4-18 12:34

置量程不懂�。。。�
作者: hu2018y    時間: 2025-4-20 08:29
我有片1604可以派上用場了，好像最新的STC8051U這芯片很牛逼的樣子，期待大神把它玩出花樣來。
作者: wkman    時間: 2025-4-21 17:05
  買成品套件，不折騰



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1