Hey Mack,
I sketched this code in notepad after reading some other posts...
Does it look like I'm on the right track?
Thanks again for your assistance,Code:ADVal VAR WORD Quanta CON 489 'VREF/1024 = 5/1024 = .00488 = 489 VoltageDivider CON 70 ADCVolts VAR BYTE LCDVolts VAR WORD ADCIN 0,ADVal ADCVolts=(ADVal/1000)*Quanta LCDVolts=ADCVolts*VoltageDivider LCDout $fe, 1 LCDout $fe, 2, "CURRENT READINGS ARE" Lcdout $fe, $C0, "A/D VDC = ",DEC1 ADCVolts/100,".",DEC2 ADCVolts//100 Lcdout $fe, $94, "--------------------" Lcdout $fe, $D4, "ACTUAL VDC = ",DEC3 LCDVolts/100,".",DEC2 LCDVolts//100
Chris





Bookmarks