سؤال جدأ مبتدئ ...وجزاكم الله خيرا

السلام عليكم

اولا نرجو توضيح السؤال وارفاق القليل من الكود حتى نفهم المطلوب بالضبط

وللفائدة

للتعامل مع النصوص كاحرف يمكن استخدام mid

dim x as string

x="abc"

dim y as string

y= mid(x,1,1)

نحصل على y = a

y= mid(x,2,1)

نحصل على y = b

وهكذا

شكرا لك أخي على إهتمامك

أنا جدا مبتدئة في هذه اللغة ولم تشترط علينا الدكتورة أي لغة برمجة المهم أن الموضوع في مادة التعريب

هذا هو كودي

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myS As String

myS = InputBox("Enter your value")

Dim length As Integer

length = Len(myS)

Dim chararray() As Char = myS.ToCharArray //وجدت هذه الدالة في موقع أجنبي وهي تحول من نص ل حروف وتضعها في مصفوفة

Dim result(length) As Char

Dim res As Integer

res = 0

For count = 0 To length + 1

If chararray(count) = "a" Then

result(count) = "¬"

End If

If chararray(count) = "b" Then

result(count) = "éں"

End If

If chararray(count) = "c" Then

result(count) = "›"

End If

Next

//يعني المشروع بإختصار يأخذ النص الإنجليزي ويحوله ما يقابله من حروف عربية على لوحة المفاتيح

//المشكلة لدي الآن في إخراج النتائج

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

اقتباس

المشكلة لدي الآن في إخراج النتائج

وأين المشكلة بالضبط ، أي كيف تريدين إخراج النتائج ؟

كودي هذا يحول و يخرج النتائج ل حرف واحد في

msgbox

والمطلوب كل النص يتحول ويخرج بأي شكل من الأشكال

السلام عليكم

هذا الكود هو خاص بالدوت نت

للتحويل الى نص فقط اضيفي الجملة التالية

Dim outstr As String

outstr = result

MsgBox(outstr)

السلام عليكم ورحمة الله

أخي في الله الكود يعطيني خطأ عند أول

IF

ورسالة الخطأ هي:

index out of range

Index was outside the bounds of the array.

يعني أن رقم المصفوفة خطأ خارج مجال المصفوفة

المشكلة في length +1 ، المفروض أن تكون length -1

وبدلاً من استخدام صيغة الشرط IF ، لماذا لا تستخدمين Select Case ، كالمثال التالي :

			Select Case chararray(count)
				Case "a" : result(count) = "¬"
				Case "b" : result(count) = "¬"
				Case "c" : result(count) = "›"
				Case "d" : result(count) = "¬"
				Case "e" : result(count) = "¬"
			End Select

شكرا أخي الكود يعمل بدون رسائل أخطاء ولكن

Dim outstr As String

outstr = result

MsgBox(outstr)

تخرج لي فارغة بدون نتائج التحويل

وشكرا جزيلا

السلام عليكم

يمكن كتابة الكود بطريقة اسهل كما يلي

   Dim myS As String
		myS = InputBox("Enter your value")
		Dim sEng As String = "abcd"
		Dim sAra As String = "ابتث"
		For index As Integer = 0 To myS.Length - 1
			myS = Replace(myS, sEng(index), sAra(index), , , CompareMethod.Text)
   Next

ويجب وضع الاحرف الانجليزية في sEng

ووضع ما يقابلها بالعربية او اي شيء آخر في sAra

غربية ، الكود يعمل جيدًا لدي . الكود بعد التعديل يبدو كالتالي :

		Dim myS As String = InputBox("Enter your value")

		Dim length As Integer = Len(myS)

		Dim chararray() As Char = myS.ToCharArray


		Dim result(length) As Char

		For count As Integer = 0 To length - 1

			Select Case chararray(count)
				Case "a" : result(count) = "¬"
				Case "b" : result(count) = "‚ں"
				Case "c" : result(count) = "›"
			End Select

		Next

		MsgBox(result)

:ty:

الكود يعمل بالشكل المطلوب

جزاكم الله خير الجزاء على هذا المجهود الرائع