(求助)請問DE2-70版子 音樂合成器

您好  我是剛學習VERILOG的新手  我剛碰到一個專案 是DE2-70版子裡的 DE2_70_Music_Synthesizer 我有抓到音樂裡的音階 比如Do Re Mi Fa Sol La Ti Do'等8個基本音 但有的音快有的音慢 我只能用數字來衡量他的數字或是做筆記來計入 是可以的 而且一定可以抓到 但有個問題 在程式裡有一段為pitch .Music-processing和paddle

要如何解釋裡面程式是在做甚麼的??

 

module demo_sound1(
 input  clock,
 output [7:0]key_code,
 input  k_tr
);

 reg [15:0]tmp;
 wire[15:0]tmpa;
 reg tr;
 reg [15:0]step;
 wire[15:0]step_r;
 reg [15:0]TT;
 reg[5:0]st;
 reg go_end;

Music-processing
 always @(negedge k_tr or posedge clock) begin
 if (!k_tr) begin
     step=0;
     st=0;
     tr=0;
 end
 else
 if (step<step_r) begin
    case (st)
    0: st=st+1;
    1: begin tr=0; st=st+1;end
    2: begin tr=1;st=st+1;end
    3: if(go_end) st=st+1;
    4: begin st=0;step=step+1;end
    endcase
 end
 end

///  pitch  //
 wire [7:0]key_code1=(
  (TT[3:0]==1)?8'h2b:(//1
  (TT[3:0]==2)?8'h34:(//2
  (TT[3:0]==3)?8'h33:(//3
  (TT[3:0]==4)?8'h3b:(//4
  (TT[3:0]==5)?8'h42:(//5
  (TT[3:0]==6)?8'h4b:(//6
  (TT[3:0]==7)?8'h4c:(//7
  (TT[3:0]==10)?8'h52:(//1
  (TT[3:0]==15)?8'hf0:8'hf0
  ))))))))
 );

///  paddle  ///
 assign tmpa[15:0]=(
  (TT[7:4]==15)?16'h10:(
  (TT[7:4]==8)? 16'h20:(
  (TT[7:4]==9)? 16'h30:(
  (TT[7:4]==1)? 16'h40:(
  (TT[7:4]==3)? 16'h60:(
  (TT[7:4]==2)? 16'h80:(
  (TT[7:4]==4)? 16'h100:0
  ))))))
 );

/// note list ///
 always @(step) begin
 case (step)
0:TT=8'h11;//1
1:TT=8'h11;//1
2:TT=8'h15;//5
3:TT=8'h15;//5
4:TT=8'h16;//6
5:TT=8'h16;//6
6:TT=8'h25;//5

7:TT=8'h14;//4
8:TT=8'h14;//4
9:TT=8'h13;//3
10:TT=8'h13;//3
11:TT=8'h12;//2
12:TT=8'h12;//2
13:TT=8'h21;//1


14:TT=8'h15;//5
15:TT=8'h15;//5
16:TT=8'h14;//4
17:TT=8'h14;//4
18:TT=8'h13;//3
19:TT=8'h13;//3
20:TT=8'h22;//2
21:TT=8'h15;//5
22:TT=8'h15;//5

23:TT=8'h14;//4
24:TT=8'h14;//4
25:TT=8'h13;//3
26:TT=8'h13;//3
27:TT=8'h22;//2
28:TT=8'h11;//1
29:TT=8'h11;//1
30:TT=8'h15;//5
31:TT=8'h15;//5
32:TT=8'h16;//6
33:TT=8'h16;//6
34:TT=8'h25;//5
35:TT=8'h14;//4
36:TT=8'h14;//4
37:TT=8'h13;//3
38:TT=8'h13;//3
39:TT=8'h12;//2
40:TT=8'h12;//2
41:TT=8'h11;//1
 endcase
 end
 assign step_r=42;///Total note

/KEY release & code-out
 always @(negedge tr or posedge clock)begin
  if(!tr) begin tmp=0;go_end=0 ;end
  else if (tmp>tmpa)go_end=1;
  else tmp=tmp+1;
 end
 assign key_code=(tmp<(tmpa-1))?key_code1:8'hf0;

endmodule

转载于:https://www.cnblogs.com/huwiam99/archive/2008/09/01/1281513.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/549588.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

英国Carmarthen Learning Centre校长Mr Stuart来华访问,与荣新IT培训中心达成教学合作关系...

英国Carmarthen Learning Centre校长Mr Stuart来华访问&#xff0c;与荣新IT培训中心达成教学合作关系 2008年9月4日&#xff0c;英国Carmarthen Learning Centre校长Mr Stuart来华访问。Carmarthen Learning Centre所处于英国伦敦&#xff0c;是一家英国著名的培训学校&#x…

win10 桌面快捷键技术

win 10 的 快捷键技术&#xff0c;使用还是挺流畅舒适的&#xff1a; Windows10技术新增键盘快捷键汇总&#xff1a; 1、贴靠窗口&#xff1a;Win 左/右> Win 上/下>窗口可以变为1/4大小放置在屏幕4个角落 2、切换窗口&#xff1a;Alt Tab(不是新的&#xff0c;但任务切…

Service Broker实现发布-订阅(Publish-Subscribe)框架

Service Broker实现发布-订阅&#xff08;Publish-Subscribe&#xff09;框架Service Broker 实现一套完整的发布-订阅方案&#xff0c;其中author 发送Service Broker Message&#xff08;又称article&#xff09;到发布者&#xff08;Publisher&#xff09;。发布者负责分发消…

设计数据服务:为报表服务提供服务接口

功能: 为报表服务提供服务接口 1.技术组件 binlog canal kafka es 2. 服务器部署规划 3.整体架构 4.参考资料:https://www.jianshu.com/p/3ebab93ff075https://www.jianshu.com/p/e841e69a5e76https://www.jianshu.com/p/5acb30ec8347https://www.jianshu.com/p/2c17c75486f3 转…

(转载)简洁、明晰!数据库设计三大范式应用实例剖析

(转载http://bbs.database.ccidnet.com/read.php?tid325895) 简洁、明晰&#xff01;数据库设计三大范式应用实例剖析 引言OL~eR{q ;iC,$vZ 0} 数据库的设计范式是数据库设计所需要满足的规范&#xff0c;满足这些规范的数据库是简洁的、结构明晰的&#xff0c;同时&#xf…

CanvasRenderingContext2D.drawImage()无效,not working

我的技术框架&#xff1a;react&#xff0c;如若不采用堵塞方式&#xff0c;即&#xff0c;const myimg await loadImage(icon28) ctx.drawImage(myimg&#xff0c;0,0, 100, 100) 而用.then()&#xff0c;如下,loadImage(icon28).then((image) > { ctx.drawImage(image,0,…

选择软路由的七大理由

linux稳定、快速、安全可靠、性能卓越&#xff01; 但在这之前&#xff0c;很多的电脑里装的都是Windows系统&#xff0c;linux系统只用在高端领域。现在网上流行的路由软件大多是基于linux系统开发&#xff0c;具有以下几点优越性&#xff1a;第一、便宜现在市面上&#xff0c…

kafka start bat

start D:\Homes\kafka_2.12-2.3.0\bin\windows\kafka-server-start.bat D:\Homes\kafka_2.12-2.3.0\config\server.properties 转载于:https://www.cnblogs.com/zeenzhou/p/11455846.html

你所应该知道的云计算

感觉像是云计算的一个推崇者&#xff0c;为云计算在做广告&#xff0c;Robyn Peterson的文章What you need to know about cloud computing。 云计算可以保证我们不再受硬件的困扰&#xff0c;真的是这样吗&#xff1f; 在为一个小型商业或者大型企业构建IT结构的时候&#xff…

递归算法

一、递归的核心思想就是自己调用自己&#xff0c;一般来说能够用递归解决的问题应满足3个条件&#xff1a; 1.需要解决的问题可以转化为一个或多个子问题来求解&#xff0c;而这些子问题的求解方法与原问题完全相同&#xff0c;只是在数量和规模上不同。 2.递归调用的次数必须是…

malloc coredump(宕)的问题

最近公司一个产品在AIX5.3上&#xff0c;运行若干天后&#xff0c;经常coredump&#xff0c;反复加日志后&#xff0c;逐渐定位到是调用strdup函数后&#xff0c;没有释放空间所导致。 在AIX5.3进行了测试&#xff0c;发现连续malloc后的现象如下&#xff1a;1&#xff…

MySQL5.5升级至5.7

一、下载免安装MySQL5.7包 下载页面 下载链接 二、替换mysql的安装目录 解压mysql5.7 tar -zxf mysql-5.7.23-linux-glibc2.12-x86_64.tar.gz -C /usr/mysql5.7 如果之前的mysql目录是链接的方式创建的话&#xff0c;那么只需要取消链接&#xff0c;从新做一下链接就可以了 如…

Linux下如何同时启动多个Tomcat服务器

所用Tomcat服务器都为zip版&#xff0c;非安装版。以两个为例&#xff1a; 安装第二个Tomcat完成后&#xff0c;到安装目录下的conf子目录中打开server.xml文件&#xff0c;查找以下三处&#xff1a; &#xff08;1&#xff09;修改http访问端口&#xff08;默认为8080端口&…

更改临时文件夹的路径

问&#xff1a;我使用的系统为Windows XP&#xff0c;我想把系统临时文件(Temp文件)存放区由C盘移到其他分区(如D盘)&#xff0c;请问该如何操作&#xff1f;答&#xff1a;在“我的电脑”上点鼠标右键&#xff0c;选择“属性”&#xff0c;然后进入高级选项&#xff0…

解决“添加删除程序”里面隐藏问题

在C:\Windows\Inf下找到Sysoc.inf文件&#xff0c;用记事本程序打开它&#xff0c;该文件显示了当前已安装程序的部分列表。我们拿MSN Messenger来做个实验&#xff0c;在其中找到这一句“msmsgsmsgrocm.dll,OcEntry,msmsgs.inf,hide,7”&#xff0c;其中“msmsgs”是MSN Messe…

wifi移植

平台&#xff1a;全志 A40I 源码&#xff1a;Android 7.1 Linux 3.10 模块&#xff1a;AP6255 台湾正基模块&#xff0c;美国博通方案固件(系列不同&#xff0c;固件不同) 驱动(原厂提供&#xff0c;一般通用) 固件&#xff1a;Android/hardware/broadcom/wlan/bcmdhd/fir…

Cisco Adsl 详细配置

&#xff01; vpdn enable   no vpdn logging <由于ADSL的PPPoE应用是通过虚拟拨号来实现的所以在路由器中需要使用VPDN的功能   !   vpdn-group pppoe <为PPPoE启动了VPDN的进程   request-dialin   protocol pppoe <设置拨号协议为PPPoE   !   …

大规模数据如何检索?

思考&#xff1a;大规模数据如何检索&#xff1f; 如&#xff1a;当系统数据量上了10亿、100亿条的时候&#xff0c;我们在做系统架构的时候通常会从以下角度去考虑问题&#xff1a; 1&#xff09;用什么数据库好&#xff1f;(mysql、sybase、oracle、达梦、神通、mongodb、hba…

SQL 语句技巧--排名函数的使用实例

今天看到一篇文章&#xff0c;关于讨论如何优化语句&#xff0c;原文如下&#xff1a; 作者总结贴&#xff1a; http://blog.csdn.net/wangd1121/archive/2008/06/23/2579435.aspx 网友讨论贴&#xff1a; http://topic.csdn.net/u/20080504/14/5c5866c3-8b91-45ef-ab17-f994f8…

二项式公式

取 即得 转载于:https://www.cnblogs.com/zeenzhou/p/11462928.html