?? p3.3小喇叭---生日快樂.0.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0039)http://www.8951.com/test/test/music.htm -->
<HTML><HEAD><TITLE>單片機(jī)音樂試驗(yàn)</TITLE><LINK href="P3.3小喇叭---生日快樂.0.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>單片機(jī)提高</FONT><FONT color=#ff0000><IMG height=11
src="P3.3小喇叭---生日快樂.0.files/gif091.gif" width=28 border=0></FONT><FONT
color=#454545>WWW.51C51.COM
自學(xué)單片機(jī)的網(wǎng)站：作中國單片機(jī)編程技術(shù)普及推廣第一站！倚天一出寶刀屠龍</FONT></FONT><IMG height=100
src="P3.3小喇叭---生日快樂.0.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">單片機(jī)教學(xué)</A> <A
href="http://www.8951.com/tigao.htm">單片機(jī)提高</A> <A
href="http://www.8951.com/pinzhi.htm">品質(zhì)技術(shù)</A> <A
href="http://www.8951.com/1000/WANGZHI.HTM">單片機(jī)網(wǎng)址</A> <A
href="http://www.8951.com/down/down.htm">軟件下載</A> <A
href="http://www.8951.com/yejin/yejin.htm">學(xué)液晶顯示</A> <A
href="http://www.8951.com/chanpin.htm">產(chǎn)品介紹</A> <A
href="http://www.8951.com/10/huikan.htm">如何購買</A></FONT>
<CENTER></CENTER>
<P
align=left>;P3.3小喇叭---生日快樂。<BR>;***************************************************************************<BR>;*
(程序轉(zhuǎn)載請著明出處 ，未聲明可適應(yīng)本站騰龍/isp開發(fā)套件/倚天版開發(fā)套件
*<BR>;* E-mail:sxj1974@163.com (51c51 test web)
51單片機(jī)學(xué)習(xí)網(wǎng)，自學(xué)單片機(jī)的網(wǎng)站
*<BR>;* Create by :石學(xué)軍 <A
href="http://www.51c51.com/">http://www.51c51.com/</A>
www.8951.com
更多例程請登陸網(wǎng)站
*<BR>;***************************************************************************
<BR>ORG 0000H<BR>LJMP START<BR>ORG 000BH<BR>INC 20H ;中斷服務(wù),中斷計(jì)數(shù)器加1<BR>MOV
TH0,#0D8H<BR>MOV TL0,#0EFH ;12M晶振，形成10毫秒中斷<BR>RETI<BR>START: <BR>MOV
SP,#50H<BR>MOV TH0,#0D8H<BR>MOV TL0,#0EFH<BR>MOV TMOD,#01H<BR>MOV
IE,#82H<BR>MUSIC0:<BR>NOP<BR>MOV DPTR,#DAT ;表頭地址送DPTR<BR>MOV 20H,#00H
;中斷計(jì)數(shù)器清0<BR>MOV B,#00H ;表序號清0<BR>MUSIC1:<BR>NOP<BR>CLR A<BR>MOVC A,@A+DPTR
;查表取代碼<BR>JZ END0 ;是00H,則結(jié)束<BR>CJNE A,#0FFH,MUSIC5<BR>LJMP
MUSIC3<BR>MUSIC5:<BR>NOP<BR>MOV R6,A<BR>INC DPTR<BR>MOV A,B<BR>MOVC
A,@A+DPTR ;取節(jié)拍代碼送R7<BR>MOV R7,A<BR>SETB TR0 ;啟動計(jì)數(shù)<BR>MUSIC2:<BR>NOP<BR>CPL
P3.3<BR>MOV A,R6<BR>MOV R3,A<BR>LCALL DEL<BR>MOV A,R7<BR>CJNE A,20H,MUSIC2
;中斷計(jì)數(shù)器(20H)=R7否?<BR>;不等,則繼續(xù)循環(huán)<BR>MOV 20H,#00H ;等于,則取下一代碼<BR>INC DPTR<BR>;
INC B<BR>LJMP MUSIC1<BR>MUSIC3:<BR>NOP<BR>CLR TR0 ;休止100毫秒<BR>MOV
R2,#0DH<BR>MUSIC4:<BR>NOP<BR>MOV R3,#0FFH<BR>LCALL DEL<BR>DJNZ
R2,MUSIC4<BR>INC DPTR<BR>LJMP MUSIC1<BR>END0:<BR>NOP<BR>MOV R2,#64H
;歌曲結(jié)束,延時(shí)1秒后繼續(xù)<BR>MUSIC6:<BR>MOV R3,#00H<BR>LCALL DEL<BR>DJNZ
R2,MUSIC6<BR>LJMP MUSIC0<BR>DEL:<BR>NOP<BR>DEL3: <BR>MOV
R4,#02H<BR>DEL4: <BR>NOP<BR>DJNZ R4,DEL4<BR>NOP<BR>DJNZ
R3,DEL3<BR>RET<BR>NOP<BR>DAT:<BR>db
26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h<BR>db
30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h<BR>db
20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h<BR>db
30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h<BR>db
30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h<BR>db
2bh,20h,30h,10h,39h,10h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,20h<BR>db
20h,10h,20h,10h,2bh,10h,26h,30h,30h,80h,18h,20h,18h,20h,26h,20h<BR>db
20h,20h,20h,40h,26h,20h,2bh,20h,30h,20h,30h,20h,1ch,20h,20h,20h<BR>db
20h,80h,1ch,20h,1ch,20h,1ch,20h,30h,20h,30h,60h,39h,10h,30h,10h<BR>db
20h,20h,2bh,10h,26h,10h,2bh,10h,26h,10h,26h,10h,2bh,10h,2bh,80h<BR>db
18h,20h,18h,20h,26h,20h,20h,20h,20h,60h,26h,10h,2bh,20h,30h,20h<BR>db
30h,20h,1ch,20h,20h,20h,20h,80h,26h,20h,30h,10h,30h,10h,30h,20h<BR>db
39h,20h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,10h,40h,10h,20h,10h<BR>db
20h,10h,2bh,10h,26h,30h,30h,80h,00H<BR><BR>END
<BR><BR></P></TD></TR></TBODY></TABLE></DIV></CENTER></BODY></HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -