Re: Trouble with LCD 2x8 and sequential display of values
Sorry, sometimes I get carried away ...
Code:'*************************************************************************** '* Name : DT18x20_Fratello.pbp '* Author : Darrel Taylor '* Date : 2/19/2012 '* Version : 1.1 (2/24/2012) '* Target : 16F684 @ 4 mhz '*************************************************************************** DEFINE OSC 4 CLEAR ;----[Main Options]--------------------------------------------------------- TimeToShow CON 5 ; Seconds to show each temperature ;----[Battery Options]------------------------------------------------------ Res1 CON 20000 ; Top Resistor of Voltage Divider Res2 CON 10000 ; Bottom Resistor of Divider VDD CON 50 ; VDD voltage MaxBat CON 140 ; 14.0V ; Batt indicator Max MinBat CON 98 ; 9.8V ; Batt indicator Min ;----[DS1820 Options]----Value----Default----------------------------------- DEFINE DS1820_DECIMALS 1 ; 1 DEFINE DS18B20_ONLY YES ; NO DEFINE DS1820_VERIFYCRC YES ; NO DEFINE DS1820_USETIMEOUT NO ; YES MaxRetries CON 4 INCLUDE "DT18x20.pbp" ; Include DT18x20 module ; --- To get the include file, Register at http://darreltaylor.com/whatsup/ Inside VAR PORTC.5 ; Pin assigned to Inside Sensor Outside VAR PORTC.4 ; Pin assigned to Outside Sensor ;----[Elapsed Timer]-------------------------------------------------------- INCLUDE "Elapsed.bas" ; --- To get the include file ... Go to ... ; --- http://www.pbpgroup.com/modules/wfsection/article.php?article GOSUB ResetTime ;----[LCD definitions]------------------------------------------------------ DEFINE LCD_DREG PORTC ; LCD Data port DEFINE LCD_DBIT 0 ; starting Data bit (0 or 4) DEFINE LCD_EREG PORTA ; LCD Enable port DEFINE LCD_EBIT 2 ; Enable bit DEFINE LCD_RSREG PORTA ; LCD Register Select port DEFINE LCD_RSBIT 1 ; Register Select bit DEFINE LCD_BITS 4 ; LCD bus size (4 or 8 bits) DEFINE LCD_LINES 2 ; number of lines on LCD DEFINE LCD_COMMANDUS 2000 ; Command delay time in us DEFINE LCD_DATAUS 50 ; Data delay time in us ;----[Analog options]------------------------------------------------------- DEFINE ADC_BITS 10 DEFINE ADC_CLOCK 3 ADCON0.7=1 ; Right Justify A/D results ;----[Program Variables]---------------------------------------------------- BattLevel VAR BYTE ; 0 - 10, 0=Empty 10=Full RawBattery VAR WORD Volts VAR WORD LastVolts VAR WORD : LastVolts=0 Sensor VAR BIT : Sensor=1 Char VAR BYTE y VAR BYTE Retries VAR BYTE TempW VAR WORD GIE VAR INTCON.7 ;----[Initialization]------------------------------------------------------- CMCON0=7 ; disable Comparators ANSEL=0 ; All Digital ADCON1=$30 ; ADC_CLOCK is FRC LCDOUT $FE,1:PAUSE 250:LCDOUT $FE,1 ' Initialize LCD LCDOUT " TERMO- ",$FE,$C0," VOLT " GOSUB StartConversions ; get the first reading started PAUSE 4000 GOSUB StartTimer ; Start the Elapsed Timer Seconds=TimeToShow ; Force 1st display on start-up SecondsChanged=1 ;----[Main Program Loop]---------------------------------------------------- Main: IF SecondsChanged THEN SecondsChanged=0 IF Seconds !=0 AND Seconds != TimeToShow THEN GOSUB StartConversions IF Seconds=TimeToShow THEN ; on each period Seconds=0 Sensor=!Sensor ; Toggle sensors LCDOUT $FE,$80 IF Sensor=0 THEN LCDOUT "I: " ; Indicate Inside sensor ELSE LCDOUT "O: " ; Indicate Outside sensor ENDIF ENDIF ENDIF ;--------------------------------- IF Sensor=0 THEN @ DS1820_Select _Inside ; Select Inside DS18x20 pin ELSE @ DS1820_Select _Outside ; Select Outside DS18x20 pin ENDIF DS1820_Flags=0 ; clear flags before Stat GIE=0 ; disable interrupts @ DS1820_Stat ; get sensor status GIE=1 ; enable interrupts IF DS1820_Done THEN ; if conversion finished @ DS1820_Read ; try to read the temp Retries=0 RetryRead: IF DS1820_Error=0 THEN ; if there were no errors GOSUB TempToLCD ; display TempC ELSE ;--- Error reading Sensor -------- IF Retries < MaxRetries THEN Retries=Retries + 1 @ DS1820_Read ; try to read it again (no Conv) GOTO RetryRead ENDIF LCDOUT $FE,$82,"Error " ENDIF ENDIF GOSUB ReadVoltage PAUSE 100 GOTO Main ;----[Start conversion on both sensors]------------------------------------- StartConversions: @ DS1820_Select _Inside ; Select Inside DS18x20 pin @ DS1820_Convert ; start conversion @ DS1820_Select _Outside ; Select Outside DS18x20 pin @ DS1820_Convert ; start conversion RETURN ;----[Display TempC on LCD]------------------------------------------------- TempToLCD: TempW=TempC LCDOUT $FE,$82 IF ABS(TempW)/DS1820_DIG < 10 THEN LCDOUT " " IF TempW.15 THEN LCDOUT "-" ; if negative, display minus sign ELSE LCDOUT "+" ENDIF TempW=ABS(TempW) ; get the positive value LCDOUT DEC TempW/DS1820_DIG ; Display the Integer portion LCDOUT "." ; display decimal point TempW=TempW//DS1820_DIG ; get decimal portion LCDOUT DEC1 TempW DIG 0 IF ABS(TempC) < 1000 THEN LCDOUT $DF ENDIF RETURN ;----[Read battery voltage]------------------------------------------------- RT CON Res1 + Res2 ; Total Divider Resistance ReadVoltage: ADCIN 3, RawBattery Volts=RawBattery * Rt Volts=DIV32 Res2 Volts=Volts * VDD Volts=DIV32 1023 IF Volts != LastVolts THEN LastVolts=Volts LCDOUT $FE,$C1 IF Volts/10 < 10 THEN LCDOUT " " LCDOUT " ",DEC Volts/10,",",DEC1 Volts Dig 0," V" IF Volts >= MaxBat THEN BattLevel=12 ELSE IF Volts <= MinBat THEN BattLevel=0 ELSE BattLevel=(Volts - MinBat +1) * 12 / (MaxBat - MinBat +1) ENDIF ENDIF GOSUB ShowBattery ENDIF RETURN ;----[Show Battery Icon 0 - 12, 0=Empty 12=Full]-------------------------- ShowBattery: lcdout $FE,$C0,1,$FE,$48,$0A,$1F for y=4 to 1 step -1 if BattLevel >= (y * 3) then Char=$1F else if BattLevel >= (y * 3 - 1) then Char=$17 else if BattLevel >= (y * 3 - 2) then Char=$13 else Char=$11 endif endif endif lcdout Char next y lcdout $1F return
....
) request : Can this "lint" be removed ? I try to find another value for "LCDOUT $nn", but without good results ...
Bookmarks