找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 3030|回復(fù): 1
打印 上一主題 下一主題
收起左側(cè)

Proteus仿真單片機(jī)貪食蛇改造成鍵盤控制，大家再也不用鼠標(biāo)來點(diǎn)了

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
這個(gè)貪食蛇是在本論壇下載的，以前是按鍵控制的，但proteus沒辦法給按鍵做快捷鍵，于是我就改造了一下。
現(xiàn)在是用串口來控制 ，這樣可以用電腦的鍵盤來玩了，大寫的WSAD鍵表示上下左右


仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  1. //proteus仿真論壇:proteus.5d6d.com
  2. #include <STC15.h>
  3. #define uchar unsigned char
  4. #define SNAKE 20                 //最大長度
  5. #define TIME 50                 //顯示延時(shí)時(shí)間
  6. #define SPEED 100               //速度控制
  7. uchar x[SNAKE+1];
  8. uchar y[SNAKE+1];         
  9. uchar time,n,i,e;              //延時(shí)時(shí)間，當(dāng)前蛇長，通用循環(huán)變量，當(dāng)前速度               
  10. char addx,addy;                //位移偏移量
  11. /********************
  12. 延時(shí)程序
  13. *********************/
  14. void delay(char MS)
  15. {
  16. char us,usn;
  17. while(MS!=0)
  18. {
  19. usn = 0;
  20. while(usn!=0)
  21. {
  22. us=0xff;
  23. while (us!=0){us--;};
  24. usn--;
  25. }
  26. MS--;
  27. }
  28. }
  29. /*******************************************
  30. 判斷碰撞
  31. *******************************************/
  32. bit knock()
  33. {bit k;
  34. k=0;
  35. if(x[1]>7||y[1]>7)k=1;                             //撞墻
  36. for(i=2;i<n;i++)if((x[1]==x[i])&(y[1]==y[i]))k=1;  //撞自己
  37. return k;
  38. }
  39. /*****************
  40. 上下左右鍵位處理
  41. *****************/
  42. void turnkey()// interrupt 0 using 2  
  43. {//up=1;
  44. if(RI)
  45. {
  46. RI=0;
  47. P0=SBUF;
  48. if(SBUF=='A'){addy=0;if(addx!=1)addx=-1; else addx=1;}
  49. if(SBUF=='D'){addy=0;if(addx!=-1)addx=1; else addx=-1;}
  50. if(SBUF=='S'){addx=0;if(addy!=-1)addy=1; else addy=-1;}
  51. if(SBUF=='W'){addx=0;if(addy!=1)addy=-1; else addy=1;}
  52. }
  53. }
  54. /*****************
  55. 乘方程序
  56. *****************/
  57. uchar mux(uchar temp)
  58. {
  59. if(temp==7)return 128;
  60. if(temp==6)return 64;
  61. if(temp==5)return 32;
  62. if(temp==4)return 16;
  63. if(temp==3)return 8;
  64. if(temp==2)return 4;
  65. if(temp==1)return 2;
  66. if(temp==0)return 1;
  67. return 0;
  68. }
  69. /*****************
  70. 顯示時(shí)鐘 顯示程序
  71. *****************/
  72. void timer0(uchar k)
  73. {while(k--)
  74. {for(i=0;i<SNAKE+1;i++)
  75. {P2=mux(x[i]);P1=255-mux(y[i]);
  76. turnkey();                     //上下左右鍵位處理
  77. delay(TIME);                   //顯示延遲
  78. P2=0x00;P1=0xff;
  79. }}
  80. }
  81. /*****************
  82. 主程序
  83. *****************/
  84. void UartInit(void)                //57600bps@11.0592MHz
  85. {
  86.         SCON = 0x50;                //8位數(shù)據(jù),可變波特率
  87.         AUXR |= 0x40;                //定時(shí)器1時(shí)鐘為Fosc,即1T
  88.         AUXR &= 0xFE;                //串口1選擇定時(shí)器1為波特率發(fā)生器
  89.         TMOD &= 0x0F;                //設(shè)定定時(shí)器1為16位自動(dòng)重裝方式
  90.         TL1 = 0xD0;                //設(shè)定定時(shí)初值
  91.         TH1 = 0xFF;                //設(shè)定定時(shí)初值
  92.         ET1 = 0;                //禁止定時(shí)器1中斷
  93.         TR1 = 1;                //啟動(dòng)定時(shí)器1
  94.         REN = 1;
  95. }

  97. void main(void)
  98. {e=SPEED;
  99. P0=0xFF;
  100. P1=0xFF;
  101. P2=0x00;
  102. P3=0xFF;
  103. UartInit();
  104. while(1)      
  105. {//if(keyenable==1){P1=0x00;P2=0xff;}else{P1=0xff;P2=0x00;}
  106. for(i=3;i<SNAKE+1;i++)x[i]=100;for(i=3;i<SNAKE+1;i++)y[i]=100;//初始化
  107. x[0]=4;y[0]=4;                                                //果子                           
  108. n=3;                                                          //蛇長 n=-1
  109. x[1]=1;y[1]=0;                                                //蛇頭
  110. x[2]=0;y[2]=0;                                                //蛇尾1
  111. addx=0;addy=0;                                                //位移偏移
  112. //k=1;
  113. while(1)         
  114.   {timer0(e);
  115.    if(knock()){e=SPEED;break;}                          //判斷碰撞
  116. ……………………

  118. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼
所有資料51hei提供下載:
8x8點(diǎn)陣 貪吃蛇 串口控制.zip (15.21 KB, 下載次數(shù): 25)


評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:605142 發(fā)表于 2021-2-3 19:29 | 只看該作者
回復(fù)

使用道具 舉報(bào)

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

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

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

快速回復(fù) 返回頂部 返回列表