+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : البحث في مصفوفة نصية[مثال الحصول على اسم السورة بدلالة ترتيبها الرقمي] (/showthread.php?tid=34196)
البحث في مصفوفة نصية[مثال الحصول على اسم السورة بدلالة ترتيبها الرقمي] - سعود - 06-04-20
السلام عليكم ورحمة الله وبركاته
الموضوع فقط ان اي معلومة تكون صعبة بالنسبة لي وتنفيذ او تلبية طلب يكون صعب لكن مع مرور الوقت اتفاجا ان ثمة طرق للتطبيق ابسط مما كنت استخدم
سبحان الله
استخدمت ملف اجراء سرد السور والارقام وكذلك وضعت دالة تستقبل رقم وتعيد اسم السورة
طبعا لابد ان يكون التنسيق ثلاث خانات هكذا
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
RE: البحث في مصفوفة نصية[مثال الحصول على اسم السورة بدلالة ترتيبها الرقمي] - rfhdgd - 18-04-20
الرجاء إعادة المشروع على vb net 2010
RE: البحث في مصفوفة نصية[مثال الحصول على اسم السورة بدلالة ترتيبها الرقمي] - سعود - 18-04-20
(18-04-20, 10:19 PM)rfhdgd كتب : الرجاء إعادة المشروع على vb net 2010
افتح ملف المشروع اللي باسم SearchArray.vbproj
باي محرر نصوص وقم باستبدال رقم نسخة الفريم وورك من 4.7.2 الى 4.0 ويشتغل معك باذن الله.
الملف بعد تعديله ليعمل على vb 2010 مرفق.