首先给出二进制码转换为十进制BCD码的几个步骤（以8bit二进制码为例）：

1.将二进制码左移一位（或者乘2）

2.找到左移后的码所对应的个，十，百位。

3.判断在个位和百位的码是否大于5，如果是则该段码加3。

4.继续重复以上三步直到移位8次后停止。

下面是一个例子 ，将 1111_1111 转换为 BCD码 ，如果8bit数据最终移位得到18bit 数据 ，那么个位，十位，百位分别对应12~9，16~13，18~17位。

下面给出 CODE:

`timescale 1ns / 1ps

module bin_dec(clk,bin,rst_n,one,ten,hun,count,shift_reg

);

input [7:0] bin;

input clk,rst_n;

output [3:0] one,ten;

output [3:0] count;

output [1:0] hun;

output [17:0]shift_reg;

reg [3:0] one,ten;

reg [1:0] hun;

reg [3:0] count;

reg [17:0]shift_reg=18'b000000000000000000;

////////////////////// 计数部分 ////////////////////////

always @ ( posedge clk or negedge rst_n )

begin

if( !rst_n )

count<=0;

else if (count<=8)

count<=count+1;

else

count<=9;

end

////////////////////// 二进制转换为十进制 /////////////////

always @ (posedge clk or negedge rst_n )

begin

if (!rst_n)

shift_reg=0;

else if (count==0)

shift_reg={10'b0000000000,bin};

else if ( count<=8) //实现8次移位操作

begin

if(shift_reg[11:8]>=5) //判断个位是否>5，如果是则+3

begin

if(shift_reg[15:12]>=5) //判断十位是否>5，如果是则+3

begin

shift_reg[15:12]=shift_reg[15:12]+2'b11;

shift_reg[11:8]=shift_reg[11:8]+2'b11;

shift_reg=shift_reg<<1; //对个位和十位操作结束后，整体左移

end

else

begin

shift_reg[15:12]=shift_reg[15:12];

shift_reg[11:8]=shift_reg[11:8]+2'b11;

shift_reg=shift_reg<<1;

end

end

else

begin

if(shift_reg[15:12]>=5)

begin

shift_reg[15:12]=shift_reg[15:12]+2'b11;

shift_reg[11:8]=shift_reg[11:8];

shift_reg=shift_reg<<1;

end

else

begin

shift_reg[15:12]=shift_reg[15:12];

shift_reg[11:8]=shift_reg[11:8];

shift_reg=shift_reg<<1;

end

end

end

end

/////////////////输出赋值//////////////////////////

always @ ( posedge clk or negedge rst_n )

begin

if ( !rst_n )

begin

one<=0;

ten<=0;

hun<=0;

end

else if (count==9) //此时8次移位全部完成，将对应的值分别赋给个,十,百位

begin

one<=shift_reg[11:8];

ten<=shift_reg[15:12];

hun<=shift_reg[17:16];

end

end

endmodule

以下是仿真结果，bin为输入的二进制码，为了便于对比，仿真时也化成十进制显示了，one，ten，hun分别对应BCD码的个，十，百位。