您的位置:控制工程论坛网论坛 » 人机界面 » 单片机双机异步通信

cqs0088

cqs0088   |   当前状态:在线

总积分:-390  2024年可用积分:0

注册时间: 2008-07-12

最后登录时间: 2012-05-30

空间 发短消息加为好友

单片机双机异步通信

cqs0088  发表于 2008/9/15 23:03:47      1070 查看 1 回复  [上一主题]  [下一主题]

手机阅读

单片机双机异步通信

单片机双机异步通信

1  单片机PIC1编程(发送部分)

#include  <pic.h>

/*该程序实现单片机双机异步通信功能,该程序是发送部分*/

unsigned  char tran[8];        /*定义一个数组存储发送数据*/

unsigned  char k,data;       /*定义通用寄存器*/

const  char    table[20]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0XD8,0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e,0x7f,0xbf,0x89,0xff};

/*不带小数点的显示段码表*/

/*spi显示初始化子程序*/

void        SPIINIT()

{

       PIR1=0;

       SSPCON=0x30;  

       SSPSTAT=0xC0;

/*设置SPI的控制方式,允许SSP方式,并且时钟下降沿发送,与"74HC595,当其

*SCLK从低到高跳变时,串行输入寄存器"的特点相对应*/

       TRISC=0xD7;                   /*SDO引脚为输出,SCK引脚为输出*/

       TRISA5=0;                       /*RA5引脚设置为输出,以输出显示锁存信号*/

}

/*给数组赋初值子程序 */

void        fuzhi()

{

       for(k=0;k<8;k++)     {

              tran[k]=k+3;

       }

}

/*SCI部件初始化子程序*/

void        sciint()

{

       SPBRG=0X19;                  /*将传输的波特率设为约9 600位/秒*/

       TXSTA=0X04;                  /*选择异步高速方式传输8位数据*/

       RCSTA=0X80;                  /*允许同步串行口工作*/

       TRISC6=1;

       TRISC7=1;                       /*将RC6、RC7设置为输入方式,对外部呈高阻状态*/

}    

/*SPI传输数据子程序*/

void       SPILED(data)

{

       SSPBUF=data;                   /*启动发送*/

       do    {

                    ;

       }while(SSPIF==0);

       SSPIF=0;

}

/*显示子程序,显示8位数*/

void        display()

{

       RA5=0;                             /*准备锁存*/

       for(k=0;k<8;k++)     {

              data=tran[k];

              data=table[data];         /*查得显示的段码*/

              SPILED(data);            /*发送显示段码*/

       }

       RA5=1;                             /*最后给一个锁存信号,代表显示任务完成*/        

}                  

/*主程序*/

main()

{

       SPIINIT();

       fuzhi();                             /*给数组赋初值*/

       sciint();                             /*SCI部件初始化*/

       di();                                  /*中断禁止*/

       TXEN=1;                          /*发送允许*/

       CREN=1;                          /*接收数据允许*/

     for(k=0;k<8;k++){  

              TXREG=tran[k];        /*发出一个字符*/

            while(1){

                     if(TXIF==1) break;

       }                                 /*等待写入完成*/

while(1){

                     if(RCIF==1)   break;/*若收到响应字节,则终止等待*/

              }

              RCREG=RCREG;       /*读响应字节,清RCIF*/    

     }    

       display();                          /*显示发送的数据*/

while(1){

       ;

       }

}



2  单片机PIC2编程(接收部分)

#include  <pic.h>

/*该程序实现单片机双机异步通信功能,该程序是接收部分,并把接收的数据显示在8

*个LED上*/

unsigned    char           rece[8];/*定义一个数组存储接收数据*/

unsigned    char       k,data;/*定义通用寄存器*/

const        char           table[20]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0XD8,0x80,0x90,0x88,0x83,0xc6,0xa1,0x86,0x8e,0x7f,0xbf,0x89,0xff};

/*不带小数点的显示段码表*/

/*spi显示初始化子程序*/

void        SPIINIT()

{

;详细语句见发送程序

}

/*SCI部件初始化子程序*/

void        sciint()

{

       SPBRG=0X19;                  /*波特率设置与PIC1相同,为约9 600位/秒*/

       TXSTA=0X04;                  /*异步高速传输*/

       RCSTA=0X80;                  /*串行口工作使能*/

       TRISC6=1;

       TRISC7=1;                       /*将RC6、RC7设置为输入方式,对外部呈高阻状态*/

}

/*SPI传送数据子程序*/

void       SPILED(data)

{

;详细语句与见发送程序

}

/*显示子程序,显示4位数*/

void display()

{

       RA5=0;                             /*准备锁存*/

       for(k=0;k<8;k++){

              data=rece[k];

              data=table[data];         /*查得显示的段码*/

              SPILED(data);            /*发送显示段码*/

       }

       RA5=1;                             /*最后给一个锁存信号,代表显示任务完成*/      

}

/*主程序*/

main()

{

       SPIINIT();                        /*spi显示初始化*/

       sciint();                             /*SCI部件初始化*/

       di();                                  /*中断禁止*/

       CREN=1;                          /*接收允许*/

       TXEN=1;                          /*发送允许*/

for(k=0;k<8;k++){

while(1){

                     if(RCIF==1)   break;

}                                 /*等待接收数据*/

              rece[k]=RCREG;        /*读取接收数据,同时清掉RCIF*/

              TXREG=rece[k];        /*发送接收到的数据*/

while(1){

                     if(TXIF==1)   break;

}                                 /*等待写入完成*/

}

       display();                          /*显示接收的数据*/

while(1){

              ;

       }

}


1楼 0 0 回复
  • 匿名

    匿名   |   当前状态:离线

    总积分:0  2024年可用积分:0

    注册时间: 0001-01-01

    最后登录时间: 0001-01-01

    空间 发短消息加为好友

    匿名   发表于 2008/9/15 23:03:47

    试验方法系先将线径 2.0mm 之钢线裁切成长 200mm 之试件,线径 2.3mm 之钢线裁切成长 230mm 之试件,先经扭转试验机扭转至预设定之圈数后,再将试件移至拉伸试验机进行拉伸试验,过程中利用计算机系统控制其拉伸速率,并记录拉伸过程的应力及变形数据,最后将计算机系统所记录之拉伸试验文字数据数据利用 Excel 软体转为曲线图形方便进一步分析。
    2楼 回复本楼

    引用 匿名 2008/9/15 23:03:47 发表于2楼的内容

总共 , 当前 /