كيف اقوم بجمع قيم حروف معرفه بقيم عددية سابقا

السلام عليكم

الحقيقة لا اعرف ما فائدة الكود الذي تطلبه , لكني سوف اعطيك الحل وهو كالتالي :

أولا لو أفترضنا أننا نملك Textbox و Command مربع النص يتلقى الكلمات أو الحروف , وزر الامر نضع في داخله الكود التالي :

Private sub Command1_click()
for i = 1 to len(text1.text)
GetCharacter(mid(text1.text,i,1)
next i
end Sub

الكود السابق هو عبارة عن حلقة , تقسم النص وتنتقي الحروف واحد بعد الآخر وترسله الى وظيفة فرعية أسمها GetCharacter .

وتضع الكود التالي داخل الفورم :

private sub GetCharacter(S As String)
if S = م  then 
N = N + 3
elseif S = ح then 
N = N + 2
elseif S = د then
N = N + 1
end if
end Sub

الكود السابق يختبر المتغير وتستطيع وضع ما تريد كما ترى أخي الحبيب .

ويجب تصريح المتغير S في كامل الفورم , والقيم الاخير ستكون في المتغير S

أرجوا أن تكون الأجابة وافية .

مشكور أخ عماد ولكن أنا أريد أن يظهر الناتج في تكست منفصل وياريت ترفق الكود على vb لأنه بالكتابة ما عم يظبط معي وشكرا ليك

فقط بدل N استخدم txtValue مثلا.. او بعض الانتهاء من الحلقة, txtValue.text = N

يوجد خطأ هنا

GetCharacter(mid(text1.text,i,1)

أخي الحبيب يوجد أعتقد خطأ في تصريح المتغير S , حاول أن لا تصرحه لأنه قد تم تصريحه كبارامتر لدالة فرعية .

ودع كل شئ كما هو

السلام عليكم

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

_______.zip