اريد تحويل نص الي مجموع رقمي

حساب جُمل !!!

dim ss as string
ss="محد"
dim arr(1 to 3)
arr(1)=40
arr(2)=8
arr(3)=4


dim Total as  integer
dim cc as string
dim pos as integer
dim i as integer
for i= 1 to len (text1)
cc=mid(text1,i,1)
pos= instr(1,ss ,cc)
if pos >0 then
Total  =Total  +  arr(pos)
end if

next

يمكنك اضافة اي حرف الى SS وبالمقابل اضف ترتيبه او رقمه في arr

كذلك لم اجرب هذا الكود في فيجوال بيسك فاذا وجد خطأ سامحونا لكن هذه الطريقة

أخي , عنوان الموضوع مخالف

انت ممكن تحطه في تركيب Select Case هياخد وقت طبعاً وحطه في حدث KeyPress لمربع النص وضع قيمة كل حرف في متغير , طبعاً ده هيطول جداً جداً

جرب الاتنين دول كده أخي , هذا أقصى جهدي .. ويفضل استعمال حدث KeyPress لمربع النص

Ala2_VB_Work_with_textbox.rar

Ala2_Vb___Work_with_Textbox__2.rar

بسم الله

جرب جملة Select case ومع كل حرف الرقم المقابل

وحطه في متغير وبعدين خليه يجمع المتغيرات دي

انا مش متاكد بس جرب

الف شكــــــــــر للجميع علي المرور

الموضـــــــوع الذي اقصـــــده كالاتي

يوجد علي الفورم عدد 2 تكست بوكس + زر

اود ان اكتب في التكست بوكس مثلا " محمد وهبي "

ثم الضغط علي الزر فيظهـــر مجموع الكلمة في التكست الثاني

حيث ان لكل حرف قيمة رقمية " م = 40 ح = 8 م =40 د = 4 و = 6 هـ = 5 ب = 2 ي = 10

والمجموع النهــــائي = 115

والف شكر للجميع علي المرور الكـــــريم

مشاركتي الاولى تقوم بهذا الامر لكن لا اعرف هل عرفت ان تستعملها ام لا ؟

هي بحاجة الى اضافة بقية الحروف والارقام المقابلة لهم

وللتوضيح اكثر ساستخدم الاحرف الانجليزية

ss="abcdef"

كما ترى a موقعها الاولى ثم b الثانية والسي الثالثة والدي الرابعة وهكذا

لذلك في المصفوفة يجب ان اضعها بالترتيب المقابل لها

arr(1)=40 'a

arr(2)=50 'b

arr(3)=90 'c

arr(4)=200'd

وهكذا

يوم امس كنت اطلب المساعدة لعمل برنامج

يقوم بتحويل النص الي مجموع رقمي

وحاول بعض الزملاء المساعدة لكن للاسف بدون جدوي

الموضوع باختصار

اريد عمل برنامج به 28 زر كل زر يحمل حرف من الحروف العربية

وكل حرف يحمل قيمة معينة مثل

أ=1 ب=2 ج=3 وهكزا

ويوجد عدد3 تكست بوكس الاول للجملة الثاني لقيمة الحرف الثالث للمجموع النهائي

واليكم مثال للبرنامج لم اسوي فيه شئ

وانتظر المساعدة

بارك الله فيكم جميعا

____.rar

يعني انت تريد عند الضغط على الزر يظهر الحرف الذي عليه في التيكست

أو ماذا .........

بسم الله

الاخ العزيز محمد وهبي

على قد ما فهمت طلبك حاولت اساعدك

في المرفقات المثال بعد التعديل

ارجو اني اكون وفقت لما فيه طلبك

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

Numbers.rar

تم التعديل على المثال

ماذا تقصد ب :

اقتباس

ثم قيمة الحرف ثم مجموع الحروف

key1.rar

انا اللى فهمته انك عايز كل رقم يتكيب يظهر له ascii -keycode بتاعه واى حرف يدخل جديد رقم كوده يتجمع على ارقام الحروف السابقة وتظهر النتيجة فى خانة كدا صح ولا انا فهمت غلط

Dim hos As Integer

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
hos = hos + KeyCode
Label1.Caption = hos
End Sub

دا الكود لوانت تقصد كدا

انت تقصد علم الارقام ؟؟

انا سويت برنامج و حطيته هنا

تستطيع البحث

وتكتب برنامج علم الارقام

ثانيا

كل حرف بتسوي كذا

مثلا حرف ا

ملاحظة ا غير عن أ

تكتب حق أ و ا

if keyascii = 199 or keyascii = 195 then

label1.caption = label1.caption + 1

end if

طبعا انت حاط من قبل label و خاصية ال caption = 0

و فيه برنامج صنعه اخ من المنتدى لا اذكر اسمه بالمرفقات

asc.rar

الف شـــــــــــــــــكر لجميع الاخوة اللي حاولوا يساعدوني

وشــــــــــــــــكر خاص للاستاذ الكبير

amir imam

كلمة شــــــــــكر قليلة عليك والله

انت وضعت المثال الذي كنت ابحث عنه

بارك الله فيك وجزاك الف خير

والف شكر لهــــــــذا المنتدي العمـــــــــــــــــــلاق

الف الف شــــــــــــــــــــــــــــــــــــكر

بسم الله

يا باشا جزاك الله خيرا

كلام طيب من رجل طيب

وان شاء الله ربنا يوفقك في كل شغلك

انا فهمت برنامجك

وهو لعلم الارقام وانا من قبل سويته وحطيته هنا

طبعا استعلملت الكود الي فوق والبرنامج سهل عليي