基于protuse的单片机模拟的实例

本人对单片机的一些了解，在这里和大家分享。

（1）基于AT89C52的同步串口通信①单片机1程序（程序在Kile C51上运行通过。

）/******************************************************************** * 文件名：液晶1602显示.c* 描述: 该程序实现了对液晶1602的控制。

* 创建人：东流，2009年4月10日* 版本号：2.0***********************************************************************/ #include<reg52.h>#define uchar unsigned char#define uint unsigned int//这三个引脚参考资料sbit E=P3^5; //1602使能引脚sbit RW=P3^6; //1602读写引脚sbit RS=P3^7; //1602数据/命令选择引脚sbit aaa=P1^0;sbit bbb=P1^1;sbit aa=P3^0;sbit bb=P3^1;/******************************************************************** * 名称: delay()* 功能: 延时,延时时间大概为140US。

* 输入: 无* 输出: 无***********************************************************************/void delay(){int i,j;for(i=0; i<=100; i++)for(j=0; j<=20; j++);}/********************************************************************* 名称: enable(uchar del)* 功能: 1602命令函数* 输入: 输入的命令值* 输出: 无***********************************************************************/void enable(uchar del){P2 = del;RS = 0;RW = 0;E = 0;delay();E = 1;delay();}/********************************************************************* 名称: write(uchar del)* 功能: 1602写数据函数* 输入: 需要写入1602的数据* 输出: 无***********************************************************************/void write(uchar del){P2 = del;RS = 1;RW = 0;E = 0;delay();E = 1;delay();/********************************************************************* 名称: L1602_init()* 功能: 1602初始化，请参考1602的资料* 输入: 无* 输出: 无***********************************************************************/ void L1602_init(void){enable(0x01);enable(0x38);enable(0x0c);enable(0x06);enable(0xd0);}/********************************************************************* 名称: L1602_char(uchar hang,uchar lie,char sign)* 功能: 改变液晶中某位的值，如果要让第一行，第五个字符显示"b" ，调用该函数如下L1602_char(1,5,'b')* 输入: 行，列，需要输入1602的数据* 输出: 无***********************************************************************/ void L1602_char(uchar hang,uchar lie,char sign){uchar a;if(hang == 1) a = 0x80;if(hang == 2) a = 0xc0;a = a + lie - 1;enable(a);write(sign);}/********************************************************************* 名称: L1602_string(uchar hang,uchar lie,uchar *p)* 功能: 改变液晶中某位的值，如果要让第一行，第五个字符开始显示"ab cd ef" ，调用该函数如下L1602_string(1,5,"ab cd ef;")* 输入: 行，列，需要输入1602的数据* 输出: 无***********************************************************************/ void L1602_string(uchar hang,uchar lie,uchar *p)uchar a;if(hang == 1) a = 0x80;if(hang == 2) a = 0xc0;a = a + lie - 1;enable(a);while(1){if(*p !='\0')write(*p);else break;p++;}}/********************************************************************* 名称: Main()* 功能: 主函数* 输入: 无* 输出: 无***********************************************************************/ void Main(){uchar k[]="sbuf data:";uchar i = 122,j=1,ti=14;aaa=1;bbb=1; aa=1;bb=1;SM0=0;SM1=0;SM2=0;REN=1;L1602_init();L1602_char(1,5,SBUF);L1602_string(1,1,k);while(ti>=0){ while(1){if(aaa==0){bbb=0;break;}}aaa=1;bbb=1;i--;i--;i--;i--;i--;RI=0;while(1){if(RI!=0)break;}L1602_char(2,j,SBUF);j++;ti--;}REN=0;RI=1;while(5)i=0;}②单片机2程序#include<reg52.h>sbit a=P2^0;sbit b=P2^1;sbit C=P3^1;void main(){int i=0 ,j=0;char str[20]=" ";a=1;b=1;SM0=0;SM1=0;SM2=0;//RI=0;while(j<=14){for(i=0;i<=100;i++);a=0;//SBUF=0;while(1){ if(b==0)break;}b=1;a=1;SBUF=str[j];TI=0;j++;}while(1);（2）基于MSP430的科学计算器单片机程序：（程序在IAR430上运行通过。

）#include <msp430x24x.h>#include <STDLIB.h>#include <STRING.h>#include <float.h>#include <math.h>unsigned char dis1[]="WORK START"; //状态显示unsigned char dis2[]="ALCOHOL TEST";char dis,j,a,c,cls[]=" ";char ak,ch=1,aa[20],bb[20];char i=0,n=0,m=0,flag=1,pf=1,dnf=0,deng=0,du=0;double sum=0,sum1=0;//int c=7;void delay(unsigned char ms)//延时1{ unsigned char i,j;while(ms--){ for(i=0;i<65;i++)for(j=0;j<50;j++){}}}void delay2(unsigned int time ) //延时2{unsigned int n;n=0;while (n<time){ n++;}return;}char lcd_bz() //LCD判忙{char result;P4OUT=0X8E;//rs=0;//rw=1;//ep=1;P1DIR=0X00;result=P1IN&0x80;//ep=0;P4OUT=0X8A;return result;}lcd_wcmd(unsigned char cmd) //写指令数据到LCD {while(lcd_bz())//rs=0;//rw=0;//ep=1;P4OUT=0X8c;P1DIR=0XFf;P1OUT=cmd;//ep=1;P4OUT=0X8C;//ep=0;P4OUT=0X88;lcd_pos(unsigned char pos)//设定显示位置{lcd_wcmd(pos | 0x80);}lcd_wdat(unsigned char dat)//写入显示数据到LCD{while(lcd_bz());//rs=1;//rw=0;//ep=0;P4OUT=0X89;P1DIR=0Xff;P1OUT=dat;//ep=1;P4OUT=0X8D;//ep=0;P4OUT=0X89;}lcd_init() //LCD初始化{lcd_wcmd(0x38);delay(1);lcd_wcmd(0x0c);delay(1);lcd_wcmd(0x06);delay(1);lcd_wcmd(0x01);delay(1);}unsigned char key_scan(){unsigned char t,k1,k2,key;unsigned int kt;P3DIR=0X00;P5DIR=0Xff;// P3OUT=0XFF;P5OUT=0x00;// P3DIR=0X00;// P3IN|=0XFF;// P3DIR=0X00;t=P3IN;// P3DIR=0XFF;// P6DIR=0XFF;if(t!=0xFF){delay(10);// P3DIR=0X00;t=P3IN;// P3DIR=0XFF;// P6DIR=0X00;if(t!=0xFF){//P3DIR=0XFF;// P3DIR=0X00;k1=P3IN;P5OUT=0X00;P3DIR=0XFF;P5DIR=0X00;// P6OUT|=0xFF;P3OUT=0x00;// P3DIR=0XFF;// P3OUT=0xff;// P3OUT=0x00;P5DIR=0X00;// P6DIR=0X00;// P6IN|=0XFF;k2=P5IN;P2DIR=0XFF;P2OUT=k2;P3OUT|=0X00;// k2|=0xC0;kt=k1;kt=kt<<8;kt+=k2;switch(kt){case 0xFEFE: key='3';break;case 0xFDFE: key='2';break;case 0xfbfe: key='1';break;case 0xf7fe: key='B';break;case 0xeffe: key='U';break;//2ndf// case 0xdffe: key=23;break;// case 0xbffe: key=22;break;case 0xfEFD: key='6';break;case 0xFDFD: key='5';break;case 0xfbfd: key='4';break;case 0xf7fd: key='t';break;case 0xeffd: key='r';break;//du/rad // case 0xdffd: key=16;break;// case 0xbffd: key=15;break;case 0xfefb: key='9';break;case 0xfdfb: key='8';break;case 0xfbfb: key='7';break;case 0xf7fb: key='s';break;case 0xeffb: key='Z';break;//sin// case 0xdffb: key=9;break;// case 0xbffb: key=8;break;case 0xfef7: key='c';break;case 0xfdf7: key='.';break;case 0xfbf7: key='0';break;case 0xf7f7: key='k';break;//^ycase 0xeff7: key='y';break;//cos// case 0xdff7: key=2;break;// case 0xbff7: key=1;break;case 0xfeef: key='/';break;case 0xfdef: key='-';break;case 0xfbef: key='P';break;case 0xf7ef: key='D';break;// 1/xcase 0xefef: key='a';break;//tan// case 0xdfef: key=2;break;// case 0xbfef: key=1;break;case 0xfedf: key='=';break;case 0xfddf: key='*';break;case 0xfbdf: key='+';break;case 0xf7df: key='p';break;//pi/ecase 0xefdf: key='l';break;//log // case 0xdfdf: key=2;break;// case 0xbfdf: key=1;break;default: key=32;break;}return key;}else return(32);}else return(32);}void gcvt(){char p[20]="",p1[20]="",k=0;char i=0,b=0;double z;unsigned long y;if(sum<0){p[k]='-';sum=0-sum;k++;}y=(unsigned long)sum;z=sum-y;if(y){while(y){p1[b]=y%10+0x30;y/=10;b++;}}elsep1[0]=0+0x30;b=strlen(p1);for(i=0;i<strlen(p1);i++,k++,b--)p[k]=p1[b-1];for(i=0;i<20;i++){aa[i]=0;p1[i]=0;}k=0;i=0;p1[k]='.';k++;while((z!=0.0)&&(i!=6)){z=z*10;y=(int)(z);z-=y;p1[k]=y+0x30;k++;i++;}for(i=0;i<20;i++)aa[i]=0;strcat(p,p1);strcpy(aa,p);}void cls_one(){char cl=0,cc=16;lcd_pos(0);while(cc) //显示开始工作{lcd_wdat(cls[cl]);cl++;cc--;}return;}void cls_two(){char cl=0,cc=16;lcd_pos(0x40);while(cc) //显示开始工作{lcd_wdat(cls[cl]);cl++;cc--;}return;}void main(){//double dou;char jj=0, p='-',di=0;P4DIR=0Xff;P1DIR=0Xff;P6DIR=0Xff;P6OUT=0X00;P6OUT|=BIT4;//数据初始化lcd_init();delay(3);lcd_pos(0);dis=0;while(dis1[dis]!='\0') //显示开始工作{lcd_wdat(dis1[dis]);dis++;}delay(3);dis=0;lcd_pos(0x43);while(dis2[dis]!='\0') //显示开始测试{lcd_wdat(dis2[dis]);dis++;}delay(100);lcd_init();delay(3);lcd_pos(0x40);lcd_wdat(0x30);dis=0;while(1){ak=key_scan();switch(ak) //选择键值{case 32:break; // 无case '0':case '1':case '2':case '3':case '4':case '5':case '6':case '7':case '8':case '9':if(flag){lcd_init();for(j=0;j<20;j++)aa[j]=0;flag=0;}if(m==1)i=n;a=ak;aa[i]=ak;i++;deng=0;m=0;lcd_pos(dis);if(dis==15)dis=0x3f;dis++;lcd_wdat(a);break;case '+':case '-':case '*':case '/':if(deng)cls_one();c=ak;strcpy(bb,aa);n=i;for(j=0;j<20;j++)aa[j]=0;i=0;flag=0;pf=2;m=0;lcd_pos(dis);dis++;lcd_wdat(c);if(dis==15)dis=0x3f;break;case '=':sum1=atof(aa);sum=atof(bb);switch(c){case '+':sum=sum+sum1;break;case '-':sum=sum-sum1;break;case '*':if(sum==sum1){sum=sum-1;sum=sum*sum1+sum1;} else sum=sum*sum1;break;case '/':sum=sum/sum1;break;case '^':sum=pow(sum,sum1);break;case '@':sum1=1/sum1;sum=pow(sum,sum1);break;default:goto lloop;}gcvt();flag=1;lloop://lcd_init();cls_two();delay(1);lcd_pos(0x40);dis=strlen(aa);j=0;while(dis) //显示开始测试{// aa[j]+=0x30;lcd_wdat(aa[j]);dis--;j++;}for(j=0;j<20;j++)bb[j]=0;i=0;c=0;pf=1;n=0;dis=0;deng=1;m=0;sum=0;sum1=0;break;case '.':a='.';aa[i]='.';i++;lcd_pos(dis);if(dis==15)dis=0x3f;dis++;lcd_wdat(a);break;case 'c':lcd_init();for(int j=0;j<20;j++){ aa[j]=0;bb[j]=0;}i=0;flag=1;c=0;du=0;pf=1;n=0;dnf=0,deng=0,dis=0;sum=0;sum1=0;m=0;lcd_pos(0x40);lcd_wdat(0x30);if(du){P6OUT&=~BIT4;P6OUT|=BIT2;} else {P6OUT&=~BIT2;P6OUT|=BIT4;}if(dnf)P6OUT|=BIT0;else P6OUT&=~BIT0;break;case 'D':sum1=atof(aa);sum=1/sum1;gcvt();flag=1;goto lloop;case't':sum1=atof(aa);sum=atof(aa);sum=sum-1;sum=sum*sum1+sum1;gcvt();flag=1; goto lloop;case's':sum1=atof(aa);;sum=atof(aa);sum=sum-1;sum=sum*sum1+sum1;sum*=sum1;gcvt();flag=1;goto lloop;case 'B':if(i!=0){i--;aa[i]='\0';cls_one();delay(1);di=0;di=strlen(bb);jj=0;if(c!=0){lcd_pos(0);while(di) //显示开始测试{lcd_wdat(bb[jj]);di--;jj++;}di=strlen(bb);lcd_pos(di);lcd_wdat(c);jj=0;di++;delay(1);}lcd_pos(di);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}}else{if(c!=0){c=0;cls_one();delay(1);di=0; lcd_pos(0);di=strlen(bb);jj=0;while(di) //显示开始测试{lcd_wdat(bb[jj]);di--;jj++;}}elseif(n!=0){n--;bb[n]='\0';cls_one();delay(1);di=0;lcd_pos(0);di=strlen(bb);jj=0;while(dis) //显示开始测试{lcd_wdat(bb[jj]);dis--;jj++;}m=1;}strcpy(aa,bb);}flag=0;if(c!=0)dis=strlen(bb)+i+1;else dis=strlen(aa);break;case 'P':if(i==0){if(pf==1){cls_one();}for(jj=0;jj<20;jj++)aa[jj]=0;aa[0]='-';i++;flag=0;pf=2;lcd_pos(dis);lcd_wdat(p);dis++;}else{dis=0;sum=atof(aa);sum=0-sum;gcvt();cls_one();di=strlen(bb);jj=0;if(c!=0){lcd_pos(dis);while(di) //显示开始测试{lcd_wdat(bb[jj]);di--;jj++;}di=strlen(bb);lcd_pos(dis+di);lcd_wdat(c);jj=0;dis++;delay(1);}lcd_pos(dis+di);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}}flag=0;if(c!=0)dis=strlen(bb)+i+1;else dis=strlen(aa); break;case 'U':dnf=1-dnf;if(dnf)P6OUT|=BIT0;else P6OUT&=~BIT0;break;case 'Z':sum=atof(aa);if(du)sum=sum/180*3.1415926535897932384626433;if(dnf==0)sum=sin(sum);else {sum=atof(aa);;sum=asin(sum);if(du)sum=sum*180/3.14159265;}if(-0.000001<sum&&sum<0.000001)sum=0;gcvt();jj=0;cls_two();delay(1);lcd_pos(0x40);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}case 'y':sum=atof(aa);if(du)sum=sum/180*3.14159265;if(dnf==0)sum=cos(sum);else {sum=atof(aa);sum=acos(sum);if(du)sum=sum*180/3.14159265;}if(-0.000001<sum&&sum<0.000001)sum=0; gcvt();jj=0;cls_two();delay(1);lcd_pos(0x40);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}flag=1;i=0;dis=0;break;case 'a':sum=atof(aa);if(du)sum=sum/180*3.14159265;if(dnf==0)sum=tan(sum);else {sum=atof(aa);sum=atan(sum);if(du)sum=sum*180/3.14159265;}if(-0.000001<sum&&sum<0.000001)sum=0; gcvt();jj=0;cls_two();delay(1);lcd_pos(0x40);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}case 'p':if(dnf==0)sum=3.14159265;else sum=2.718281828;gcvt();jj=0;cls_one();delay(1);lcd_pos(0);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}flag=1;i=0;deng=1;break;case 'l':sum=atof(aa);if(dnf==0)sum=log10(sum);else sum=log(sum);gcvt();jj=0;cls_two();delay(1);lcd_pos(0x40);di=strlen(aa);while(di) //显示开始测试{lcd_wdat(aa[jj]);di--;jj++;}flag=1;i=0;deng=1;break;case 'k':if(dnf==0)c='^';else c='@';strcpy(bb,aa);n=i;for(int j=0;j<50;j++)aa[j]=0;i=0;flag=0;pf=2;m=0;lcd_pos(dis);dis++;lcd_wdat(c);if(dis==15)dis=0x3f;break;case 'r':du=1-du;if(du){P6OUT&=~BIT4;P6OUT|=BIT2;} else {P6OUT&=~BIT2;P6OUT|=BIT4;} break;default:break;}}}。