'TimeTempLcdP1.bas
'Indoor/Outdoor Time & Temperature Clock
'28 pin uMITE Ver 5.0
'DS18B20 Temperature Sensors
'PFC8563 Real Time Clock
'ILI9341 320x240 LCD Panel without Touch Screan
'Written by Duane C. Johnson AD0TJ
'Red Rock Energy
'redrok.com
'http://www.redrok.com
Initialize:
'ILI9341 Pins 1-9 > VCC,gnd, CS,RST,D/C,SDI,SCK,LED,SDO
'ILI9341 Pins 1-9 > 1, 2, 3, 4, 5, 6, 7, 8, 9
'uMITE Pins > +5,gnd, 4, 5, 6, 3, 25, , 14
'ILI9341 names > orient,D/C,RST,CS pins
'OPTION LCDPANEL ILI9341,RL, 6 , 5 , 4
'OPTION LCDPANEL DISABLE
'OPTION TOUCH DISABLE
'Option AUTORUN ON
'Option DISPLAY 43,120
'Option COLOURCODE OFF
'CPU 40
'Option BAUDRATE 115200
Cls
Print Chr$(27);"[2J";Chr$(27);"[1;34m";'Erace Display and Set to BOLD BLUE
Dim Stars$(3):Stars$(0)="-":Stars$(1)="\":Stars$(2)="|":Stars$(3)="/"
COLOR RGB(0,50,0),RGB(32,0,32)'Set Basic LED Display Colors
BOX 0,0,318,239,7,RGB(0,0,255),RGB(32,0,32)'Add A Border

' Choose A Clock Face You like or Make Your Own
'Large Oval Clock Face Parameters
Gosub LargeOval

'Small Oval Clock Face Parameters
'Gosub SmallOval

'Large Vertical Oval Clock Face Parameters
'Gosub LargeVerticalOval

'Tiny Circular Clock Face Parameters
'Gosub TinyCircular

Circle CenterX,CenterY,FaceRadius-0*FaceThick,FaceThick,AspRatio,RGB(255,0,0),RGB(0,0,0)
Circle CenterX,CenterY,FaceRadius-1*FaceThick,FaceThick,AspRatio,RGB(0,255,0),RGB(0,0,0)
Circle CenterX,CenterY,FaceRadius-2*FaceThick,FaceThick,AspRatio,RGB(0,0,255),RGB(0,0,0)
Circle CenterX,CenterY,FaceRadius-3*FaceThick,FaceThick,AspRatio,RGB(0, 0, 0),RGB(0,0,0)
'Blank Out the Seconds Marks
For T=0 To 59
For T1= -30 to 30
MinX=CenterX+Cos((T1/200-15+T)/30*PI)*(FaceRadius)*AspRatio
MinY=CenterY+Sin((T1/200-15+T)/30*PI)*(FaceRadius)
Line CenterX,CenterY,MinX,MinY,,RGB(0,0,0)
Next T1
Next T
'Add Hour Tick Marks
For T=0 To 11
FaceX=CenterX+Cos((T-3)/6*PI)*(FaceRadius-.5*FaceThick)*AspRatio
FaceY=CenterY+Sin((T-3)/6*PI)*(FaceRadius-.5*FaceThick)
For T1 = 0 To TicRadius
Circle FaceX,FaceY,T1,T1,1,RGB(0,255,0)
Next T1
Next T
'RTC SETTIME year,month,day,hour,minute,second
'RTC SETTIME 16,4,18,11,18,0
'RTC PFC8563 weekdays register = 3 ie 0 to 6 = Sun to Sat
DIM DOW$(6)=(" Sunday "," Monday "," Tuesday ","Wednesday","Thursday "," Friday ","Saturday ")
'RTC SETREG 6, 3'Day value 0 to 6
'RTC SETREG 13,128+3'0=32768Hz 1=4096Hz 2=32Hz 3=1Hz
'RTC SETREG 14, 0+3'Timer Off
RTC gettime
'Calibration for My DS18B20 Temperature Sensors
InTmpPin = 9 'Indoor DS18B20 uMITE Pin
OutTmpPin = 7 'Outdoor DS18B20 uMITE Pin
InTempCalF =-0.58'Indoor Degrees F Calibration
OutTempCalF=-0.76'Outdoor Degrees F Calibration
TmpAve=30 'Moving Average of Last "TmpAve" Values, 30 Makes the Time Constant About a Minute
TEMPR START InTmpPin ,3:InTmp =TEMPR(9)*1.8+32+InTempCalF
TEMPR START OutTmpPin,3:OutTmp=TEMPR(7)*1.8+32+OutTempCalF
Again:
Star%=Star%+1 'Rotatinging Stars on the Terminal
RTC gettime:RTC GetReg 6,Day:Day=Day AND 7'Get Time and Day Of the Week
DatTim$= Date$+" "+Time$'Date & Time String from the RTC
'Remember Old Clock Values and Get the New Ones
SecsOld=Secs:Secs=Val(Mid$(DatTim$,18,2))
MinsOld=Mins:Mins=Val(Mid$(DatTim$,15,2))
HorsOld=Hors:Hors=Val(Mid$(DatTim$,12,2))
'Rearange the RTC Time String
Tim$=Mid$(DatTim$,7,4)+"/"+Mid$(DatTim$,4,2)+"/"+Left$(DatTim$,2)+" "+Mid$(DatTim$,12,8)
'Assemble Day of the Week String for the Terminal
WDay$=" "+Chr$(27)+"[1;31m"+Stars$(Star% Mod 4)+Chr$(27)+"[1;34m"+" "+DOW$(Day)
WDay$=WDay$+" "+Chr$(27)+"[1;31m"+Stars$(((Star%+3)Xor 3)Mod 4)+Chr$(27)+"[1;34m"
'Assemble Temperature String for Display on the Terminal
InF$ =" Indoor :"+Str$( InTmp,3,2)+"F "
OutF$=" Outdoor:"+Str$(OutTmp,3,2)+"F "
'Send to the Terminal
Print Chr$(27);"[H";'GoTo HOME
'Print DatTim$
Print Tim$:Print WDay$:Print InF$:Print OutF$;
'Remember Old Clock Hands Parameters
OldSecX=secX:OldSecY=SecY:OldMinX=MinX:OldMinY=MinY:OldHorX=HorX:OldHorY=HorY
'Calculate the Hands Orientation Including the Small Analog Movements
HorX=CenterX+Cos((Hors+Mins/60+Secs/3600 -3)/ 6*PI)*(FaceRadius-5*FaceThick)*AspRatio
HorY=CenterY+Sin((Hors+Mins/60+Secs/3600 -3)/ 6*PI)*(FaceRadius-5*FaceThick)
MinX=CenterX+Cos((Mins+Secs/60 -15)/30*PI)*(FaceRadius-3*FaceThick)*AspRatio
MinY=CenterY+Sin((Mins+Secs/60 -15)/30*PI)*(FaceRadius-3*FaceThick)
SecX=CenterX+Cos((Secs -15)/30*PI)*(FaceRadius-1*FaceThick)*AspRatio
SecY=CenterY+Sin((Secs -15)/30*PI)*(FaceRadius-1*FaceThick)
'Erace Old Clock Hands, if changed, from the LCD Panel
If SecsOld<>Secs then LINE CenterX,CenterY,OldHorX,OldHorY,1,RGB(0,0,0)
If SecsOld<>Secs then LINE CenterX,CenterY,OldMinX,OldMinY,1,RGB(0,0,0)
If SecsOld<>Secs then LINE CenterX,CenterY,OldSecX,OldSecY,1,RGB(0,0,0)
'Display New Clock Hands on the LCD Panel
'Note, Paint in this Order so Seconds Overlap Minutes, then Minutes Overlap Hours
LINE CenterX,CenterY,HorX,HorY,,RGB(255,128,255)
LINE CenterX,CenterY,MinX,MinY,,RGB(128,255,255)
LINE CenterX,CenterY,SecX,SecY,,RGB(255,255,128)
'Display Text on the LCD Panel
'TEXT X, Y,STRING,JUSTIFI,FONT,SCALE,C,BC
TEXT 160, 1,Tim$ ,CT,1,2,RGB(128,255,128)
TEXT 160,25,InF$ ,CT,1,2,RGB(128,255,128)
TEXT 160,49,OutF$,CT,1,2,RGB(128,255,128)
If(SecsOld<>Secs)And((Secs and 1)=0)Then TEMPR START InTmpPin, 3:InTmp =(TmpAve-1)/TmpAve* InTmp+1/TmpAve*(TEMPR(9)*1.8+32+InTempCalF )
If(SecsOld<>Secs)And((Secs and 1)=1)Then TEMPR START OutTmpPin,3:OutTmp=(TmpAve-1)/TmpAve*OutTmp+1/TmpAve*(TEMPR(7)*1.8+32+OutTempCalF)
GoTo Again
LargeOval:
CenterX=159:CenterY=157'Center Position of the Clock Face
FaceRadius=80'Distance from Center to Upper Edge of the Clock Face
AspRatio=1.99'Ratio of Face Width to Height
FaceThick=7 'Basic Width of Outer Ring of Face
TicRadius=0.8*FaceThick'Radius of Hour Clock Tic Marks
End Sub
SmallOval:
CenterX=159:CenterY=157'Center Position of the Clock Face
FaceRadius=40'Distance from Center to Upper Edge of the Clock Face
AspRatio=2.99'Ratio of Face Width to Height
FaceThick=3 'Basic Width of Outer Ring of Face
TicRadius=0.8*FaceThick'Radius of Hour Clock Tic Marks
End Sub
LargeVerticalOval:
CenterX=159:CenterY=157'Center Position of the Clock Face
FaceRadius=80'Distance from Center to Upper Edge of the Clock Face
AspRatio=0.50'Ratio of Face Width to Height
FaceThick=3 'Basic Width of Outer Ring of Face
TicRadius=0.8*FaceThick'Radius of Hour Clock Tic Marks
End Sub
TinyCircular:
CenterX=60:CenterY=100'Center Position of the Clock Face
FaceRadius=25'Distance from Center to Upper Edge of the Clock Face
AspRatio=1.00'Ratio of Face Width to Height
FaceThick=2 'Basic Width of Outer Ring of Face
TicRadius=0.8*FaceThick'Radius of Hour Clock Tic Marks
End Sub