基于FPGA的万年历程序设计

1LIBRARY草鱼IEEEPORK草鱼USE草鱼IEEESTD_LOGIC_1164ALLPORK草鱼USE草鱼IEEESTD_LOGIC_UNSIGNEDALLPORK草鱼ENTITY草鱼CLOCK草鱼IS草鱼草鱼PORTRSTIN草鱼STD_LOGICPORK草鱼草鱼CLKIN草鱼STD_LOGICPORK草鱼草鱼CLRIN草鱼STD_LOGICPORK草鱼草鱼DISPLAY_MODE草鱼IN草鱼STD_LOGICPORK草鱼草鱼INCIN草鱼STD_LOGICPORK草鱼MODEIN草鱼STD_LOGICPORK草鱼SEG8OUT草鱼STD_LOGIC_VECTOR7草鱼DOWNTO草鱼0PORK草鱼草鱼SCANOUT草鱼STD_LOGIC_VECTOR7草鱼DOWNTO草鱼0PORK草鱼LEDOUT草鱼STD_LOGIC_VECTOR3草鱼DOWNTO草鱼0草鱼PORK草鱼ENDPORK草鱼ARCHITECTURE草鱼ONE草鱼OF草鱼CLOCK草鱼IS草鱼草鱼SIGNAL草鱼STATESTD_LOGIC_VECTOR2草鱼DOWNTO草鱼0PORK草鱼SIGNAL草鱼DIS_MODESTD_LOGIC_VECTOR1草鱼DOWNTO草鱼0PORK草鱼SIGNAL草鱼STATEINTEGER草鱼RANGE草鱼0草鱼TO草鱼7PORK草鱼SIGNAL草鱼DIS_MODEINTEGER草鱼RANGE草鱼0草鱼TO草鱼3PORK草鱼SIGNAL草鱼QHH,QHL,QMH,QML,QSH,QSL,QY1,QY2,QY3,QY4,QM1,QM2,QD1,QD2STD_LOGIC_VECTOR3草鱼DOWNTO草鱼0PORK草鱼SIGNAL草鱼QHH,QHL,QMH,QML,QSH,QSL,QY1,QY2,QY3,QY4,QMONL,QMONH,QDL,QDHINTEGER草鱼RANGE草鱼0草鱼TO草鱼15PORK草鱼SIGNAL草鱼DATAINTEGER草鱼RANGE草鱼0草鱼TO草鱼15草鱼PORK草鱼SIGNAL草鱼CNTINTEGER草鱼RANGE草鱼0草鱼TO草鱼7PORK草鱼SIGNAL草鱼CLK1KHZ,CLK1HZ,CLK2HZ,CLK5MSSTD_LOGICPORK草鱼SIGNAL草鱼BLINKSTD_LOGIC_VECTOR2草鱼DOWNTO草鱼0PORK草鱼SIGNAL草鱼INC_REGSTD_LOGICPORK草鱼SIGNAL草鱼SEC,MININTEGER草鱼RANGE草鱼0草鱼TO草鱼59PORK草鱼SIGNAL草鱼HOURINTEGER草鱼RANGE草鱼0草鱼TO草鱼23PORK草鱼SIGNAL草鱼YEARINTEGER草鱼RANGE草鱼1草鱼TO草鱼9999PORK草鱼SIGNAL草鱼MONTHINTEGER草鱼RANGE草鱼1草鱼TO草鱼12PORK草鱼SIGNAL草鱼DAY,DAY_LIMITINTEGER草鱼RANGE草鱼1草鱼TO草鱼31PORK草鱼BEGIN草鱼PROCESSCLK草鱼VARIABLE草鱼COUNTINTEGER草鱼RANGE草鱼0草鱼TO草鱼30000PORK草鱼BEGIN草鱼草鱼IF草鱼CLKEVENT草鱼AND草鱼CLK1草鱼THEN草鱼草鱼IF草鱼COUNT25000草鱼THEN草鱼CLK1KHZ草鱼草鱼LED草鱼LEDLEDLEDLED草鱼LED草鱼LED草鱼NULLPORK草鱼草鱼END草鱼CASEPORK草鱼END草鱼IFPORK草鱼END草鱼IFPORK草鱼END草鱼PROCESSPORK草鱼草鱼草鱼PROCESSSEC草鱼BEGIN草鱼CASE草鱼SEC草鱼IS草鱼WHEN草鱼0|10|20|30|40|50草鱼草鱼QSL草鱼QSL草鱼QSL草鱼QSL草鱼QSL草鱼QSL草鱼QSL草鱼QSL草鱼QSL草鱼QSLNULLPORK草鱼END草鱼CASEPORK草鱼CASE草鱼SEC草鱼IS草鱼WHEN草鱼0|1|2|3|4|5|6|7|8|9草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼QSH草鱼QSH草鱼QSH草鱼QSH草鱼QSH草鱼QSHNULLPORK草鱼END草鱼CASEPORK草鱼END草鱼PROCESSPORK草鱼草鱼PROCESSMIN草鱼BEGIN草鱼CASE草鱼MIN草鱼IS草鱼WHEN草鱼0|10|20|30|40|50草鱼草鱼QML草鱼QML草鱼QML草鱼QML草鱼QML草鱼QML草鱼QML草鱼QML草鱼QML草鱼QMLNULLPORK草鱼END草鱼CASEPORK草鱼CASE草鱼MIN草鱼IS草鱼WHEN草鱼0|1|2|3|4|5|6|7|8|9草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼QMH草鱼QMH草鱼QMH草鱼QMH草鱼QMH草鱼QMHNULLPORK草鱼END草鱼CASEPORK草鱼END草鱼PROCESSPORK草鱼草鱼PROCESSHOUR草鱼BEGIN草鱼草鱼CASE草鱼HOUR草鱼IS草鱼草鱼WHEN草鱼0|10|20草鱼草鱼QHL草鱼QHL草鱼QHL草鱼QHL草鱼QHL草鱼QHL草鱼QHL草鱼QHL草鱼QHL草鱼QHLNULLPORK草鱼END草鱼CASEPORK草鱼草鱼CASE草鱼HOUR草鱼IS草鱼WHEN草鱼0|1|2|3|4|5|6|7|8|9草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼草鱼QHH草鱼QHH草鱼QHH草鱼NULLPORK草鱼END草鱼CASEPORK草鱼END草鱼PROCESSPORK草鱼草鱼PROCESSYEAR草鱼BEGIN草鱼QY1草鱼CASE草鱼CNT草鱼IS草鱼草鱼草鱼WHEN草鱼0草鱼草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼NULLPORK草鱼草鱼END草鱼CASEPORK草鱼WHEN草鱼1草鱼CASE草鱼CNT草鱼IS草鱼草鱼WHEN草鱼0草鱼草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATA草鱼DATANULLPORK草鱼END草鱼CASEPORK草鱼WHEN草鱼OTHERS草鱼草鱼NULLPORK草鱼END草鱼CASEPORK草鱼END草鱼PROCESSPORK草鱼草鱼草鱼PROCESSDATA草鱼BEGIN草鱼CASE草鱼DAT