المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
في كود إجراء الزر ضع هذا الكود:
كود :
MyText = Trim(Replace(Text1.Text, "ة", "ه"))
بدل هذا الكود:
كود :
MyText = Trim(Text1.Text)
* ملاحظة: قد يبدو الكود الأول مقلوباً عند عرضه هنا (بسبب وجود نص عربي)، و لكن التاء المربوطة هي الأولى و الهاء هي الثانية
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 27
المواضيع 1
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
مشكور أخي العزيز ناجي شكرا جزيلا كمل وقد اشتغلت الاحرف كلها.....
لا اله إلا الله محمد رسول الله
المشاركات : 26
المواضيع 2
الإنتساب : Sep 2012
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
استبدال الحروف بارقام والعكس
الملفات المرفقة
xxxx.zip (الحجم : 1.92 ك ب / التحميلات : 60)
{قَالُواْ سُبْحَانَكَ لاَ عِلْمَ لَنَا إِلاَّ مَا عَلَّمْتَنَا إِنَّكَ أَنتَ الْعَلِيمُ الْحَكِيمُ}
المشاركات : 27
المواضيع 1
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
كود :
MyText = Trim(Replace(Text1.Text, "ه", "ة"))
السلام عليكم هل استطيع عمل نفس هذا الحل إذا اريد اجعل (ى) يساوي قيمة(ي) وكذلك(ئ)تساوي قيمة(ي)وكذلك (ؤ)تساوي قيمة(و)
ى = ي
ئ = ي
ؤ = و
افيدونا أفادكم الله ومع جزيل الشكر
لا اله إلا الله محمد رسول الله
المشاركات : 27
المواضيع 1
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
الأخ ناجي وألأخ عبد الله أفيدونا عن هذا الاستفسار الاخير أفادكم الله (ى+ئ =10) كقيمة الياء و (ؤ =6) كقيمة الواو كيف اضيفهم على برامجي الاثنين في المرفقات ولكم جزيل الشكر
الملفات المرفقة
برنامج الكتابة .rar (الحجم : 3.4 ك ب / التحميلات : 48)
لا اله إلا الله محمد رسول الله
المشاركات : 494
المواضيع 45
الإنتساب : Sep 2013
السمعة :
18
الشكر: 275
تم شكره 498 مرات في 237 مشاركات
جرب ذلك التعديل وبالتوفيق.
ولكن عندي فضول في معرفة ماهي فكرة برنامجك؟ وما الفائدة منه؟
الملفات المرفقة
مساعدة لتغيير ا.zip (الحجم : 3.83 ك ب / التحميلات : 64)
المشاركات : 27
المواضيع 1
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
شكرا جزيلا اخ عبد الله وقد ارسلت البرنامج على بريدك الخاص ارجو ان تبدي رأيك لي وتكتم الخبر وجزاك الله خيرا وشكرا مرة ثانية
لا اله إلا الله محمد رسول الله