#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int
sbit lcdrw=P3^3;
sbit lcdrs=P3^2;
sbit lcde=P3^4;
sbit d=P2^7;
sbit s1=P2^0;
sbit s2=P2^1;
sbit s3=P2^2;
sbit cs=P3^5;
sbit wr=P3^6;
uchar s1num,a,ys,j;
float fre;
uchar code tosin[256]={
0x80,0x83,0x86,0x89,0x8d,0x90,0x93,0x96,0x99,0x9c,0x9f,0xa2,
0xa5,0xa8,0xab,0xae,0xb1,0xb4,0xb7,0xba,0xbc,0xbf,0xc2,0xc5,
0xc7,0xca,0xcc,0xcf,0xd1,0xd4,0xd6,0xd8,0xda,0xdd,0xdf,0xe1,
0xe3,0xe5,0xe7,0xe9,0xea,0xec,0xee,0xef,0xf1,0xf2,0xf4,0xf5,
0xf6,0xf7,0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfd,0xfe,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,0xfd,
0xfd,0xfc,0xfb,0xfa,0xf9,0xf8,0xf7,0xf6,0xf5,0xf4,0xf2,0xf1,
0xef,0xee,0xec,0xea,0xe9,0xe7,0xe5,0xe3,0xe1,0xde,0xdd,0xda,
0xd8,0xd6,0xd4,0xd1,0xcf,0xcc,0xca,0xc7,0xc5,0xc2,0xbf,0xbc,
0xba,0xb7,0xb4,0xb1,0xae,0xab,0xa8,0xa5,0xa2,0x9f,0x9c,0x99,
0x96,0x93,0x90,0x8d,0x89,0x86,0x83,0x80,0x80,0x7c,0x79,0x76,
0x72,0x6f,0x6c,0x69,0x66,0x63,0x60,0x5d,0x5a,0x57,0x55,0x51,
0x4e,0x4c,0x48,0x45,0x43,0x40,0x3d,0x3a,0x38,0x35,0x33,0x30,
0x2e,0x2b,0x29,0x27,0x25,0x22,0x20,0x1e,0x1c,0x1a,0x18,0x16,
0x15,0x13,0x11,0x10,0x0e,0x0d,0x0b,0x0a,0x09,0x08,0x07,0x06,
0x05,0x04,0x03,0x02,0x02,0x01,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,0x02,0x03,0x04,0x05,
0x06,0x07,0x08,0x09,0x0a,0x0b,0x0d,0x0e,0x10,0x11,0x13,0x15,
0x16,0x18,0x1a,0x1c,0x1e,0x20,0x22,0x25,0x27,0x29,0x2b,0x2e,
0x30,0x33,0x35,0x38,0x3a,0x3d,0x40,0x43,0x45,0x48,0x4c,0x4e,
0x51,0x55,0x57,0x5a,0x5d,0x60,0x63,0x66 ,0x69,0x6c,0x6f,0x72,
0x76,0x79,0x7c,0x80 };/*正弦波码 */
void delay(uint z)                        //延时子程序
{
   uchar i,j;
   for(i=z;i>0;i--)
     for(j=122;j>0;j--);
}
void delay1(uint y)
{
    uint  i,j;
        for(i=10;i>0;i--);
    for(j=y;j>0;j--);
}
void write_com(uchar com)          //1602写指令
{       
    lcdrs=0;
        P1=com;
        delay(5);
        lcde=1;
        delay(5);
        lcde=0;
}
void write_data(float date)                 //1602数据
{       
   
        lcdrs=1;
        P1=date;
        delay(5);
        lcde=1;
        delay(5);
        lcde=0;
}  
void init()                 //初始化
{
    lcdrw=0;
    lcde=0;
    wr=0;
    cs=0;
    write_com(0x38);
    write_com(0x0c);
    write_com(0x06);
    write_com(0x01);
    write_com(0x80+0x00);       
    write_data(0x77);      //写wave:
    write_data(0x61);
    write_data(0x76);
    write_data(0x65);
    write_data(0x3a);
    write_com(0x80+0x40);         //写 f：
    write_data(0x66);
    write_data(0x3a);          
}
void write_f(float date)   //写频率
{
   float date1;
   uchar qian,bai,shi,ge,xiao;
   date1=10*date;
   qian=date1/10000;
   bai=(uint)date1/1000%10;
   shi=(uint)date1/100%10;
   ge=(uint)date1/10%10;
   xiao=(uint)date1%10;
   write_com(0x80+0x42);
   write_data(0x30+qian);
   write_data(0x30+bai);
   write_data(0x30+shi);
   write_data(0x30+ge);
   write_data(0x2e);
   write_data(0x30+xiao);
   write_data(0x48);
   write_data(0x5a);
}
void  xsf()                //显示频率
{
     if(s1num==1)
         {
            fre=((float)1000/(9+30*ys));
            write_f(fre);
         }
         if(s1num==2)
         {
            fre=((float)100000/(30*ys));
            write_f(fre);
         }
         if(s1num==3)
         {
            fre=((float)1000/(15+30*ys));
            write_f(fre);
     }
         if(s1num==4)
         {
            fre=((float)1000/(15+30*ys));
            write_f(fre);
     }
}
void keyscanf()
{
   
    d=0;
        if(s1==0)
        {
            delay(5);
                if(s1==0)                  
                {
                   while(!s1);
                   s1num++;
                   if(s1num==1)
                   {
                        ys=0;
                        write_com(0x80+0x05);       
                write_data(0x73);      //写sine:
                write_data(0x69);
                write_data(0x6e);
                write_data(0x65);
                        write_data(0x20);
                        write_data(0x20);         
                   }  
                   if(s1num==2)
                   {
                        ys=30;
                                write_com(0x80+0x05);       
                write_data(0x73);      //写squrae
                write_data(0x71);
                write_data(0x75);
                write_data(0x61);
                write_data(0x72);
                write_data(0x65);       
                   }            
                  if(s1num==3)
                     {
                        ys=0;
                                 write_com(0x80+0x05);                 //train
                write_data(0x74);      
                write_data(0x72);
                write_data(0x61);
                write_data(0x69);
                        write_data(0x6e);
                        write_data(0x20);
              }
                 if(s1num==4)                         //sawtooh
                {
                       ys=0;
                           write_com(0x80+0x05);
                           write_data(0x73);
                           write_data(0x61);
                           write_data(0x77);
                           write_data(0x74);
                           write_data(0x6f);
                           write_data(0x6f);
                           write_data(0x68);
                 }

                if(s1num==5)
                {
                        s1num=0;
                        P1=0;
                            write_com(0x80+0x05);       
                write_data(0x20);      
                write_data(0x20);
                write_data(0x20);
                write_data(0x20);
                        write_data(0x20);
                        write_data(0x20);             
                                write_com(0x80+0x42);
                        write_data(0x20);      
                write_data(0x20);
                write_data(0x20);
                write_data(0x20);
                         write_data(0x20);
                        write_data(0x20);           


                }
          }
    }
        if(s2==0)
        {  
             delay(5);
                 if(s2==0)
                 {
                     while(!s2);
                         ys++;
                 }
        }
        if(s3==0)
        {  
             delay(5);
                 if(s3==0)
                 {
                     while(!s3);
                         ys--;
                 }
        }
}
void  main()
{
    init();               
        while(1)
        {       
            keyscanf();       
                if(s1num==1)          //正弦波//
                {         
          for(j=0;j<255;j++)
           {
              P0=tosin[j];
              delay1(ys);
                   }
                 }                  
   
                if(s1num==2)          //方波//
                {                                   
                     P0=0xff;
                     delay1(ys);
                     P0=0;       
                     delay1(ys);       
                }
                if(s1num==3)                  //三角波//
                {                         
                      if(a<128)
              {
                              P0=a;
                                  delay1(ys);
                          }                         
              else
              {
                              P0=255-a;
                                  delay1(ys);
                          }                                  
              a++;
                }
                if(s1num==4)          //锯齿波//
                {
                        if(a<255)
                        {
                                P0=a;
                                delay1(ys);
                        }
                        else
                        {
                                a=0;
                        }
                        a++;
                }
                if(!(s1&s2&s3))
                {
                        xsf();
                }
        }       
}