قنديل الصياد

بعد اذن الاساتذة الكرام هذا الموضوع هام جدا وخاصة بالنسبة للذين يريدون رفع نتائج الطلاب على النت بواسطة لغة php ,دورة تعلم لغة البرمجة الـ PHP من الألف الى الياء (PHP from scratch (A-Z هذه الدورة موجودة على قناة الاستاذ احمد رضوان على اليوتوب الدورة موجودة باللغة العربية والإنجليزية - الدرس الأول (( تثبيت الـ Wamp Server )) ::: عربي ::: ::: English ::: =============== 2- الدرس الثاني (( تثبيت المحرر NetBeans )) ::: عربي ::: ::: English ::: =============== 3- الدرس الثالث (( المتغيرات Variables -- الجزء الأول -- )) ::: عربي ::: ::: English ::: =============== 4- الدرس الرابع (( المتغيرات Variables -- الجزء الثاني -- )) ::: عربي ::: ::: English :::

رابط آخر وشغال 100×100 http://natega.youm7.com/bheraeadady2015.asp

نتيجة اعدادية البحيرة 2015 http://elfaraby-eg.com/last2015/prep2015/marksrch.php

اخى العزيز اليك روابط النتيجة الرابط الاول فعلا الفيس بوك عامل له حظر http://matrouh.zaghost.com/Upload/natiga/index.htm الرابط الثانى على استضافة اخرى ويمكن ان تقوم بادراجه على الفيس بوك http://abusuliman.eb2a.com/natiga/index.htm تحياتى

اخى العزيز بعد اذن اساتذتنا الكرام جرب هذا الكود الكود Function write_Number(numberp) ' برنامج التفقيط On Error Resume Next Dim ttpa, xp, a, number_s, fl As String number_s = Str(numberp) If Left(Right(number_s, 2), 1) = "." Then number_s = number_s & "0" If Left(Right(number_s, 3), 1) <> "." Then number_s = number_s & ".00" number_s = Trim(number_s) ' MsgBox " number_s = " & number_s zp = Len(number_s) z = 1 Do While zp > 0 c1 = "" c2 = "" c3 = "" If zp = 12 Or zp = 9 Or zp = 6 Then a = Mid(number_s, z, 1) zp = zp - 1 Select Case a Case "0" c3 = "" Case "1" c3 = "ومائة " Case "2" c3 = "ومائتان " Case "3" c3 = "وثلاثمائة " Case "4" c3 = "واربعمائة " Case "5" c3 = "وخمسمائة " Case "6" c3 = "وستمائة " Case "7" c3 = "وسبعمائة " Case "8" c3 = "وثمانمائة " Case "9" c3 = "وتسعمائة " End Select z = z + 1 End If If zp = 3 Then z = z + 1 zp = zp - 1 End If a = Mid(number_s, z, 1) If zp = 2 Or zp = 5 Or zp = 8 Or zp = 11 Then Select Case a Case "0" c2 = "" Case "1" c2 = "عشر " Case "2" c2 = "وعشرون " Case "3" c2 = "وثلاثون " Case "4" c2 = "واربعون " Case "5" c2 = "وخمسون " Case "6" c2 = "وستون " Case "7" c2 = "وسبعون " Case "8" c2 = "وثمانون " Case "9" c2 = "وتسعون " End Select zp = zp - 1 z = z + 1 End If a = Mid(number_s, z, 1) If zp = 1 Then ' الهللات Select Case a Case "0" c1 = "" Case "1" If c2 = "عشر " Then c1 = "واحدى " Else c1 = "وواحد " End If Case "2" If c2 = "عشر " Then c1 = "واثنتا " Else c1 = "واثناتان " End If Case "3" c1 = "وثلاث " Case "4" c1 = "واربع " Case "5" c1 = "وخمس " Case "6" c1 = "وست " Case "7" c1 = "وسبع " Case "8" c1 = "وثمان " Case "9" c1 = "وتسع " End Select Else ' الريالات Select Case a Case "0" c1 = "" If c2 = "عشر " Then c2 = "وعشرة " End If Case "1" If c2 = "عشر " Then c1 = "واحدى " Else c1 = "وواحد " End If Case "2" If c2 = "عشر " Then c1 = "واثنا " Else c1 = "واثنان " End If Case "3" c1 = "وثلاثة " Case "4" c1 = "واربعة " Case "5" c1 = "وخمسة " Case "6" c1 = "وستة " Case "7" c1 = "وسبعة " Case "8" c1 = "وثمانة " Case "9" c1 = "وتسعة " End Select End If zp = zp - 1 z = z + 1 Select Case zp Case 9 Select Case c1 + c2 + c3 Case "وواحد " xp = xp + "ومليون " Case "واثنان " xp = xp + "ومليونان" Case Else xp = xp + c3 + c1 + c2 + "مليون " End Select Case 6 Select Case c1 + c2 + c3 Case "وواحد " xp = xp + "والف " Case "واثنان " xp = xp + "والفان " Case "وثلاثة " xp = xp + "وثلاثة الاف " Case "واربعة " xp = xp + "واربعة الاف " Case "وخمسة " xp = xp + "وخمسة الاف " Case "وستة " xp = xp + "وستة الاف " Case "وسبعة " xp = xp + "وسبعة الاف " Case "وثمانية " xp = xp + "وثمانية الاف " Case "وتسعة " xp = xp + "وتسعة الاف " Case Else If c2 = "وعشرة " Then xp = xp + c3 + c1 + c2 + "الاف " Else xp = xp + c3 + c1 + c2 + "الف " End If End Select Case 3 If c2 = "" Then Select Case c1 Case "" c1 = "ريال " Case "وواحد " c1 = "وريالا " Case "واثنان " c1 = "وريالان " Case "وثلاثة " c1 = "وثلاثة ريالات " Case "واربعة " c1 = "واربعة ريالات " Case "وخمسة " c1 = "وخمسة ريالات " Case "وستة " c1 = "وستة ريالات " Case "وسبعة " c1 = "وسبعة ريالات " Case "وثمانية " c1 = "وثمانية ريالات " Case "وتسعة " c1 = "وتسعة ريالات " End Select xp = xp + c3 + c1 + c2 Else xp = xp + c3 + c1 + c2 + "ريالاً " End If Case 0 If c1 + c2 <> "" Then If c2 = "" Then Select Case c1 Case "وواحد " xp = xp + "وهلله واحده" Case "واثنان " xp = xp + "وهللتان " Case Else xp = xp + c1 + "هللات " End Select Else xp = xp + c1 + c2 + "هللة " End If End If End Select Loop xp = LTrim(xp) zp = Len(xp) - 1 If Left(xp, 1) = "و" Then xp = Mid(xp, 2, zp) End If ttpa = xp write_Number = ttpa End Function الدالة =NoToTxt2(H1;"دينار";"فلس") مرفق ملف مجرب عليه الكود الصياد_تفقيط.rar

الرابط السابق خاص بالنتيجة ومربوط بموقعكم الرابط مرة اخرى وموجود عليه جميع الاسماء http://matrouh.zaghost.com/Upload/natiga_xml/index.html

ود رابط آخر ودا رابط آخر

دا رابط للكراك

اخى العزيز راجع هذا الرابط يوجد به البرنامج المطلوب http://softadvice.informer.com/Aoxppr_2.40.html وهذا الرابط ايضا http://softped1a.net/files/aoxppr%202.40%20crack&id=my وهذا الرابط ايضا http://lss799.yfdownloader.net/j5GEWHrAuUlZhuMLOueSMW/fvmFms+R6IvbveSP91GIr6pYiQLmNZhfk3Wsb7cVFXr2HE1yFizRfgMBcHJxzEliKbBQdhHALI8k4WSmUeOAlwSShJmRq1D5rbvtnfEn2P2hW+QdkB/gJeQvrDmtuwAFpW9MAWQTuMQJPyhtEHtASRSbc3V4mhrYSOdv5Zzizswhk6aF1d/K4dWv4vD0AjPYtFr+fYFDplzYJ58s8Q9PIZESCh1gaitdXTN6IUOPGjF+2x/tW/Jr7MsvZph+sZqBa9mamvbQ68PTvYL79wmeB5cEq0LbbeojwkC7cqIgRyOiIUA==

اخى العزيز جرب هذه الصفحة http://matrouh.zaghost.com/Upload/natiga_xml/index.html

اخى العزيز تابع ايضا هذه الصفحة وهى معدة لرفع نتيجة الامتحانات عليها وقلي رايك فيها بها بعض ارقام الجلوس والدرجات الوهمية ... جلوس : 101 http://matrouh.zaghost.com/Upload/natiga_xml/index.html

قمت بارسال بيانات الموقع لحضرتك على الاميل وتم تغيير الصفحة الرئيسية بالموقع باضافة بعض المنتديات لاحظ حضرتك الموقع واى تعديل تريده انا موجود وقد قمت بتصميم صفحة بدون ملف فلاش لعرض النتيجة بشكل اجمل من الفلاش لحضرتك ومنتظر النتيجة وسارفعها لحضرتك على قاعدة بيانات الموقع رجاءا الحفاظ على قاعدة البيانات من العبث حتى لا يتوقف الموقع عن العمل تحياتى

ساقوم باضافة بعض المنتديات داخل الموقع فاى شئ تريده يمكن ان اضعه لحضرتك داخل الموقع تحياتي

اخى العزيز تم عمل موقع لمديرية التربية والتعليم بمطروح على استضافة اخرى وسارسل لك بيانات الموقع على الاميل http://matrouh.zaghost.com/Upload/index.php

قاعدة البيانات فى الموقع بها مسشكلة وساقوم بعمل موقع اخر لك

مرفوع

تابعوا نتيجة ابتدائية البحيرة 2015 على هذا الرابط http://www.elfaraby-eg.com/school2015/marksrch.php

للرفع

للرفع

اخى العزيز الموقع محتاج لرفع الملفات عليه حتى يعمل ساقوم برفعها لك من عندى واعلمك بالنتيجة وان شاء الله سيتم رفع النتيجة من خلاله

اخى العزيز هذه نتيجة مدرسة ابتدائية تم نشرها اليوم على الانترنت تابعها وقلى رايك ارقام الجلوس تبدأ برقم 600 http://schoolkotbabdelfattah.marocwebs.com/natiga/index.htm

شكرا استاذنا الحبيب على الاهتمام دا الملف Copy of الصياد.rar

للرفع

تم عمل الصفحة ومنتظرة لاستكمالها برفع النتيجة عليها واليك رابط الصفحة http://abusuliman.eb2a.com/natiga/index.htm

ان شاء الله وتحت امر حضرتك مع تحياتى وتحيات الفريق الاعلامى بمنتديات اوفيسنا