【正文】 UT=39。檢測有鍵按下 if KEY=39。 then current_state=s0。end if。039。139。else current_state=s2。 when s2 = if KEY=39。 then KOUT=39。current_state=s0。139。確定按下，按下輸出指示有效，kout=‘1’end if。039。等待按鍵高電平出現(xiàn)else current_state=s4。 when s4 = current_state=s5。039。 when others = current_state=s0。 end if。end Behavioral。此程序跑的是標準模式；SDA 和 SCL 分別為 AD7991 的數(shù)據(jù)線和時鐘線；程序使用說明（1）AD_CONVERSION_SPEED 為采樣觀察信號，實際采樣頻率f=AD_CONVERSION_SPEED；通過改變第一個進程的 count 值可以改變采樣頻率；（2）IIC 地址選擇：0101000，即 AD79910 的地址（3）內(nèi)部寄存器結(jié)構(gòu)：D7 D6 D5 D4 D3 D2 D1 D0當 D3=0 時，選擇的參考電壓時內(nèi)部電壓，即 ，反之則選擇外部參考電壓；D7~D4 為通道選擇設(shè)置，該程序 D7~D4=0001，選擇通道 VIN0，即 0~5v 輸入其他位默認為零，選擇 1 或 0 差不多；AD 采樣值計算及信號觀察VIN=(DATA_OUT/4096)*5V,比如當 VIN0= 時，DATA_OUT=101010001111。use 。use 。 100MHZ RESET : in std_logic。AD7991 每次轉(zhuǎn)換標志AD_CONVERSION_SPEED : out std_logic。轉(zhuǎn)換成功標志杭州電子科技大學繼續(xù)教育學院畢業(yè)設(shè)計（論文）31SDA : inout std_logic。DATA_OUT: out std_logic_vector(11 downto 0) )。architecture Behavioral of ack_check issignal clock: std_logic。type state is (start,transmit_slave_address,check_ack1,transmit_reg,check_ack2,stop,read_start,read_slave_address, read_check_ack1,read_data_high,read_check_ack2,read_data_low,ack_bymaster )。beginDATA_OUT=data_reg。產(chǎn)生 100HZ 的 clock 信號begin if RESET=39。 then null。 clock= not clock。 end if。end process。variable slave_address,internal_reg,read_address,data_high,data_low: std_logic_vector(8 downto 1)。variable t1:integer range 0 to 8。begin if RESET=39。 then count1:=0。 SDA=39。 SCL=39。 LED3=39。 t1:=8。039。 last bit 0 : write address model杭州電子科技大學繼續(xù)教育學院畢業(yè)設(shè)計（論文）32 current_state=start。last bit 1 : read address model internal_reg:=00010000。啟動信號 case count1 is when 1 = SDA=39。 when 2 = SCL=39。 when 3 = SDA=39。 when 4 = SCL=39。 when 5 = count1:=0。 when others =null。 when transmit_slave_address = count1:=count1+1。 when 2 =SCL=39。 when 4 =SCL=39。 when 5 =t1:=t11。 if t1=0 then t1:=8。 else current_state=transmit_slave_address。 when others =null。 when check_ack1 = count1:=count1+1。Z39。139。039。current_state=transmit_reg。039。when 16 =current_state=start。 杭州電子科技大學繼續(xù)教育學院畢業(yè)設(shè)計（論文）33end case。寫寄存器數(shù)據(jù) case count1 is when 1=SDA=internal_reg(t1)。139。039。count1:=0。current_state=check_ack2。 end if。 end case。 應(yīng)答信號檢查 case count1 iswhen 1 =SDA=39。when 2 =SCL=39。when 3 =if SDA=39。 then count1:=0。 SCL=39。LED3=39。 end if。when others =null。 when stop = count1:=count1+1。039。139。139。current_state=read_start。 end case。讀啟動信號 case count1 is when 1 = SDA=39。 when 2 = SCL=39。 when 3 = SDA=39。 when 4 = SCL=39。 when 5 = count1:=0。 when others =null。 when read_slave_address = count1:=count1+1。 when 2 =SCL=39。 when 4 =SCL=39。 when 5 =t1:=t11。 if t1=0 then t1:=8。 else current_state=read_slave_address。 when others =null。 when read_check_ack1 = count1:=count1+1。Z39。139。039。current_state=read_data_high。039。 when 16 =current_state=start。 end case。讀高 8 為數(shù)據(jù) case count1 is when 1=SDA=39。Sampling_fre=39。AD_CONVERSION_SPEED=39。 when 2=SCL=39。 when 3=data_high(t1):=SDA。039。count1:=0。current_state=read_check_ack2。 end if。 end case。 檢查應(yīng)答 case count1 is when 1 =SDA=39。 when 2 =SCL=39。when 4 =count1:=0。SCL=39。 杭州電子科技大學繼續(xù)教育學院畢業(yè)設(shè)計（論文）35 when others =null。 when read_data_low = count1:=count1+1。Z39。139。when 4=SCL=39。 when 5=t1:=t11。 if t1=0 then t1:=8。 data_reg=data_high(4 downto 1)amp。 Sampling_fre=39。AD_CONVERSION_SPEED=39。 else current_state=read_data_low。 when others=null。 when ack_bymaster = count1:=count1+1。039。139。039。count1:=0。 end case。end case。end process。電機控制程序（1）紅外熱釋電要求選擇可重復觸發(fā)模式，即 BISS001 的 A=1，選擇高電平就可以；要求人不停地移動才能重復觸發(fā)使輸出為高電平，平常為低電平，只有突然感應(yīng)到人體紅外線才能觸發(fā)為高電平；之后又恢復到低電平（2）電機控制按鍵： key1：控制電機啟動；key2 ：停止；key3：氣壓增加按鍵；key4：氣壓減小按鍵；杭州電子科技大學繼續(xù)教育學院畢業(yè)設(shè)計（論文）36library IEEE。use 。entity Motor_Control isport( CLK : in std_logic。 KEY1,KEY2,KEY3,KEY4 : in std_logic 。AD7991 每次采樣標志 INFRARED_RECEIVE : in std_logic。139。AD7991 每次采樣輸出的 12bits 數(shù)據(jù) SMG_DATA_SV : out std_logic_vector(11 downto 0)。給數(shù)碼管顯示的測量值 PWM_DUTY : out std_logic_vector(6 downto 0) 控制 PWM 的數(shù)值 )。architecture Behavioral of Motor_Control issignal setting_value :integer range 0 to 2022:=0。最大量程設(shè)為 2KPAsignal PWM_VALUE : std_logic_vector(6 downto 0)。按鍵控制使用十進制轉(zhuǎn) BCD 碼type state1 is (st0,st1,st2)。type state2 is (s0,s1,s2)。signal hongwai,start : std_logic。signal sampling_state : state3:=a0。產(chǎn)生 10HZ 的時鐘信號，用于按鍵控制process(CLK,RESET)variable count : integer range 0 to 10000000。039。clk10hz=39。 elsif rising_edge(CLK) then count:=count+1。clk10hz=not clk10hz。 end if。外部紅外人體感應(yīng)信號同步延時 1ms 處理process(CLK,RESET)variable count : integer range 0 to 100000。039。hongwai=39。 elsif rising_edge(CLK) then count:=count+1。hongwai=INFRARED_RECEIVE。 end if。主控制程序壓強與電壓的 pdf 關(guān)系：Vout=Vs* （