أريد ان اعمل برنامج بواسطه الفيجوال بيسك 2005 يحولي الحروف الى ارقام انا اضع قيمتها
مثال ahmad
الاسم بالارقام: 1,2,3,4,5
واضع امرلجمع الارقام حيث يصبح الناتج 1+2+3+4+5 = 15 هكذا الرجاء محتاج لعمل هذا البرنامج
ملاحظة: لكل حرف رقم خاص به A=1 طبعا هذا مثال
تم تعديل هذه المشاركة بواسطة الغملاسي في 4 يناير 2007 في 13:05
أعمل لوب على الكلمة اولا
ثم بعد ذلك أستخدم الأسكي كود
مثل
A = Asc(A) - 64
مع ملاحظة أن الأسكي يختلف من الحروف الكبيرة والصغيرة في اللغة الإنجليزية
لا تَقُولن لِشيءٍ ذَا نَاقِصٌ ... وَلَكن أَعمل وَقُل ذَا أكملُ
ما فهمت اخوي انا مبتدأ يا ريت تقولي شنو الدروس المفيده علشان اتعلم اللي قلت عنه :$
السلام عليكم ورحمة الله وبركاته
الاخ vbdb2005 يقول لك أن تستخدم طرق تحويل الحروف إلى الأسكى
وأظن أنك تجهل ما هو الأسكى كود فتفضل هذا الموقع
http://www.hektra.nl/info/asci.html
والله أعلم
أرجو أن أكون أفدتك
سلام
تم تعديل هذه المشاركة بواسطة say say not know في 1 يناير 2007 في 21:09
befor any great jop there is a bad jop had done
طب الحين ما في احد يقدر يعلمني كيف اصنع هذا الكود او يشرحلي الطريقه لاني الصراحة تعقدت :>
السلام عليكم ورحمة الله وبركاته
أول شي لازم تدور على حروف الاسم حرفا حرفا.. باستخدام الطريقة : For Each.. Next
بعدين تحول الحرف الى رقم باستخدام الطريقة ASC( )
بعدين تجمع الأرقام وتطلع الناتج .
وأما بالنسبة لتحويل الرقم الى حرف فاستخدم الطريقة CHR( )
شاهد المرفقات ;)
Dim OneLetter As String Dim AllLetters As String = TextBox1.Text Dim Result As Integer For Each OneLetter In AllLetters Result += Asc(OneLetter) Next TextBox2.Text = Result
ماذا اذا أردت وضع حروف عريبة ؟
هل اتبع نفس الطريقة ؟
تستطيع استخدام نفس الطريقة
ولكن سيكون الناتج كبير نسبياا. :D
ولكن انا اريد ان اجعل للحروف قيمه من عندي مثال اريد حرف الفاء = 80 والقاف = 100 والتاء = 400 وهكذا
ولكن هاذي الطريقة ستتعبك.. لأنك ستدخل قيم الحروف حرفا حرفا
أنصحك باستخدام طرق رياضية مثال
Result += Asc(OneLetter) * 2.4 - 13
ولكن يجب تصريح Result كـ Double حتى تكون النتيجة دقيقة
Dim Result As Double
على العموم سويت لك مثال بسيط حول الطريقة الأولى يدعم الأحرف من " أ " الى " خ "
ومثال بسيط على الطريقة الثانية
تم تعديل هذه المشاركة بواسطة M0OATH في 2 يناير 2007 في 00:30
شكرا للجميع على هذا التعاون بالاخص الاخ M0OATH الذي بذل جهد كبير معي
تم تعديل هذه المشاركة بواسطة al-iskafy في 3 يناير 2007 في 23:42
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…