سؤال عن كيفية تحويل قيمة رقمية إلى قيمة نصية عربية

الآن سجل الأصوات الصادرة عن الجهاز مع برنامج TOTAL RECORDER

رب إغفر وأرحم ، وتجاوز عما تعلم ، إنك أنت الأعز الأكرم .

#225 مايو 2005 في 11:39

لو سمحت ممكن توضح سؤالك

يعني أنت القيمة الرقمية هل هي موجودة في متغير وهل تريد نقلها الى textbox

أرجو التوضيح

تحياتي (h)

من كان في حاجة أخيه كان الله في حاجته

_______________________________________________________________

اجعل صورتك الرمزية متحركة

#325 مايو 2005 في 11:45

السلام عليكم ورحمة الله وبركاته

أخى الفاضل

المنتدى مليئ بهذا السؤال

ومليئ بحلول الأخوة له

عموما أدرجت لك هنا المديول الذى يقوم بهذه العملية

وهو أيضا من مساهمات أحد الإخوة الكرام من منتدى فيجوال بيسك دوت نت - ربنا يجمعنا مع من كانوا فيه فى خير منزلة

يا رب يناسبك وما يكونش غامض

ولو محتاج مساعدة فيه - أنت تأمر بس

وربنا ييسر لك كل صعب

ArNum2Word.zip

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#425 مايو 2005 في 12:42

أخي العزيز / abulyaman

أخي الفاضل / moh_89

أرفق المثال التالي للتوضيح ، وأرجوا المعاونة كما تعودنا منكم من رحابة صدر ومثابرة ، وبما أنني أرفقت المثال فهل لكم مساعدتي كذلك في عمل رقم مسلسل لرقم سند القبض في الـ Text الموضح بالـ Form .

وجزاكم الله خيراً

سند قبض.zip

مقالاتي :ـ

رب إغفر وأرحم ، وتجاوز عما تعلم ، إنك أنت الأعز الأكرم .

#525 مايو 2005 في 12:54

أخى العزيز

ممكن تراجع الملف وتخبرنى هو هو سليم أم ماذا؟

لم أستطع فتحه

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#625 مايو 2005 في 17:07

أخي الفاضل / abulyaman

بعد التحية

الملف يعمل بصورة إعتيادية ، ولكن دعنا منه الآن ، إفترض أن القيمة الرقمية سيجري قراءاتها من TextBox ، على أن يتم تحويل هذه القيمة إلى قيمة نصية في Label أو في TextBox آخر ، فكيف يمكنني هذا في ضوء الكود السابق إرساله من شخصكم الكريم ؟

وتقبل تحياتي .

مقالاتي :ـ

رب إغفر وأرحم ، وتجاوز عما تعلم ، إنك أنت الأعز الأكرم .

#725 مايو 2005 في 17:27

السلام عليكم ورحمة الله وبركاته

أخى الحكاية سهلة بإذن الله

قم بإدراج المديول الذى أرسلته لك فى مشروعك

ثم فى حدث مثل TextBox1_Change

اكتب السطر التالى

Text1.Text= Horof(Val(Text2.Text))

فقط كلمة Horof ستنادى على المديول وتحضر لك القيمة

ولو لم تعجبك كلمة ريال وهللة ممكن تغيرها من المديول

وربنا يوفقك

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#825 مايو 2005 في 18:14

أخي العزيز / abulyaman

بعد التحية

تم اللازم ونجحت التجربة بفضل الله ثم بمشاركاتكم الثرية والطيبة بعد تغيير إسم العملة في المديول ، وطالما أخي الفاضل إتسع صدرك إلى هذا الحد فدعني أسألك فيما يخص هذا المديول هل يعالج الكسور العشرية بعملات أخري بخلاف الريال والهللة .

فوفق العملة الكويتية مثلاً هناك الدينار والفلس ، يعني عندما أدخل المبلغ 500.005 أي خمسمائة دينار وخمسة فلس فتعاد القيمة حسب المديول 500.500 أي خمسمائة دينار وخمسمائة فلس بخلاف ما تم إدخاله .

والشكر موصول لك أخي العزيز

مقالاتي :ـ

رب إغفر وأرحم ، وتجاوز عما تعلم ، إنك أنت الأعز الأكرم .

#925 مايو 2005 في 21:54

organic كتب:
أخي العزيز / abulyaman
أخي الفاضل / moh_89
أرفق المثال التالي للتوضيح ، وأرجوا المعاونة كما تعودنا منكم من رحابة صدر ومثابرة ، وبما أنني أرفقت المثال فهل لكم مساعدتي كذلك في عمل رقم مسلسل لرقم سند القبض في الـ Text الموضح بالـ Form .
وجزاكم الله خيراً
←

#1025 مايو 2005 في 23:43

تريدين تحويل الارقام الى حروف مثال

100_ مئه

59_تسعه وخمسون

30_ثلاثون

هكذا

#1126 مايو 2005 في 08:21

نعم أخونا الكريم Proffesional vb98

هلا تفضلت بالمشاركة

جزاكم الله خيرا

مقالاتي :ـ

رب إغفر وأرحم ، وتجاوز عما تعلم ، إنك أنت الأعز الأكرم .

#1228 مايو 2005 في 14:01

السلام عليكم ورحمة الله وبركاته

أخى العزيز

بالنسبة لك كمبرمج فالأمر بسيط بعون الله

يمكن التغيير الذى سأوضحه لك يعرفك بسهولة الموضوع

كل ما عليك هو استبدال الكود التالى:

Public Function Horof(x)
      Ma = " ريال"
      Mi = " هللة"
      n = Int(x)
      B = Val(Right(Format(x, "000000000000.00"), 2))
      R = SHorof(n)
      RR = SHorof(B)
      If R <> "" And B > 0 Then result = R & Ma & " æ " & RR & Mi
      If R <> "" And B = 0 Then result = R & Ma
      If R = "" And B <> 0 Then result = RR & Mi
      Horof = result
End Function

استبدله بهذا الكود

Public Function Horof(x)
      Ma = "دينار "
      Mi = " فلس"
      n = Int(x)
      B = Val(Right(Format(x, "000000000000.000"),3))
      R = SHorof(n)
      RR = SHorof(B)
      If R <> "" And B > 0 Then result = R & Ma & " æ " & RR & Mi
      If R <> "" And B = 0 Then result = R & Ma
      If R = "" And B <> 0 Then result = RR & Mi
      Horof = result
End Function

وإن شاء الله سيتم حلها وتكون فهمت الفرق بينهم

بالنسبة للأخ ثائر يونس

ممكن تفهمنى طلبك بالتفصيل؟

عفوا لم أفهمك

وربنا يهدينا لما يحبه ويرضاه

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1329 مايو 2005 في 15:19

كلمك صحيح في حالة مثلا كتبنا

21.55 ---> واحد و عشرون دينار و خمسمائة و خمسون فلس

ولكن لو كتبت

21.05 --> النتيجة بتنفيذ البرنامج هو -->واحد و عشرون دينار و خمسون فلس

والمفروض تكون

واحد و عشرون دينار و خمس فلسات

إذا أنا فاهمه خطأ الرجاء توضيح الأمر

شكرا لكم

#1430 مايو 2005 في 10:39

السلام عليكم ورحمة الله وبركاته

كلام الأخت رزان دا بعد التعديل الأخير ولا قبله؟

كان الأول بياخد آخر رقمين على اليمين ويقرأهم

أما التعديل فجعله يأخذ ثلاثة وليس أثنين

أنا بتشتغل معايا بعد ما عدلتها - هل بتشتغل معاكم كمان ؟

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1530 مايو 2005 في 11:53

للفائده ،

يوجد في توقيعي وصله لوحده نمطيه جاهزه لهذه العملية ، وهي لتفقيط العملات من الارقام الى الحروف وتشمل الاجزاء ايضا ..

وهناك بعض الاخوة في منتدى دلفي وضعوا مكونا ( كما يسموه ) عباره عن ملف dll للتفقيط وبمزايا كثيرة جدا جدا

تحياتي

[وسط]مدونتي

[/وسط]

#1630 مايو 2005 في 17:04

اخي العزيز / abulyaman

بعد التحية

تم التعديل أخي الفاضل ويعمل بشكل ممتاز ، والشكر لك موصول ، فجزاك الله خيراً ، وشكراً لكل من تفضل بالمشاركة .

مقالاتي :ـ