参照艾米电子的程序进行改写的

//date : 2014,5,4 

module for_beep (
clock ,
reset ,
out_beep
);
input clock ,reset ;
output reg out_beep ; reg [:] state ;
reg [:] clk1 ;
reg [:] cnt0 ;
reg [:] delay_cnt1; parameter du = ,
re = ,
mi = ,
fa = ,
so = ,
la = ,
xi = ,
do1 = ; always @ (posedge clock or negedge reset )
begin
if (!reset )
begin
clk1 <= 'd0 ;
state <= 'd0 ;
cnt0 <= 'd0 ;
delay_cnt1 <= 'd0 ;
out_beep <= 'd0 ;
end
else if(clk1 == 'd8)
begin
case (state)
'd0 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd1 ; if(cnt0 != du)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd1 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd2 ; if(cnt0 != re)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd2 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd3 ; if(cnt0 != mi)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd3 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd4 ; if(cnt0 != fa)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd4 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd5 ; if(cnt0 != so)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd5 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd6 ; if(cnt0 != la)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd6 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd7 ; if(cnt0 != xi)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end
'd7 : begin
delay_cnt1 <= delay_cnt1 + 'd1;
if(delay_cnt1 == 'h1ff_ffff)
state <= 'd0 ; if(cnt0 != do1)
cnt0 <= cnt0 + 'd1 ;
else
begin
cnt0 <= 'd0 ;
out_beep <= ~out_beep ;
end
end endcase
end
else if(clk1 < 'd9 ) clk1 <= clk1 + 4'd1 ;
else clk1 <= 'd0 ;
end endmodule

beep的控制程序的更多相关文章

  1. 【python】调用机器喇叭发出蜂鸣声(Beep)

    ##coding:utf-8 import winsound winsound.Beep(600,6000) #其中600表示声音大小,1000表示发生时长,1000为1秒

  2. Smart210学习记录----beep linux字符设备驱动

    今天搞定了beep linux字符设备驱动,心里还是很开心的,哈哈...但在完成的过程中却遇到了一个非常棘手的问题,花费了我大量的时间,,,, 还是把问题描述一下吧,好像这个问题很普遍的,网上许多解决 ...

  3. [irving] C# Windows Beep 调用声音文件

    方法一:Console.Beep(); 方法二:可以用Console.WriteLine("/a");来代替Beep(). MSDN:http://msdn.microsoft.c ...

  4. 重新开始学习javase_控制程序流程

    @学习thinking in java 二.控制程序流程 负数使用 Java 运算符:运算符以一个或多个自变量为基础,可生成一个新值.自变量采用与原始方法调用不同的一种形式,但效果是相同的.根据以前写 ...

  5. C++中发声函数Beep详解

    By zhcs 以前,我听过一个神犇用C++函数做的音乐,当时的心里就十分激动:哇,好厉害啊,好神啊. 这次,我终于通过自己无助的盲目的摸索.研究,写出了这篇文章(此时我的内心是鸡冻的233) 下面是 ...

  6. 【技能大赛笔记01】Zigbee点对点按键控制程序开发

    [技能大赛笔记01]Zigbee点对点按键控制程序开发 --2017年"物联网物联网技术应用与维护"任务五题1(中职组) 1.题目要求 2.工程文件 在比赛中,提供了一个基于Bas ...

  7. Beep函数实现硬件蜂鸣声

    #include <Windows.h> #include <tchar.h> int WINAPI _tWinMain(HINSTANCE hInstance, HINSTA ...

  8. DX9 DirectX鼠标控制程序 代码

    代码实例1: // @time: 2012.3.26 // @author: jadeshu // des: DirectX鼠标控制程序 #include <Windows.h> #inc ...

  9. DX9 DirectX键盘控制程序 代码

    // @time: 2012.3.26 // @author: jadeshu // des: DirectX键盘控制程序 #include <Windows.h> #include &l ...

随机推荐

  1. bmfont制作数字

    http://blog.csdn.net/z104207/article/details/20136401

  2. IOS 学习笔记(6) 控件 文本域(UITextField)的使用方法

    UITextField控件的诸多特性都和UITextView相似,比如成为输入文本焦点时键盘自动显示,支持长按弹出动作选项,能够接收输入事件(开始输入,修改内容,结束输入和点击回车等). 1.特有的特 ...

  3. MVC-Easy-UI-datagrid-分页-查询

    时间仓促,代码写的乱,莫怪,着影区不用理会(功能之外) <link href="@Url.Content("~/Content/Site.css")" r ...

  4. HDU 3231 Box Relations

    题目大意: 给定一些正方体的关系,要求一组符合这些关系的正方体坐标,如果不存在符合条件的正方体坐标,IMPOSSIBLE.(Special Judge) 实力还是太弱了,完全不会…… #include ...

  5. [转]WIBKIT技术资料

    WebKit结构和流程分析 http://inedx.blog.hexun.com/28830354_d.html webkit架构 http://inedx.blog.hexun.com/28795 ...

  6. Flex XML搜索、匹配

    - <?xml version="1.0" encoding="utf-8"?> <s:Application xmlns:fx=" ...

  7. [置顶] perl脚本中defined,exists和delete关键字的用法和区别

    刚学习perl脚本的时候,喜欢频繁使用defined关键字判断一个hash中某个key是否存在,后来程序出了问题才去perl官方文档查看关于defined关键字的准确使用方法.因此,这里我把perl中 ...

  8. 高可用mysql集群搭建

    对web系统来说,瓶颈大多在数据库和磁盘IO上面,而不是服务器的计算能力.对于系统伸缩性我们一般有2种解决方案,scale-up(纵向扩展)和scale-out(横向扩展).前者如扩内存,增加单机性能 ...

  9. HDU4099(斐波那契数列与字典树)

    题目:Revenge of Fibonacci 题意:给出斐波那契数列的前k位,k不超过40,找出最小的正整数n,满足F(n)的前k位与给定数的前k位相同,斐波那契数列的项数不超过100000. 解析 ...

  10. SSIS CDC(Change Data Capture)组件在数据库中启用报错。 The error returned was 14234: 'The specified '@server' is invalid

    昨天实验CDC,在数据库中执行以下语句的时候出错. EXEC sys.sp_cdc_enable_table @source_schema = N'stg', @source_name = N'CDC ...