找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 2526|回復: 0
收起左側

八路搶答器proteus+程序

[復制鏈接]
ID:342500 發(fā)表于 2019-12-29 10:30 | 顯示全部樓層 |閱讀模式
八路搶答器
SG8YC~GLVZ%_RJ[_}SD75G9.png

單片機源程序如下:
  1. #include<reg51.h>
  2. sbit key0=P3^0;           //對每個按鍵的定義
  3. sbit key1=P3^1;
  4. sbit key2=P3^2;
  5. sbit key3=P3^3;
  6. sbit key4=P3^4;
  7. sbit key5=P3^5;
  8. sbit key6=P3^6;
  9. sbit key7=P3^7;
  10. unsigned int num;
  11. //unsigned char code led[]={~0x3F,~0x06,~0x5B,~0x4F,~0x66,~0x6D,~0x7D,~0x07,~0x7F};
  12. void delay(int x);        //延時函數(shù)聲明
  13. void keys(); //按鍵函數(shù)聲明



  17. void main()         //主函數(shù)
  18. {
  19.         P2 = 0X00;
  20.         while(1)
  21.         {
  22.                 //P2=0x7e;

  24.                 keys();
  25.         }
  26.        
  27. //        P1=1;
  28. //        unsigned int num1;
  29. //        num=0;
  30. //        P1=led[num];
  31. //        for(num1=0;num1<1;num++)
  32. //        {

  34. //                P1=led[num];
  35. //                num++;
  36. //                delay(600);
  37. //        }       
  38. }



  42. /*按鍵函數(shù)*/
  43. void keys()
  44. {
  45.         if(key0==0)
  46.         {
  47. //                num=1;
  48.                 while(1)
  49.                 {
  50. //                        num=1;
  51.                          P2=0x30;
  52.                         delay(500);
  53.                 }
  54.         }
  55.         if(key1==0)
  56.         {
  57. //                num=2;
  58.                         P2=0x6d;
  59.                 //P2 = 0xdb;
  60.                         while(1)
  61.                 {
  62.                         num=1;
  63.                         delay(500);
  64.                 }
  65.         }
  66.         if(key2==0)
  67. //                num=3;
  68.         {
  69. //                num=2;
  70.                         P2=0x79;
  71.                         while(1)
  72.                 {
  73.                         num=1;
  74.                         delay(500);
  75.                 }
  76.         }
  77.         if(key3==0)
  78. //                num=4;
  79.         {
  80. //                num=2;
  81.                         P2=0x33;
  82.                         while(1)
  83.                 {
  84.                         num=1;
  85.                         delay(500);
  86.                 }
  87.         }
  88.         if(key4==0)
  89. //                num=5;
  90.         {
  91. //                num=2;
  92.                         P2=0x5b;
  93.                         while(1)
  94.                 {
  95.                         num=1;
  96.                         delay(500);
  97.                 }
  98.         }
  99.         if(key5==0)
  100. //                num=6;
  101.         {
  102. //                num=2;
  103.                         P2=0x5f;
  104.                         while(1)
  105.                 {
  106.                         num=1;
  107.                         delay(500);
  108.                 }
  109.         }
  110.         if(key6==0)
  111. //                num=7;
  112.         {
  113. //                num=2;
  114.                         P2=0x70;
  115.                         while(1)
  116.                 {
  117.                         num=1;
  118.                         delay(500);
  119.                 }
  120.         }
  121.         if(key7==0)
  122. //                num=8;
  123.         {
  124. //                num=2;
  125.                         P2=0x7f;
  126.                         while(1)
  127.                 {
  128.                         num=1;
  129.                         delay(500);
  130.                 }
  131.         }       
  132. }
  133. /*延時函數(shù)*/
  134. void delay(int x)
  135. {
  136.         int y;
  137.         for(x;x>0;x--)
  138.                 for(y=200;y>0;y--);
  139. }
復制代碼

所有資料51hei提供下載:
八路搶答器.rar (113.23 KB, 下載次數(shù): 17)

回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復 返回頂部 返回列表