VHDL写的乒乓球游戏，球动不了，求救高手！

chenls

VHDL写的乒乓球游戏，球动不了，求救高手！ [复制链接]

点阵是16行16列的，第0行是用来显示球拍的。球拍从0列到15列每四个连点为表示一个状态，分别为P0到P3。

library IEEE;
use IEEE.STD_Logic_1164.all;
use IEEE.std_logic_unsigned.all;

entity DotMartixDisplay is
        port(       
                        reset:in std_logic;--重置，球拍位置 s0  
                        clk:in std_logic;   --球拍移动的 敏感  信号
                        lbt:in std_logic;   --球拍移动的控制信号，为1时向p3状态(点阵的右边)靠近，反之向p0
                        SClk:Buffer std_Logic;    --SWitch,切换 当前 点阵 显示 内容  的  敏感  信号   
                        CClk:in std_logic;   --球位置计算 敏感信号
                        row:out std_logic_vector(0 to 15);
                        lin:out std_logic_vector(0 to 15)
                        );
end entity;


architecture bhv of DotMartixDisplay is

  
--球拍
type BoardPosition is (p0,p1,p2,p3);--从左到右，每四个点构成一个状态
signal BdPs: BoardPosition;  --球拍的位置信号量

--球

Signal  HisBaPsR: Integer  Range 0 To 15:=0;--历史坐标    初始在最左下脚
Signal  HisBaPsL: Integer  Range 0 To 15:=0;
Signal  CurBaPsR: Integer  Range 0 To 15:=1;--当前坐标    （1，1）位置
Signal  CurBaPsL: Integer  Range 0 To 15:=1;
Signal  NexBaPsR,NexBaPsL: Integer  Range 0 To 15;--下一步坐标
Signal  DisplayBoard:Std_logic:='0'; --现在显示球的位置吗  ？不是则显示  球拍   
Signal  ToNext:Std_Logic:='0';--现在跳  到   下  一步  吗 ？否则 计算下一步  还

Signal WinScore: Integer Range 0 to 9:=0;  --击中球的次数
--Signal LosScore: Integer Range 0 to 9:=0;  --未击中球次数

Constant Tun:integer :=2;  --CClk 对 SClk的倍数
begin
Div_clk:    --使用分频器获得点阵上对输出 球拍/球 状态切换的敏感信号  。默认是Tun-1(1倍)，即在第一次CCLK时计算下一个移动点，下一个CCLK时进行移动
        Process(CCLk)
                variable cnt:integer range 0 to 2048:=0;
                begin
                        if rising_edge(CClk) then
                                if (cnt                                         SClk<='1';
                                        cnt:=cnt+1;
                                elsif (cnt                                         SClk<='0';
                                        cnt:=cnt+1;
                                else
                                        cnt:=0;
                                end if;
                        end if;
        end Process;

ButtonDown:--按下球拍 控制键
        process(clk,reset)
        begin
        if reset='1' then         BdPs<=p0;--球拍的初始位置
        elsif rising_edge(clk) then --上升沿
                if lbt='1' then
                        if BdPs=p1 then BdPs <=p0;
                        elsif BdPs=p2 then BdPs <=p1;
                        elsif BdPs=p3 then BdPs <=p2;
                        end if ;
                else
                        if BdPs=p2 then BdPs <=p3;
                        elsif BdPs=p1 then BdPs <=p2;
                        elsif BdPs=p0 then BdPs <=p1;
                        end if ;
                end if;       
        end if;
        end Process;


ShowB:
        process(SClk)
        begin
        if rising_edge(SClk) then
                if DisplayBoard='1' then --显示球拍位置
                        case BdPs is
                                when p0 =>      
                                        row <="0111111111111111";
                                        lin <="1111000000000000";
                                when p1 =>
                                        row <="0111111111111111";
                                        lin <="0000111100000000";
                                when p2 =>
                                        row <="0111111111111111";
                                        lin <="0000000011110000";
                                when p3 =>
                                        row <="0111111111111111";
                                        lin <="0000000000001111";
                        end case;
                        DisplayBoard<='0';
                else --显示球的位置   
                        case CurBaPsR is --设置行信息
                                when 1 =>
                                        row<="1011111111111111";
                                when(...省略，针对CurBaPsR的其他15种可能取值控制点阵的行电平高低）   
                        end case;
                        case CurBaPsL is
                                when 0 =>
                                        lin<="1000000000000000";
                                when(...省略，针对CurBaPsL的其他15种可能取值控制点阵的列电平高低）   

                        end case;
                        DisPlayBoard<='1';
                end if;
                end if;
                end process;
       
NexBaPs:--计算球的位置
process(CClk)  --问题代码可能就这段，球在（0，0）位置不动，不移动到下一个点
        begin
if rising_edge(CClk) then
        if ToNext='0' then --上升沿 ，计算下一个位置
                if CurBaPsL=0 or CurBaPsL =15 then --碰到左右两边 的 墙壁
                        NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
                        NexBaPsL <=HisBaPsL;
                elsif CurBaPsR=15 then   --碰 到 顶端 的 墙壁
                        NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
                        NexBaPsR <=HisBaPsR;
                elsif CurBaPsR =0 then ---到达低端
                        if (
                                (CurBaPsL<4 and BdPs=p0) or
                                (CurBaPsL>3 and CurBaPsL<8 and BdPs=p1) or
                                (CurBaPsL>7 and CurBaPsL<12 and BdPs=p2) or
                                (CurBaPsL>11 and CurBaPsL<16 and BdPs=p3) ) then ---球拍击中球 了
                                 ---(显示加分 )
                       
                                ---计算下一个 位置
                                NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
                                NexBaPsL <=CurBaPsL+(CurBaPsL-HisBaPsL);
                --        else
                            --显示丢分
                         --设置丢分信息  CurBalL被 设定值 为 16   
                       
                        end if;
                else  --在平常 运动范围 内
                        NexBaPsR <= CurBaPsR+(CurBaPsR-HisBaPsR);
                --        NexBaPsR<=3;  没用  
                        NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
                end if ;
                ToNext<='1';
        else
                        HisBaPsL <=CurBaPsL;
        --                NexBaPsL <=NexBaPsL+1;     不工作
                        HisBaPsR <=CurBaPsR;
                        CurBaPsL <=NexBaPsL;
                        CurBaPsR <=NexBaPsR;
                ToNext<='0';
        end if ;
end if ;
end process;
end architecture bhv;

Abrolex

我晕，看不懂

hyforwin

其实并不复杂，可能是缩进上的问题，代码读起来....-_-! 再试次...

1. library IEEE;
   
2. use IEEE.STD_Logic_1164.all;
   
3. use IEEE.std_logic_unsigned.all;
   
4. 
   
5. entity DotMartixDisplay is
   
6. port(
   
7. reset:in std_logic;--重置，球拍位置 s0  
   
8. clk:in std_logic;  --球拍移动的 敏感  信号
   
9. lbt:in std_logic;  --球拍移动的控制信号，为1时向p3状态(点阵的右边)靠近，反之向p0
   
10. SClk:Buffer std_Logic;    --SWitch,切换 当前 点阵 显示 内容  的  敏感  信号  
    
11. CClk:in std_logic;  --球位置计算 敏感信号
    
12. row:out std_logic_vector(0 to 15);
    
13. lin:out std_logic_vector(0 to 15)
    
14. );
    
15. end entity;
    
16. 
    
17. 
    
18. architecture bhv of DotMartixDisplay is
    
19. 
    
20.   
    
21. --球拍
    
22. type BoardPosition is (p0,p1,p2,p3);--从左到右，每四个点构成一个状态
    
23. signal BdPs: BoardPosition;  --球拍的位置信号量
    
24. 
    
25. --球
    
26. 
    
27. Signal  HisBaPsR: Integer  Range 0 To 15:=0;--历史坐标    初始在最左下脚
    
28. Signal  HisBaPsL: Integer  Range 0 To 15:=0;
    
29. Signal  CurBaPsR: Integer  Range 0 To 15:=1;--当前坐标    （1，1）位置
    
30. Signal  CurBaPsL: Integer  Range 0 To 15:=1;
    
31. Signal  NexBaPsR,NexBaPsL: Integer  Range 0 To 15;--下一步坐标
    
32. Signal  DisplayBoard:Std_logic:='0'; --现在显示球的位置吗  ？不是则显示  球拍  
    
33. Signal  ToNext:Std_Logic:='0';--现在跳  到  下  一步  吗 ？否则 计算下一步  还
    
34. 
    
35. Signal WinScore: Integer Range 0 to 9:=0;  --击中球的次数
    
36. --Signal LosScore: Integer Range 0 to 9:=0;  --未击中球次数
    
37. 
    
38. Constant Tun:integer :=2;  --CClk 对 SClk的倍数
    
39. begin
    
40. Div_clk:    --使用分频器获得点阵上对输出 球拍/球 状态切换的敏感信号  。默认是Tun-1(1倍)，即在第一次CCLK时计算下一个移动点，下一个CCLK时进行移动
    
41. Process(CCLk)
    
42.   variable cnt:integer range 0 to 2048:=0;
    
43.    begin
    
44.        if rising_edge(CClk) then
    
45.          if (cnt
46.             SClk <='1';
    
47.             cnt:=cnt+1;
    
48.           elsif (cnt
49.             SClk <='0';
    
50.             cnt:=cnt+1;
    
51.           else
    
52.             cnt:=0;
    
53.          end if;
    
54.        end if;
    
55. end Process;
    
56. 
    
57. ButtonDown:--按下球拍 控制键
    
58. process(clk,reset)
    
59. begin
    
60.        if reset='1' then BdPs <=p0;--球拍的初始位置
    
61.           elsif rising_edge(clk) then --上升沿
    
62.                  if lbt='1' then
    
63.                   if BdPs=p1 then BdPs <=p0;
    
64.                    elsif BdPs=p2 then BdPs <=p1;
    
65.                    elsif BdPs=p3 then BdPs <=p2;
    
66.                   end if ;
    
67.                else
    
68.                   if BdPs=p2 then BdPs <=p3;
    
69.                     elsif BdPs=p1 then BdPs <=p2;
    
70.                     elsif BdPs=p0 then BdPs <=p1;
    
71.                   end if ;
    
72.                end if;
    
73.       end if;
    
74. end Process;
    
75. 
    
76. 
    
77. ShowB:
    
78. process(SClk)
    
79. begin
    
80. if rising_edge(SClk) then
    
81.   if DisplayBoard='1' then --显示球拍位置
    
82.        case BdPs is
    
83.              when p0 =>      
    
84.                     row <="0111111111111111";
    
85.                     lin <="1111000000000000";
    
86.              when p1 =>
    
87.                     row <="0111111111111111";
    
88.                     lin <="0000111100000000";
    
89.              when p2 =>
    
90.                     row <="0111111111111111";
    
91.                     lin <="0000000011110000";
    
92.              when p3 =>
    
93.                     row <="0111111111111111";
    
94.                     lin <="0000000000001111";
    
95.       end case;
    
96.       DisplayBoard <='0';
    
97.    else --显示球的位置  
    
98.            case CurBaPsR is --设置行信息
    
99.                   when 1 =>
    
100.                       row <="1011111111111111";
     
101.                 when(...省略，针对CurBaPsR的其他15种可能取值控制点阵的行电平高低）  
     
102.            end case;
     
103.           case CurBaPsL is
     
104.                when 0 =>
     
105.                       lin <="1000000000000000";
     
106.                 when(...省略，针对CurBaPsL的其他15种可能取值控制点阵的列电平高低）  
     
107. 
     
108.            end case;
     
109.         DisPlayBoard <='1';
     
110.      end if;
     
111. end if;
     
112. end process;
     
113. 
     
114. NexBaPs:--计算球的位置
     
115. [color=#FF0000] process(CClk)[/color]  --问题代码可能就这段，球在（0，0）位置不动，不移动到下一个点
     
116.     begin
     
117.        if rising_edge(CClk) then
     
118.           if ToNext='0' then --上升沿 ，计算下一个位置
     
119.                if CurBaPsL=0 or CurBaPsL =15 then --碰到左右两边 的 墙壁
     
120.                    NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
     
121.                  NexBaPsL <=HisBaPsL;
     
122.             elsif CurBaPsR=15 then  --碰 到 顶端 的 墙壁
     
123.                     NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
     
124.                  NexBaPsR <=HisBaPsR;
     
125.             elsif CurBaPsR =0 then ---到达低端
     
126.                  if (
     
127.                     (CurBaPsL <4 and BdPs=p0) or
     
128.                     (CurBaPsL>3 and CurBaPsL <8 and BdPs=p1) or
     
129.                     (CurBaPsL>7 and CurBaPsL <12 and BdPs=p2) or
     
130.                     (CurBaPsL>11 and CurBaPsL <16 and BdPs=p3) ) then ---球拍击中球 了
     
131.                               ---计算下一个 位置
     
132.                                   NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
     
133.                               NexBaPsL <=CurBaPsL+(CurBaPsL-HisBaPsL);
     
134.                end if;
     
135.             else  --在平常 运动范围 内
     
136.                     NexBaPsR <= CurBaPsR+(CurBaPsR-HisBaPsR);
     
137.                  NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
     
138.             end if ;
     
139.             ToNext <='1';
     
140.       else
     
141.                 HisBaPsL <=CurBaPsL;
     
142.                 HisBaPsR <=CurBaPsR;
     
143.                 CurBaPsL <=NexBaPsL;
     
144.                 CurBaPsR <=NexBaPsR;
     
145.                 ToNext <='0';
     
146.       end if ;
     
147.     end if ;
     
148. end process;
     
149. end architecture bhv;
     

复制代码

casper

没人知道怎么解决吗？今天上午去实验室查错了，想了改改了想，回过头--还是在那不动～～

ningwenguo

关注

losty

NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
这两句话是不是错了？
NexBaPsR <=CurBaPsR+(HisBaPsR-CurBaPsR);
NexBaPsL <= CurBaPsL+(HisBaPsL-CurBaPsL);

henyhui

是计算上吗？应该是没有哦，是求一个二等分向量的第三个点。
历史H=(0,0),当前C=(1,1),则下一个点N=(2,2)
   h*--->C*--->H*

w2008r

uping

chuanshuo898

谢～
正在实验室，刚将（显示与计算下一个位置）和 更新位置信息 放到同一个进程中了。但结果还是一样--球在(0,0)处不动。
是算法问题？可看上去没有啊～～

ttyugg

我说的是碰壁的时候的那个计算，不是正常时候的
if CurBaPsL=0 or CurBaPsL =15
和
CurBaPsR=15 then
的时候的计算我认为不太对

linlaser

if CurBaPsL=0 or CurBaPsL =15 then --碰到左右两边 的 墙壁
   NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
   NexBaPsL <=HisBaPsL;
elsif CurBaPsR=15 then  --碰 到 顶端 的 墙壁
   NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
   NexBaPsR <=HisBaPsR;
else....
这段应该是没问题的，以从左到右撞击顶端为例：
^
|
|  ------*C(7,15)--------
|  -----/        \-------
|  ---*H(6,14)--*N(8,14)-
R/L——————————————————————>
上述判断是符合实际情况的.

edwinzhu

mark

monica150373637

关注

ljsvws

按你写的逻辑
h(0,1) C(0,0) -> N(0,-1)
h(1,0) C(0,0) -> n(0,0)
h(1,1) C(0,0) -> n(0,-1)

123654

写错了
h(1,0) c(0,0) -> n(1,0)
h(0,1) c(0,0) -> n(0,-1)  since n is range 0-15 == n(0,0)
h(1,1) c(0,0) -> n(1,-1) since n is range 0-15 == n(1,0)

mondayfriday

代码不好，最后一个进程是双沿都作用吗？为什么不写成只是上升沿作用呢？

mood8888

benjaminweber说的，
1.(0,1) 是接触到点阵的最左边，那预想的下一个点是(1,1)或(1,0)--从左弹到右边或是从右弹到左边,不会出现  h(0,1)&&C(0,0) 的情况
2.(1,0) 时则下一个坐标点是(0,1)或(2,1)，也会出现 h(1,0)&&C(0,0)情况
3.球以(0,0)为历史点(1,1)为最开始起点时运动，是可以运动到(1,1)的，这时它的下一个坐标可以是(0,0),按照算法来看...
-_-!,当然，球拍可能不在p0位置是吗？(joke)但愿...
  的确没考虑到这点，修改中...

天天

benjaminweber说的，
1.(0,1) 是接触到点阵的最左边，那预想的下一个点是(1,1)或(1,0)--从左弹到右边或是从右弹到左边,不会出现  h(0,1)&&C(0,0) 的情况
2.(1,0) 时则下一个坐标点是(0,1)或(2,1)，也不会出现 h(1,0)&&C(0,0)情况
3.球以(0,0)为历史点(1,1)为最开始起点时运动，是可以运动到(1,1)的，这时它的下一个坐标可以是(0,0),按照算法来看...
-_-!,当然，球拍可能不在p0位置是吗？(joke)但愿...
  的确没考虑到这点，修改中...

hezongquan

你没考虑CurBaP在四个角的情况吧？？？   （0，0）（0，15）（15，0）（15，15）



NexBaPs:--计算球的位置
process(CClk)  --问题代码可能就这段，球在（0，0）位置不动，不移动到下一个点
    begin
       if rising_edge(CClk) then
               if ToNext='0' then --上升沿 ，计算下一个位置
                       if CurBaPsR=0 and CurBaPsL=0 then
                               if HisBaPsR=1 and CurBaPsL=1 then
                                       CurBaPsR<=1;
                                       CurBaPsL<=1;
                               end if;
                       elsif CurBaPsR=0 and CurBaPsL=15 then
                               if HisBaPsR=1 and CurBaPsL=14 then
                                       CurBaPsR<=1;
                                       CurBaPsL<=14;
                               end if;              
                       elsif CurBaPsR=15 and CurBaPsL=0 then
                               if HisBaPsR=14 and CurBaPsL=1 then
                                       CurBaPsR<=14;
                                       CurBaPsL<=1;
                               end if;              
                       elsif CurBaPsR=15 and CurBaPsL=15 then
                               if HisBaPsR=14 and CurBaPsL=14 then
                                       CurBaPsR<=14;
                                       CurBaPsL<=14;
                               end if;  
                       elsif CurBaPsL=0 or CurBaPsL =15 then --碰到左右两边 的 墙壁
                               NexBaPsR<=CurBaPsR+CurBaPsR+(CurBaPsR-HisBaPsR);
                               NexBaPsL <=HisBaPsL;
                       elsif CurBaPsR=15 then
                               NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);   
                               NexBaPsR <=HisBaPsR;           
                       elsif CurBaPsR =0 then ---到达低端
                               if ((CurBaPsL <4 and BdPs=p0) or
                                   (CurBaPsL>3 and CurBaPsL <8 and BdPs=p1) or
                                   (CurBaPsL>7 and CurBaPsL <12 and BdPs=p2) or
                                   (CurBaPsL>11 and CurBaPsL <16 and BdPs=p3) ) then ---球拍击中球 了 ---计算下一个 位置
                                   NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
                                   NexBaPsL <=CurBaPsL+(CurBaPsL-HisBaPsL);
                               end if;
                       else  --在平常 运动范围 内
                               NexBaPsR <= CurBaPsR+(CurBaPsR-HisBaPsR);
                               NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
                       end if;
                       ToNext<='1';
               else
                       HisBaPsL <=CurBaPsL;
                       HisBaPsR <=CurBaPsR;
                       CurBaPsL <=NexBaPsL;
                       CurBaPsR <=NexBaPsR;
                       ToNext <='0';
               end if;
      end if;
end process;

mingdi

[code]
NexBaPs:--计算球的位置
process(CClk)  --问题代码可能就这段，球在（0，0）位置不动，不移动到下一个点
    begin
       if rising_edge(CClk) then
               if ToNext='0' then --上升沿 ，计算下一个位置
                       if CurBaPsR=0 and CurBaPsL=0 then
                               if HisBaPsR=1 and CurBaPsL=1 then
                                       CurBaPsR<=1;
                                       CurBaPsL<=1;
                               end if;
                       elsif CurBaPsR=0 and CurBaPsL=15 then
                               if HisBaPsR=1 and CurBaPsL=14 then
                                       CurBaPsR<=1;
                                       CurBaPsL<=14;
                               end if;              
                       elsif CurBaPsR=15 and CurBaPsL=0 then
                               if HisBaPsR=14 and CurBaPsL=1 then
                                       CurBaPsR<=14;
                                       CurBaPsL<=1;
                               end if;              
                       elsif CurBaPsR=15 and CurBaPsL=15 then
                               if HisBaPsR=14 and CurBaPsL=14 then
                                       CurBaPsR<=14;
                                       CurBaPsL<=14;
                               end if;  
                       elsif CurBaPsL=0 or CurBaPsL =15 then --碰到左右两边 的 墙壁
                               NexBaPsR<=CurBaPsR+CurBaPsR+(CurBaPsR-HisBaPsR);
                               NexBaPsL <=HisBaPsL;
                       elsif CurBaPsR=15 then
                               NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);   
                               NexBaPsR <=HisBaPsR;           
                       elsif CurBaPsR =0 then ---到达低端
                               if ((CurBaPsL <4 and BdPs=p0) or
                                   (CurBaPsL>3 and CurBaPsL <8 and BdPs=p1) or
                                   (CurBaPsL>7 and CurBaPsL <12 and BdPs=p2) or
                                   (CurBaPsL>11 and CurBaPsL <16 and BdPs=p3) ) then ---球拍击中球 了 ---计算下一个 位置
                                   NexBaPsR <=CurBaPsR+(CurBaPsR-HisBaPsR);
                                   NexBaPsL <=CurBaPsL+(CurBaPsL-HisBaPsL);
                               end if;
                       else  --在平常 运动范围 内
                               NexBaPsR <= CurBaPsR+(CurBaPsR-HisBaPsR);
                               NexBaPsL <= CurBaPsL+(CurBaPsL-HisBaPsL);
                       end if;
                       ToNext<='1';
               else
                       HisBaPsL <=CurBaPsL;
                       HisBaPsR <=CurBaPsR;
                       CurBaPsL <=NexBaPsL;
                       CurBaPsR <=NexBaPsR;
                       ToNext <='0';
               end if;
      end if;
end process;