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