ما أقدر أجمع الحروف في string

ابسط طريقة و المثال موجود في المرفقات انتمى ان تستفاد منه

و المثال تم برمجتة ب visual Studio 2008

و هذا الكود ان لم تكن تملك النسخة

كل ما عليك فعله هو اضافة

Button عدد واحد

textBox عدد ثنين

الاول غير اسمة الى txtWord و هو لادخال النص المراد تشفيره

numericUpDown لادخال المفتاح و غير اسمة الى NupKey

ثم اضف هذا الكود داخل الزر للتحويل

		Try

			Dim size As Integer = txtWord.Text.Length - 1
			Dim chararry(size) As Char
			Dim charVal(size) As Integer
			chararry = txtWord.Text.ToUpper.ToCharArray



			Dim Result As String = ""

			Dim number As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ_ ,-1234567890"
			Dim Alph() As Char
			Alph = number.ToCharArray

			For i = 0 To size
				Dim theChar As Char = chararry(i)
				Dim key As Integer = NupKey.Value
				Dim charval2 As Integer = number.IndexOf(theChar)
				charVal(i) = (key + charval2) Mod 40

				Dim reval As String
				reval = Alph(charVal(i)).ToString

				Result &= reval

			Next

			TextBox2.Text = Result
		Catch ex As Exception
			MsgBox(ex.Message)
	  End Try

Dima.zip

شكرااا عالمساعدة ... تقريبا انا كنت ابحث على نفس الشئ ...

بس للاسف الكود مامشى ... لان عندي الفيجيوال بيسك الاصدار رقم 6

آسفة اني دخلت بالموضوع ... بس حاولت اغير الكود عشان يناسب النسخة اللي عندي وللاسف ماضبط :(

مبرمجة-123 كتب:

شكرااا عالمساعدة ... تقريبا انا كنت ابحث على نفس الشئ ...

بس للاسف الكود مامشى ... لان عندي الفيجيوال بيسك الاصدار رقم 6

آسفة اني دخلت بالموضوع ... بس حاولت اغير الكود عشان يناسب النسخة اللي عندي وللاسف ماضبط :(

اسف و لكني جديد على الفيجول بيسك و لا اعرف الطرق الخاصة بالفيجول بيسك 6

انا جدا خجلان :wub: و اتمنى ان يقوم عضو اخر باجراء الازم :wacko:

السلام عليكم

for i=1 to len(text1)
ph=ph+Chr(Asc(Mid(text1, i, 1))+1)
next
text2=ph

:rolleyes:

مبرمجة-123 كتب:

المشكلة لما يطلع رقم اكبر من 26

( اكبر من الحروف نفسها)

حطيت له شرط بحيث انه لو صار اكبر من 25

يصير يطرح الناتج ويعطيني الحرف الصحيح

بس مايعطيني ناتج صحيح زي مالمفروض يعطيني ؟

قمي بتطبيق باقي القسمة على عدد الحروف

كما في المثال السابق

charVal(i) = (key + charval2) Mod 40

قمنا بمعامل باقي القسمة على 40 لان عدد الحروف المستخدمة داخل هذا الكود هي 40 حرف

ارجو يا اختي انك تبحثي في قسم الفيجوال بيسك 6 ستجدي المساعده اكبر وارجو من المشرفين تحويل الموضوع لقسم ال VB6