风语者1991进程帖-电子产品世界论坛

电子产品世界 » 论坛首页 » DIY与开源设计 » 电子DIY » 风语者1991进程帖

共22条 2/3 ‹ 1 2 3 › 跳转至页

风语者1991

工程师

2012-12-20 16:21:35 打赏

11楼

前段时间很忙，耽误了一段时间，现在上传数码管的显示程序
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_Unsigned.ALL;
ENTITY showseg7 IS
PORT(clk_p: IN STD_LOGIC;
       dig:OUT STD_LOGIC_VECTOR(7 DOWNTO 0);--数码管选择输出引脚
       seg:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));--数码管段输出引脚
END ENTITY showseg7;
ARCHITECTURE one OF showseg7 IS
SIGNAL count: STD_LOGIC_VECTOR(2 DOWNTO 0);--定义数码管输出寄存器
SIGNAL seg_r: STD_LOGIC_VECTOR(7 DOWNTO 0);--定义数码管选择输出寄存器
SIGNAL dig_r: STD_LOGIC_VECTOR(7 DOWNTO 0);--定义显示数据寄存器
SIGNAL disp_r:STD_LOGIC_VECTOR(2 DOWNTO 0);--定义计数寄存器
BEGIN
PROCESS(clk_p)
   BEGIN
    IF RISING_EDGE(clk_p) THEN
  IF count="111" THEN count<="000";
   ELSE count<=count+1;
  END IF;
    END IF;
END PROCESS;

PROCESS(count)
   BEGIN
    CASE count IS
      WHEN "000" => disp_r<="000";dig_r<="01111111";seg_r<="11000000";--显示0
      WHEN "001" => disp_r<="001";dig_r<="10111111";seg_r<="11111001";--显示1
      WHEN "010" => disp_r<="010";dig_r<="11011111";seg_r<="10100100";--显示2
      WHEN "011" => disp_r<="011";dig_r<="11101111";seg_r<="10110000";--显示3
      WHEN "100" => disp_r<="100";dig_r<="11110111";seg_r<="10011001";--显示4
      WHEN "101" => disp_r<="101";dig_r<="11111011";seg_r<="10010010";--显示5
      WHEN "110" => disp_r<="110";dig_r<="11111101";seg_r<="10000010";--显示6
      WHEN "111" => disp_r<="111";dig_r<="11111110";seg_r<="11111000";--显示7
      WHEN OTHERS => NULL;
    END CASE;
END PROCESS;
seg<=seg_r;
dig<=dig_r;
END ARCHITECTURE one;

风语者1991

工程师

2012-12-24 22:50:41 打赏

12楼

数码管显示图片

风语者1991

工程师

2012-12-24 22:58:24 打赏

13楼

数字钟程序：
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;
ENTITY yimaqi IS
PORT(clk2:IN STD_LOGIC;
     doe:IN STD_LOGIC_VECTOR(23 DOWNTO 0);
     dig2:OUT STD_LOGIC_VECTOR(5 DOWNTO 0);
     seg2:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));
END ;
ARCHITECTURE example OF yimaqi IS
SIGNAL a:STD_LOGIC_VECTOR(2 DOWNTO 0):="000";
SIGNAL b:STD_LOGIC_VECTOR(3 DOWNTO 0);
BEGIN
PROCESS(clk2)
BEGIN
IF clk2'event and clk2='1' THEN
IF a="101" THEN a<="000";ELSE a<=a+1;
END IF;
END IF;
END PROCESS;
PROCESS(a)
BEGIN
CASE a IS
WHEN"101"=>b<=doe(3 DOWNTO 0);dig2<="111110";
WHEN"100"=>b<=doe(7 DOWNTO 4);dig2<="111101";
WHEN"011"=>b<=doe(11 DOWNTO 8);dig2<="111011";
WHEN"010"=>b<=doe(15 DOWNTO 12);dig2<="110111";
WHEN"001"=>b<=doe(19 DOWNTO 16);dig2<="101111";
WHEN"000"=>b<=doe(23 DOWNTO 20);dig2<="011111";
WHEN OTHERS=>NULL;
END CASE;
END PROCESS;
PROCESS(b)
BEGIN
CASE b IS
WHEN"0000"=>seg2<="11000000";
WHEN"0001"=>seg2<="11111001";
WHEN"0010"=>seg2<="10100100";
WHEN"0011"=>seg2<="10110000";
WHEN"0100"=>seg2<="10011001";
WHEN"0101"=>seg2<="10010010";
WHEN"0110"=>seg2<="10000010";
WHEN"0111"=>seg2<="11111000";
WHEN"1000"=>seg2<="10000000";
WHEN"1001"=>seg2<="10010000";
WHEN OTHERS=>seg2<="11111111";
END CASE;
END PROCESS;
END example;

风语者1991

工程师

2012-12-24 22:59:15 打赏

14楼

数字钟视频：

风语者1991

工程师

2012-12-24 23:00:41 打赏

15楼

蜂鸣器程序：利用键盘控制音调
library ieee;
use ieee.std_logic_1164.all;
use ieee. std_logic_arith.all;
use ieee. std_logic_unsigned.all;

entity fengmq is
port (clk: in std_logic;
fmq: out std_logic

);
end fengmq;

architecture behave of fengmq is
--signal count: std_logic;
begin
process (clk)
begin
if clk'event and clk='1' then
-- count<=clk;
end if;
end process ;
fmq<=clk;
end behave ;

风语者1991

工程师

2012-12-24 23:01:41 打赏

16楼

蜂鸣器视频：

风语者1991

工程师

2012-12-24 23:04:15 打赏

17楼

1602显示字符代码：

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
entity LCD1602 is
port ( clk :in std_logic;
      lcd_rs:out std_logic;
      lcd_rw:out std_logic;
      lcd_e: out std_logic;
      data:out std_logic_vector(7 downto 0)
);
end LCD1602;
architecture one of LCD1602 is
signal bcd: std_logic_vector(5 downto 0);
--signal cnt: std_logic_vector(9 downto 0);
begin
process(clk)
begin
if clk'event and clk='1' then
   bcd<=bcd+1;
-- cnt<=cnt+1;
   case bcd is
   when "000000"=>
         lcd_rs<='0';
         lcd_e<='1';
         data<="00111000";
   when "000001"=>
         lcd_rs<='0';
         lcd_e<='0';

   when "000010"=>
         lcd_rs<='0';
         lcd_e<='1';
         data<="00001100";
   when "000011"=>
         lcd_rs<='0';
         lcd_e<='0';
   when "000101"=>
         lcd_rs<='0';
         lcd_e<='0';
   when "000110"=>      --xian E
         lcd_rs<='1';
         lcd_e<='1';
         data<="01000101";
   when "000111"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "001000"=>
         lcd_rs<='0';
         lcd_e<='1';
         data<="10000010";
   when "001001"=>
         lcd_rs<='0';
         lcd_e<='0';
   when "001010"=>        --xian E
         lcd_rs<='1';
         lcd_e<='1';
         data<="01000101";
   when "001011"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "001100"=>
         lcd_rs<='0';
         lcd_e<='1';
         data<="10000011";
   when "001101"=>
         lcd_rs<='0';
         lcd_e<='0';
   when "001110"=>       --xian P
         lcd_rs<='1';
         lcd_e<='1';
         data<="01010000";
   when "001111"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "010000"=>
         lcd_rs<='0';
         lcd_e<='1';
         data<="10000100";
   when "010001"=>
         lcd_rs<='0';
         lcd_e<='0';
   when "010010"=>       --xian w
         lcd_rs<='1';
         lcd_e<='1';
         data<="01010111";
   when "010011"=>
         lcd_rs<='1';
         lcd_e<='0';
         lcd_e<='0';
   when others=>null;
   end case;
   end if;
end process;
end ;

风语者1991

工程师

2012-12-24 23:07:29 打赏

18楼

1602显示图片：

风语者1991

工程师

2012-12-24 23:08:47 打赏

19楼

12864显示程序：
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
entity LCD12864 is
port ( clk :in std_logic;
       lcd_rs:out std_logic;
       lcd_rw:out std_logic;
      lcd_e: out std_logic;
      data:out std_logic_vector(7 downto 0)
);
end LCD12864;
architecture one of LCD12864 is
signal bcd: std_logic_vector(5 downto 0);
signal cnt: std_logic_vector(9 downto 0);
--signal count:std_logic_vector(7 downto 0):="00110000";
begin
process(clk)
begin
if clk'event and clk='1' then
   bcd<=bcd+1;
   cnt<=cnt+1;
   --count<=count+1;
   case bcd is

   when "000100"=>
         lcd_rs<='0';
         lcd_e<='1';
         data<="10000001";
   when "000101"=>
         lcd_rs<='0';
         lcd_e<='0';
   when "000110"=>      --xian E
         lcd_rs<='1';
         lcd_e<='1';
         data<="01000101";
   when "000111"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "001010"=>        --xian E
         lcd_rs<='1';
         lcd_e<='1';
         data<="01000101";
   when "001011"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "001110"=>       --xian P
         lcd_rs<='1';
         lcd_e<='1';
         data<="01010000";
   when "001111"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "010010"=>       --xian W
         lcd_rs<='1';
         lcd_e<='1';
         data<="01010111";
   when "010011"=>
         lcd_rs<='1';
         lcd_e<='0';



   when "100100"=>
        lcd_rs<='0';
        lcd_e<='1';
        data<="10010010";
   when "100101"=>
        lcd_rs<='0';
        lcd_e<='0';
   when "100110"=>       --显示
        lcd_rs<='1';
        lcd_e<='1';
        data<="10110111";
   when "100111"=>
         lcd_rs<='1';
         lcd_e<='0';
   when "101000"=>
         lcd_rs<='1';
         lcd_e<='1';
         data<="11100111";
   when "101001"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "101010"=>
        lcd_rs<='1';
        lcd_e<='1';
        data<="11010011";
   when "101011"=>
         lcd_rs<='1';
         lcd_e<='0';
   when "101100"=>
         lcd_rs<='1';
         lcd_e<='1';
         data<="11101111";
   when "101101"=>
         lcd_rs<='1';
         lcd_e<='0';

    when "101110"=>
        lcd_rs<='1';
        lcd_e<='1';
        data<="11010101";
   when "101111"=>
         lcd_rs<='1';
         lcd_e<='0';
   when "110000"=>
         lcd_rs<='1';
         lcd_e<='1';
         data<="11011111";
   when "110001"=>
         lcd_rs<='1';
         lcd_e<='0';


   when "110010"=>      --xian 1
         lcd_rs<='1';
         lcd_e<='1';
         data<="00110001";
   when "110011"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "110100"=>        --xian 9
         lcd_rs<='1';
         lcd_e<='1';
         data<="00111001";
   when "110101"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "110110"=>       --xian 9
         lcd_rs<='1';
         lcd_e<='1';
         data<="00111001";
   when "110111"=>
         lcd_rs<='1';
         lcd_e<='0';

   when "111000"=>       --xian 1
         lcd_rs<='1';
         lcd_e<='1';
         data<="00110001";
   when "111001"=>
         lcd_rs<='1';
         lcd_e<='0';

   when others=>null;
   end case;
end if;
end process;
end ;

风语者1991

工程师

2012-12-24 23:10:10 打赏

20楼

12864显示图片：

共22条 2/3 ‹ 1 2 3 › 跳转至页

发新帖

每日签到

有奖活动
高校联络员开始招募啦！有惊喜！！
【工程师专属福利】每天30秒，积分轻松拿！EEPW宠粉打卡计划启动！
送您一块开发板，2025年“我要开发板活动”又开始了！
分享开发笔记，赚取电动螺丝刀（便携轻巧与无刷电机两款可选）
看《关键跃升》，聊聊工作心法、动力、能力、沟通与协作，从五个方面深入交流你的工作心得
我要给自己挣一部逻辑分析仪
【有奖活动】EEPW网站征稿正在进行时，欢迎踊跃投稿啦
【活动延期至2025年6月30日】写试用笔记分享开发经验，换取手持数字示波器

打赏帖
今天的咸鱼也是曾经鱼跃龙门的天纵之才，中流击水，浪遏飞舟，粪土当年万户侯，数风流人物，还看今朝，被打赏5分
分享一种检测按键状态的方法被打赏20分
周末总结一下，STM32C0系列的开发经验被打赏50分
【换取手持数字示波器】MicrochipMPLABHarmony框架下定时器配置被打赏20分
【换取手持数字示波器】MicrochipMPLABHarmony框架下PWM配置被打赏20分
【Cortex-M】Systick Timer使用被打赏10分
分享汽车防盗系统的组成与分类（一）被打赏5分
VOFA+波形显示+JYD-31蓝牙发送和解析不定长数据被打赏10分
【换取手持数字示波器】-STM32F4PWM控制LED灯管亮度被打赏22分
【换取手持数字示波器】STM32F4驱动RPR-0521RS照度、接近一体型传感器被打赏23分

热门分类
STM32	MCU
通讯及无线技术	物联网技术
电子DIY	板卡试用
基础知识	软件与操作系统
我爱生活	小e食堂

回复