btoseven.v

2對4解多工可以用來擴充至4對8解多工經硬體驗證過可用

module btoseven(bin,sout);
input [3:0] bin;
output [7:0] sout;
reg [7:0] sout;
always@(bin)
begin
case(bin)
4'h0:sout={(1'b0),(7'b0111111)};
4'h1:sout={(1'b0),(7'b0000110)};
4'h2:sout={(1'b0),(7'b1011011)};
4'h3:sout={(1'b0),(7'b1001111)};
4'h4:sout={(1'b0),(7'b1100110)};
4'h5:sout={(1'b0),(7'b1101101)};
4'h6:sout={(1'b0),(7'b1111101)};
4'h7:sout={(1'b0),(7'b0000111)};
4'h8:sout={(1'b0),(7'b1111111)};
4'h9:sout={(1'b0),(7'b1101111)};
4'ha:sout={(1'b0),(7'b1011111)};
4'hb:sout={(1'b0),(7'b1111100)};
4'hc:sout={(1'b0),(7'b1111001)};
4'hd:sout={(1'b0),(7'b1011110)};
4'he:sout={(1'b0),(7'b1111011)};
4'hf:sout={(1'b0),(7'b1110001)};
default:sout=(8'b00000000);
endcase
end
endmodule