现在将一个实际编制的、带有调整时间功能的算盘码新型时钟程序发布。硬件电路由于只有一个三基色LED和一个按键开关,就不贴出了。所选MCU主要是利用其内置的RTCC。
单个按键开关有短按和长按两种用法。在正常报时状态,短按无作用,长按可以进入调时状态。进入调时状态后,按照十小时、小时、十分、分的顺序依次调整。每次短按键循环进行增量步进,长按键进入下一档位,4种都调完最后一次长按键就回到正常报时状态。在调整状态,调整“小时”和“分钟”时用白色和蓝色分别显示,白色表示正在调整的档位,蓝色则表示不调整的档位。例如,在调整到第三档的时候,第一个拍发的数码是白色,表示“十分”,第二个拍发的数码是蓝色,表示“分”,在这个档位短按键只调整白色的“十分”,不调整蓝色的“分”。
/*-------------------------------------------------------------------
编译器:MCC18 V3.40
日期:2011 0924
版本:V1.1
功能:用过去在Pic16论坛上发布过的算盘码编码格式,在pic18f26j13的RTCC上实现可以
用两位码和光色来表示小时与分钟的新型时钟。
前一位码的光色表示“十小时”,码型表示“小时”。后一位码的光色表示“十分钟”,码型表示“分钟”。
光色表示的数值依照“蓝,绿,黄,红,青,紫”依次表示“0,1,2,3,4,5”。
码型以长短发光表示,以“划”表示发光时间略长,“点”表示发光时间很短。以下从0--9的码型分别为
划划,点,点点,点点点,点点点点,划,划点,划点点,划点点点,划点点点点。
用较短的停顿区分前后码,用较长的停顿表示分组。
例如,21点整,表示为“黄点,蓝划划”
修改时钟,要长按唯一的按键,直到发出持续的白光(白里泛紫),松键就用白光点划表示等待修改的位,用蓝光点划表示不修改的位。
修改状态连续发出的两个码型,前面一组表示十小时和小时,后面一组表示十分钟和分钟。每次修改时,先修改十小时位,再修改小时位。
此时显示的两个码前面是十小时,后面是小时。前码白光后码蓝光时修改十小时,通过短按键循环改变该位的值,修改完毕长按键就转入后位修改,
这时是前码蓝光,后码白光,同样是循环改变,完成这组后长按就进入十分钟和分钟修改。后一组的修改过程和结束方式同前。
长按键要看到一组两个码完整显示再松手,才能保证进入下一步。
修改完成后会自动保存到RTCC,继续正常发光报时任务。
硬件电路非常简单,除去主振荡器12m和实时钟晶体32768Hz外,只有程序最前部键定义连接的一个按键和一个三基色led。其它均按MCU手册要求配电容电阻即可。
特别声明,本算盘码的编码方式,修改时钟方式和整个程序属于本人原创,可基于个人研究目的进行引用和复制,但不得作为商业用途使用。
-------------------------------------------------------------------*/
#include <P18f26j13.h>
#define Key PORTCbits.RC2
#define LEDR TRISBbits.TRISB2 //红led
#define LEDG TRISBbits.TRISB0 //绿led
#define LEDB TRISBbits.TRISB3 //蓝led
voidmain(void);
voidInterruptHandlerHigh(void);
unsigned char*ppptr;
static constunsigned intmorse_code[12]={0xee00,0x8000,0xa000,0xa800,0xaa00,0xe000,0xe800,0xea00,
0xea80,0xeaa0,0x0000,0x0000}; //算盘码码型
static constunsigned charcode_lenth[12]={0x0c,0x06,0x08,0x0a,0x0c,0x08,0x0a,0x0c,0x0f,0x11,0x0a,0x0a};
//算盘码码长
unsigned int*morse_ptr;
unsigned char*code_lenth_ptr;
staticunsigned charmorse_lenth;
staticunsigned inttiming_code[4]={0x0000,0xaa00,0x0000,0x0000}; //轮流拍发的码型存放位置
staticunsigned chartiming_code_lenth[4]={0x05,0x05,0x00,0x05}; //轮流拍发的码长存放位置
unsigned chartens_or_ones;
unsigned charcolour,minus;
unsigned charkey_pules,key_count;
staticunsigned longkey_status=0xffffffff; //存储按键历史的变量,每次中断存一位,为0表示长按键
unsigned charkey_down,key_up,last_key; //表征按键按下、抬起的变量
unsigned chart=0;
unsigned charminut_colour,minut;
unsigned charhour,hour_colour;
unsigned charin_hour=1; //区别小时和分钟的变量
unsigned inttemp;
unsigned inttemperature; //测试的变量名,没有改正
unsigned charRtimehi[4]={0x0,0x09,0x1,0x54},Rtimelo[4]={0x11,0x11,0x15,0x30}; //保存RTCC日期时间的两组变量
//***************主函数*****************
voidmain()
{
unsigned chari,j;
//**********RC2作为按键使用初始化**********************
ANCON1bits.PCFG11=1; //RC2作为数字IO,不给ADC
TRISCbits.TRISC2=1; //输入,接Key
//*************************RTCC初始化*******************
T1GCON=0;
T1CON=0X8B; //允许tmr1的振荡器
RTCCFG=0X07;
RTCCAL=0X0; //校准值
PADCFG1=0X02; //输出秒时钟
_asmmovlw0x55_endasm
_asm movwf EECON2,0_endasm
_asm movlw0xAA_endasm
_asmmovwf EECON2,0_endasm
_asmbsf RTCCFG,5,1_endasm //开启写入
RTCCFGbits.RTCEN=1;
RTCCFG|=0x03; //置指针为0b11
while(RTCCFGbits.RTCSYNC); //等待不忙
for(i=0;i<4;i++) //读
{
Rtimelo[i]=RTCVALL;
Rtimehi[i]=RTCVALH;
}
//****************TIMERS*******************
T0CON=0X84; //定时器, 分频
INTCONbits.T0IE=1;
T5CON=0X3F; //1/4Fosc,1:8 prescale,T1OSC, 16 bits WR,enabled
T5GCON=0; //no gate
PIE5bits.TMR5IE=1;
//*****************中断开启***************
INTCONbits.PEIE=1;
INTCONbits.GIE=1;
//****************按键相关设置*************
morse_ptr=timing_code;
code_lenth_ptr=timing_code_lenth;
t=timing_code_lenth[1];
temp=timing_code[1];
key_up=0; //缺省为按键抬起状态
key_down=0;
last_key=1;
//**************************主循环************************
while(1)
{
RTCCFG|=0x03; //置指针为0b11
Rtimelo[0]=RTCVALL; //读年
Rtimehi[0]=RTCVALH; //读空
Rtimelo[1]=RTCVALL; //读日
Rtimehi[1]=RTCVALH; //读月
Rtimelo[2]=RTCVALL; //读小时
Rtimehi[2]=RTCVALH; //读星期
Rtimelo[3]=RTCVALL; //读秒
Rtimehi[3]=RTCVALH; //读分
hour_colour=Rtimelo[2]>>4; //十小时颜色
hour=Rtimelo[2]&0x0f; //小时
minut_colour=Rtimehi[3]>>4; //十分颜色
minut=Rtimehi[3]&0x0f; //分钟
timing_code[1]=morse_code[hour]; //小时的码型
timing_code_lenth[1]=code_lenth[hour]; //小时的码长
timing_code[2]=morse_code[minut]; //分的码型
timing_code_lenth[2]=code_lenth[minut]; //分的码长
//以下为修改时钟的键操作部分
if(key_status==0)
{
hour_colour=6; //白色光
minut_colour=0;
for(i=0;i<3;i++)
timing_code[i]=0xffff; //全长划,表示进入调整时钟模式
while(key_status==0);
for(i=0;i<3;i++)
timing_code[i]=0;
while(key_status) //一次长按键之前,修改十小时值
{
timing_code[1]=morse_code[Rtimelo[2]>>4]; //十小时
timing_code_lenth[1]=code_lenth[Rtimelo[2]>>4];
timing_code[2]=morse_code[Rtimelo[2]&0x0f]; //小时
timing_code_lenth[2]=code_lenth[Rtimelo[2]&0x0f];
if(key_up==1) //如果发现短时间按键的抬键信号
{
Rtimelo[2]+=0x10; //步进十小时
key_up=0; //清除短时间按键标志
}
if(Rtimelo[2]>0x23)
Rtimelo[2]=0;
}
while(key_status==0)key_up=0; //防止一次按键连续动作
hour_colour=0; //lan色光
minut_colour=6; //白色光
while(key_status) //一次长按键之前,修改小时值
{
timing_code[1]=morse_code[Rtimelo[2]>>4]; //十小时
timing_code_lenth[1]=code_lenth[Rtimelo[2]>>4];
timing_code[2]=morse_code[Rtimelo[2]&0x0f]; //小时
timing_code_lenth[2]=code_lenth[Rtimelo[2]&0x0f];
if(key_up==1) //如果发现短时间按键的抬键信号
{
Rtimelo[2]++; //步进小时
key_up=0; //清除短时间按键标志
}
if(Rtimelo[2]>0x23) //总小时数若大于23,则小时个位置0
Rtimelo[2]=0x20;
if((Rtimelo[2]&0x0f)>9) //小时值若大于9
Rtimelo[2]&=0xf0; //修改为0
}
while(key_status==0)key_up=0; //防止一次按键连续动作
//以下修改分钟
hour_colour=6; //白色光
minut_colour=0; //蓝色光
while(key_status) //一次长按键之前,修改十分钟值
{
timing_code[1]=morse_code[Rtimehi[3]>>4]; //十分钟
timing_code_lenth[1]=code_lenth[Rtimehi[3]>>4];
timing_code[2]=morse_code[Rtimehi[3]&0x0f]; //分钟
timing_code_lenth[2]=code_lenth[Rtimehi[3]&0x0f];
if(key_up==1) //如果发现短时间按键的抬键信号
{
Rtimehi[3]+=0x10; //步进十分钟
key_up=0; //清除短时间按键标志
}
if(Rtimehi[3]>0x59) //总fen数若大于59,则十分钟位置0
Rtimehi[3]&=0x0f;
}
while(key_status==0)key_up=0; //防止一次按键连续动作
hour_colour=0; //蓝色光
minut_colour=6; //白色光
bwhile(key_status) //一次长按键之前,修改分钟值
{
timing_code[1]=morse_code[Rtimehi[3]>>4]; //十分钟
timing_code_lenth[1]=code_lenth[Rtimehi[3]>>4];
timing_code[2]=morse_code[Rtimehi[3]&0x0f]; //分钟
timing_code_lenth[2]=code_lenth[Rtimehi[3]&0x0f];
if(key_up==1) //如果发现短时间按键的抬键信号
{
Rtimehi[3]++; //步进分钟
key_up=0; //清除短时间按键标志
}
if((Rtimehi[3]&0x0f)>9) //fen数个位若大于9,则分钟位置0
Rtimehi[3]=Rtimehi[3]&0xf0;
}
while(key_status==0)key_up=0; //防止一次按键连续动作
//写入RTCC
RTCCFG|=0x03; //置指针为0b11
while(RTCCFGbits.RTCSYNC); //等待不忙
for(i=0;i<4;i++) //写
{
RTCVALL=Rtimelo[i];
RTCVALH=Rtimehi[i];
}
}
//到达MAIN最后部分
}
}
//----------------------------------------------------------------------------
// High priority interrupt vector
#pragma code InterruptVectorHigh = 0x08
voidInterruptVectorHigh(void)
{
_asm
gotoInterruptHandlerHigh //jump to interrupt routine
_endasm
}
//----------------------------------------------------------------------------
// High priority interrupt routine
#pragma code
#pragma interrupt InterruptHandlerHigh
void
InterruptHandlerHigh()
{
if(INTCONbits.TMR0IF)
{ //check for TMR0 overflow
INTCONbits.TMR0IF=0; //clear interrupt flag
TMR0H=0X20; //略加快点划速率
TMR0L=0;
if((t<=0)|t>25)
{
if(morse_ptr>&timing_code[2])
{
morse_ptr=timing_code;
code_lenth_ptr=timing_code_lenth;
}
else
{
morse_ptr++;
code_lenth_ptr++;
}
if(morse_ptr>(&timing_code[1])) //小时在1,分在2,据此决定in_hour
in_hour=0;
else
in_hour=1;
if(in_hour==0) //十分钟颜色
{
if(minut_colour==0) //蓝
{
LEDG=1;
LEDR=1;
LEDB=0;
}
else if(minut_colour==1) //绿
{
LEDG=0;
LEDR=1;
LEDB=1;
}
else if(minut_colour==2) //黄
{
LEDG=0;
LEDR=0;
LEDB=1;
}
else if(minut_colour==3) //红
{
LEDG=1;
LEDR=0;
LEDB=1;
}
else if(minut_colour==4) //青
{
LEDG=0;
LEDR=1;
LEDB=0;
}
else if(minut_colour==5) //紫
{
LEDG=1;
LEDR=0;
LEDB=0;
}
else //白
{
LEDG=0;
LEDR=0;
LEDB=0;
}
}
else //十小时颜色
{
if(hour_colour==0) //蓝
{
LEDG=1;
LEDR=1;
LEDB=0;
}
else if(hour_colour==1) //绿
{
LEDG=0;
LEDR=1;
LEDB=1;
}
else if(hour_colour==2) //黄
{
LEDG=0;
LEDR=0;
LEDB=1;
}
else if(hour_colour==3) //红
{
LEDG=1;
LEDR=0;
LEDB=1;
}
else if(hour_colour==4) //青
{
LEDG=0;
LEDR=1;
LEDB=0;
}
else if(hour_colour==5) //紫
{
LEDG=1;
LEDR=0;
LEDB=0;
}
else //白
{
LEDG=0;
LEDR=0;
LEDB=0;
}
}
temp=*morse_ptr; //取得指针位置的值
t=*code_lenth_ptr; //同上
}
else
{
t--;
}
if((temp&0x8000)==0) //这段是拍发算盘码的执行部分
LATB=LATB|0b00001101;
else
LATB=LATB&0b1110010;
temp=temp<<1;
}
else if(PIR5bits.TMR5IF) //该定时器用来识别按键动作
{
PIR5bits.TMR5IF=0; //clear interrupt flag
if(key_down==1&last_key==1) //只有下键后才进入判断
{
if(key_status) //在没有全0序列情况下
if(Key==1) //确认抬键
{
key_up=1;
key_down=0;
}
}
else if(last_key==0)
{
if(Key==0)
{
key_down=1; //确认下键
key_up=0;
}
}
last_key=Key; //当前键值赋予旧键值
key_status=key_status<<1; //键状态左移1位
key_status|=Key; //末位置Key的值
}
}