تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة لتغيير الاحرف الى ارقام
#21
السلام عليكم...

في كود إجراء الزر ضع هذا الكود:
كود :
MyText = Trim(Replace(Text1.Text, "ة", "ه"))

بدل هذا الكود:
كود :
MyText = Trim(Text1.Text)

* ملاحظة: قد يبدو الكود الأول مقلوباً عند عرضه هنا (بسبب وجود نص عربي)، و لكن التاء المربوطة هي الأولى و الهاء هي الثانية

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#22
مشكور أخي العزيز ناجي شكرا جزيلا كمل وقد اشتغلت الاحرف كلها.....
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#23
استبدال الحروف بارقام والعكس


الملفات المرفقة
.zip   xxxx.zip (الحجم : 1.92 ك ب / التحميلات : 60)
{قَالُواْ سُبْحَانَكَ لاَ عِلْمَ لَنَا إِلاَّ مَا عَلَّمْتَنَا إِنَّكَ أَنتَ الْعَلِيمُ الْحَكِيمُ}
الرد }}}
تم الشكر بواسطة:
#24
كود :
MyText = Trim(Replace(Text1.Text, "ه", "ة"))
السلام عليكم هل استطيع عمل نفس هذا الحل إذا اريد اجعل (ى) يساوي قيمة(ي) وكذلك(ئ)تساوي قيمة(ي)وكذلك (ؤ)تساوي قيمة(و)
ى = ي
ئ = ي
ؤ = و
افيدونا أفادكم الله ومع جزيل الشكر
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#25
الأخ ناجي وألأخ عبد الله أفيدونا عن هذا الاستفسار الاخير أفادكم الله (ى+ئ =10) كقيمة الياء و (ؤ =6) كقيمة الواو كيف اضيفهم على برامجي الاثنين في المرفقات ولكم جزيل الشكر


الملفات المرفقة
.rar   برنامج الكتابة &#1.rar (الحجم : 3.4 ك ب / التحميلات : 48)
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:
#26
جرب ذلك التعديل وبالتوفيق.

ولكن عندي فضول في معرفة ماهي فكرة برنامجك؟ وما الفائدة منه؟


الملفات المرفقة
.zip   مساعدة لتغيير ا&#1.zip (الحجم : 3.83 ك ب / التحميلات : 64)
الرد }}}
تم الشكر بواسطة:
#27
شكرا جزيلا اخ عبد الله وقد ارسلت البرنامج على بريدك الخاص ارجو ان تبدي رأيك لي وتكتم الخبر وجزاك الله خيرا وشكرا مرة ثانية
لا اله إلا الله محمد رسول الله
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم