17-04-17, 06:17 PM
(17-04-17, 11:51 AM)ahmedfa71 كتب : بارك الله فيكم علي الردود
ولكن على ما أضن أن رد الأخ عبد الله في GetTone
ليس بلغة vb net
كود الاخ عبد الله صحيح وبلغة vb.net ، ولكن السطر لم يكفي عندما قام بنسخ الكود الى الرد
على العموم اذا اضفنا _ الى نهاية كل سطر ستحل المشكلة
كود :
Function GetTone(ByVal ZC As Integer, ByVal 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
