السلام عليكم ورحمة الله وبركاته
الموضوع فقط ان اي معلومة تكون صعبة بالنسبة لي وتنفيذ او تلبية طلب يكون صعب لكن مع مرور الوقت اتفاجا ان ثمة طرق للتطبيق ابسط مما كنت استخدم
سبحان الله
استخدمت ملف اجراء سرد السور والارقام وكذلك وضعت دالة تستقبل رقم وتعيد اسم السورة
طبعا لابد ان يكون التنسيق ثلاث خانات هكذا
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