矩阵键盘+ 数码管 Verilog

求助用FPGA实现矩阵键盘的数码管显示，代码不知道哪里还有问题，就是不能正常显示键值，感觉显示都是乱码

1. module key4x4(kbrow,seg7_out,scan,clk,rst,kbcol);
   
2. 
   
3. output[6:0] seg7_out;//7段显示控制信号（a,b,c,d,e,f,g）
   
4. 
   
5. output[2:0] scan; //数码管段地址选择
   
6. 
   
7. output[3:0] kbrow; //列扫描信号
   
8. 
   
9. input rst; //复位信号
   
10. 
    
11. input[3:0] kbcol; //行扫描信号
    
12. 
    
13. input clk; //信号
    
14. 
    
15. reg[6:0] seg7_out;
    
16. 
    
17. reg[2:0] scan;
    
18. 
    
19. reg[3:0] kbrow;
    
20. 
    
21. reg[1:0] count;
    
22. 
    
23. reg[1:0] sta;
    
24. 
    
25. reg[6:0] seg7;
    
26. 
    
27. reg[4:0] dat;
    
28. 
    
29. reg fn; //按键按下 标志位 ，判断是否有按键按下
    
30. 
    
31. initial scan<=3'b010; //只使用一个数码管显示
    
32. 
    
33. always @(posedge clk)
    
34. 
    
35. begin
    
36. 
    
37. if(!rst)
    
38. 
    
39. begin dat<=5'b10000;end//全灭
    
40. 
    
41. else
    
42. 
    
43. begin
    
44. 
    
45. count<=count+1'b1; //循环扫描列 ，列扫描
    
46. 
    
47. case(count)
    
48. 
    
49. 2'b00: begin kbrow<=4'b1110;sta<=2'b00;end
    
50. 
    
51. 2'b01: begin kbrow<=4'b1101;sta<=2'b01;end
    
52. 
    
53. 2'b10: begin kbrow<=4'b1011;sta<=2'b10;end
    
54. 
    
55. 2'b11: begin kbrow<=4'b0111;sta<=2'b11;end
    
56. endcase                                //行扫描译
    
57. 
    
58. 
    
59. case(sta)
    
60. 
    
61. 2'b00:begin
    
62. 
    
63. case(kbcol)
    
64. 
    
65. 4'b1110:begin dat<=5'd3;end //3
    
66. 
    
67. 4'b1101:begin dat<=5'd2;end //2
    
68. 
    
69. 4'b1011:begin dat<=5'd1;end //1
    
70. 
    
71. 4'b0111:begin dat<=5'd0;end //0
    
72. 
    
73. default:begin dat<=5'b11111;end
    
74. 
    
75. endcase
    
76. 
    
77. end
    
78. 
    
79. 2'b01:begin
    
80. 
    
81. case(kbcol)
    
82. 
    
83. 4'b1110:begin dat<=5'b00111;end //7
    
84. 
    
85. 4'b1101:begin dat<=5'b00110;end //6
    
86. 
    
87. 4'b1011:begin dat<=5'b00101;end //5
    
88. 
    
89. 4'b0111:begin dat<=5'b00100;end //4
    
90. 
    
91. default:begin dat<=5'b11111;end
    
92. 
    
93. endcase
    
94. 
    
95. end
    
96. 
    
97. 2'b10:begin
    
98. 
    
99. case(kbcol)
    
100. 
     
101. 4'b1110:begin dat<=5'b01011;end //11 B
     
102. 
     
103. 4'b1101:begin dat<=5'b01010;end //10A
     
104. 
     
105. 4'b1011:begin dat<=5'b01001;end //9
     
106. 
     
107. 4'b0111:begin dat<=5'b01000;end //8
     
108. 
     
109. default:begin dat<=5'b11111;end
     
110. 
     
111. endcase
     
112. 
     
113. end
     
114. 
     
115. 2'b11:begin
     
116. 
     
117. case(kbcol)
     
118. 
     
119. 4'b1110:begin dat<=5'b01111;end //15 F
     
120. 
     
121. 4'b1101:begin dat<=5'b01110;end //14 E
     
122. 
     
123. 4'b1011:begin dat<=5'b01101;end //13 D
     
124. 
     
125. 4'b0111:begin dat<=5'b01100;end //12 C
     
126. 
     
127. default:begin dat<=5'b11111;end
     
128. 
     
129.                 endcase
     
130. 
     
131.                 end
     
132. 
     
133.         endcase
     
134. 
     
135.   end
     
136. 
     
137. end
     
138. 
     
139. always @(dat)
     
140. 
     
141. begin
     
142. 
     
143. begin fn<=~(dat[0]&dat[1]&dat[2]&dat[3]&dat[4]);
     
144. end
     
145. 
     
146. case(dat)
     
147. 
     
148. 5'b01111:begin seg7[6:0]<=7'b1110001;end
     
149. 
     
150. 5'b01110:begin seg7[6:0]<=7'b1111001;end
     
151. 
     
152. 5'b01101:begin seg7[6:0]<=7'b1011110;end
     
153. 
     
154. 5'b01100:begin seg7[6:0]<=7'b0111001;end
     
155. 
     
156. 5'b01011:begin seg7[6:0]<=7'b1111100;end
     
157. 
     
158. 5'b01010:begin seg7[6:0]<=7'b1110111;end
     
159. 
     
160. 5'd9:begin seg7[6:0]<=7'b1101111;end
     
161. 
     
162. 5'd8:begin seg7[6:0]<=7'b1111111;end
     
163. 
     
164. 5'd7:begin seg7[6:0]<=7'b0000111;end
     
165. 
     
166. 5'd6:begin seg7[6:0]<=7'b1111101;end
     
167. 
     
168. 5'd5:begin seg7[6:0]<=7'b1101101;end
     
169. 
     
170. 5'd4:begin seg7[6:0]<=7'b1100110;end
     
171. 
     
172. 5'd3:begin seg7[6:0]<=7'b1001111;end
     
173. 
     
174. 5'd2:begin seg7[6:0]<=7'b1011011;end
     
175. 
     
176. 5'd1:begin seg7[6:0]<=7'b0000110;end
     
177. 
     
178. 5'd0:begin seg7[6:0]<=7'b0111111;end
     
179. 
     
180. default: begin seg7[6:0]<=7'b0000000;end
     
181.                
     
182.         endcase
     
183. 
     
184. end
     
185. 
     
186. always @(posedge fn)
     
187. 
     
188.     begin seg7_out[6:0]<=seg7[6:0];
     
189.     end
     
190. endmodule

复制代码

91 109 127的default是致命错误 应该删除 直接将seg7进行输出 废掉fn信号和与之相关的139-144行代码

谢谢上楼的建议，小弟重新修改了下，可是效果还是一样，按键是数码管总是闪，看不清，一靠近键盘也闪，不知道是不是其他方面的问题，还请大侠指教

73行别忘删了 139-141别删 就删143 144 。如果按下去一瞬间数字闪动然后就保持稳定 就再做个按键防抖。 如果数字稳定了 但显示的数不正确 告诉我 我再告诉你为什么不正确

73删了，186-189行改成assign seg7_out[6:0]=seg7[6:0];还有都按照你说的改了，可是效果还是不行，数码管都是有阴影的，跳呀跳的，没有出现你说的情况