[سعود]

السلام عليكم ورحمة الله  وبركاته

الموضوع فقط ان اي معلومة تكون صعبة بالنسبة لي وتنفيذ او تلبية طلب يكون صعب لكن مع مرور الوقت اتفاجا ان ثمة طرق للتطبيق ابسط مما كنت استخدم

سبحان الله

استخدمت ملف اجراء سرد السور والارقام وكذلك وضعت دالة تستقبل رقم وتعيد اسم السورة

طبعا لابد ان يكون التنسيق ثلاث خانات هكذا

000

يبدا من رقم 1

001

PHP كود :

Public Function NumberToName(n As String) As String
        Dim i As Integer
        For i = 0 To UBound(row) - 1
            If row(i).ToString.Split(";")(0) = n Then
                Return row(i).ToString.Split(";")(1) ' "001;الفاتحة"
                Exit Function
            End If
        Next
        Return Nothing
    End Function

 If Trim(snumber.Text.Trim) = "" Then Beep() : Exit Sub
        Dim result As String = NumberToName(snumber.Text)
        If IsNothing(result) = False Then
            Lsurah.Text = result
            snumber.Select()
            snumber.Focus()
            Exit Sub
        End If
        Beep()
        snumber.Clear()
        snumber.Select()
        snumber.Focus()
        Lsurah.Text = String.Empty