+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة لتغيير الاحرف الى ارقام (/showthread.php?tid=6835)
مساعدة لتغيير الاحرف الى ارقام - ناجي إبراهيم - 15-11-12
السلام عليكم...
في كود إجراء الزر ضع هذا الكود:
كود :
MyText = Trim(Replace(Text1.Text, "ة", "ه"))بدل هذا الكود:
كود :
MyText = Trim(Text1.Text)* ملاحظة: قد يبدو الكود الأول مقلوباً عند عرضه هنا (بسبب وجود نص عربي)، و لكن التاء المربوطة هي الأولى و الهاء هي الثانية
نرجو الاستفادة و السلام.
مساعدة لتغيير الاحرف الى ارقام - بهلوان - 15-11-12
مشكور أخي العزيز ناجي شكرا جزيلا كمل وقد اشتغلت الاحرف كلها.....
مساعدة لتغيير الاحرف الى ارقام - ax-ooo-xa - 16-11-12
استبدال الحروف بارقام والعكس
مساعدة لتغيير الاحرف الى ارقام - بهلوان - 18-11-12
كود :
MyText = Trim(Replace(Text1.Text, "ه", "ة"))ى = ي
ئ = ي
ؤ = و
افيدونا أفادكم الله ومع جزيل الشكر
مساعدة لتغيير الاحرف الى ارقام - بهلوان - 18-11-12
الأخ ناجي وألأخ عبد الله أفيدونا عن هذا الاستفسار الاخير أفادكم الله (ى+ئ =10) كقيمة الياء و (ؤ =6) كقيمة الواو كيف اضيفهم على برامجي الاثنين في المرفقات ولكم جزيل الشكر
مساعدة لتغيير الاحرف الى ارقام - عبدالله الصافي - 18-11-12
جرب ذلك التعديل وبالتوفيق.
ولكن عندي فضول في معرفة ماهي فكرة برنامجك؟ وما الفائدة منه؟
مساعدة لتغيير الاحرف الى ارقام - بهلوان - 18-11-12
شكرا جزيلا اخ عبد الله وقد ارسلت البرنامج على بريدك الخاص ارجو ان تبدي رأيك لي وتكتم الخبر وجزاك الله خيرا وشكرا مرة ثانية