<br>
يا اخواني اريد منكم معرفة سبب عدم قراءة الدالة في البرنامج المرفق للرقم 10000 حيث اذا كان الرقم كذلك لايتم قراءته بينما بقية الارقام تقرأها جيدا واذا كان رقم مثلا 10200 سيتم قرأءة فقط مئتان ريال اريد الحل واريد تبيين الخلل في كتابة الشفرة وجزاكم الله الف الف خير
تم تعديل هذه المشاركة بواسطة كوماندير في 8 يناير 2010 في 16:42
أين الملف المرفق
ياخوي لم استطع تحميل الملف مش عارف شالمشكله يظهر لي دايما ((فشل التحميل))
الكود اهو<br><div align="left">
Option Compare Database<br> Public Function Horof(ByVal X As Double, _<br> Optional ByVal Cur As String = "ÑíÇá") As String<br> Dim Ma As String<br> Ma = " " & Cur & " "<br> Dim Mi As String<br> Mi = " ÝÜáÓ ÝÞØ " & ""<br> Dim n As Long<br> n = Int(X)<br> Dim B As Double<br> B = Val(Right(Format(X, "000000000000.00"), 2))<br> Dim R As String<br> R = SHorof(n)<br> Dim Result As String<br> If R <> "" And B > 0 Then Result = R & Ma & " æ " & B & Mi<br> If R <> "" And B = 0 Then Result = R & Ma<br> If R = "" And B <> 0 Then Result = B & Mi<br> Horof = Result<br> End Function<br> <br> Private Function SHorof(ByVal X As Long) As String<br> Dim C<br> C = Format(X, "000000000000")<br> Dim C1 As String<br> C1 = Val(Mid(C, 12, 1))<br> <br> Dim Letterl As String<br> Select Case C1<br> Case Is = 1: Letter1 = "æÇÍÏ"<br> Case Is = 2: Letter1 = "ÇËäÇä"<br> Case Is = 3: Letter1 = "ËáÇËÉ"<br> Case Is = 4: Letter1 = "ÇÑÈÚÉ"<br> Case Is = 5: Letter1 = "ÎãÓÉ"<br> Case Is = 6: Letter1 = "ÓÊÉ"<br> Case Is = 7: Letter1 = "ÓÈÚÉ"<br> Case Is = 8: Letter1 = "ËãÇäíÉ"<br> Case Is = 9: Letter1 = "ÊÓÚÉ"<br> End Select<br> <br> Dim C2 As String<br> C2 = Val(Mid(C, 11, 1))<br> Dim Letter2 As String<br> Select Case C2<br> Case Is = 1: Letter2 = "ÚÔÑ"<br> Case Is = 2: Letter2 = "ÚÔÑæä"<br> Case Is = 3: Letter2 = "ËáÇËæä"<br> Case Is = 4: Letter2 = "ÇÑÈÚæä"<br> Case Is = 5: Letter2 = "ÎãÓæä"<br> Case Is = 6: Letter2 = "ÓÊæä"<br> Case Is = 7: Letter2 = "ÓÈÚæä"<br> Case Is = 8: Letter2 = "ËãÇäæä"<br> Case Is = 9: Letter2 = "ÊÓÚæä"<br> End Select<br> <br> If Letter1 <> "" And C2 > 1 Then Letter2 = _<br> Letter1 + " æ" + Letter2<br> If Letter2 = "" Then Letter2 = Letter1<br> If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "É"<br> If C1 = 1 And C2 = 1 Then Letter2 = "ÇÍÏì ÚÔÑ"<br> If C1 = 2 And C2 = 1 Then Letter2 = "ÇËäì ÚÔÑ"<br> If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2<br> Dim C3 As String<br> C3 = Val(Mid(C, 10, 1))<br> Dim Letter3 As String<br> Select Case C3<br> Case Is = 1: Letter3 = "ãÇÆÉ"<br> Case Is = 2: Letter3 = "ãÇÆÊÇä"<br> Case Is = 3: Letter3 = "ËáÇËãÇÆÉ"<br> Case Is = 4: Letter3 = "ÇÑÈÚãÇÆÉ"<br> Case Is = 5: Letter3 = "ÎãÓãÇÆÉ"<br> Case Is = 6: Letter3 = "ÓÊãÇÆÉ"<br> Case Is = 7: Letter3 = "ÓÈÚãÇÆÉ"<br> Case Is = 8: Letter3 = "ËãÇäãÇÆÉ"<br> Case Is = 9: Letter3 = "ÊÓÚãÇÆÉ"<br> Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "ãÇÆÉ"<br> End Select<br> If Letter3 <> "" And Letter2 <> "" Then Letter3 = _<br> Letter3 + " æ" + Letter2<br> If Letter3 = "" Then Letter3 = Letter2<br> <br> Dim C4 As String<br> C4 = Val(Mid(C, 7, 3))<br> Dim Letter4 As String<br> Select Case C4<br> Case Is = 1: Letter4 = "ÃáÝ"<br> Case Is = 2: Letter4 = "ÃáÝÇä"<br> Case 3 To 10: Letter4 = SHorof(C4) + " ÃáÇÝ "<br> Case Is > 10: Letter4 = SHorof(C4) + " ÃáÝ "<br> End Select<br> If Letter4 <> "" And Letter3 <> "" Then Letter4 = _<br> Letter4 + " æ" + Letter3<br> If Letter4 = "" Then Letter4 = Letter3<br> <br> Dim C5 As String<br> C5 = Val(Mid(C, 4, 3))<br> Dim Letter5 As String<br> Select Case C5<br> Case Is = 1: Letter5 = "ãáíæä"<br> Case Is = 2: Letter5 = "ãáíæäÇä"<br> Case 3 To 10: Letter5 = SHorof(C5) + " ãáÇííä "<br> Case Is > 10: Letter5 = SHorof(C5) + " ãáíæä "<br> End Select<br> If Letter5 <> "" And Letter4 <> "" Then Letter5 = _<br> Letter5 + " æ" + Letter4<br> If Letter5 = "" Then Letter5 = Letter4<br> <br> Dim C6 As String<br> C6 = Val(Mid(C, 1, 3))<br> Dim Letter6 As String<br> Select Case C6<br> Case Is = 1: Letter6 = "ãáíÇÑ"<br> Case Is = 2: Letter6 = "ãáíÇÑÇä"<br> Case Is > 2: Letter6 = SHorof(C6) + " ãáíÇÑ "<br> End Select<br> If Letter6 <> "" And Letter5 <> "" Then Letter6 = _<br> Letter6 + " æ" + Letter5<br> If Letter6 = "" Then Letter6 = Letter5<br> SHorof = Letter6<br> End Function<br> <br> <br>
<br></div><br><br>الكود اهو<br><div align="left">
Option Compare Database<br> Public Function Horof(ByVal X As Double, _<br> Optional ByVal Cur As String = "ÑíÇá") As String<br> Dim Ma As String<br> Ma = " " & Cur & " "<br> Dim Mi As String<br> Mi = " ÝÜáÓ ÝÞØ " & ""<br> Dim n As Long<br> n = Int(X)<br> Dim B As Double<br> B = Val(Right(Format(X, "000000000000.00"), 2))<br> Dim R As String<br> R = SHorof(n)<br> Dim Result As String<br> If R <> "" And B > 0 Then Result = R & Ma & " æ " & B & Mi<br> If R <> "" And B = 0 Then Result = R & Ma<br> If R = "" And B <> 0 Then Result = B & Mi<br> Horof = Result<br> End Function<br> <br> Private Function SHorof(ByVal X As Long) As String<br> Dim C<br> C = Format(X, "000000000000")<br> Dim C1 As String<br> C1 = Val(Mid(C, 12, 1))<br> <br> Dim Letterl As String<br> Select Case C1<br> Case Is = 1: Letter1 = "æÇÍÏ"<br> Case Is = 2: Letter1 = "ÇËäÇä"<br> Case Is = 3: Letter1 = "ËáÇËÉ"<br> Case Is = 4: Letter1 = "ÇÑÈÚÉ"<br> Case Is = 5: Letter1 = "ÎãÓÉ"<br> Case Is = 6: Letter1 = "ÓÊÉ"<br> Case Is = 7: Letter1 = "ÓÈÚÉ"<br> Case Is = 8: Letter1 = "ËãÇäíÉ"<br> Case Is = 9: Letter1 = "ÊÓÚÉ"<br> End Select<br> <br> Dim C2 As String<br> C2 = Val(Mid(C, 11, 1))<br> Dim Letter2 As String<br> Select Case C2<br> Case Is = 1: Letter2 = "ÚÔÑ"<br> Case Is = 2: Letter2 = "ÚÔÑæä"<br> Case Is = 3: Letter2 = "ËáÇËæä"<br> Case Is = 4: Letter2 = "ÇÑÈÚæä"<br> Case Is = 5: Letter2 = "ÎãÓæä"<br> Case Is = 6: Letter2 = "ÓÊæä"<br> Case Is = 7: Letter2 = "ÓÈÚæä"<br> Case Is = 8: Letter2 = "ËãÇäæä"<br> Case Is = 9: Letter2 = "ÊÓÚæä"<br> End Select<br> <br> If Letter1 <> "" And C2 > 1 Then Letter2 = _<br> Letter1 + " æ" + Letter2<br> If Letter2 = "" Then Letter2 = Letter1<br> If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "É"<br> If C1 = 1 And C2 = 1 Then Letter2 = "ÇÍÏì ÚÔÑ"<br> If C1 = 2 And C2 = 1 Then Letter2 = "ÇËäì ÚÔÑ"<br> If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2<br> Dim C3 As String<br> C3 = Val(Mid(C, 10, 1))<br> Dim Letter3 As String<br> Select Case C3<br> Case Is = 1: Letter3 = "ãÇÆÉ"<br> Case Is = 2: Letter3 = "ãÇÆÊÇä"<br> Case Is = 3: Letter3 = "ËáÇËãÇÆÉ"<br> Case Is = 4: Letter3 = "ÇÑÈÚãÇÆÉ"<br> Case Is = 5: Letter3 = "ÎãÓãÇÆÉ"<br> Case Is = 6: Letter3 = "ÓÊãÇÆÉ"<br> Case Is = 7: Letter3 = "ÓÈÚãÇÆÉ"<br> Case Is = 8: Letter3 = "ËãÇäãÇÆÉ"<br> Case Is = 9: Letter3 = "ÊÓÚãÇÆÉ"<br> Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "ãÇÆÉ"<br> End Select<br> If Letter3 <> "" And Letter2 <> "" Then Letter3 = _<br> Letter3 + " æ" + Letter2<br> If Letter3 = "" Then Letter3 = Letter2<br> <br> Dim C4 As String<br> C4 = Val(Mid(C, 7, 3))<br> Dim Letter4 As String<br> Select Case C4<br> Case Is = 1: Letter4 = "ÃáÝ"<br> Case Is = 2: Letter4 = "ÃáÝÇä"<br> Case 3 To 10: Letter4 = SHorof(C4) + " ÃáÇÝ "<br> Case Is > 10: Letter4 = SHorof(C4) + " ÃáÝ "<br> End Select<br> If Letter4 <> "" And Letter3 <> "" Then Letter4 = _<br> Letter4 + " æ" + Letter3<br> If Letter4 = "" Then Letter4 = Letter3<br> <br> Dim C5 As String<br> C5 = Val(Mid(C, 4, 3))<br> Dim Letter5 As String<br> Select Case C5<br> Case Is = 1: Letter5 = "ãáíæä"<br> Case Is = 2: Letter5 = "ãáíæäÇä"<br> Case 3 To 10: Letter5 = SHorof(C5) + " ãáÇííä "<br> Case Is > 10: Letter5 = SHorof(C5) + " ãáíæä "<br> End Select<br> If Letter5 <> "" And Letter4 <> "" Then Letter5 = _<br> Letter5 + " æ" + Letter4<br> If Letter5 = "" Then Letter5 = Letter4<br> <br> Dim C6 As String<br> C6 = Val(Mid(C, 1, 3))<br> Dim Letter6 As String<br> Select Case C6<br> Case Is = 1: Letter6 = "ãáíÇÑ"<br> Case Is = 2: Letter6 = "ãáíÇÑÇä"<br> Case Is > 2: Letter6 = SHorof(C6) + " ãáíÇÑ "<br> End Select<br> If Letter6 <> "" And Letter5 <> "" Then Letter6 = _<br> Letter6 + " æ" + Letter5<br> If Letter6 = "" Then Letter6 = Letter5<br> SHorof = Letter6<br> End Function<br>
<br>بس ياخواني ماعرفت احول الرموز اللي ظهرت الى كلمات عربية<br>ممكن تفيدوني كيف اعمل بهكذا رموز؟؟<br></div>
تم تعديل هذه المشاركة بواسطة كوماندير في 8 يناير 2010 في 20:15
السلام عليكم ورحمة الله وبركاته
عزيزي كوماندير
حمّل المرفقات وسترى ما يرضيك إن شاء الله تعالى
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
غفر الله لك ولوالديك
وجزالك الله الف الف خير
الاخ حميدي لم استطع ربط الداله التي في برنامجك بعنصر التحكم فيالنموذج الذي معي...
لا ادري مالمشكله
فقد قمت بعمل مصدر عنصر التحكم =[x] & " فقط لاغير" كما هو لديك ولكن لا فائدة
ارجو ان توصف لي كيف اقوم بالربط علما ان اسم عنصر التحكم الذي فيه الرقم هو NUM وعنصر التحكم الذي اريد فيه الكتابه تظهر بجانبه NUMTWORD
وغفر الله لك ولوالديك وسدد خطاكم
اقتباسارجو ان توصف لي كيف اقوم بالربط علما ان اسم عنصر التحكم الذي فيه الرقم هو NUM وعنصر التحكم الذي اريد فيه الكتابه تظهر بجانبه NUMTWORD
ارفق ملفك الذي تعمل عليه
السلام عليكم ورحمة الله وبركاته
عزيزي كوماندير
من بعد إذن المشرف الأستاذ : أكسير الحياة
أخي الملف الذي أرفقته لك يحتوي على وحدة نمطية لا تتوافق مع التسميات التي أنت تسميها
لذلك أرفقت لك التقرير مبيناً لك كيفية إستخدام هذه الدالة التي تحول الأرقام إلى حروف
لذلك عليك أن ترى كيف تم الربط في التقرير المرفق مسبقاً
يجب أن يكون عندك في النموذج label إسم X كما في التقرير
ومن ثم تستدعي هذا المربع النص
تم تعديل هذه المشاركة بواسطة hamidymom في 10 يناير 2010 في 15:26
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
صدقني يااخي انني فعلت كما قلت لي بالضبط ولكن لاجدوى
لا ادري هل لم افهمك جيدا؟؟؟
ام ان هنالك خطاء اخر؟
وبالنسبة للتحميل فلم استطع احمل البيانات التي لدي حتى يرى الاعضاء عندما اريد الارفاق ياتيني بانه فشل التحميل لا ادري مالعله؟؟
تم التحميل
هذه مرفقاتي كنت استخدم موزيلا فاير فوكس والان على انترنت اكسبلورر
للأسف الشديد انه ظهر لي تم التحميل
برأيكم اخواني وش المشكلة
السلام عليكم ورحمة الله وبركاته
عزيزي كوماندير
أعتقد أنه عندك مشكلة بالمتصفح
حاول إعادة تنزيل المتصفح أو إستخدم متصفح آخر كالفايرفوكس أو أوبرا ...
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
انا استخدم الموزيللا فاير فوكس
والانترنت اكسبلورر 8
اعتقد المشكله بالاعدادات الشخصيه حيث وجدت حاجه اسمها DTS مش عارف ايش هي؟؟
وجربت الاثنين ونفس المشكله
ارجو عرض مشكلتي على الادراة
تم تعديل هذه المشاركة بواسطة كوماندير في 14 يناير 2010 في 09:48
السلام عليكم ورحمة الله وبركاته
خيراً إن شاء الله أخي الكريم
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
اخي كوماندير
ما المسج التي تظهر لك عند الخطا بالتحميل
او ان الملف بحجم كبير غير مسموح لك
اعتقد ان المسموح لك فقط 3 ميكا
اخي مستر عربي لاتظهر لي اي رسالة بل الذي يظهر لي ان تحميل ملفاتي قد تم مثلا لوكان حجم ملفي 340 كيلوبايت يظهر لي تم تحميل 340 كيلو بايت وعندما اعتمد الرد افاجأ بانه لم يتم تحميل ملفي ارجو ان تكون الفكره مفهومه؟؟؟