17-04-17, 08:31 AM
يمكن اختصار أكثر من ذلك
PHP كود :
Function GetTone(ZC As Integer, ZE As Integer) As Double
If (ZC < 1 Or ZC > 20) Or (ZE < 1 Or ZE > 5) Then Return 0
Dim arr(,) As Integer = {
{1500, 1520, 1540, 0, 0}, {1560, 1580, 1600, 0, 0}, {1620, 1640, 1660, 0, 0}, {1680, 1700, 1745, 0, 0},
{1790, 1850, 1910, 0, 0}, {1970, 2040, 2100, 0, 0}, {2170, 2240, 2300, 0, 0}, {2380, 2460, 2530, 0, 0},
{2610, 2700, 2780, 0, 0}, {2850, 2920, 2990, 3060, 0}, {3070, 3130, 3190, 3250, 0}, {3320, 3380, 3450, 3530, 0},
{3540, 3640, 3730, 3830, 0}, {3920, 4000, 4080, 4160, 4240}, {4340, 4430, 4520, 4620, 4720}, {4820, 4920, 5020, 5120, 5220},
{5340, 5450, 5560, 5690, 5810}, {5930, 6060, 6190, 6320, 6450}, {6580, 6720, 6860, 7000, 7140}, {7300, 7460, 7620, 7780, 7940}
}
Dim tone As Double = (arr((ZC - 1), (ZE - 1)) * 35) / 100
Return tone
End Function
