📄 单片机音乐试验1.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0039)http://www.8951.com/test/test/8yihe.htm -->
<HTML><HEAD><TITLE>单片机音乐试验</TITLE><LINK href="单片机音乐试验1.files/gpszx.css"
type=text/css rel=stylesheet><LINK href="../index.files/gpszx.css" type=text/css
rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId></HEAD>
<BODY>
<DIV align=center>
<CENTER>
<TABLE height=356 cellSpacing=0 cellPadding=0 width=769 bgColor=#66ccff
borderColorLight=#000000 border=0>
<TBODY>
<TR>
<TD align=middle width=752 bgColor=#ffffff colSpan=5 height=356><FONT
font><FONT color=#ff0000>单片机提高</FONT><FONT color=#ff0000><IMG height=11
src="单片机音乐试验1.files/gif091.gif" width=28 border=0></FONT><FONT
color=#454545>WWW.51C51.COM
自学单片机的网站：作中国单片机编程技术普及推广第一站！倚天一出宝刀屠龙</FONT></FONT><IMG height=100
src="单片机音乐试验1.files/titou2.jpg" width=760 border=0> <FONT color=#454545
font><A href="http://www.8951.com/index.htm">返回主页 给我留言</A> <A
href="http://www.8951.com/jiaoxue.htm">单片机教学</A> <A
href="http://www.8951.com/tigao.htm">单片机提高</A> <A
href="http://www.8951.com/pinzhi.htm">品质技术</A> <A
href="http://www.8951.com/1000/WANGZHI.HTM">单片机网址</A> <A
href="http://www.8951.com/down/down.htm">软件下载</A> <A
href="http://www.8951.com/yejin/yejin.htm">学液晶显示</A> <A
href="http://www.8951.com/chanpin.htm">产品介绍</A> <A
href="http://www.8951.com/10/huikan.htm">如何购买</A></FONT>
<P>;***************************************************************************<BR>;*
(程序转载请著明出处 ，未声明可适应本站腾龙/isp开发套件/倚天版开发套件
*<BR>;* E-mail:sxj1974@163.com (51c51 test web)
51单片机学习网，自学单片机的网站
*<BR>;* Create by :石学军 <A
href="http://www.51c51.com/">http://www.51c51.com/</A>
www.8951.com
更多例程请登陆网站
*<BR>;***************************************************************************</P>
<CENTER></CENTER>
<P align=left>;应天津网友张默要求编制的八音盒程序，适用于本站各版本开发套件。<BR>;声音分十个频率逐渐提高，
修改频率和时长可实现不同的声音效果。 <BR>;if the 32h&33h overflow,then p3.3
cpl.<BR>;if the 30h&31h overflow,then update 32h&33h.<BR>org
0000h<BR>ajmp main<BR>org 000bh<BR> ajmp timer0<BR>org
0030h<BR><BR>timer0:<BR>clr ea<BR>djnz 33h,exit<BR>mov 33h,53h<BR>djnz
32h,exit<BR>mov 32h,52h<BR>djnz 31h,exit1<BR>mov 31h,51h<BR>djnz
30h,exit1<BR>setb f0<BR>ajmp exit<BR>exit1: cpl p3.3<BR>exit: setb
ea<BR>reti<BR>main:<BR>mov tmod,#02h<BR>mov ie,#82h<BR>mov th0,#254<BR>mov
tl0,#254<BR>mov dptr,#tab<BR>main1:<BR>mov 40h,#00h<BR>loop:<BR>clr
ea<BR>mov a,40h<BR>movc a,@a+dptr<BR>mov 30h,a<BR>mov 50h,a<BR>inc
40h<BR>mov a,40h<BR>movc a,@a+dptr<BR>mov 31h,a<BR>mov 51h,a<BR>inc
40h<BR>mov a,40h<BR>movc a,@a+dptr<BR>mov 32h,a<BR>mov 52h,a<BR>inc
40h<BR>mov a,40h<BR>movc a,@a+dptr<BR>mov 33h,a<BR>mov 53h,a<BR>setb
ea<BR>setb tr0<BR>jnb f0,$<BR>clr f0<BR>inc 40h<BR>mov a,40h<BR>cjne
a,#40,loop<BR>ajmp main1<BR>tab: ; 30h,31h,32h,33h<BR>db 2,25,24,16 ;low
frequency<BR>db 4,25,24,8<BR>db 8,25,24,4<BR>db 12,25,12,4<BR>db
20,25,6,4<BR>db 30,25,5,4<BR>db 40,25,4,4<BR>db 50,25,3,4<BR>db
60,25,2,4<BR>db
70,50,1,4<BR><BR>end<BR><BR></P></TD></TR></TBODY></TABLE></DIV></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -