當(dāng)前位置:首頁 > 單片機(jī) > 單片機(jī)
[導(dǎo)讀]硬件電路程序#include T89X51.H>#define DIN P1_0#define CLK P1_2#define LOAD P1_1unsigned char key_h,key_l,key_code;unsigned char ADS,i,j,m,n;unsigned char n_bit=0;unsigned char flag=0;unsigned char key

硬件電路

程序

#include T89X51.H>
#define DIN P1_0
#define CLK P1_2
#define LOAD P1_1
unsigned char key_h,key_l,key_code;
unsigned char ADS,i,j,m,n;
unsigned char n_bit=0;
unsigned char flag=0;
unsigned char key_num[16]={7,8,9,'/',4,5,6,'*',1,2,3,'-','c',0,'=','+'};
unsigned char data1[6]={0};
unsigned char data2[6]={0};
unsigned int result;

void delay(unsigned int n)
{
while(n--);
}

void send(unsigned char addr,unsigned char dat)
{
LOAD=0;
i=0;
while(i<16)
{
if(i<8) ADS=addr;
else
ADS=dat;
for(j=8;j>=1;j--)
{
DIN=ADS&0x80;
ADS<<=1;
CLK=1;
CLK=0;
}
i+=8;
}
LOAD=1;
}


void clear()
{
for(m=1;m<=5;m++)
send(m,0xff);
send(0x06,0);
n_bit=6;

}


void calc()
{
unsigned int temp1;
unsigned int tmep2;
unsigned char temp;
temp1=data1[5]+data1[4]*10+data1[3]*100+data1[2]*1000+data1[1]*10000;
tmep2=data2[5]+data2[4]*10+data2[3]*100+data2[2]*1000+data2[1]*10000;
switch(flag)
{
case 1: result=temp1+tmep2; break;
case 2: result=temp1-tmep2; break;
case 3: result=temp1*tmep2; break;
case 4: result=temp1/tmep2; break;
}
clear();
for(n=6;n>1;n--)
{
temp=(unsigned char)result%10;
if(temp) send(n,temp);
result/=10;
data2[n-1]=data1[n-1]=0;
}
flag=0;
while((P2&0xf0)!=0xf0);
}

void keyScan()//鍵盤掃描程序
{

if((P2&0xf0)!=0xf0)
delay(20);
if((P2&0xf0)!=0xf0)
{
key_h=P2&0xf0;
P2=0xf0|0x01;
if((P2&0xf0)==0xf0) key_l=0;
P2=0xf0|0x02;
if((P2&0xf0)==0xf0) key_l=1;
P2=0xf0|0x04;
if((P2&0xf0)==0xf0) key_l=2;
P2=0xf0|0x08;
if((P2&0xf0)==0xf0) key_l=3;
P2=0xf0;
switch((~P2)&0xf0)
{
case 0x10: key_h=0x0; break;
case 0x20: key_h=0x1; break;
case 0x40: key_h=0x2; break;
case 0x80: key_h=0x3; break;
}
key_code=key_l*4+key_h;
switch(key_code)

{
case 3: flag=4;n_bit=7;break;//+
case 7: flag=3;n_bit=7;break;//-
case 11: flag=2;n_bit=7;break;//*
case 15: flag=1;n_bit=7;break;///
case 14: calc();n_bit=7;return;//=
case 12: clear();break;//C
default:
if(n_bit>1)
{
if(n_bit==7)
{
clear();
}
send(n_bit--,key_num[key_code]);
if(!flag)
data1[n_bit]=key_num[key_code];
else
data2[n_bit]=key_num[key_code];
}

}
while((P2&0xf0)!=0xf0);
}
}

void main(void)
{
P2=0xf0;

send(0x0c,0x01);
send(0x0b,0x05);
send(0x0a,0xf5);
send(0x09,0xff);

//
// send(0x01,0x8f);
// send(0x02,0x82);
// send(0x03,0x83);
// send(0x04,0x84);
// send(0x05,0x85);
// send(0x06,0x86);
// send(0x07,0x87);
// send(0x08,0x08);
clear();
n_bit=6;
while(1)
{
keyScan();
}
}


本站聲明: 本文章由作者或相關(guān)機(jī)構(gòu)授權(quán)發(fā)布,目的在于傳遞更多信息,并不代表本站贊同其觀點,本站亦不保證或承諾內(nèi)容真實性等。需要轉(zhuǎn)載請聯(lián)系該專欄作者,如若文章內(nèi)容侵犯您的權(quán)益,請及時聯(lián)系本站刪除。
換一批
延伸閱讀

9月2日消息,不造車的華為或?qū)⒋呱龈蟮莫毥谦F公司,隨著阿維塔和賽力斯的入局,華為引望愈發(fā)顯得引人矚目。

關(guān)鍵字: 阿維塔 塞力斯 華為

加利福尼亞州圣克拉拉縣2024年8月30日 /美通社/ -- 數(shù)字化轉(zhuǎn)型技術(shù)解決方案公司Trianz今天宣布,該公司與Amazon Web Services (AWS)簽訂了...

關(guān)鍵字: AWS AN BSP 數(shù)字化

倫敦2024年8月29日 /美通社/ -- 英國汽車技術(shù)公司SODA.Auto推出其旗艦產(chǎn)品SODA V,這是全球首款涵蓋汽車工程師從創(chuàng)意到認(rèn)證的所有需求的工具,可用于創(chuàng)建軟件定義汽車。 SODA V工具的開發(fā)耗時1.5...

關(guān)鍵字: 汽車 人工智能 智能驅(qū)動 BSP

北京2024年8月28日 /美通社/ -- 越來越多用戶希望企業(yè)業(yè)務(wù)能7×24不間斷運行,同時企業(yè)卻面臨越來越多業(yè)務(wù)中斷的風(fēng)險,如企業(yè)系統(tǒng)復(fù)雜性的增加,頻繁的功能更新和發(fā)布等。如何確保業(yè)務(wù)連續(xù)性,提升韌性,成...

關(guān)鍵字: 亞馬遜 解密 控制平面 BSP

8月30日消息,據(jù)媒體報道,騰訊和網(wǎng)易近期正在縮減他們對日本游戲市場的投資。

關(guān)鍵字: 騰訊 編碼器 CPU

8月28日消息,今天上午,2024中國國際大數(shù)據(jù)產(chǎn)業(yè)博覽會開幕式在貴陽舉行,華為董事、質(zhì)量流程IT總裁陶景文發(fā)表了演講。

關(guān)鍵字: 華為 12nm EDA 半導(dǎo)體

8月28日消息,在2024中國國際大數(shù)據(jù)產(chǎn)業(yè)博覽會上,華為常務(wù)董事、華為云CEO張平安發(fā)表演講稱,數(shù)字世界的話語權(quán)最終是由生態(tài)的繁榮決定的。

關(guān)鍵字: 華為 12nm 手機(jī) 衛(wèi)星通信

要點: 有效應(yīng)對環(huán)境變化,經(jīng)營業(yè)績穩(wěn)中有升 落實提質(zhì)增效舉措,毛利潤率延續(xù)升勢 戰(zhàn)略布局成效顯著,戰(zhàn)新業(yè)務(wù)引領(lǐng)增長 以科技創(chuàng)新為引領(lǐng),提升企業(yè)核心競爭力 堅持高質(zhì)量發(fā)展策略,塑強(qiáng)核心競爭優(yōu)勢...

關(guān)鍵字: 通信 BSP 電信運營商 數(shù)字經(jīng)濟(jì)

北京2024年8月27日 /美通社/ -- 8月21日,由中央廣播電視總臺與中國電影電視技術(shù)學(xué)會聯(lián)合牽頭組建的NVI技術(shù)創(chuàng)新聯(lián)盟在BIRTV2024超高清全產(chǎn)業(yè)鏈發(fā)展研討會上宣布正式成立。 活動現(xiàn)場 NVI技術(shù)創(chuàng)新聯(lián)...

關(guān)鍵字: VI 傳輸協(xié)議 音頻 BSP

北京2024年8月27日 /美通社/ -- 在8月23日舉辦的2024年長三角生態(tài)綠色一體化發(fā)展示范區(qū)聯(lián)合招商會上,軟通動力信息技術(shù)(集團(tuán))股份有限公司(以下簡稱"軟通動力")與長三角投資(上海)有限...

關(guān)鍵字: BSP 信息技術(shù)
關(guān)閉
關(guān)閉