基于PIC16F628的CM402型高速贴片机控制系统改造设计与实现
6=0;
RA7=0;
break;
case 3:
RB2=1;
RB3=1;
RB4=1;
RB5=0;
RA6=0;
RA7=0;
break;
case 4:
RB2=1;
RB3=1;
RB4=0;
RB5=0;
RA6=0;
RA7=0;
break;
case 5:
RB2=1;
RB3=0;
RB4=0;
RB5=0;
RA6=0;
RA7=0;
break;
case 6:
RB2=0;
RB3=0;
RB4=0;
RB5=0;
RA6=0;
RA7=0;
break;
}
}
}
void ms(uint b)
{ uchar c;
while(b--)
for(c=123;c>0;c--);
}
void interrupt tmr1(void)
{ if(TMR1IF==1)
{ TMR1IF=0;
TMR1L=0XEF;
TMR1H=0XD8;
js++;
if(js==1000)
{ js=1;
if(OFF_ON==1)
{ if(ES_DATA!=0);
{ ES_DATA--;
if(ES_DATA==0)
{ a=out=0;
}
}
}
}
}
}
void X_Y_IN(void)
{ if((RB0==0)(RB1==0))
{ ms(2);
if((RB0==0)(RB1==0)((z++)==500))
{ temp1=1;
}
}
else
{ z=1;
temp1=0;
}
Key_Num1=temp1;
if((Key_Num1!=0x00)(Key_Num1 == Key_Backup1 ))
{ if(!Key_Dis_F1)
{ Key_Dis_F1 = 1;
asm("clrwdt");
if((RB0==0)(RB1==0))
{ OFF_ON=1;
}
}
}
else
{ Key_Backup1 = Key_Num1;
Key_Dis_F1 = 0;
}
}
void keyscan(void)
{ if((RB7==0)|(RB6==0))
{ ms(10);
if((RB7==0)|(RB6==0))
{ temp=1;
}
}
else
{ temp=0;
}
Key_Num=temp;
if((Key_Num!=0x00)(Key_Num == Key_Backup ))
{ if(!Key_Dis_F)
{ Key_Dis_F = 1;
asm("clrwdt");
if((RB6==0)(RB7==1))
{ ES--;
if(ES=1)
{ ES=1;
}
if(ES!=ES_BC_DATA)
{ ES_DATA=ES_BC_DATA=ES;
writeByte(0x00,ES_BC_DATA);
writeByte(0x01,out);
writeByte(0x02,RA4);
writeByte(0x03,RB1);
writeByte(0x04,RB0);
writeByte(0x05,z);
}
}
if((RB6==1)(RB7==0))
{ ES++;
if(ES>=6)
{ ES=6;
}
if(ES!=ES_BC_DATA)
{ ES_DATA=ES_BC_DATA=ES;
writeByte(0x00,ES_BC_DATA);
}
}
}
}
else
{ Key_Backup = Key_Num;
Key_Dis_F = 0;
}
}
char readByte(char addr)
{ char tmpEEPROM;
EEADR = addr;
SELECT_EEPROM();
START_READ_EEPROM();
tmpEEPROM = EEDATA;
return tmpEEPROM;
}
void writeByte(char addr, char data)
{ EEADR = addr;
EEDATA = data;
SELECT_EEPROM();
ENABLE_WRITE_EEPROM();
EECON2 = 0X55;
EECON2 = 0Xaa;
START_WRITE_EEPROM();
ENABLE_WRITE_EEPROM();
while(1 != EEIF);
EEIF = 0;
}
结束语
该PVS控制系统以PIC16F628单片机为核心,具有集成度高、性能稳定、抗干扰能力强、性价比高等优点。该PVS控制系统已制作成品销售,由苏州翔庆精密机械有限公司等单位经过6个月的联机生产验证,证明该设计方案可靠、可行。利用该PVS控制系统改造CM402型贴片机,预期可提升生产力约4%,具有良好的实用价值。
- 基于单片机的便携式电子秤(11-07)
- Windows CE 进程、线程和内存管理(11-09)
- RedHatLinux新手入门教程(5)(11-12)
- uClinux介绍(11-09)
- openwebmailV1.60安装教学(11-12)
- Linux嵌入式系统开发平台选型探讨(11-09)