静音琴的源码,有兴趣的拼音可以下载下来看看,这个是可以生产的程序.

;##############################################################
;********************************
;       音量表
;********************************
;Private Sub sssl_Click()
;    Dim n$
;    Dim M As Long
;    Dim X As Long
;    Dim Y As Long
;    Dim a As Long
;    Dim b As Long
;    Dim c As Long
;    Dim d As Long
;    Dim e As Long
;    n$ = "DW     "
;    d = 0
;    M = 0
;    For X = 1 To 90000
;        Y = 16400 / X + 3
;        a = Int(Y * 10) / 10
;        b = Int(Y)
;        c = a - b
;        If c >= 0.5 Then b = b + 1
;        If M <> b Then
;            M = b
;            d = d + 1
;            e = e + 1
;            If e = 16 Then
;                e = 0
;                n$ = n$ & X & ";"
;                n$ = n$ & Chr(13) & Chr(10)
;                n$ = n$ & "DW     "
;            Else
;                n$ = n$ & X & ","
;            End If
;        End If
;    Next X
;    ActiveForm.rtfText = n$ & "---" & d
;    Beep
;End Sub
;--------------------------------
TAB_INYLB:
     DW     1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16;
     DW     17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32;
     DW     33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48;
     DW     49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64;
     DW     65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80;
     DW     81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96;
     DW     97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112;
     DW     113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128;
     DW     129,130,131,132,133,134,135,137,138,139,140,141,142,144,145,146;
     DW     148,149,150,152,153,154,156,157,159,161,162,164,165,167,169,170;
     DW     172,174,176,178,180,182,184,186,188,190,192,195,197,199,202,204;
     DW     207,209,212,215,218,221,224,227,230,233,236,240,243,247,251,255;
     DW     259,263,267,272,276,281,286,291,296,301,307,313,319,325,332,339;
     DW     346,353,361,369,378,386,396,405,416,426,438,450,462,476,490,505;
     DW     521,538,556,576,597,619,644,670,698,729,763,801,842,887,938,994;
     DW     1059,1132,1215,1313,1427,1562,1727,1930,2187,2524,2982,3645,4686,6561,10934,32801;
     include "软件陷阱.asm"
;##############################################################
;********************************
;       音量修正表
;********************************
;       60H=不变,反比例
;--------------------------------
TAB_YLXZB:
     DB      60H;
     DB      60H,60H,60H,60H,60H,60H,60H,60H,60H,60H;
     DB      60H,60H,60H,60H,60H,60H,60H,60H,60H,60H;
;            白  黑  白  白  黑  白  黑  白  白  黑  白  黑
;            -----------------------------------------------
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;1~12
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;13~24
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;25~36
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;37~48
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;49~60
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;61~72
     DB      55H,7CH,55H,55H,7CH,55H,7CH,55H,55H,7CH,55H,7CH;73~84
     DB      55H,7CH,55H,55H                                ;85~88
;          -------------------------------------------------
     DB      60H,60H,60H,60H,60H,60H,60H,60H,60H,60H;
     DB      60H,60H,60H,60H,60H,60H,60H,60H,60H;
     include "软件陷阱.asm"
;##############################################################
;********************************
;   音量线性表
;********************************
;入口:  A       音量大小  0~255
;出口:  A       音量大小  1~127
;--------------------------------
TAB_YLXXB:
     DB      1,1,1,1,1,1,1,1,2,2;0~9
     DB      2,2,2,3,3,3,3,4,4,4;10~19
     DB      5,5,6,7,8,9,10,11,12,13;20~29
     DB      14,15,16,17,18,19,20,21,22,23;30~39
     DB      24,25,26,27,28,29,30,31,32,33;40~49
     DB      34,35,36,37,38,39,40,41,62,43;50~59
     DB      44,45,46,47,48,49,50,51,52,53;60~69
     DB      54,55,56,57,58,59,60,61,62,63;70~79
     DB      64,65,66,67,68,69,70,71,72,73;80~89
     DB      74,75,76,77,78,79,80,81,82,83;90~99
     DB      84,85,86,87,88,89,90,91,92,93;100~109
     DB      94,95,96,97,98,99,100,101,102,103;110~119
     DB      104,104,105,106,107,108,108,109,110,111;120~129
     DB      111,112,113,113,114,114,115,115,116,116;130~139
     DB      117,117,117,118,118,118,119,119,119,119;140~149
     DB      120,120,120,120,120,121,121,121,121,121;150~159
     DB      121,122,122,122,122,122,122,122,123,123;160~169
     DB      123,123,123,123,123,123,124,124,124,124;170~179
     DB      124,124,124,124,124,125,125,125,125,125;180~189
     DB      125,125,125,125,125,126,126,126,126,126;190~199
     DB      126,126,126,126,126,126,126,126,126,126;200~209
     DB      127,127,127,127,127,127,127,127,127,127;210~219
     DB      127,127,127,127,127,127,127,127,127,127;220~229
     DB      127,127,127,127,127,127,127,127,127,127;230~239
     DB      127,127,127,127,127,127,127,127,127,127;240~249
     DB      127,127,127,127,127,127,127,127,127,127;250~255
     include "软件陷阱.asm"
;##############################################################