sin.vhd

产生150+90hz波形

LIBRARY ieee;
USE ieee.std_logic_1164.all;
USE ieee.std_logic_Arith.all;
USE ieee.std_logic_unsigned.all;
ENTITY sin IS
	PORT
	(
		nclk        : out   STD_LOGIC;
		clk1    	: in	STD_LOGIC;
		Q	        : OUT INTEGER RANGE 0 TO 4095);
END sin;
ARCHITECTURE BEHAVE OF sin Is	
	signal   	B           	: INTEGER RANGE 0 TO 4095;
	signal      X               : STD_LOGIC_VECTOR(3 DOWNTO 0);
	signal   	CLK3            : STD_LOGIC;		
BEGIN	
-----------------30 FEN PIN---------------------
        PROCESS(CLK1)
	BEGIN
	    	
		IF  CLK1'EVENT AND CLK1='1' THEN
			IF X<14 THEN 
				X<=X+1;				
       		ELSE  
				CLK3<=NOT CLK3;
				X<="0000";						
       		        END IF;
		END IF;
	END PROCESS;
--------------------150+90------------------------------------------------
	PROCESS(CLK3)
	BEGIN	
		IF  CLK3'EVENT AND CLK3='0' THEN
			IF B<4095 THEN B<=B+1;
       		ELSE  B<=0;		
       		        END IF;
		END IF;	
	
	END PROCESS;
-------------------------------------------------------
PROCESS (B,clk3)			
BEGIN
NCLK<=NOT CLK3;	
CASE B IS                  
when 0=>Q<=2048;
when 1=>Q<=2060;
when 2=>Q<=2073;
when 3=>Q<=2085;
when 4=>Q<=2098;
when 5=>Q<=2110;
when 6=>Q<=2123;
when 7=>Q<=2135;
when 8=>Q<=2148;
when 9=>Q<=2161;
when 10=>Q<=2173;
when 11=>Q<=2186;
when 12=>Q<=2198;
when 13=>Q<=2211;
when 14=>Q<=2223;
when 15=>Q<=2236;
when 16=>Q<=2248;
when 17=>Q<=2261;
when 18=>Q<=2273;
when 19=>Q<=2286;
when 20=>Q<=2298;
when 21=>Q<=2311;
when 22=>Q<=2323;
when 23=>Q<=2335;
when 24=>Q<=2348;
when 25=>Q<=2360;
when 26=>Q<=2373;
when 27=>Q<=2385;
when 28=>Q<=2397;
when 29=>Q<=2410;
when 30=>Q<=2422;
when 31=>Q<=2434;
when 32=>Q<=2447;
when 33=>Q<=2459;
when 34=>Q<=2471;
when 35=>Q<=2483;
when 36=>Q<=2496;
when 37=>Q<=2508;
when 38=>Q<=2520;
when 39=>Q<=2532;
when 40=>Q<=2544;
when 41=>Q<=2556;
when 42=>Q<=2568;
when 43=>Q<=2580;
when 44=>Q<=2592;
when 45=>Q<=2604;
when 46=>Q<=2616;
when 47=>Q<=2628;
when 48=>Q<=2640;
when 49=>Q<=2652;
when 50=>Q<=2664;
when 51=>Q<=2676;
when 52=>Q<=2688;
when 53=>Q<=2700;
when 54=>Q<=2711;
when 55=>Q<=2723;
when 56=>Q<=2735;
when 57=>Q<=2747;
when 58=>Q<=2758;
when 59=>Q<=2770;
when 60=>Q<=2781;
when 61=>Q<=2793;
when 62=>Q<=2805;
when 63=>Q<=2816;
when 64=>Q<=2827;
when 65=>Q<=2839;
when 66=>Q<=2850;
when 67=>Q<=2862;
when 68=>Q<=2873;
when 69=>Q<=2884;
when 70=>Q<=2895;
when 71=>Q<=2907;
when 72=>Q<=2918;
when 73=>Q<=2929;
when 74=>Q<=2940;
when 75=>Q<=2951;
when 76=>Q<=2962;
when 77=>Q<=2973;
when 78=>Q<=2984;
when 79=>Q<=2995;
when 80=>Q<=3006;
when 81=>Q<=3016;
when 82=>Q<=3027;
when 83=>Q<=3038;
when 84=>Q<=3049;
when 85=>Q<=3059;
when 86=>Q<=3070;
when 87=>Q<=3080;
when 88=>Q<=3091;
when 89=>Q<=3101;
when 90=>Q<=3112;
when 91=>Q<=3122;
when 92=>Q<=3132;
when 93=>Q<=3143;
when 94=>Q<=3153;
when 95=>Q<=3163;
when 96=>Q<=3173;
when 97=>Q<=3183;
when 98=>Q<=3193;
when 99=>Q<=3203;
when 100=>Q<=3213;
when 101=>Q<=3223;
when 102=>Q<=3233;
when 103=>Q<=3242;
when 104=>Q<=3252;
when 105=>Q<=3262;
when 106=>Q<=3271;
when 107=>Q<=3281;
when 108=>Q<=3290;
when 109=>Q<=3300;
when 110=>Q<=3309;
when 111=>Q<=3318;
when 112=>Q<=3328;
when 113=>Q<=3337;
when 114=>Q<=3346;
when 115=>Q<=3355;
when 116=>Q<=3364;
when 117=>Q<=3373;
when 118=>Q<=3382;
when 119=>Q<=3391;
when 120=>Q<=3400;
when 121=>Q<=3408;
when 122=>Q<=3417;
when 123=>Q<=3426;
when 124=>Q<=3434;
when 125=>Q<=3443;
when 126=>Q<=3451;
when 127=>Q<=3460;
when 128=>Q<=3468;
when 129=>Q<=3476;
when 130=>Q<=3484;
when 131=>Q<=3492;
when 132=>Q<=3500;
when 133=>Q<=3508;
when 134=>Q<=3516;
when 135=>Q<=3524;
when 136=>Q<=3532;
when 137=>Q<=3540;
when 138=>Q<=3547;
when 139=>Q<=3555;
when 140=>Q<=3563;
when 141=>Q<=3570;
when 142=>Q<=3578;
when 143=>Q<=3585;
when 144=>Q<=3592;
when 145=>Q<=3599;
when 146=>Q<=3607;
when 147=>Q<=3614;
when 148=>Q<=3621;
when 149=>Q<=3628;
when 150=>Q<=3634;
when 151=>Q<=3641;
when 152=>Q<=3648;
when 153=>Q<=3655;
when 154=>Q<=3661;
when 155=>Q<=3668;
when 156=>Q<=3674;
when 157=>Q<=3681;
when 158=>Q<=3687;
when 159=>Q<=3693;
when 160=>Q<=3699;
when 161=>Q<=3705;
when 162=>Q<=3711;
when 163=>Q<=3717;
when 164=>Q<=3723;
when 165=>Q<=3729;
when 166=>Q<=3735;
when 167=>Q<=3741;
when 168=>Q<=3746;
when 169=>Q<=3752;
when 170=>Q<=3757;
when 171=>Q<=3762;
when 172=>Q<=3768;
when 173=>Q<=3773;
when 174=>Q<=3778;
when 175=>Q<=3783;
when 176=>Q<=3788;
when 177=>Q<=3793;
when 178=>Q<=3798;
when 179=>Q<=3803;
when 180=>Q<=3808;
when 181=>Q<=3812;
when 182=>Q<=3817;
when 183=>Q<=3821;
when 184=>Q<=3826;
when 185=>Q<=3830;
when 186=>Q<=3834;
when 187=>Q<=3838;
when 188=>Q<=3842;
when 189=>Q<=3847;
when 190=>Q<=3850;
when 191=>Q<=3854;
when 192=>Q<=3858;
when 193=>Q<=3862;
when 194=>Q<=3865;
when 195=>Q<=3869;
when 196=>Q<=3873;
when 197=>Q<=3876;
when 198=>Q<=3879;
when 199=>Q<=3883;
when 200=>Q<=3886;
when 201=>Q<=3889;
when 202=>Q<=3892;
when 203=>Q<=3895;
when 204=>Q<=3898;
when 205=>Q<=3900;
when 206=>Q<=3903;
when 207=>Q<=3906;
when 208=>Q<=3908;
when 209=>Q<=3911;
when 210=>Q<=3913;
when 211=>Q<=3916;
when 212=>Q<=3918;
when 213=>Q<=3920;
when 214=>Q<=3922;
when 215=>Q<=3924;
when 216=>Q<=3926;
when 217=>Q<=3928;
when 218=>Q<=3930;
when 219=>Q<=3931;
when 220=>Q<=3933;
when 221=>Q<=3935;
when 222=>Q<=3936;
when 223=>Q<=3937;
when 224=>Q<=3939;
when 225=>Q<=3940;
when 226=>Q<=3941;
when 227=>Q<=3942;
when 228=>Q<=3943;
when 229=>Q<=3944;
when 230=>Q<=3945;
when 231=>Q<=3946;
when 232=>Q<=3946;
when 233=>Q<=3947;
when 234=>Q<=3948;
when 235=>Q<=3948;
when 236=>Q<=3948;
when 237=>Q<=3949;
when 238=>Q<=3949;
when 239=>Q<=3949;
when 240=>Q<=3949;
when 241=>Q<=3949;
when 242=>Q<=3949;
when 243=>Q<=3949;
when 244=>Q<=3949;
when 245=>Q<=3948;
when 246=>Q<=3948;
when 247=>Q<=3947;
when 248=>Q<=3947;
when 249=>Q<=3946;
when 250=>Q<=3945;
when 251=>Q<=3945;
when 252=>Q<=3944;
when 253=>Q<=3943;
when 254=>Q<=3942;
when 255=>Q<=3941;
when 256=>Q<=3940;
when 257=>Q<=3938;
when 258=>Q<=3937;
when 259=>Q<=3936;
when 260=>Q<=3934;
when 261=>Q<=3933;
when 262=>Q<=3931;
when 263=>Q<=3929;
when 264=>Q<=3928;
when 265=>Q<=3926;
when 266=>Q<=3924;
when 267=>Q<=3922;
when 268=>Q<=3920;
when 269=>Q<=3918;
when 270=>Q<=3915;
when 271=>Q<=3913;
when 272=>Q<=3911;
when 273=>Q<=3908;
when 274=>Q<=3906;
when 275=>Q<=3903;
when 276=>Q<=3901;
when 277=>Q<=3898;
when 278=>Q<=3895;
when 279=>Q<=3892;
when 280=>Q<=3889;
when 281=>Q<=3886;
when 282=>Q<=3883;
when 283=>Q<=3880;
when 284=>Q<=3877;
when 285=>Q<=3874;
when 286=>Q<=3870;
when 287=>Q<=3867;
when 288=>Q<=3863;
when 289=>Q<=3860;
when 290=>Q<=3856;
when 291=>Q<=3852;
when 292=>Q<=3849;
when 293=>Q<=3845;
when 294=>Q<=3841;
when 295=>Q<=3837;
when 296=>Q<=3833;
when 297=>Q<=3829;
when 298=>Q<=3825;
when 299=>Q<=3820;
when 300=>Q<=3816;
when 301=>Q<=3812;
when 302=>Q<=3807;
when 303=>Q<=3803;
when 304=>Q<=3798;
when 305=>Q<=3793;
when 306=>Q<=3789;
when 307=>Q<=3784;
when 308=>Q<=3779;
when 309=>Q<=3774;
when 310=>Q<=3769;
when 311=>Q<=3764;
when 312=>Q<=3759;
when 313=>Q<=3754;
when 314=>Q<=3749;
when 315=>Q<=3743;
when 316=>Q<=3738;
when 317=>Q<=3733;
when 318=>Q<=3727;
when 319=>Q<=3722;
when 320=>Q<=3716;
when 321=>Q<=3711;
when 322=>Q<=3705;
when 323=>Q<=3699;
when 324=>Q<=3693;
when 325=>Q<=3687;
when 326=>Q<=3681;
when 327=>Q<=3675;
when 328=>Q<=3669;
when 329=>Q<=3663;
when 330=>Q<=3657;
when 331=>Q<=3651;
when 332=>Q<=3645;
when 333=>Q<=3638;
when 334=>Q<=3632;
when 335=>Q<=3626;
when 336=>Q<=3619;
when 337=>Q<=3612;
when 338=>Q<=3606;
when 339=>Q<=3599;
when 340=>Q<=3593;
when 341=>Q<=3586;
when 342=>Q<=3579;
when 343=>Q<=3572;
when 344=>Q<=3565;
when 345=>Q<=3558;
when 346=>Q<=3551;
when 347=>Q<=3544;
when 348=>Q<=3537;
when 349=>Q<=3530;
when 350=>Q<=3523;
when 351=>Q<=3515;
when 352=>Q<=3508;
when 353=>Q<=3501;
when 354=>Q<=3493;
when 355=>Q<=3486;
when 356=>Q<=3478;
when 357=>Q<=3471;
when 358=>Q<=3463;
when 359=>Q<=3456;
when 360=>Q<=3448;
when 361=>Q<=3440;
when 362=>Q<=3432;
when 363=>Q<=3425;
when 364=>Q<=3417;
when 365=>Q<=3409;
when 366=>Q<=3401;
when 367=>Q<=3393;
when 368=>Q<=3385;
when 369=>Q<=3377;
when 370=>Q<=3369;
when 371=>Q<=3361;
when 372=>Q<=3353;
when 373=>Q<=3344;
when 374=>Q<=3336;
when 375=>Q<=3328;
when 376=>Q<=3319;
when 377=>Q<=3311;
when 378=>Q<=3303;
when 379=>Q<=3294;
when 380=>Q<=3286;
when 381=>Q<=3277;
when 382=>Q<=3269;
when 383=>Q<=3260;
when 384=>Q<=3252;
when 385=>Q<=3243;
when 386=>Q<=3234;
when 387=>Q<=3226;
when 388=>Q<=3217;
when 389=>Q<=3208;
when 390=>Q<=3199;
when 391=>Q<=3190;
when 392=>Q<=3182;
when 393=>Q<=3173;
when 394=>Q<=3164;
when 395=>Q<=3155;
when 396=>Q<=3146;
when 397=>Q<=3137;
when 398=>Q<=3128;
when 399=>Q<=3119;
when 400=>Q<=3110;
when 401=>Q<=3101;
when 402=>Q<=3092;
when 403=>Q<=3082;
when 404=>Q<=3073;
when 405=>Q<=3064;
when 406=>Q<=3055;
when 407=>Q<=3046;
when 408=>Q<=3036;
when 409=>Q<=3027;
when 410=>Q<=3018;
when 411=>Q<=3008;
when 412=>Q<=2999;
when 413=>Q<=2990;
when 414=>Q<=2980;
when 415=>Q<=2971;
when 416=>Q<=2961;
when 417=>Q<=2952;
when 418=>Q<=2942;
when 419=>Q<=2933;
when 420=>Q<=2924;
when 421=>Q<=2914;
when 422=>Q<=2905;
when 423=>Q<=2895;
when 424=>Q<=2885;
when 425=>Q<=2876;
when 426=>Q<=2866;
when 427=>Q<=2857;
when 428=>Q<=2847;
when 429=>Q<=2837;
when 430=>Q<=2828;
when 431=>Q<=2818;
when 432=>Q<=2809;
when 433=>Q<=2799;
when 434=>Q<=2789;
when 435=>Q<=2780;
when 436=>Q<=2770;
when 437=>Q<=2760;
when 438=>Q<=2751;
when 439=>Q<=2741;
when 440=>Q<=2731;
when 441=>Q<=2721;
when 442=>Q<=2712;
when 443=>Q<=2702;
when 444=>Q<=2692;
when 445=>Q<=2683;
when 446=>Q<=2673;
when 447=>Q<=2663;
when 448=>Q<=2653;
when 449=>Q<=2644;
when 450=>Q<=2634;
when 451=>Q<=2624;
when 452=>Q<=2614;
when 453=>Q<=2605;
when 454=>Q<=2595;
when 455=>Q<=2585;
when 456=>Q<=2575;
when 457=>Q<=2566;
when 458=>Q<=2556;
when 459=>Q<=2546;
when 460=>Q<=2537;
when 461=>Q<=2527;
when 462=>Q<=2517;
when 463=>Q<=2507;
when 464=>Q<=2498;
when 465=>Q<=2488;
when 466=>Q<=2478;
when 467=>Q<=2469;
when 468=>Q<=2459;
when 469=>Q<=2449;
when 470=>Q<=2440;
when 471=>Q<=2430;
when 472=>Q<=2420;
when 473=>Q<=2411;
when 474=>Q<=2401;
when 475=>Q<=2391;
when 476=>Q<=2382;
when 477=>Q<=2372;
when 478=>Q<=2363;
when 479=>Q<=2353;
when 480=>Q<=2344;
when 481=>Q<=2334;
when 482=>Q<=2324;
when 483=>Q<=2315;
when 484=>Q<=2305;
when 485=>Q<=2296;
when 486=>Q<=2287;
when 487=>Q<=2277;
when 488=>Q<=2268;
when 489=>Q<=2258;
when 490=>Q<=2249;
when 491=>Q<=2239;
when 492=>Q<=2230;
when 493=>Q<=2221;
when 494=>Q<=2211;
when 495=>Q<=2202;
when 496=>Q<=2193;
when 497=>Q<=2184;
when 498=>Q<=2174;
when 499=>Q<=2165;
when 500=>Q<=2156;
when 501=>Q<=2147;
when 502=>Q<=2138;
when 503=>Q<=2129;
when 504=>Q<=2119;
when 505=>Q<=2110;
when 506=>Q<=2101;
when 507=>Q<=2092;
when 508=>Q<=2083;
when 509=>Q<=2074;
when 510=>Q<=2065;
when 511=>Q<=2056;
when 512=>Q<=2048;
when 513=>Q<=2039;
when 514=>Q<=2030;
when 515=>Q<=2021;
when 516=>Q<=2012;
when 517=>Q<=2003;
when 518=>Q<=1995;
when 519=>Q<=1986;
when 520=>Q<=1977;
when 521=>Q<=1969;
when 522=>Q<=1960;
when 523=>Q<=1951;
when 524=>Q<=1943;
when 525=>Q<=1934;
when 526=>Q<=1926;
when 527=>Q<=1917;
when 528=>Q<=1909;
when 529=>Q<=1901;
when 530=>Q<=1892;
when 531=>Q<=1884;
when 532=>Q<=1876;
when 533=>Q<=1868;
when 534=>Q<=1859;
when 535=>Q<=1851;
when 536=>Q<=1843;
when 537=>Q<=1835;
when 538=>Q<=1827;
when 539=>Q<=1819;
when 540=>Q<=1811;
when 541=>Q<=1803;
when 542=>Q<=1795;
when 543=>Q<=1787;
when 544=>Q<=1779;
when 545=>Q<=1771;
when 546=>Q<=1764;
when 547=>Q<=1756;
when 548=>Q<=1748;
when 549=>Q<=1741;
when 550=>Q<=1733;
when 551=>Q<=1725;
when 552=>Q<=1718;
when 553=>Q<=1710;
when 554=>Q<=1703;
when 555=>Q<=1696;
when 556=>Q<=1688;
when 557=>Q<=1681;
when 558=>Q<=1674;
when 559=>Q<=1666;
when 560=>Q<=1659;
when 561=>Q<=1652;
when 562=>Q<=1645;
when 563=>Q<=1638;
when 564=>Q<=1631;
when 565=>Q<=1624;
when 566=>Q<=1617;
when 567=>Q<=1610;
when 568=>Q<=1603;
when 569=>Q<=1597;
when 570=>Q<=1590;
when 571=>Q<=1583;
when 572=>Q<=1576;
when 573=>Q<=1570;
when 574=>Q<=1563;
when 575=>Q<=1557;
when 576=>Q<=1550;
when 577=>Q<=1544;
when 578=>Q<=1538;
when 579=>Q<=1531;
when 580=>Q<=1525;
when 581=>Q<=1519;
when 582=>Q<=1513;
when 583=>Q<=1506;
when 584=>Q<=1500;
when 585=>Q<=1494;
when 586=>Q<=1488;
when 587=>Q<=1482;
when 588=>Q<=1477;
when 589=>Q<=1471;
when 590=>Q<=1465;
when 591=>Q<=1459;
when 592=>Q<=1454;