tel.vhd

手机号码归属地查询,代码详尽

                     case H2 is
                        when 0 => addrr<=13;
                        when 1 => addrr<=14;
                        when 2 => addrr<=14;
                        when 3 => addrr<=15;
                        when 4 => addrr<=15;
                        when 5 => addrr<=16;
                        when 6 => addrr<=16;
                        when 7 => addrr<=17;
                        when 8 => addrr<=17;
                        when 9 => addrr<=13;
                      end case;
                when 6 =>
                     case H2 is
                        when 0 => addrr<=13;
                        when 1 => addrr<=14;
                        when 2 => addrr<=14;
                        when 3 => addrr<=15;
                        when 4 => addrr<=15;
                        when 7 => addrr<=17;
                        when 8 => addrr<=17;
                        when 9 => addrr<=13;
                        when others => addrr<=0;
                      end case;
                when 7 =>
                     case H2 is
                        when 0 => addrr<=18;
                        when 1 => addrr<=19;
                        when 2 => addrr<=19;
                        when 3 => addrr<=20;
                        when 4 => addrr<=20;
                        when 5 => addrr<=20;
                        when 7 => addrr<=21;
                        when 8 => addrr<=21;
                        when 9 => addrr<=21;
                        when others => addrr<=0;
                      end case;
                when 8 =>
                     case H2 is
                        when 0 => addrr<=22;
                        when 1 => addrr<=22;
                        when 2 => addrr<=22;
                        when 3 => addrr<=30;
                        when 5 => addrr<=23;
                        when 7 => addrr<=24;
                        when 8 => addrr<=24;
                        when 9 => addrr<=15;
                        when others => addrr<=0;
                      end case;
                when 9 =>
                     case H2 is
                        when 1 => addrr<=26;
                        when 3 => addrr<=27;
                        when 4 => addrr<=30;
                        when 5 => addrr<=28;
                        when 7 => addrr<=32;
                        when 9 => addrr<=29;
                        when others => addrr<=0;
                      end case;                      
              when others =>addrr<=0;
         end case;
      elsif N3=6 then--136********
         case H1 is
              when 1 => 
                     case H2 is
                        when 0 => addrr<=1;--beijing
                        when 1 => addrr<=1;
                        when 2 => addrr<=1;
                        when 6 => addrr<=3;
                        when 7 => addrr<=3;
                        when 8 => addrr<=3;
                        when others => addrr<=0;
                      end case;
                when 2 =>
                     case H2 is
                        when 0 => addrr<=4;
                        when 1 => addrr<=4;
                        when 2 => addrr<=5;
                        when 3 => addrr<=5;
                        when 4 => addrr<=5;
                        when 5 => addrr<=5;
                        when 6 => addrr<=5;
                        when 7 => addrr<=5;
                        when 8 => addrr<=5;
                        when 9 => addrr<=5;
                      end case;
                when 3 =>
                     case H2 is
                        when 1 => addrr<=6;
                        when 2 => addrr<=6;
                        when 4 => addrr<=9;
                        when 5 => addrr<=7;
                        when 6 => addrr<=8;
                        when 7 => addrr<=9;
                        when 8 => addrr<=9;
                        when 9 => addrr<=9;
                        when others => addrr<=0;
                      end case;
                when 4 =>
                     case H2 is
                        when 0 => addrr<=10;
                        when 1 => addrr<=10;
                        when 2 => addrr<=10;
                        when 3 => addrr<=11;
                        when 5 => addrr<=8;
                        when 6 => addrr<=8;
                        when 8 => addrr<=8;
                        when others => addrr<=0;
                      end case;
                when 5 =>
                     case H2 is
                        when 0 => addrr<=13;
                        when 1 => addrr<=14;
                        when 2 => addrr<=14;
                        when 3 => addrr<=15;
                        when 4 => addrr<=15;
                        when 5 => addrr<=16;
                        when 6 => addrr<=16;
                        when 7 => addrr<=17;
                        when 8 => addrr<=17;
                        when 9 => addrr<=13;
                      end case;
                when 6 =>
                     case H2 is
                        when 0 => addrr<=13;
                        when 1 => addrr<=14;
                        when 2 => addrr<=14;
                        when 3 => addrr<=15;
                        when 4 => addrr<=15;
                        when 7 => addrr<=17;
                        when 8 => addrr<=17;
                        when 9 => addrr<=13;
                        when others => addrr<=0;
                      end case;
                when 7 =>
                     case H2 is
                        when 0 => addrr<=18;
                        when 1 => addrr<=19;
                        when 2 => addrr<=19;
                        when 3 => addrr<=20;
                        when 4 => addrr<=20;
                        when 5 => addrr<=20;
                        when 7 => addrr<=21;
                        when 8 => addrr<=21;
                        when 9 => addrr<=21;
                        when others => addrr<=0;
                      end case;
                when 8 =>
                     case H2 is
                        when 0 => addrr<=22;
                        when 1 => addrr<=22;
                        when 2 => addrr<=22;
                        when 3 => addrr<=30;
                        when 5 => addrr<=23;
                        when 7 => addrr<=24;
                        when others => addrr<=0;
                      end case;
                when 9 =>
                     case H2 is
                        when 1 => addrr<=26;
                        when 3 => addrr<=27;
                        when 4 => addrr<=30;
                        when 7 => addrr<=32;
                        when 9 => addrr<=29;
                        when others => addrr<=0;
                      end case;                      
              when others =>addrr<=0;
         end case;
      elsif N3=5 then--135********
         case H1 is
              when 1 => 
                     case H2 is
                        when 0 => addrr<=1;--beijing
                        when 1 => addrr<=1;
                        when 2 => addrr<=1;
                        when 6 => addrr<=3;
                        when 7 => addrr<=3;
                        when 8 => addrr<=3;
                        when others => addrr<=0;
                      end case;
                when 2 =>
                     case H2 is
                        when 0 => addrr<=4;
                        when 1 => addrr<=4;
                        when 2 => addrr<=5;
                        when 3 => addrr<=5;
                        when 4 => addrr<=5;
                        when 5 => addrr<=5;
                        when 6 => addrr<=5;
                        when 7 => addrr<=5;
                        when 8 => addrr<=5;
                        when 9 => addrr<=5;
                      end case;
                when 3 =>
                     case H2 is
                        when 1 => addrr<=6;
                        when 2 => addrr<=6;
                        when 4 => addrr<=9;
                        when 5 => addrr<=7;
                        when 6 => addrr<=8;
                        when 7 => addrr<=9;
                        when 8 => addrr<=9;
                        when 9 => addrr<=9;
                        when others => addrr<=0;
                      end case;
                when 4 =>
                     case H2 is
                        when 0 => addrr<=10;
                        when 1 => addrr<=10;
                        when 2 => addrr<=10;
                        when 3 => addrr<=11;
                        when 5 => addrr<=8;
                        when 6 => addrr<=8;
                        when 8 => addrr<=8;
                        when others => addrr<=0;
                      end case;
                when 5 =>
                     case H2 is
                        when 0 => addrr<=13;
                        when 1 => addrr<=14;
                        when 2 => addrr<=14;
                        when 3 => addrr<=15;
                        when 4 => addrr<=15;
                        when 5 => addrr<=16;
                        when 6 => addrr<=16;
                        when 7 => addrr<=17;
                        when 8 => addrr<=17;
                        when 9 => addrr<=13;
                      end case;
                when 6 =>
                     case H2 is
                        when 0 => addrr<=13;
                        when 1 => addrr<=14;
                        when 2 => addrr<=14;
                        when 3 => addrr<=15;
                        when 4 => addrr<=15;
                        when 7 => addrr<=17;
                        when 8 => addrr<=17;
                        when 9 => addrr<=13;
                        when others => addrr<=0;
                      end case;
                when 7 =>
                     case H2 is
                        when 0 => addrr<=18;
                        when 1 => addrr<=19;
                        when 2 => addrr<=19;
                        when 3 => addrr<=20;
                        when 4 => addrr<=20;
                        when 5 => addrr<=20;
                        when 7 => addrr<=21;
                        when 8 => addrr<=21;
                        when 9 => addrr<=21;
                        when others => addrr<=0;
                      end case;
                when 8 =>
                     case H2 is
                        when 0 => addrr<=22;
                        when 1 => addrr<=22;
                        when 2 => addrr<=22;
                        when 3 => addrr<=30;
                        when 5 => addrr<=23;
                        when 7 => addrr<=24;
                        when others => addrr<=0;
                      end case;
                when 9 =>
                     case H2 is
                        when 1 => addrr<=26;
                        when 3 => addrr<=27;
                        when 4 => addrr<=30;
                        when 9 => addrr<=29;
                        when others => addrr<=0;
                      end case;                      
              when others =>addrr<=0;
         end case;
       end if;
    end if;
end process;
--******************************************
process(addrr)
begin
  case addrr is
       when 0  => addr<=X"B4EDCEF3";--错误
       when 1  => addr<=X"B1B1BEA9";--北京
       when 2  => addr<=X"BDADCBD5";--江苏
       when 3  => addr<=X"C9CFB4A3";--上海
       when 4  => addr<=X"CCECBDF2";--天津
       when 5  => addr<=X"B9E3B6AB";--广东
       when 6  => addr<=X"BAD3B1B1";--河北
       when 7  => addr<=X"C9BDCEF7";--山西
       when 8  => addr<=X"BABAC1FA";--黑龙江
       when 9  => addr<=X"BAD3C4CF";--河南
       when 10 => addr<=X"C1C9C4FE";--辽宁
       when 11 => addr<=X"BCAAC1D6";--吉林
       when 12 => addr<=X"C4DAC3C9";--内蒙古
       when 13 => addr<=X"B8A3BDA8";--福建
       when 14 => addr<=X"BDADCBD5";--江苏
       when 15 => addr<=X"C9BDB6AB";--山东
       when 16 => addr<=X"B0BCBBD5";--安徽
       when 17 => addr<=X"D5E3BDAD";--浙江
       when 18 => addr<=X"BDADCEF7";--江西
       when 19 => addr<=X"BAFEB1B1";--湖北
       when 20 => addr<=X"BAFEC4CF";--湖南
       when 21 => addr<=X"B9E3CEF7";--广西
       when 22 => addr<=X"CBC4B4A8";--四川
       when 23 => addr<=X"B9F3D6DD";--贵州
       when 24 => addr<=X"D4C6C4CF";--云南
       when 25 => addr<=X"CEF7BCD8";--西藏
       when 26 => addr<=X"C9C2CEF7";--陕西
       when 27 => addr<=X"B8CACBE0";--甘肃
       when 28 => addr<=X"C4FECFC4";--宁夏
       when 29 => addr<=X"D0CCBDAE";--新疆
       when 30 => addr<=X"D6D8C7EC";--重庆
       when 31 => addr<=X"BAA3C4CF";--海南
       when 32 => addr<=X"C7E0BAA3";--青海
       when others => addr<=x"00000000";
     end case;
end process;
--******************************************
end;