急求简单电子琴程序设计

************************

DATA SEGMENT

msg DB 0DH,0AH,'[ 1 2 3 4 5 6 7 ]'

DB 0DH,0AH,' [ q w e r t y u ]'

DB 0DH,0AH,'_________________'

DB 0DH,0AH,'9: EXIT'顷局段

DB 0DH,0AH,'_________________','$'

********音调******后面用到-1判断音乐播是否放完

sound_0 DW -1

sound_11 DW 441,-1

sound_12 DW 495,-1

sound_13 DW 556,-1

sound_14 DW 589,-1

sound_15 DW 661,-1

sound_16 DW 742,-1

sound_17 DW 833,-1

sound_1 DW 882,-1

sound_2 DW 990,-1

sound_3 DW 1112,-1

sound_4 DW 1178,-1

sound_5 DW 1322,-1

sound_6 DW 1484,-1

sound_7 DW 1655,-1

timeDW 25

DATA ENDS

************************

STACK SEGMENT

Db 200 DUP ('STACK')

STACK ENDS

***********************

CODE SEGMENT

ASSUME DS:DATA,SS:STACK,CS:CODE

START:

MOV AX,DATA

MOV DS,AX

MOV aH,0

MOV AL,00

INT 10H

*****定义一个宏*****

SHOW MACRO b

LEA DX,b

MOV AH,9

INT 21H

ENDM

********一个声音宏********

onesound macro soundis,jumpis,letteris

CMP AL,letteris

JNZ jumpis

LEA SI,soundis

LEA BP,DS:time

CALL MUSIC

JMP input

ENDM

show msg

INPUT: MOV AH,01H

INT 21H

CMP AL,'9'

jnz go

mov ah,4ch

int 21h

go: onesound sound_11,a0,'q'

a0: onesound sound_12,b0,'w'

b0: onesound sound_13,c0,'e'

c0: onesound sound_14,d0,'r'

d0: onesound sound_15,e0,'雀誉t'

e0: onesound sound_16,f0,'y'

f0: onesound sound_17,g0,'u'

g0: onesound sound_1,h0,'1'

h0: onesound sound_2,i0,'2'

i0: onesound sound_3,j0,'3'

j0: onesound sound_4,k0,'4'

k0: onesound sound_5,l0,'5'

l0: onesound sound_6,m0,'6'

m0: onesound sound_7,n0,'7'

n0: onesound sound_0,o0,al

o0: jmp input

********************发声腊仿

GENSOUND PROC NEAR

-------------

PUSH AX

PUSH BX

PUSH CX

PUSH DX

PUSH DI

--------------

MOV AL,0B6H

OUT 43H,AL

MOV DX,12H

MOV AX,348ch

DIV DI

OUT 42H,AL

MOV AL,AH

OUT 42H,AL

IN AL,61H

MOV AH,AL

OR AL,3

OUT 61H,AL

WAIT1: MOV CX,3314

call waitf

DELAY1: DEC BX

JNZ WAIT1

MOV AL,AH

OUT 61H,AL

----------------

POP DI

POP DX

POP CX

POP BX

POP AX

-------------------

RET

GENSOUND ENDP

**************************

waitf proc near

push ax

waitf1:

in al,61h

and al,10h

cmp al,ah

je waitf1

mov ah,al

loop waitf1

pop ax

ret

waitf endp

************************

MUSIC PROC NEAR

PUSH DS

SUB AX,AX

PUSH AX

FREG: MOV DI,[SI]

CMP DI,-1音乐是否放完？

JE END_MUS

MOV BX,DS:[BP]

CALL GENSOUND

ADD SI,2

ADD BP,2

JMP FREG

END_MUS:

RET

MUSIC ENDP

CODE ENDS

**********************

END START

需要先准备个微信。

步骤：1、首先打开手毁消机微信APP软件。

2、然后点击右清手上角放大镜图标。

3、然后搜索电子琴。

4、然后点击小程序。

5、然答余嫌后点击模拟钢琴小程序。

6、最后点击钢琴键即可d电子琴了。

d琴是用手指拨弄琴弦、键盘，发出乐音。

---