您所在位置：主题：一个电子琴演奏的程序！供大家交流！（转）
jhood
[专家分：50] 发布于 2005-10-19 14:56:00
CLS
LOCATE 10, 30
PRINT "电子琴演奏"
LOCATE 12, 5
PRINT "按1234567演奏,或<按>键改变音阶,按Q键退出"
a$ = " "
DO UNTIL a$ = "Q"
SELECT CASE a$
CASE "6"
PLAY "A"
CASE "7"
PLAY "B"
CASE "1"
PLAY "C"
CASE "2"
PLAY "D"
CASE "3"
PLAY "E"
CASE "4"
PLAY "F"
CASE "5"
PLAY "G"
CASE "<", ">"
PLAY a$
CASE ELSE
LOCATE 15, 30
PRINT "请按指定键操作......"
END SELECT
a$ = UCASE$(INPUT$(1))
LOCATE 15, 30
PRINT " "
LOOP
END
LOCATE 10, 30
PRINT "电子琴演奏"
LOCATE 12, 5
PRINT "按1234567演奏,或<按>键改变音阶,按Q键退出"
a$ = " "
DO UNTIL a$ = "Q"
SELECT CASE a$
CASE "6"
PLAY "A"
CASE "7"
PLAY "B"
CASE "1"
PLAY "C"
CASE "2"
PLAY "D"
CASE "3"
PLAY "E"
CASE "4"
PLAY "F"
CASE "5"
PLAY "G"
CASE "<", ">"
PLAY a$
CASE ELSE
LOCATE 15, 30
PRINT "请按指定键操作......"
END SELECT
a$ = UCASE$(INPUT$(1))
LOCATE 15, 30
PRINT " "
LOOP
END
