void AutoCheck(uint8_t test_mode) { /* (test_mode & 0x0f) == 0 , only calibration without T1-T7 */ /* (test_mode & 0x0f) == 1 , calibration and additional T1-T7 */ /* (test_mode & 0xf0) == 0 , check for shorted probes, if unshorted, return */ /* (test_mode & 0xf0) == 0x10 , ask for shorted probes */ uint8_t ww; // counter for repeating the tests int adcmv[7]; #ifdef EXTENDED_TESTS uint16_t u680; // 3 * (Voltage at 680 Ohm) uint8_t taste; // ist key pressed? 0 = no #else #ifndef NO_TEST_T1_T7 #warning "Selftest without extended tests T1 to T7!" #endif #endif #if defined(EXTENDED_TESTS) || defined(WITH_MENU) uint8_t tt; // number of running test #endif #ifdef FREQUENCY_50HZ uint8_t ff50; // loop counter for 2s #endif // define the maximum count of repetitions MAX_REP #define MAX_REP 4 #ifdef AUTO_CAL uint8_t cap_found; // counter for found capacitor #ifdef AUTOSCALE_ADC int8_t udiff; // difference between ADC Voltage with VCC or Bandgap reference int8_t udiff2; #endif #endif PartFound = PART_NONE; // no part found before if ((test_mode & 0xf0) == 0) { // probed should be shorted already to begin selftest if (AllProbesShorted() != 3) return; lcd_clear(); lcd_MEM_string(SELFTEST); // "Selftest mode.." lcd_line2(); lcd_data('?'); // wait for key pressed for confirmation if (wait_for_key_ms(2000) > 10) goto begin_selftest; // key is pressed again #ifdef WITH_MENU } else { // report to user, that probes should be shorted ww = 0; for (tt=0;tt<150;tt++) { /* wait about 30 seconds for shorted probes */ lcd_clear(); lcd_MEM2_string(SHORT_PROBES_str); // message "Short probes!" to LCD if (AllProbesShorted() == 3) { ww++; // all probes now shorted } else { ww = 0; // connection not stable, retry } if (ww > 3) break; // connection seems to be stable lcd_refresh(); // write the pixels to display, ST7920 only wait_about200ms(); // wait 200ms and try again } /* end for (tt...) */ if (tt < 150) goto begin_selftest; // is shorted before time limit goto no_zero_resistance; // skip measuring of the zero resistance #endif } // no key pressed for 2s lcd_clear(); lcd_MEM_string(VERSION_str); //"Version ..." return; begin_selftest: lcd_line2(); lcd_MEM2_string(R0_str); // "R0=" eeprom_write_byte((uint8_t *)(&EE_ESR_ZEROtab[2]), (uint8_t)0); // clear zero offset eeprom_write_byte((uint8_t *)(&EE_ESR_ZEROtab[3]), (uint8_t)0); // clear zero offset eeprom_write_byte((uint8_t *)(&EE_ESR_ZEROtab[1]), (uint8_t)0); // clear zero offset adcmv[0] = GetESR(TP3, TP1); adcmv[1] = GetESR(TP3, TP2); adcmv[2] = GetESR(TP2, TP1); DisplayValue16(adcmv[0],-2,' ',3); DisplayValue16(adcmv[1],-2,' ',3); DisplayValue16(adcmv[2],-2,LCD_CHAR_OMEGA,3); if (adcmv[0] >= 90) { adcmv[0] = ESR_ZERO; // set back to default value } eeprom_write_byte((uint8_t *)(&EE_ESR_ZEROtab[2]), (uint8_t)adcmv[0]); // fix zero offset if (adcmv[1] >= 90) { adcmv[1] = ESR_ZERO; // set back to default value } eeprom_write_byte((uint8_t *)(&EE_ESR_ZEROtab[3]), (uint8_t)adcmv[1]); // fix zero offset if (adcmv[2] >= 90) { adcmv[2] = ESR_ZERO; // set back to default value } eeprom_write_byte((uint8_t *)(&EE_ESR_ZEROtab[1]), (uint8_t)adcmv[2]); // fix zero offset last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 #ifdef WITH_MENU no_zero_resistance: #endif #ifdef EXTENDED_TESTS #define TEST_COUNT 8 if((test_mode & 0x0f) == 1) { /* full test requested */ for(tt=1;tt<TEST_COUNT;tt++) { // loop for all Tests for(ww=0;ww<MAX_REP;ww++) { // repeat the test MAX_REP times lcd_clear_line2(); // clear total line 2 lcd_clear_line1(); // clear total line 1 lcd_data('T'); //output the Testmode "T" u2lcd(tt); //lcd_string(utoa(tt, outval, 10)); //output Test number lcd_space(); //############################################ if (tt == 1) { // output of reference voltage and factors for capacity measurement lcd_MEM2_string(URef_str); //"URef=" Calibrate_UR(); // get Reference voltage, Pin resistance Display_mV(ref_mv,4); lcd_line2(); //Cursor to column 1, row 2 lcd_MEM2_string(RHfakt_str); //"RHf=" u2lcd(RHmultip); //lcd_string(utoa(RHmultip, outval, 10)); ADCconfig.Samples = R_ANZ_MESS; // set number of ADC reads near to maximum } //############################################ if (tt == 2) { // how equal are the RL resistors? u680 = ((long)ADCconfig.U_AVCC * (PIN_RM + R_L_VAL) / (PIN_RM + R_L_VAL + R_L_VAL + PIN_RP)); R_PORT = 1<<PIN_RL1; //RL1 to VCC R_DDR = (1<<PIN_RL1) | (1<<PIN_RL2); //RL2 to - adcmv[0] = W20msReadADC(TP1); adcmv[0] -= u680; R_DDR = (1<<PIN_RL1) | (1<<PIN_RL3); //RL3 to - adcmv[1] = W20msReadADC(TP1); adcmv[1] -= u680; R_PORT = 1<<PIN_RL2; //RL2 to VCC R_DDR = (1<<PIN_RL2) | (1<<PIN_RL3); //RL3 to - adcmv[2] = W20msReadADC(TP2); adcmv[2] -= u680; lcd_MEM_string(RLRL_str); // "RLRL" } //############################################ if (tt == 3) { // how equal are the RH resistors R_PORT = 1<<PIN_RH1; //RH1 to VCC R_DDR = (1<<PIN_RH1) | (1<<PIN_RH2); //RH2 to - adcmv[0] = W20msReadADC(TP1); adcmv[3] = ADCconfig.U_AVCC / 2; adcmv[0] -= adcmv[3]; R_DDR = (1<<PIN_RH1) | (1<<PIN_RH3); //RH3 to - adcmv[1] = W20msReadADC(TP1); adcmv[1] -= adcmv[3]; R_PORT = 1<<PIN_RH2; //RH2 to VCC R_DDR = (1<<PIN_RH2) | (1<<PIN_RH3); //RH3 to - adcmv[2] = W20msReadADC(TP2); adcmv[2] -= adcmv[3]; lcd_MEM_string(RHRH_str); // "RHRH" } //############################################ if (tt == 4) { // Text release probes lcd_MEM_string(RELPROBE); // "Release Probes" if (AllProbesShorted() != 0) ww = MAX_REP-2; } //############################################ if (tt == 5) { // can we switch the ADC pins to GND across R_H resistor? R_PORT = 0; R_DDR = 1<<PIN_RH1; //Pin 1 over R_H to GND adcmv[0] = W20msReadADC(TP1); R_DDR = 1<<PIN_RH2; //Pin 2 over R_H to GND adcmv[1] = W20msReadADC(TP2); R_DDR = 1<<PIN_RH3; //Pin 3 over R_H to GND adcmv[2] = W20msReadADC(TP3); lcd_MEM_string(RH1L_str); // "RH_Lo=" } //############################################ if (tt == 6) { // can we switch the ADC pins to VCC across the R_H resistor? R_DDR = 1<<PIN_RH1; //Pin 1 over R_H to VCC R_PORT = 1<<PIN_RH1; adcmv[0] = W20msReadADC(TP1) - ADCconfig.U_AVCC; R_DDR = 1<<PIN_RH2; //Pin 2 over R_H to VCC R_PORT = 1<<PIN_RH2; adcmv[1] = W20msReadADC(TP2) - ADCconfig.U_AVCC; R_DDR = 1<<PIN_RH3; //Pin 3 over R_H to VCC R_PORT = 1<<PIN_RH3; adcmv[2] = W20msReadADC(TP3) - ADCconfig.U_AVCC; lcd_MEM_string(RH1H_str); // "RH_Hi=" } if (tt == 7) { // is the voltage of all R_H / R_L dividers correct? u680 = ((long)ADCconfig.U_AVCC * (PIN_RM + R_L_VAL) / (PIN_RM + R_L_VAL + (unsigned long)R_H_VAL*100)); R_PORT = 1<<PIN_RH1; //RH1 to VCC R_DDR = (1<<PIN_RH1) | (1<<PIN_RL1); //RH1 to +, RL1 to - adcmv[0] = W20msReadADC(TP1); adcmv[0] -= u680; R_PORT = 1<<PIN_RH2; //RH2 to VCC R_DDR = (1<<PIN_RH2) | (1<<PIN_RL2); //RH2 to +, RL2 to - adcmv[1] = W20msReadADC(TP2); adcmv[1] -= u680; R_PORT = 1<<PIN_RH3; //RH3 to VCC R_DDR = (1<<PIN_RH3) | (1<<PIN_RL3); //RH3 to +, RL3 to - adcmv[2] = W20msReadADC(TP3); adcmv[2] -= u680; lcd_MEM_string(RHRL_str); // "RH/RL" } //############################################ if (tt > 1) { // output 3 voltages lcd_line2(); //Cursor to column 1, row 2 i2lcd(adcmv[0]); // lcd_string(itoa(adcmv[0], outval, 10)); //output voltage 1 lcd_space(); i2lcd(adcmv[1]); // lcd_string(itoa(adcmv[1], outval, 10)); //output voltage 2 lcd_space(); i2lcd(adcmv[2]); // lcd_string(itoa(adcmv[2], outval, 10)); //output voltage 3 } ADC_DDR = TXD_MSK; // all-Pins to Input ADC_PORT = TXD_VAL; // all ADC-Ports to GND R_DDR = 0; // all R-Ports to Input R_PORT = 0; taste = wait_for_key_ms(1000); // wait up to 1 second or key is pressed if ((tt != 4) && (taste > 10)) { // don't finish repetition for T4 with pressed key break; // if key is pressed, don't repeat } } //end for ww wait_for_key_ms(1000); // wait up to 1 second or key is pressed } //end for tt #if PROCESSOR_TYP == 1280 lcd_clear(); lcd_testpin(TP1); lcd_data('L'); lcd_equal(); // lcd_data('='); ADC_PORT = TXD_VAL; ADC_DDR = (1<<TP1) | TXD_MSK; R_PORT = (1<<PIN_RL1); R_DDR = (1<<PIN_RL1); adcmv[0] = W5msReadADC(TP1); ADCSRB = (1<<MUX5); // switch to upper 8 MUX inputs adcmv[1] = ReadADC(PIN_RL1); ADCSRB = 0; // switch back to lower 8 MUX inputs ResistorVal[0] = (adcmv[0] * (unsigned long)R_L_VAL) / (adcmv[1] - adcmv[0]); DisplayValue(ResistorVal[0],-1,LCD_CHAR_OMEGA,3); lcd_space(); lcd_data('H'); lcd_equal(); // lcd_data('='); ResistorVal[1] = ((ADCconfig.U_AVCC - adcmv[1]) * (unsigned long)R_L_VAL) / (adcmv[1] - adcmv[0]); DisplayValue(ResistorVal[1],-1,LCD_CHAR_OMEGA,3); lcd_line2(); lcd_testpin(TP1); lcd_space(); lcd_data('H'); lcd_equal(); // lcd_data('='); ADC_PORT = (1<<TP1) | TXD_VAL; R_PORT = 0; adcmv[0] = W5msReadADC(TP1); ADCSRB = (1<<MUX5); // switch to upper 8 MUX inputs adcmv[1] = ReadADC(PIN_RL1); ADCSRB = 0; // switch back to lower 8 MUX inputs ResistorVal[1] = ((ADCconfig.U_AVCC - adcmv[0]) * (unsigned long)R_L_VAL) / (adcmv[0] - adcmv[1]); DisplayValue(ResistorVal[1],-1,LCD_CHAR_OMEGA,3); lcd_space(); lcd_data('L'); lcd_equal(); // lcd_data('='); ResistorVal[0] = (adcmv[1] * (unsigned long)R_L_VAL) / (adcmv[0] - adcmv[1]); DisplayValue(ResistorVal[0],-1,LCD_CHAR_OMEGA,3); wait_about1s(); // only for mega1280 last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 // lcd_clear(); lcd_testpin(TP2); lcd_data('L'); lcd_equal(); // lcd_data('='); ADC_PORT = TXD_VAL; ADC_DDR = (1<<TP2) | TXD_MSK; R_PORT = (1<<PIN_RL2); R_DDR = (1<<PIN_RL2); adcmv[0] = W5msReadADC(TP2); ADCSRB = (1<<MUX5); // switch to upper 8 MUX inputs adcmv[1] = ReadADC(PIN_RL2); ADCSRB = 0; // switch back to lower 8 MUX inputs ResistorVal[0] = (adcmv[0] * (unsigned long)R_L_VAL) / (adcmv[1] - adcmv[0]); DisplayValue(ResistorVal[0],-1,LCD_CHAR_OMEGA,3); lcd_space(); lcd_data('H'); lcd_equal(); // lcd_data('='); ResistorVal[1] = ((ADCconfig.U_AVCC - adcmv[1]) * (unsigned long)R_L_VAL) / (adcmv[1] - adcmv[0]); DisplayValue(ResistorVal[1],-1,LCD_CHAR_OMEGA,3); lcd_line2(); lcd_testpin(TP2); lcd_data('H'); lcd_equal(); // lcd_data('='); ADC_PORT = (1<<TP2) | TXD_VAL; R_PORT = 0; adcmv[0] = W5msReadADC(TP2); ADCSRB = (1<<MUX5); // switch to upper 8 MUX inputs adcmv[1] = ReadADC(PIN_RL2); ADCSRB = 0; // switch back to lower 8 MUX inputs ResistorVal[1] = ((ADCconfig.U_AVCC - adcmv[0]) * (unsigned long)R_L_VAL) / (adcmv[0] - adcmv[1]); DisplayValue(ResistorVal[1],-1,LCD_CHAR_OMEGA,3); lcd_space(); lcd_data('L'); lcd_equal(); // lcd_data('='); ResistorVal[0] = (adcmv[1] * (unsigned long)R_L_VAL) / (adcmv[0] - adcmv[1]); DisplayValue(ResistorVal[0],-1,LCD_CHAR_OMEGA,3); wait_about1s(); // only for mega1280 last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 // lcd_clear(); lcd_testpin(TP3); lcd_data('L'); lcd_equal(); // lcd_data('='); ADC_DDR = (1<<TP3) | TXD_MSK; R_PORT = (1<<PIN_RL3); R_DDR = (1<<PIN_RL3); adcmv[0] = W5msReadADC(TP3); ADCSRB = (1<<MUX5); // switch to upper 8 MUX inputs adcmv[1] = ReadADC(PIN_RL3); ADCSRB = 0; ResistorVal[0] = (adcmv[0] * (unsigned long)R_L_VAL) / (adcmv[1] - adcmv[0]); DisplayValue(ResistorVal[0],-1,LCD_CHAR_OMEGA,3); lcd_space(); lcd_data('H'); lcd_equal(); // lcd_data('='); ResistorVal[1] = ((ADCconfig.U_AVCC - adcmv[1]) * (unsigned long)R_L_VAL) / (adcmv[1] - adcmv[0]); DisplayValue(ResistorVal[1],-1,LCD_CHAR_OMEGA,3); lcd_line2(); lcd_testpin(TP3); lcd_data('H'); lcd_equal(); // lcd_data('='); ADC_PORT = (1<<TP3) | TXD_VAL; R_PORT = 0; adcmv[0] = W5msReadADC(TP3); ADCSRB = (1<<MUX5); // switch to upper 8 MUX inputs adcmv[1] = ReadADC(PIN_RL3); ADCSRB = 0; // switch back to lower 8 MUX inputs ResistorVal[1] = ((ADCconfig.U_AVCC - adcmv[0]) * (unsigned long)R_L_VAL) / (adcmv[0] - adcmv[1]); DisplayValue(ResistorVal[1],-1,LCD_CHAR_OMEGA,3); lcd_space(); lcd_data('L'); lcd_equal(); // lcd_data('='); ResistorVal[0] = (adcmv[1] * (unsigned long)R_L_VAL) / (adcmv[0] - adcmv[1]); DisplayValue(ResistorVal[0],-1,LCD_CHAR_OMEGA,3); wait_about1s(); // only for mega1280 last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 #endif /* PROCESSOR_TYP == 1280 */ } /* end if((test_mode & 0x0f) == 1) */ #endif /* end EXTENDED_TESTS */ for (ww=0;ww<120;ww++) { // wait up to 1 minute for releasing the probes if (AllProbesShorted() == 0) break; lcd_clear_line2(); // clear total line2 lcd_MEM_string(RELPROBE); // "Release Probes" lcd_refresh(); // write the pixels to display, ST7920 only wait_about500ms(); } lcd_clear(); lcd_MEM_string(RIHI_str); // "RiHi=" DisplayValue16(RRpinPL,-1,LCD_CHAR_OMEGA,3); lcd_line2(); lcd_MEM_string(RILO_str); // "RiLo=" DisplayValue16(RRpinMI,-1,LCD_CHAR_OMEGA,3); last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 //measure Zero offset for Capacity measurement PartFound = PART_NONE; lcd_clear(); lcd_MEM_string(C0_str); //output "C0 " ReadCapacity(TP3, TP1); adcmv[5] = (unsigned int) cap.cval_uncorrected.dw; //save capacity value of empty Pin 1:3 ReadCapacity(TP3, TP2); adcmv[6] = (unsigned int) cap.cval_uncorrected.dw; //save capacity value of empty Pin 2:3 ReadCapacity(TP2, TP1); adcmv[2] = (unsigned int) cap.cval_uncorrected.dw; //save capacity value of empty Pin 1:2 ReadCapacity(TP1, TP3); adcmv[1] = (unsigned int) cap.cval_uncorrected.dw; //save capacity value of empty Pin 3:1 ReadCapacity(TP2, TP3); adcmv[4] = (unsigned int) cap.cval_uncorrected.dw; //save capacity value of empty Pin 3:2 ReadCapacity(TP1, TP2); adcmv[0] = (unsigned int) cap.cval_uncorrected.dw; //save capacity value of empty Pin 2:1 #ifdef WITH_MENU if (((test_mode & 0x0f) == 1) || (UnCalibrated == 2)) #else if (UnCalibrated == 2) #endif { adcmv[3] = adcmv[0] + 2; // mark as uncalibrated until Cap > 100nF has success } else { adcmv[3] = adcmv[0]; // mark as calibrated, short calibration is finished UnCalibrated = 0; // clear the UnCalibrated Flag lcd_cursor_off(); // switch cursor off } u2lcd_space(adcmv[5]); //DisplayValue(adcmv[5],0,' ',3); //output cap0 1:3 u2lcd_space(adcmv[6]); //DisplayValue(adcmv[6],0,' ',3); //output cap0 2:3 DisplayValue(adcmv[2],-12,'F',3); //output cap0 1:2 #ifdef AUTO_CAL for (ww=0;ww<7;ww++) { //checking loop if ((adcmv[ww] > 190) || (adcmv[ww] < 10)) goto no_c0save; } for (ww=0;ww<7;ww++) { // write all zero offsets to the EEprom (void) eeprom_write_byte((uint8_t *)(&c_zero_tab[ww]),adcmv[ww]+(COMP_SLEW1 / (CC0 + CABLE_CAP + COMP_SLEW2))); } lcd_line2(); lcd_MEM_string(OK_str); // output "OK" no_c0save: #endif last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 #ifdef SamplingADC sampling_cap_calibrate(); // measure zero capacity for samplingADC #endif #ifdef AUTO_CAL #ifdef WITH_MENU if (((test_mode & 0x0f) == 1) || (UnCalibrated == 2)) #endif // without menu function the capacitor is requested every time, // because there is no way to request recaltbration again // With menu function the capacitor is only requested for first time // calibration (UnCalibrated = 2) or for the full selftest call (test_mode = 1) // of the menu function, not with the automatically call (test_mode = 1). { // for full test or first time calibration, use external capacitor // Message C > 100nF at TP1 and TP3 cap_found = 0; for (ww=0;ww<64;ww++) { init_parts(); #if (TPCAP >= 0) CalibrationCap(); // measure with internal calibration capacitor #else lcd_clear(); lcd_testpin(TP1); lcd_MEM_string(CapZeich); // "-||-" lcd_testpin(TP3); lcd_MEM2_string(MinCap_str); // " >100nF!" PartFound = PART_NONE; ReadCapacity(TP3, TP1); // look for capacitor > 100nF #endif while (cap.cpre < -9) { cap.cpre++; cap.cval /= 10; } if ((cap.cpre == -9) && (cap.cval > 95) && (cap.cval < 22000) && (load_diff > -150) && (load_diff < 150)) { cap_found++; } else { cap_found = 0; // wait for stable connection } if (cap_found > 4) { // value of capacitor is correct (void) eeprom_write_word((uint16_t *)(&ref_offset), load_diff); // hold zero offset + slew rate dependend offset lcd_clear(); lcd_MEM2_string(REF_C_str); // "REF_C=" i2lcd(load_diff); // lcd_string(itoa(load_diff, outval, 10)); //output REF_C_KORR RefVoltage(); // new ref_mv_offs and RHmultip #if 0 //####################################### // Test for switching level of the digital input of port TP3 for (tt=0;tt<8;tt++) { ADC_PORT = TXD_VAL; //ADC-Port 1 to GND ADC_DDR = 1<<TP1 | TXD_MSK; //ADC-Pin 1 to output 0V R_PORT = 1<<PIN_RH3; //Pin 3 over R_H to VCC R_DDR = 1<<PIN_RH3; //Pin 3 over R_H to VCC while (1) { wdt_reset(); if ((ADC_PIN&(1<<TP3)) == (1<<TP3)) break; } R_DDR = 0; //Pin 3 without current R_PORT = 0; adcmv[0] = ReadADC(TP3); lcd_line3(); Display_mV(adcmv[0],4); R_DDR = 1<<PIN_RH3; //Pin 3 over R_H to GND while (1) { wdt_reset(); if ((ADC_PIN&(1<<TP3)) != (1<<TP3)) break; } R_DDR = 0; //Pin 3 without current lcd_line4(); adcmv[0] = ReadADC(TP3); Display_mV(adcmv[0],4); last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 } //####################################### #endif #ifdef AUTOSCALE_ADC #if (TPCAP >= 0) #define CAP_ADC TPCAP /* Cap >100nF is integrated at TPCAP */ TCAP_PORT &= ~(1<<TCAP_RH); // 470k resistor to GND TCAP_DDR |= (1<<TCAP_RH); // enable output #else #define CAP_ADC TP3 /* Cap >100nF at TP3 */ ADC_PORT = TXD_VAL; //ADC-Port 1 to GND ADC_DDR = 1<<TP1 | TXD_MSK; //ADC-Pin 1 to output 0V R_DDR = 1<<PIN_RH3; //Pin 3 over R_H to GND #endif do { adcmv[0] = ReadADC(CAP_ADC); } while (adcmv[0] > 980); #if (TPCAP >= 0) TCAP_DDR &= ~(1<<TCAP_RH); // 470k resistor port to input mode #else R_DDR = 0; //all Pins to input #endif ADCconfig.U_Bandgap = 0; // do not use internal Ref adcmv[0] = ReadADC(CAP_ADC); // get cap voltage with VCC reference ADCconfig.U_Bandgap = adc_internal_reference; adcmv[1] = ReadADC(CAP_ADC); // get cap voltage with internal reference adcmv[1] += adcmv[1]; // double the value ADCconfig.U_Bandgap = 0; // do not use internal Ref adcmv[2] = ReadADC(CAP_ADC); // get cap voltage with VCC reference ADCconfig.U_Bandgap = adc_internal_reference; udiff = (int8_t)(((signed long)(adcmv[0] + adcmv[2] - adcmv[1])) * adc_internal_reference / adcmv[1])+REF_R_KORR; lcd_line2(); lcd_MEM2_string(REF_R_str); // "REF_R=" udiff2 = udiff + (int8_t)eeprom_read_byte((uint8_t *)(&RefDiff)); (void) eeprom_write_byte((uint8_t *)(&RefDiff), (uint8_t)udiff2); // hold offset for true reference Voltage i2lcd(udiff2); // output correction voltage RefVoltage(); // set new ADCconfig.U_Bandgap #endif /* end AUTOSCALE_ADC */ last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 UnCalibrated = 0; // clear the UnCalibrated Flag lcd_cursor_off(); // switch cursor off cap_found = eeprom_read_byte((uint8_t *)&c_zero_tab[0]); // read first capacity zero offset eeprom_write_byte((uint8_t *)&c_zero_tab[3], cap_found); // mark as calibrated permanent break; // leave the ww for loop } /* end if (cap_found > 4) */ lcd_line2(); DisplayValue(cap.cval,cap.cpre,'F',4); lcd_refresh(); // write the pixels to display, ST7920 only wait_about200ms(); // wait additional time } // end for ww } /* end if((test_mode & 0x0f) == 1) */ #endif /* end AUTO_CAL */ ADCconfig.Samples = ANZ_MESS; // set to configured number of ADC samples #ifdef SamplingADC sampling_lc_calibrate(); // Cap for L-meas #endif #ifdef FREQUENCY_50HZ //#define TEST_SLEEP_MODE /* only select for checking the sleep delay */ lcd_clear(); lcd_MEM_string(T50HZ); //" 50Hz" lcd_refresh(); // write the pixels to display, ST7920 only ADC_PORT = TXD_VAL; ADC_DDR = 1<<TP1 | TXD_MSK; // Pin 1 to GND R_DDR = (1<<PIN_RL3) | (1<<PIN_RL2); for(ww=0;ww<30;ww++) { // repeat the signal up to 30 times (1 minute) for (ff50=0;ff50<100;ff50++) { // for 2 s generate 50 Hz R_PORT = (1<<PIN_RL2); // Pin 2 over R_L to VCC, Pin 3 over R_L to GND #ifdef TEST_SLEEP_MODE sleep_5ms(2); // test of timing of sleep mode call #else wait10ms(); // normal delay #endif R_PORT = (1<<PIN_RL3); // Pin 3 over R_L to VCC, Pin 2 over R_L to GND #ifdef TEST_SLEEP_MODE sleep_5ms(2); // test of timing of sleep mode call #else wait10ms(); // normal delay #endif wdt_reset(); } /* end for ff50 */ if (!(RST_PIN_REG & (1<<RST_PIN))) { // if key is pressed, don't repeat break; } } /* end for ww */ #endif /* end FREQUENCY_50HZ */ lcd_clear(); lcd_MEM_string(VERSION_str); //"Version ..." lcd_line2(); lcd_MEM_string(ATE); //"Selftest End" PartFound = PART_NONE; last_line_used = 2; wait_for_key_5s_line2(); // wait up to 5 seconds and clear line 2 } /* end AutoCheck */
int main(void) { uint16_t U_Bat; /* voltage of power supply */ uint8_t Test; /* test value */ /* * init */ /* switch on power to keep me alive */ CONTROL_DDR = (1 << POWER_CTRL); /* set pin as output */ CONTROL_PORT = (1 << POWER_CTRL); /* set pin to drive power management transistor */ /* setup MCU */ MCUCR = (1 << PUD); /* disable pull-up resistors globally */ ADCSRA = (1 << ADEN) | ADC_CLOCK_DIV; /* enable ADC and set clock divider */ #ifdef HW_RELAY /* init relay (safe mode) */ /* ADC_PORT should be 0 */ ADC_DDR = (1 << TP_REF); /* short circuit probes */ #endif /* catch watchdog */ Test = (MCUSR & (1 << WDRF)); /* save watchdog flag */ MCUSR &= ~(1 << WDRF); /* reset watchdog flag */ wdt_disable(); /* disable watchdog */ /* init LCD module */ LCD_BusSetup(); /* setup bus */ LCD_Init(); /* initialize LCD */ LCD_NextLine_Mode(MODE_NONE); /* reset line mode */ /* * watchdog was triggered (timeout 2s) * - This is after the MCU done a reset driven by the watchdog. * - Does only work if the capacitor at the base of the power management * transistor is large enough to survive a MCU reset. Otherwise the * tester simply loses power. */ if (Test) { LCD_Clear(); /* display was initialized before */ LCD_EEString(Timeout_str); /* display: timeout */ LCD_NextLine_EEString(Error_str); /* display: error */ MilliSleep(2000); /* give user some time to read */ CONTROL_PORT = 0; /* power off myself */ return 0; /* exit program */ } /* * operation mode selection */ Config.SleepMode = SLEEP_MODE_PWR_SAVE; /* default: power save */ UI.TesterMode = MODE_CONTINOUS; /* set default mode: continous */ Test = 0; /* key press */ /* catch long key press */ if (!(CONTROL_PIN & (1 << TEST_BUTTON))) /* if test button is pressed */ { RunsMissed = 0; while (Test == 0) { MilliSleep(20); if (!(CONTROL_PIN & (1 << TEST_BUTTON))) /* if button is still pressed */ { RunsMissed++; if (RunsMissed > 100) Test = 3; /* >2000ms */ } else /* button released */ { Test = 1; /* <300ms */ if (RunsMissed > 15) Test = 2; /* >300ms */ } } } /* key press >300ms sets autohold mode */ if (Test > 1) UI.TesterMode = MODE_AUTOHOLD; /* * load saved offsets and values */ if (Test == 3) /* key press >2s resets to defaults */ { SetAdjustDefaults(); /* set default values */ } else /* normal mode */ { LoadAdjust(); /* load adjustment values */ } /* set extra stuff */ #ifdef SW_CONTRAST LCD_Contrast(NV.Contrast); /* set LCD contrast */ #endif /* * welcome user */ LCD_EEString(Tester_str); /* display: Component Tester */ LCD_NextLine_EEString_Space(Edition_str); /* display firmware edition */ LCD_EEString(Version_str); /* display firmware version */ MilliSleep(1500); /* let the user read the display */ /* * init variables */ /* cycling */ RunsMissed = 0; RunsPassed = 0; /* default offsets and values */ Config.Samples = ADC_SAMPLES; /* number of ADC samples */ Config.AutoScale = 1; /* enable ADC auto scaling */ Config.RefFlag = 1; /* no ADC reference set yet */ Config.Vcc = UREF_VCC; /* voltage of Vcc */ wdt_enable(WDTO_2S); /* enable watchdog (timeout 2s) */ /* * main processing cycle */ start: /* reset variabels */ Check.Found = COMP_NONE; Check.Type = 0; Check.Done = 0; Check.Diodes = 0; Check.Resistors = 0; Semi.U_1 = 0; Semi.I_1 = 0; Semi.F_1 = 0; /* reset hardware */ ADC_DDR = 0; /* set all pins of ADC port as input */ /* also remove short circuit by relay */ LCD_NextLine_Mode(MODE_KEEP); /* line mode: keep first line */ LCD_Clear(); /* clear LCD */ /* * voltage reference */ #ifdef HW_REF25 /* external 2.5V reference */ Config.Samples = 200; /* do a lot of samples for high accuracy */ U_Bat = ReadU(TP_REF); /* read voltage of reference (mV) */ Config.Samples = ADC_SAMPLES; /* set samples back to default */ if ((U_Bat > 2250) && (U_Bat < 2750)) /* check for valid reference */ { uint32_t Temp; /* adjust Vcc (assuming 2.495V typically) */ Temp = ((uint32_t)Config.Vcc * UREF_25) / U_Bat; Config.Vcc = (uint16_t)Temp; } #endif /* internal bandgap reference */ Config.Bandgap = ReadU(0x0e); /* dummy read for bandgap stabilization */ Config.Samples = 200; /* do a lot of samples for high accuracy */ Config.Bandgap = ReadU(0x0e); /* get voltage of bandgap reference (mV) */ Config.Samples = ADC_SAMPLES; /* set samples back to default */ Config.Bandgap += NV.RefOffset; /* add voltage offset */ /* * battery check */ /* * ADC pin is connected to a voltage divider Rh = 10k and Rl = 3k3. * Ul = (Uin / (Rh + Rl)) * Rl -> Uin = (Ul * (Rh + Rl)) / Rl * Uin = (Ul * (10k + 3k3)) / 3k3 = 4 * Ul */ /* get current voltage */ U_Bat = ReadU(TP_BAT); /* read voltage (mV) */ U_Bat *= 4; /* calculate U_bat (mV) */ U_Bat += BAT_OFFSET; /* add offset for voltage drop */ /* display battery voltage */ LCD_EEString_Space(Battery_str); /* display: Bat. */ DisplayValue(U_Bat / 10, -2, 'V'); /* display battery voltage */ LCD_Space(); /* check limits */ if (U_Bat < BAT_POOR) /* low level reached */ { LCD_EEString(Low_str); /* display: low */ MilliSleep(2000); /* let user read info */ goto power_off; /* power off */ } else if (U_Bat < BAT_POOR + 1000) /* warning level reached */ { LCD_EEString(Weak_str); /* display: weak */ } else /* ok */ { LCD_EEString(OK_str); /* display: ok */ } /* * probing */ /* display start of probing */ LCD_NextLine_EEString(Running_str); /* display: probing... */ /* try to discharge any connected component */ DischargeProbes(); if (Check.Found == COMP_ERROR) /* discharge failed */ { goto result; /* skip all other checks */ } /* enter main menu if requested by short-circuiting all probes */ if (AllProbesShorted() == 3) { MainMenu(); /* enter mainmenu */; goto end; /* new cycle after job is is done */ } /* check all 6 combinations of the 3 probes */ CheckProbes(TP1, TP2, TP3); CheckProbes(TP2, TP1, TP3); CheckProbes(TP1, TP3, TP2); CheckProbes(TP3, TP1, TP2); CheckProbes(TP2, TP3, TP1); CheckProbes(TP3, TP2, TP1); /* if component might be a capacitor */ if ((Check.Found == COMP_NONE) || (Check.Found == COMP_RESISTOR)) { /* tell user to be patient with large caps :-) */ LCD_Space(); LCD_Char('C'); /* check all possible combinations */ MeasureCap(TP3, TP1, 0); MeasureCap(TP3, TP2, 1); MeasureCap(TP2, TP1, 2); } /* * output test results */ result: LCD_Clear(); /* clear LCD */ LCD_NextLine_Mode(MODE_KEEP | MODE_KEY); /* call output function based on component type */ switch (Check.Found) { case COMP_ERROR: Show_Error(); goto end; break; case COMP_DIODE: Show_Diode(); break; case COMP_BJT: Show_BJT(); break; case COMP_FET: Show_FET(); break; case COMP_IGBT: Show_IGBT(); break; case COMP_THYRISTOR: Show_Special(); break; case COMP_TRIAC: Show_Special(); break; case COMP_RESISTOR: Show_Resistor(); break; case COMP_CAPACITOR: Show_Capacitor(); break; default: /* no component found */ Show_Fail(); goto end; } /* component was found */ RunsMissed = 0; /* reset counter */ RunsPassed++; /* increase counter */ /* * take care about cycling and power-off */ end: #ifdef HW_RELAY ADC_DDR = (1<<TP_REF); /* short circuit probes */ #endif LCD_NextLine_Mode(MODE_NONE); /* reset next line mode */ /* get key press or timeout */ Test = TestKey((uint16_t)CYCLE_DELAY, 12); if (Test == 0) /* timeout (no key press) */ { /* check if we reached the maximum number of rounds (continious mode only) */ if ((RunsMissed >= CYCLE_MAX) || (RunsPassed >= CYCLE_MAX * 2)) { goto power_off; /* -> power off */ } } else if (Test == 1) /* short key press */ { /* a second key press triggers extra functions */ MilliSleep(50); Test = TestKey(300, 0); if (Test > 0) /* short or long key press */ { #ifdef HW_RELAY ADC_DDR = 0; /* remove short circuit */ #endif MainMenu(); /* enter main menu */ goto end; /* re-run cycle control */ } } else if (Test == 2) /* long key press */ { goto power_off; /* -> power off */ } #ifdef HW_ENCODER else if (Test == 4) /* rotary encoder: left turn */ { MainMenu(); /* enter main menu */ goto end; /* re-run cycle control */ } #endif /* default action (also for rotary encoder) */ goto start; /* -> next round */ power_off: /* display feedback (otherwise the user will wait :-) */ LCD_Clear(); LCD_EEString(Bye_str); wdt_disable(); /* disable watchdog */ CONTROL_PORT &= ~(1 << POWER_CTRL); /* power off myself */ return 0; }