🎃 🔛 ⌨️ क्या अपना पहला VHDL प्रोग्राम लिखना कठिन है? 🌁 🔄 🏥

क्या अपना पहला VHDL प्रोग्राम लिखना मुश्किल है? यह कहना मुश्किल है, लेकिन यहां मुख्य बात प्रेरणा है ...

शायद मैं इस पल में देरी कर सकता था, लेकिन एक पड़ोसी ने मुझे एक आयताकार पल्स जनरेटर बनाने के लिए कहा, ताकि यह स्पष्ट रूप से प्रदर्शित हो सके और पल्स की आवृत्ति और अवधि को नियंत्रित करना संभव होगा।

और 0.1 माइक्रोसेकंड की सटीकता के साथ ...

और मेरी राय सीपीएलडी (200 रूबल, सॉर्ट) के साथ एक स्कार्फ पर गिर गई, जिस पर संकेतक और बटन थे। एक बार जब आप ऐसी चीज के साथ काम करना शुरू कर दें, तो मुझे लगा, और ...

VHDL या वेरिलॉग लिखने के लिए क्या विकल्प है - हालांकि मैं सी में सब कुछ लिखता हूं, लेकिन मैं अभी भी एडीए से प्यार करता हूं - इसलिए वीएचडीएल अद्वितीय है। इसके अलावा, FPGA के लिए परिचय पढ़ने के बाद, मुझे एहसास हुआ कि कुछ भी जटिल नहीं होगा (ठीक है, कम से कम इस तरह के एक सरल कार्य के लिए)।

तो, ~~शुरुआत में यह शब्द था कि~~ चलो खुद को एक जनरेटर बनाते हैं। देशी चूरे की आवृत्ति 50 मेगाहर्ट्ज है, अर्थात्, हम इसे 10 तक कम कर देंगे, ताकि घड़ी की रेखा का स्विचिंग मध्य और अंत में हो। यहाँ क्या हुआ है।

-- 100 ns signal generator process(clk) variable t:integer range 0 to 5 := 0; begin if rising_edge(clk) then t := t + 1; if t = 5 then t := 0; tact <= not tact; end if; if t = 2 then tact <= not tact; end if; end if; end process;

फिर आपको किसी तरह प्रदर्शन और प्रबंधन करने की आवश्यकता है। हमारे पास दो मूल्य हैं - अवधि की अवधि और आवेग की लंबाई, ताकि अवधि की अवधि के लिए हम 3 परिचितों को ध्यान में रखते हैं (दसवीं में ध्यान में रखते हुए), और अवधि की लंबाई के लिए - 3।

 shared variable period : integer range 0 to 1000 := 500; shared variable duty : integer range 0 to 1000 := 250; shared variable dig1:std_logic_vector(3 downto 0):="0000"; shared variable dig2:std_logic_vector(3 downto 0):="0101"; shared variable dig3:std_logic_vector(3 downto 0):="0010"; shared variable di1:std_logic_vector(3 downto 0):="0000"; shared variable di2:std_logic_vector(3 downto 0):="0000"; shared variable di3:std_logic_vector(3 downto 0):="0101";

खैर, नियंत्रण के लिए, बटन से संकेत उपयुक्त हैं, जो बोर्ड के नीचे दिखाई दे रहे हैं - उनमें से केवल 4 हैं,
इसलिए, क्रमशः अवधि और संवेग के परिवर्तन को दो नियंत्रित करते हैं, एक परिवर्तन का संकेत सेट करता है, और दूसरा जनरेटर के आउटपुट को चालू और बंद करता है ...

यहाँ प्रबंधन है

 process(key1) begin if rising_edge(key1) then ready <= not ready; end if; end process; process(key3) begin if rising_edge(key3) then if key4 = '1' then inc_duty; else dec_duty; end if; end if; end process; process(key2) begin if rising_edge(key2) then if key4 = '1' then inc_period; else dec_period; end if; end if; end process;

प्रबंधन में inc / dec प्रक्रियाएं हैं, यहां वे हैं

 procedure inc_duty is begin if duty < period then duty := duty + 1; if dig1 = "1001" then dig1 := "0000"; if dig2 = "1001" then dig2 := "0000"; if dig3 = "1001" then dig3 := "0000"; else dig3 := dig3 + 1; end if; else dig2 := dig2 + 1; end if; else dig1 := dig1 + 1; end if; end if; end procedure; procedure dec_duty is begin if duty > 1 then duty := duty - 1; if dig1 = "0000" then dig1 := "1001"; if dig2 = "0000" then dig2 := "1001"; dig3 := dig3 - 1; else dig2 := dig2 - 1; end if; else dig1 := dig1 - 1; end if; end if; end procedure; procedure inc_period is begin if period < 1000 then period := period + 1; if di1 = "1001" then di1 := "0000"; if di2 = "1001" then di2 := "0000"; if di3 = "1001" then di3 := "0000"; else di3 := di3 + 1; end if; else di2 := di2 + 1; end if; else di1 := di1 + 1; end if; end if; end procedure; procedure dec_period is begin if period > 1 then period := period - 1; if di1 = "0000" then di1 := "1001"; if di2 = "0000" then di2 := "1001"; if di3 = "0000" then di3 := "1001"; else di3 := di3 - 1; end if; else di2 := di2 - 1; end if; else di1 := di1 - 1; end if; end if; end procedure;

यह थोड़ा लंबा और जटिल है (यही कारण है कि यह कम से कम है), लेकिन यह काफी समझ में आता है।

खैर, हमें किसी तरह इसे प्रदर्शित करने की आवश्यकता है - हमारे पास एक सात-खंड संकेतक है, और उनमें से 6 (वास्तव में 8) हैं। हम एक माइक्रोसेकंड के दसवें हिस्से में, एक बिंदु के साथ नहीं भुगतने के लिए समय और प्रदर्शित करेंगे।

उन्हें वर्तमान अंक के माध्यम से चक्रित करें और प्रदर्शित करें:

 process(tactX) begin case tactX is when"000"=> en_xhdl<="11111110"; when"001"=> en_xhdl<="11111101"; when"010"=> en_xhdl<="11111011"; when"011"=> en_xhdl<="11110111"; when"100"=> en_xhdl<="11101111"; when"101"=> en_xhdl<="11011111"; when"110"=> en_xhdl<="10111111"; when"111"=> en_xhdl<="01111111"; when others => en_xhdl<="01111111"; end case; end process; process(en_xhdl) begin case en_xhdl is when "11111110"=> data4<=dig1; when "11111101"=> data4<=dig2; when "11111011"=> data4<=dig3; when "11110111"=> data4<="1111"; when "11101111"=> data4<=di1; when "11011111"=> data4<=di2; when "10111111"=> data4<=di3; when "01111111"=> data4<="0000"; when others => data4<="1111"; end case; end process; process(data4) begin case data4 is WHEN "0000" => dataout_xhdl1 <= "11000000"; WHEN "0001" => dataout_xhdl1 <= "11111001"; WHEN "0010" => dataout_xhdl1 <= "10100100"; WHEN "0011" => dataout_xhdl1 <= "10110000"; WHEN "0100" => dataout_xhdl1 <= "10011001"; WHEN "0101" => dataout_xhdl1 <= "10010010"; WHEN "0110" => dataout_xhdl1 <= "10000010"; WHEN "0111" => dataout_xhdl1 <= "11111000"; WHEN "1000" => dataout_xhdl1 <= "10000000"; WHEN "1001" => dataout_xhdl1 <= "10010000"; WHEN OTHERS => dataout_xhdl1 <= "11111111"; END CASE; END PROCESS;

मैं ईमानदारी से मानता हूं कि मैंने एक स्कार्फ के साथ आने वाले स्रोतों से कोड का हिस्सा खींच लिया है - यह बहुत अच्छा और स्पष्ट रूप से लिखा गया है! en_xhdl - यह सिग्नल नियंत्रित करेगा कि स्विचिंग चक्र में कौन सा संकेतक चालू है, dataout_xhdl1 - यह संकेत एल ई डी पर मुड़ता है, ठीक है, data4 एक अस्थायी रजिस्टर है और एक अंक संग्रहीत करता है।

यह एक दिल लिखने के लिए रहता है जो सब कुछ समझता है - जनरेटर। यहां टैकएक्स डिस्प्ले जनरेटर है, और cnt पल्स पोजिशन काउंटर है। ठीक है, लिन ही जनरेटर का संकेत है।

 process(tact) variable cntX : integer range 0 to 1000 := 0; variable cnt : integer range 0 to 1000 := 0; begin if rising_edge(tact) then if cntX = 0 then tactX <= tactX + 1; end if; cntX := cntX + 1; if cnt > period then cnt := 0; else cnt := cnt + 1; end if; if cnt = 0 then lin <= '0'; elsif cnt = duty then lin <= '1'; end if; end if; end process;

खैर, यह डेटा को आउटपुट करने के लिए रहता है - यह लगातार किया जाता है, इसलिए इसे समानांतर निष्पादन ब्लॉक में स्थित होना चाहिए।

  cat_led <= dataout_xhdl1; en_led <= en_xhdl; led1 <= not ready; out1 <= lin when ready = '1' else '0'; out2 <= not lin when ready = '1' else '0';

अंत में, सभी प्रक्रियाओं को एक साथ अंधी कर दें - परिणामी क्वार्स प्राइम फ़ाइल को अनुकूल रूप से प्राप्त किया गया, संकलित किया गया और इसकी सूचना दी गई

 Top-level Entity Name v12 Family MAX II Device EPM240T100C5 Timing Models Final Total logic elements 229 / 240 ( 95 % ) Total pins 29 / 80 ( 36 % ) Total virtual pins 0 UFM blocks 0 / 1 ( 0 % )

सबसे थकाऊ चरण बना हुआ है, हालांकि यह पूरी तरह से ग्राफिक है - संकेतों को विशिष्ट पिन प्रदान करने के लिए। और यह सब - यह डिवाइस में सब कुछ भरने और जांच करने के लिए बना हुआ है! दिलचस्प बात यह है कि हम 229 सेल के भीतर रखने में कामयाब रहे, इसलिए पहले से ही 11 बचे थे - लेकिन वास्तव में, लगभग सबकुछ इंटरफ़ेस - बटन और डिस्प्ले द्वारा तैयार किया गया था। वास्तव में जनरेटर को कई कोशिकाओं में ढेर किया जा सकता है - इंटेल के पास एक दस्तावेज है जहां वे 1 एलयूटी में स्टैक करने का वर्णन करते हैं - ठीक है, ज़ाहिर है, नियंत्रण के बिना ...

इसलिए हेडलाइन के सवाल का जवाब देते समय - नहीं, यह मुश्किल नहीं है अगर आप C या Ada जानते हैं और आप समझते हैं कि डिजिटल इलेक्ट्रॉनिक्स कैसे काम करते हैं, और हाँ, यह मुश्किल है अगर आपको बुनियादी चीजों का अंदाजा नहीं है ... कम से कम, मुझे लिखने में एक दिन लगा, और मुझे मुझे विकास प्रक्रिया से, और एक कामकाजी उपकरण दोनों से बहुत खुशी मिली! और पड़ोसी खुश है :)

क्या अपना पहला VHDL प्रोग्राम लिखना कठिन है?

More articles: