+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : [مشروع] مثال تحويل الرقم الى سورة والعكس (/showthread.php?tid=30048)
مثال تحويل الرقم الى سورة والعكس - سعود - 26-06-19
آمل ان يعجبكم المثال
معذرة على الخطا الاملائي بالصورة او البرنامج!
التعديل ليكون هكذا
PHP كود :
ln.Caption = Split(tn, ";")(0)
ls.Caption = Split(tn, ";")(1)
فيه قصور في البرنامج .....ساعمل على تعديله قريبا ان شاء الله.
القصور هو لو تكتب رقم او حرف يجلب آخر نتيجة في المصفوفة.
التعديل بسيط
PHP كود :
If Text1.Text <> Split(tn, ";")(0) And Text1.Text <> Split(tn, ";")(1) Then
MsgBox "النص لا يوجد", vbCritical, "خطأ"
Exit Sub
End If
توضع قبل الاسناد لـ ln و ls
RE: مثال تحويل الرقم الى سورة والعكس - سعود - 26-06-19
(26-06-19, 03:18 AM)Amir_Alzubidy كتب : اللهم اجعل القرآن الكريم ربيع قلوبنا
بارك الله فيك اخوي سعود
اللهم آمين
وفيك بارك الله.
اشكر زيارتك للموضوع.