موقع للفجوال
http://fred.just.free.fr/english/index.html
و هذا موقع عربي لصناعة الالعاب بالفجوال بيسك
http://gamedesigners.netfirms.com/
الفقير
خليل
أكواد + برامج + وصلات + كتب وغيرها
مغلقرائج
شكرا على هذا المجهود
موقع عربي للفيجوال ببيسك والاكسيس
هذا موقع به ادوات في غاية الروعه
هذه الشيفرة الرائعة تقوم بتحويل الارقام الى نصوص فمثلا الرقم "999" يصبح تسعمائة وتسعه وتسعون ريالا...وهكذا.
ضع الشيفرة التالية في Module:
Public Function Horof(X) Ma = " ريال" Mi = " هللة" N = Int(X) B = Val(Right(Format(X, "000000000000.00"), 2)) R = SHorof(N) If R <> "" And B > 0 Then Result = R & Ma & " و " & B & Mi If R <> "" And B = 0 Then Result = R & Ma If R = "" And B <> 0 Then Result = B & Mi Horof = Result End Function Private Function SHorof(X) N = Int(X) C = Format(N, "000000000000") C1 = Val(Mid(C, 12, 1)) Select Case C1 Case Is = 1: Letter1 = "واحد" Case Is = 2: Letter1 = "اثنان" Case Is = 3: Letter1 = "ثلاثة" Case Is = 4: Letter1 = "اربعة" Case Is = 5: Letter1 = "خمسة" Case Is = 6: Letter1 = "ستة" Case Is = 7: Letter1 = "سبعة" Case Is = 8: Letter1 = "ثمانية" Case Is = 9: Letter1 = "تسعة" End Select C2 = Val(Mid(C, 11, 1)) Select Case C2 Case Is = 1: Letter2 = "عشر" Case Is = 2: Letter2 = "عشرون" Case Is = 3: Letter2 = "ثلاثون" Case Is = 4: Letter2 = "اربعون" Case Is = 5: Letter2 = "خمسون" Case Is = 6: Letter2 = "ستون" Case Is = 7: Letter2 = "سبعون" Case Is = 8: Letter2 = "ثمانون" Case Is = 9: Letter2 = "تسعون" End Select If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " و" + Letter2 If Letter2 = "" Then Letter2 = Letter1 If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "ة" If C1 = 1 And C2 = 1 Then Letter2 = "احدى عشر" If C1 = 2 And C2 = 1 Then Letter2 = "اثنى عشر" If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2 C3 = Val(Mid(C, 10, 1)) Select Case C3 Case Is = 1: Letter3 = "مائة" Case Is = 2: Letter3 = "مئتان" Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "مائة" End Select If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2 If Letter3 = "" Then Letter3 = Letter2 C4 = Val(Mid(C, 7, 3)) Select Case C4 Case Is = 1: Letter4 = "الف" Case Is = 2: Letter4 = "الفان" Case 3 To 10: Letter4 = SHorof(C4) + " آلاف" Case Is > 10: Letter4 = SHorof(C4) + " الف" End Select If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3 If Letter4 = "" Then Letter4 = Letter3 C5 = Val(Mid(C, 4, 3)) Select Case C5 Case Is = 1: Letter5 = "مليون" Case Is = 2: Letter5 = "مليونان" Case 3 To 10: Letter5 = SHorof(C5) + " ملايين" Case Is > 10: Letter5 = SHorof(C5) + " مليون" End Select If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4 If Letter5 = "" Then Letter5 = Letter4 C6 = Val(Mid(C, 1, 3)) Select Case C6 Case Is = 1: Letter6 = "مليار" Case Is = 2: Letter6 = "ملياران" Case Is > 2: Letter6 = SHorof(C6) + " مليار" End Select If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5 If Letter6 = "" Then Letter6 = Letter5 SHorof = Letter6 End Function الان..لكي تقوم بمعرفة الرقم كتابيا لاي رقم.. استخدم الشيفرة التالية: strN = Horof(2674) msgbox strN
;)
السلام عليكم
تقدر تسويها لتسع منازل ( تسعة ارقام ) زي ( 999999999)
خليل
الأخ خليل شكرا على الرد
هذه الشيفرة باستطاعتها قراء أي عدد حتى فوق المليار يعني 1.000.000.000إحدى عشرة خانة ولا أظن أن هناك فاتورة مبيعات ستصدر بمليارات الريالات أو أكثر.:(
مشكور أخي العزيز على هذه الاكواد المفيدة
وعندي طلب صغير
ممكن احصل شفرة أغلاق الوندوز
وأنا أنتظر الرد على أحر من الجمر(clock)
الله يخليكوا لينا كلكم يا مبرمجين الفيجوال بيسك
نرجو المزيد من الاكواد
لست اعنى ان الاكواد قليلة ولكن كلما زادت زادتنا علما
وكل من يريد اكواد سوف ابحث له عنها عليه فقط ان يطلب
ارجو ان تثقوا بى
هذا كتاب للبرمجة بالديركت اكس
للعلم انا اسمى وليد من مصر
ارجو ان اكون افدتكم
أخي داركولا أهلا بك
أريد ان اطلب بعض الاكواد وهي
كود للاتصال بالانترنت وكود قطع الاتصال بالانترنت
وكود اضافة الى المفضلة لانني صممت متصفح وتنقصني هذه الاكواد
أرجو من جميع الاعضاء أن يضع الاكواد الي عنده في مجلد ويضعها في المنتدى للفائدة وخير الناس أنفعهم للناس
والسلام
شكراًَ لهذا المنتدى الرائع
أريد أن أتعرف على لغة السى++
اقتباسأريد أن أتعرف على لغة السى++
:eek::eek:
أخي الكريم مصطفى إذهب إلى منتدى السي على الرابط :
http://www.arabteam2000.com/vb/forumdispla...p?s=&forumid=14
السلام عليكم(f)
انا مرتاح جدا لهذه الموقع الجادة فعلا
لان بيكم اخوانى سوف ينهض بكم الوطن العربى
لكن لى طلب بسيط وهو اتمنى ان يتشرف واحد منكم وانا لا اعلم من هو
لاكىيخصص وقتة الثمين لصغار المبدتئين مثلنا
لشرح اى مساعدة فى اى شى شرط ان تكون الطريقة سهلة جدا
يعنى خطوة خطوة وبطريقة اتمنى ان تكون خالية من التعقيد
ولكم الشكر
mohamed_elshabrawy51@hotmail.com
محمد الشبراوى
شكرا لكم ولجميع أعضاء منتدى فريق البرمجة .
وسأنتظر المزيد .
شكرا جزيلا لك أخي العزيز وارجوا مراسلتي عبر البريد
هذا الموضوع مغلق.