Decodificador para escrbir mensajes en una LCD

module array(

input [7:0] In,
input switch,
output reg [7:0] Out
    );

// Este modulo es un decodificador que tiene como salida una LCD con el cual se escriben ciertos mensajes
always @*
begin
if (~switch)
begin
Out=8'b00110000;
Out=8'b00110000;
Out=8'b00110000;
Out=8'b00110000;
Out=8'b00000100;
Out=8'b00000001;
Out=8'b00000100;
Out=8'b00001111;
//Out=8'b00000001;


end
else
begin//always @ (In)
case (In)
8'b00000001 : Out = 8'b00000001; //CL
8'b00010001 : Out = 8'b11010100; //T
8'b00100001 : Out = 8'b11100101; //e
8'b00110001 : Out = 8'b11101101; //m
8'b01000001 : Out = 8'b11110000; //p
8'b01010001 : Out = 8'b11100101; //e
8'b01100001 : Out = 8'b11110010; //r
8'b01110001 : Out = 8'b11100001; //a
8'b10000001 : Out = 8'b11110100; //t
8'b10010001 : Out = 8'b11110101; //u
8'b10100001 : Out = 8'b11110010; //r
8'b10110001 : Out = 8'b11100001; //a
8'b11000001 : Out = 8'b10111010; //:
8'b11010001 : Out = 8'b10110010; //2
8'b11100001 : Out = 8'b10110011; //3
8'b11110001 : Out = 8'b11000011; //C

8'b00000010 : Out = 8'b00000001; //CL
8'b00010010 : Out = 8'b11010100; //T
8'b00100010 : Out = 8'b11100101; //e
8'b00110010 : Out = 8'b11101101; //m
8'b01000010 : Out = 8'b11110000; //p
8'b01010010 : Out = 8'b11100101; //e
8'b01100010 : Out = 8'b11110010; //r
8'b01110010 : Out = 8'b11100001; //a
8'b10000010 : Out = 8'b11110100; //t
8'b10010010 : Out = 8'b11110101; //u
8'b10100010 : Out = 8'b11110010; //r
8'b10110010 : Out = 8'b11100001; //a
8'b11000010 : Out = 8'b10111010; //:
8'b11010010 : Out = 8'b10110010; //2
8'b11100010 : Out = 8'b10110111; //7
8'b11110010 : Out = 8'b11000011; //C

8'b00000011 : Out = 8'b00000001; //CL
8'b00010011 : Out = 8'b11010100; //T
8'b00100011 : Out = 8'b11100101; //e
8'b00110011 : Out = 8'b11101101; //m
8'b01000011 : Out = 8'b11110000; //p
8'b01010011 : Out = 8'b11100101; //e
8'b01100011 : Out = 8'b11110010; //r
8'b01110011 : Out = 8'b11100001; //a
8'b10000011 : Out = 8'b11110100; //t
8'b10010011 : Out = 8'b11110101; //u
8'b10100011 : Out = 8'b11110010; //r
8'b10110011 : Out = 8'b11100001; //a
8'b11000011 : Out = 8'b10111010; //:
8'b11010011 : Out = 8'b10110010; //2
8'b11100011 : Out = 8'b10111001; //9
8'b11110011 : Out = 8'b11000011; //C

8'b00000100 : Out = 8'b00000001; //CL
8'b00010100 : Out = 8'b11010100; //T
8'b00100100 : Out = 8'b11100101; //e
8'b00110100 : Out = 8'b11101101; //m
8'b01000100 : Out = 8'b11110000; //p
8'b01010100 : Out = 8'b11100101; //e
8'b01100100 : Out = 8'b11110010; //r
8'b01110100 : Out = 8'b11100001; //a
8'b10000100 : Out = 8'b11110100; //t
8'b10010100 : Out = 8'b11110101; //u
8'b10100100 : Out = 8'b11110010; //r
8'b10110100 : Out = 8'b11100001; //a
8'b11000100 : Out = 8'b10111010; //:
8'b11010100 : Out = 8'b10110011; //3
8'b11100100 : Out = 8'b10110001; //1
8'b11110100 : Out = 8'b11000011; //C

8'b00000101 : Out = 8'b00000001; //CL
8'b00010101 : Out = 8'b11010100; //T
8'b00100101 : Out = 8'b11100101; //e
8'b00110101 : Out = 8'b11101101; //m
8'b01000101 : Out = 8'b11110000; //p
8'b01010101 : Out = 8'b11100101; //e
8'b01100101 : Out = 8'b11110010; //r
8'b01110101 : Out = 8'b11100001; //a
8'b10000101 : Out = 8'b11110100; //t
8'b10010101 : Out = 8'b11110101; //u
8'b10100101 : Out = 8'b11110010; //r
8'b10110101 : Out = 8'b11100001; //a
8'b11000101 : Out = 8'b10111010; //:
8'b11010101 : Out = 8'b10110011; //3
8'b11100101 : Out = 8'b10110101; //5
8'b11110101 : Out = 8'b11000011; //C

8'b00000110 : Out = 8'b00000001; //CL
8'b00010110 : Out = 8'b10100000; //__
8'b00100110 : Out = 8'b11000010; //B
8'b00110110 : Out = 8'b11100101; //e
8'b01000110 : Out = 8'b11100010; //b
8'b01010110 : Out = 8'b11100101; //e
8'b01100110 : Out = 8'b10100000; //__
8'b01110110 : Out = 8'b11010011; //S
8'b10000110 : Out = 8'b11101111; //o
8'b10010110 : Out = 8'b11101100; //l
8'b10100110 : Out = 8'b11101111; //o
8'b10110110 : Out = 8'b10100000; //__
8'b11000110 : Out = 8'b10111010; //:
8'b11010110 : Out = 8'b10101000; //(
8'b11100110 : Out = 8'b10100000; //__
8'b11110110 : Out = 8'b10100001; //!

8'b00001000 : Out = 8'b00000001; //CL
8'b00011000 : Out = 8'b10100000; //__
8'b00101000 : Out = 8'b11001101; //M
8'b00111000 : Out = 8'b11101111; //o
8'b01001000 : Out = 8'b11100100; //d
8'b01011000 : Out = 8'b11101111; //o
8'b01101000 : Out = 8'b10100000; //__
8'b01111000 : Out = 8'b11000101; //E
8'b10001000 : Out = 8'b11101101; //m
8'b10011000 : Out = 8'b11100101; //e
8'b10101000 : Out = 8'b11110010; //r
8'b10111000 : Out = 8'b11100111; //g
8'b11001000 : Out = 8'b10101110; //.
8'b11011000 : Out = 8'b10100000; //__
8'b11101000 : Out = 8'b10100000; //__
8'b11111000 : Out = 8'b10100000; //__

default :  Out = 8'b10100000; //:


endcase
end
end




endmodule