【Proteus仿真】51单片机+LCD1602+外置存储器计算器

【Proteus仿真】51单片机+LCD1602+外置存储器计算器

---

• Proteus仿真演示
  

工程重要说明

• 本实例包含Keil工程和VSM Studio工程
• LCD驱动和按键实现的驱动代码为汇编代码。
  
• 本示例从Proteus示例修改而来。

仿真器件说明

• AT89C52、Intel 6264容量8KB、LM016(兼容LM020)、74ls737、与非门、

主程序代码

#include <intrins.h>
#include <reg51.h>
#include "main.h"

//Variables
static  data long lvalue;
static  data long rvalue;
static  data char currtoken;
static  data char lasttoken;
static  data char lastpress;
static  xdata char outputbuffer[MAX_DISPLAY_char];

void main (void)
 {
     
	 lvalue    = 0;
   rvalue    = 0;
   currtoken = '=';
   lasttoken = '0';
   initialise();  // 汇编,初始化液晶显示器。
   calc_output(OK);
   calc_evaluate();
 }   

void calc_evaluate()
 {
     
	 char data key;
   int  data i;
   char xdata number[MAX_DISPLAY_char];
   char xdata *bufferptr;
   
   // Clear the buffer before we start.
   for (i = 0; i <= MAX_DISPLAY_char; i++)
      {
     number[i] = ' ';
	  }
   bufferptr = number;  
   
   for (;;)
     {
     key = calc_getkey();
	   if (calc_testkey(key))
       // Key test positive for digit so we read it into the
       // buffer and then write the buffer to the screen/LCD.
	   // Size limit the number of digits - allow for termination
	   // and possible negative results.
          {
     if (bufferptr != &number[MAX_DISPLAY_char - 2])
               {
     *bufferptr = key;
                 calc_display(number);
                 bufferptr++;
               }
          }

       else
       // Key is an operator so pass it to the function handlers.
       // If we are just after startup or cancel then assign to lvalue
       // otherwise assign to rvalue.
          {
     
		    //Assign the value.
            if (lasttoken == '0')
               {
     lvalue = calc_asciidec (number);}
            else
               {
     rvalue = calc_asciidec (number);}

            //Clear the number buffer.
            bufferptr = number;
            for (i = 0;i <= MAX_DISPLAY_char; i++)
               {
     number[i] = ' '; }
		 
            //Process the Operator.
            currtoken = key;
			if (currtoken == 'C') 
			   {
     calc_opfunctions(currtoken); }
		 	else
			   {
     calc_opfunctions(lasttoken); }
		
 		    // Clear the outputbuffer for reuse on next operation.
            for (i = 0;i <= MAX_DISPLAY_char;i++)
               {
     outputbuffer[i] = ' ';}
		      
      	     bufferptr = number;
			// Handle the equals operation here for brevity.
			// All we need do is preserve the previous operator in
			// lasttoken.
			if (currtoken != 0x3D) lasttoken = currtoken;
            
   		  }
       lastpress = key;
     }
 }

void calc_opfunctions (char token)
// Handle the operations. Lvalue holds the result and we test for
// consecutive operator presses.
 {
     char data result;
   switch(token)
        // Add.
     {
      case '+' : if ((currtoken == '=' ) || ((lastpress >= 0x30) && (lastpress <=0x39)))
      			      {
     lvalue += rvalue;
        			    result = calc_chkerror(lvalue);
					  }
   				   else
      				  {
     result =  SLEEP; }		break;
        // Subtract.
		case '-' : if ((currtoken == '=' ) || ((lastpress >= 0x30) && (lastpress <=0x39)))
                      {
     lvalue -= rvalue;
                        result = calc_chkerror(lvalue);		
					  }
                   else
                      {
     result = SLEEP;}		break;
        // Multiply.
		case '*' : if ((currtoken == '=' ) || ((lastpress >= 0x30) && (lastpress <=0x39)))
                      {
     lvalue *= rvalue;
                        result =  calc_chkerror(lvalue);
                      }
                   else
                      {
     result =  SLEEP;}		break;
		// Divide. 
		case '/' : if ((currtoken == '=' ) || ((lastpress >= 0x30) && (lastpress <=0x39)))
                      {
     if (rvalue)
                           {
     lvalue /= rvalue;
                             result = calc_chkerror(lvalue);
                           }
                        else
                           {
     result = ERROR;}				 
                      }
                   else
                      {
     result = SLEEP;}		break;
		// Cancel.
 		case 'C' : lvalue = 0;
                   rvalue = 0;
                   currtoken = '0';
                   lasttoken = '0';
                   result = OK;				  	break;
	
		default :  result = SLEEP;  

      }
   calc_output(result); 
 }

 
/************************************************************************ ***** Utility Routines ***** ***************************/

int calc_chkerror (long num)
// Check upper and lower bounds for the display.
// i.e. 99999999 and -99999999.
 {
     if ((num >= -9999999) && (num <= 9999999))
      return OK;
   else
      return ERROR;
 }


void calc_output (int status)
// Output according to the status of the operation.
// *Sleep* is used for the first op press after a full cancel
// or on startup. 
 {
     switch (status)
      {
     case OK      : calc_display(calc_decascii(lvalue));    break;
        case SLEEP   :                                         break;
		case ERROR   : calc_display("Exception ");			   break;	
        default      : calc_display("Exception ");	    	   break;
      }
 }


long calc_asciidec (char *buffer)
// Convert the ASCII string into the floating point number.
 {
     long data value;
   long data digit;
   value = 0;
   while (*buffer != ' ')
      {
     digit = *buffer - 48;
	    value = value*10 + digit;
        buffer++;
	  }
   return value;
 }

char *calc_decascii (long num)
// A rather messy function to convert a floating
// point number into an ASCII string.
 {
     long data temp = num;
   char xdata *arrayptr = &outputbuffer[MAX_DISPLAY_char];
   long data divisor = 10;
   long data result;
   char data remainder,asciival;
   int  data i;
   
   // If the result of the calculation is zero 
   // insert a zero in the buffer and finish.
   if (!temp)
      {
     *arrayptr = 48;
	    goto done;
	  }
   // Handle Negative Numbers.
   if (temp < 0)
      {
     outputbuffer[0] = '-';
	    temp -= 2*temp;
	  }

   for (i=0 ; i < sizeof(outputbuffer) ; i++)
      {
     remainder = temp % divisor;   
        result = temp / divisor;
	    
		// If we run off the end of the number insert a space into
	    // the buffer.
	    if ((!remainder) && (!result))
 	       {
     *arrayptr = ' ';}
	  
	    // We're in business - store the digit offsetting
	    // by 48 decimal to account for the ascii value.
	    else
	       {
     asciival = remainder + 48;
		     *arrayptr = asciival;
		   } 
 	  
		temp /= 10;
	    // Save a place for a negative sign.
	    if (arrayptr != &outputbuffer[1]) arrayptr--;
	   }
   done: return outputbuffer;
 }


char calc_testkey (char key)
// Test whether the key is a digit or an operator. Return 1 for digit, 0 for op.
 {
     if ((key >= 0x30) && (key <= 0x39))
      {
     return 1;}
   else
      {
     return 0;}
 }

/************************************************************************ ***** I/O Routines ***** ***********************/

char calc_getkey (void)
// Use the input routine from the *Keypad_Read* assembly file to 
// Scan for a key and return ASCII value of the Key pressed.
{
     char data mykey;
  do mykey = input();
     while (mykey == 0);
  return mykey;
 }

void calc_display (char buf[MAX_DISPLAY_char])
// Use the Output and Clearscreen routines from the 
// *LCD_Write* assembly file to output ASCII values to the LCD.
 {
     int data  i = 0;
   clearscreen();
   for (i ; i <= MAX_DISPLAY_char ; i++)
      {
     if (buf[i] != ' ')
	     {
     output(buf[i]); }
	  }	
 }

程序源码和仿真资源

本实验基于Proteus8.12平台。

链接：https://pan.baidu.com/s/1pD4H8_-J7i1dIdmbxD3Tbw 
提取码：rc71

---

不经一番寒彻骨，怎得梅花扑鼻香。--黄蘖禅师《上堂开示颂》