(bio)}:
vhdlԴ
[ӡ(y)]
:
zxopenljx
r(sh)g:
2020-6-16 10:12
(bio)}:
vhdlԴ
ף·
//̖(ho)xcf
//clk_4Hz ڿL(zhng)(ji)ģĕr(sh)l
//clk_6MHz ڮa(chn)NAlʵĻ(zhn)l
//speaker ڼ(l)P(yng)ݔ̖(ho)О鷽̖(ho)
//high, med, lowքe@ʾ͵(q)(dng)һ(g)(sh)a܁@ʾ
module song(clk_6MHz,clk_4Hz,speaker,high,med,low);
input clk_6MHz, clk_4Hz;
output speaker;
output[3:0] high,med,low;
reg[3:0] high,med,low;
reg[13:0] divider,origin;
reg[7:0] counter;
reg speaker;
wire carry;
assign carry=(divider==16383);
always @(posedge clk_6MHz)
begin if(carry) divider=origin;
else divider=divider+1;
end
always @(posedge carry)
begin
speaker=~speaker; //2 la(chn)̖(ho)
end
always @(posedge clk_4Hz)
begin
case({high,med,low}) //lA(y)
'b000000000011: origin=7281;
'b000000000101: origin=8730;
'b000000000110: origin=9565;
'b000000000111: origin=10310;
'b000000010000: origin=10647;
'b000000100000: origin=11272;
'b000000110000: origin=11831;
'b000001010000: origin=12556;
'b000001100000: origin=12974;
'b000100000000: origin=13516;
'b000000000000: origin=16383;
endcase
end
always @(posedge clk_4Hz)
begin
if(counter==63) counter=0; //Ӌ(j)r(sh)Ԍ(sh)F(xin)ѭh(hun)
else counter=counter+1;
case(counter) //ӛV
0: {high,med,low}='b000000000011; //3
1: {high,med,low}='b000000000011; //m(x)4 (g)r(sh)犹(ji)
2: {high,med,low}='b000000000011;
3: {high,med,low}='b000000000011;
4: {high,med,low}='b000000000101; //5
5: {high,med,low}='b000000000101; //l(f)3 (g)r(sh)犹(ji)
6: {high,med,low}='b000000000101;
7: {high,med,low}='b000000000110; //6
8: {high,med,low}='b000000010000; //1
9: {high,med,low}='b000000010000; //l(f)3 (g)r(sh)犹(ji)
10: {high,med,low}='b000000010000;
11: {high,med,low}='b000000100000; //2
12: {high,med,low}='b000000000110; //6
13: {high,med,low}='b000000010000;
14: {high,med,low}='b000000000101;
15: {high,med,low}='b000000000101;
16: {high,med,low}='b000001010000; //5
17: {high,med,low}='b000001010000; //l(f)3 (g)r(sh)犹(ji)
18: {high,med,low}='b000001010000;
19: {high,med,low}='b000100000000; //1
20: {high,med,low}='b000001100000;
21: {high,med,low}='b000001010000;
22: {high,med,low}='b000000110000;
23: {high,med,low}='b000001010000;
24: {high,med,low}='b000000100000; //2
25: {high,med,low}='b000000100000; //m(x)11 (g)r(sh)犹(ji)
26: {high,med,low}='b000000100000;
27: {high,med,low}='b000000100000;
28: {high,med,low}='b000000100000;
29: {high,med,low}='b000000100000;
30: {high,med,low}='b000000100000;
31: {high,med,low}='b000000100000;
32: {high,med,low}='b000000100000;
33: {high,med,low}='b000000100000;
34: {high,med,low}='b000000100000;
35: {high,med,low}='b000000110000; //3
36: {high,med,low}='b000000000111; //7
37: {high,med,low}='b000000000111;
38: {high,med,low}='b000000000110; //6
39: {high,med,low}='b000000000110;
40: {high,med,low}='b000000000101; //5
41: {high,med,low}='b000000000101;
42: {high,med,low}='b000000000101;
43: {high,med,low}='b000000000110; //6
44: {high,med,low}='b000000010000; //1
45: {high,med,low}='b000000010000;
46: {high,med,low}='b000000100000; //2
47: {high,med,low}='b000000100000;
48: {high,med,low}='b000000000011; //3
49: {high,med,low}='b000000000011;
50: {high,med,low}='b000000010000; //1
51: {high,med,low}='b000000010000;
52: {high,med,low}='b000000000110;
53: {high,med,low}='b000000000101; //5
54: {high,med,low}='b000000000110;
55: {high,med,low}='b000000010000; //1
56: {high,med,low}='b000000000101; //5
57: {high,med,low}='b000000000101; //m(x)8 (g)r(sh)犹(ji)
58: {high,med,low}='b000000000101;
59: {high,med,low}='b000000000101;
60: {high,med,low}='b000000000101;
61: {high,med,low}='b000000000101;
62: {high,med,low}='b000000000101;
63: {high,med,low}='b000000000101;
endcase
end
endmodule
(f)ƴa
gӭR (http://www.torrancerestoration.com/bbs/)
Powered by Discuz! X3.1