Continue to Site
Device = 18F43K22
Clock = 16
// int osc and IO pin libraries
Include "intosc.bas"
#option DIGITALIO_INIT = true // automatically call setalldigital
Include "setdigitalio.bas"
// lcd
#option LCD_DATA = PORTD.4
#option LCD_RS = PORTD.2
#option LCD_EN = PORTD.3
Include "LCD.bas"
Include "convert.bas"
Dim led(60) As word
dim led(1) as portc.0
dim x as byte
// import LCD library...
//Include "LCD.bas"
//Include "utils.bas"
// program start...
trisc = %11111111
SetAllDigital
While true
Cls
WriteAt(1,1,"Hello World")
led(1) = 1
DelayMS(1500)
led(1) = 0
DelayMS(500)
WendDevice = 18F43K22
Clock = 16
// int osc and IO pin libraries
Include "intosc.bas"
#option DIGITALIO_INIT = true // automatically call setalldigital
Include "setdigitalio.bas"
// lcd
#option LCD_DATA = PORTD.4
#option LCD_RS = PORTD.2
#option LCD_EN = PORTD.3
Include "LCD.bas"
Include "convert.bas"
'Dim led(60) As word
Dim led1 As PORTC.0
Dim led2 As PORTC.1
Dim led3 As PORTC.2
Dim led4 As PORTC.3
Dim led5 As PORTC.4
Dim x As Byte
Dim MINUTE As Byte
// import LCD library...
//Include "LCD.bas"
//Include "utils.bas"
// program start...
x = 0
MINUTE = 0
TRISC = 0
PORTC = %00000000
SetAllDigital
While true
Cls
//led1 = 1
WriteAt(1,1,"Hello World")
WRITEAT(2,1,DECTOSTR(minute))
Select MINUTE
CASE = 1 led1 = 1
CASE = 5 led2 = 1 led1 = 0
endselect
x = minute + 1
MINUTE = MINUTE + 1
DelayMS(1000)
'led1 = 0
'DelayMS(500)
Wend{
dim Row_1 as portb.0 //rows are the minute led anodes BLUE 3mm LEDS
dim Row_2 as portb.1 //rows are the minute led anodes
dim Row_3 as portb.2 //rows are the minute led anodes
dim Row_4 as portb.3 //rows are the minute led anodes
dim Row_5 as portc.2 //rows are the minute led anodes
dim Row_6 as portd.4 //rows are the minute led anodes
dim Row_7 as portd.5 //rows are the minute led anodes
dim Row_8 as portd.6 //rows are the minute led anodes
dim Row_9 as portb.4 //rows are the minute led anodes
dim Row_10 as portb.5 //rows are the minute led anodes
DIM COLUM-1 AS PORTA.0 // COLUMS ENABLE MOSFETS
DIM COLUM-2 AS PORTA.1
DIM COLUM-3 AS PORTA.2
DIM COLUM-4 AS PORTA.3
DIM COLUM-5 AS PORTA.4
DIM COLUM-6 AS PORTA.5
DIM G-1 AS PORTC.1 // THE GREEN 5mm LED ANODES TO INDICATE HOURS
DIM G-2 AS PORTC.2
DIM G-3 AS PORTC.3
DIM G-4 AS PORTD.0
DIM G-5 AS PORTD.1
DIM G-6 AS PORTD.2
DIM GREEN-1 AS PORTE.0 // ENABLE GREEN LED MOSFETS
DIM GREEN-2 AS PORTC.4
DIM LEFT-EYE AS PORTC.5 // TO BLINK EVERY SECOND
DIM RIGHT-EYE AS PORTC.6
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
//INPUTS FOR SETTING TIME
DIM MINUTES AS PORTD.7
DIM HOURS AS PORTE.1
Device = 18F43K22
Clock = 16
// int osc and IO pin libraries
Include "intosc.bas"
#option DIGITALIO_INIT = true // automatically call setalldigital
Include "setdigitalio.bas"
// lcd
#option LCD_DATA = PORTD.4
#option LCD_RS = PORTD.2
#option LCD_EN = PORTD.3
Include "LCD.bas"
Include "convert.bas"
{
For One Second Update:
8MHz Fosc = 2MHz internal clock = 0.5us per cycle (timer count)
Use 16-bit Timer1, No Prescaler
Set CCPR1 = 50000; Timer1 resets on match every 50000 counts = 25000us
Each Timer1 reset requires 1 cycle compensation... so set CCPR1 = 49999
40 interrupts x 25000us each = 1 second
}
Dim x As Byte
Dim LED0 As PORTC.0 //the red leds for testing
Dim LED1 As PORTC.1
Dim LED2 As PORTC.2
Dim LED3 As PORTC.3
Dim LED4 As PORTC.4
Dim LED5 As PORTC.5
Dim LED6 As PORTC.6
Dim LED7 As PORTC.7
//dim led(1) as portc.1
Dim C1 As Word Absolute $0FBE ' CCPR1L + CCPR1H
Dim Int_Counter As Byte
Dim update As Boolean
Dim secs,mins,hrs As Byte
Dim minute As Byte
Interrupt RTC()
Dec(Int_Counter)
If Int_Counter = 0 Then
Int_Counter = 40 ' each interrupt = 25000us x 40 int's = 1 second
update = true ' update LCD output
End If
PIR1.2 = 0 ' clear CCP1 interrupt flag
End Interrupt
Sub Clock24()
Dim clk As String
Inc(secs)
If secs = 60 Then ' check each tally for rollover
secs = 0
Inc(mins)
//USE SELECT CASE TO INCREMENT THE MINUTE LEDS (60 - 3mm BLUE leds)
Select mins
Case = 1 LED1 = 1
Case = 2 LED1 = 0 LED2 = 1
Case = 3 LED2 = 0 LED3 = 1
Case = 4 LED3 = 0 LED4 = 1
Case = 5 LED4 = 1 LED5 = 1
Case = 6 LED5 = 0 LED6 = 1
// NEED TO ENABLE THE DIFFERENT MOSFETS AS NEEDED FOR HOURS (12 - 5mm green leds) and additional (3mm blue leds)
EndSelect
If mins = 60 Then
mins = 0
Inc(hrs)
//ADD SELECT CASE FOR HOURS
If hrs = 24 Then
hrs = 0
End If
End If
End If
x = x + 1
clk = DecToStr(hrs,2) ' output to LCD
LCD.WriteAt(2,5,clk)
clk = DecToStr(mins,2)
LCD.WriteAt(2,8,clk)
clk = DecToStr(secs,2)
LCD.WriteAt(2,11,clk)
update = false
End Sub
Sub Initialize()
ADCON1 = 15
secs = 0
mins = 0
hrs = 0
Int_Counter = 40
update = false
LCD.Command(130)
LCD.Write("24-HOUR CLOCK")
LCD.Command(196)
LCD.Write("00:00:00")
INTCON = 192 ' enable GIE & PEIE
T1CON = 0 ' no prescaler timer OFF
TMR1H = 0 ' clear TMR1
TMR1L = 0
CCP1CON = 11 ' enable special trigger event
C1 = 49999 ' set match value
PIE1.2 = 1 ' enable CCP1 interrupt
PIR1.2 = 0 ' clear CCP1 interrupt flag
T1CON.0 = 1 ' Timer1 ON
Enable(RTC) ' enable jump to RTC ISR
End Sub
Initialize
//testing
x = 0
minute = 0
TRISC = 0
PORTC = %00000000
TRISC = 0
//
Output (LED0)
While 1=1
If update = true Then
Clock24() ' update 24H Clock output
End If
Wend
)
); instead of using a single shift register and multiplexing, I've opted to use three shift registers without multiplexing. The 6 segment approach requires 20LEDs to have 2 rings, and the 4 extra bits from the multiplexer can drive 4 additional LEDs per segment.
