الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كم استفسار بالفجوال بيسك

بدأه رووبيي في 24 نوفمبر 2008 · 12 رد · 814 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي كود جالسه اشتغل عليه

ابي اليوزر يدخل نص سترنق

وابي امسك حرف حرف واتعامل معه

في هالحاله راح استخدم أراي صح ؟؟

طيب انا ما اعرف كم راح يدخل اليوزر

شلون اعرف الأراي في هالحاله ؟؟ يعني كم أحط لها السايز ؟؟

شاكره لكم وبانتظار الرد :blush:

#2

السلام عليكم

انت هاتلفي على الحروف حرف حرف ايَ كان عددهم عن طريق طول النص نفسه

 For i As Integer = 0 To TextBox1.Text.Length - 1
			MsgBox(TextBox1.Text.Chars(i))
		Next

ومافيش داعي للأريي (مصفوفة)(Array) ياريت تكتبى كلمات تتفهم بسرعة

تم تعديل هذه المشاركة بواسطة MohamedAliSalim في 24 نوفمبر 2008 في 17:43

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#3

طيب يعطيك العافيه

انت مخليها تطلع بمسج بوكس

انا ابيها تطلع بتكست بوكس واحد ثاني

عدلت بكودك

سويت كذذا

For i As Integer = 0 To TextBox1.Text.Length - 1

TextBox2.Text = Text.Chars(i)

Next

بس فيه أيرور

اسفه على الإزعاج

واتمنى تكون لغتي مفهومه

#4

والله لو انا زي الاخ ما قال لو كتبتي بالعربي انا كنت ساعدتك وانا والحمد لله بعرف في المصفوفات عموما عندك اكتر من حل

اولا

المصفوفه الداينمك deynamic lhgjwvdp والتصريح عنها هكذا

dim mm() as string

او اختاري نوعها زي ما تحبي

ثانيا فيه داله بتعد الحروف وهي .. نسيتها اول ما افتكرها هاقولهالك

#5

طيب اوكي للحين حلو وفاهمه عليكم

انا ابي اخذ متغير من مصفوفه في تكيت بوكس

اضغط على بوتوم

يسوي عمليه وينحط هالمتغير بتكست بوكس واحد ثاني

لو سويت مثل ما قلت

dim mm() as string

بعدين شلون اعرف متغير من هالنوع ؟

لأني لو عرفت يقول لي أيرور

دورت بأكواد في النت بس مالقيتها مناسبه

وشريت كتاب ماذكر هالشي

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

#6

بصراحة انا مش فاهم انت عاوزة ايه بالضبط

وايه الخطأ اللي بيظهرلك في الكود بتاعك ؟؟

وعاوزه من المصفوفة ايه ؟

اشرحيلي بالضبط ماذا تريدين

تم تعديل هذه المشاركة بواسطة MohamedAliSalim في 24 نوفمبر 2008 في 18:21

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#7

طيب ابشر

انا الحين مطلوب مني اعمل هالكود

c8c1bedf25.gif

يدخل مسج في textbox1 نفرض مثلا أن المسج تكون Welcome

لما اضغط على Encode

يسوي عمليات معينه

وتطلع الكلمه في الـ textbox2

انا ما احتاج احد يحل لي البرنامج ابي اتعلمه من نفسي

بس ابي اعرف بالمصفوفه كيف امسك حرف حرف

سويت هالكود مثل ما قال اخوي المشيد hh




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mm() As String
Dim i As Integer


For i = 0 To TextBox1.Text.Length

mm(i) = TextBox1.Text
TextBox2.Text = mm(i)
Next i


End Sub
End Class
Public Class Form1

طلع لي أيرور في mm

اتمنى تكونون فاهمين اللي ابيه

#8

سويت هالكود ويقول لي ان TextBox2.test Read Only




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




For i As Integer = 0 To TextBox1.Text.Length - 1
TextBox2.Text.Chars(i) = TextBox1.Text.Chars(i)


Next i


End Sub
End Class
Public Class Form1

اتمنى منكم تعجلون وتعلموني هالخطوه لأني لو عرفتها خلاص بتنحل مشكلتي :(

#9

افعلي ما تشائين بالأحرف داخل For Loop

		TextBox2.Text = ""
		For i As Integer = 0 To TextBox1.Text.Length - 1
			TextBox2.Text &= TextBox1.Text.Chars(i)
		Next

تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 24 نوفمبر 2008 في 19:15

سبحان الله وبحمده ... سبحان الله العظيم

#10

الله يجزاك خير :)

ضبط معي

الحين بكمل الحل بس لو ماعرفت بسأل ^_^

#11

طيب انا للحين ماشيه بالبرنامج

ادخل النص مثلا دخلت كلمة hello

بعدين ادخل الكي = 7

مطلوب مني احول كل حرف لكابيتل

بعدين اخلي

A = 0 و B = 1 إلى Z = 25

وبعدين اسوي عملية تشفير

( m = key * num % 26 )

بحيث ان num هو رقم الحرف بعد ما نحوله لكابيتال

وبعدين يطلع لي رقم

هذا الرقم بيكون من 1-26

اخذ هذا الرقم واشوف وش الحرف الجديد اللي يقابله

واحط الحرف الجديد في تكست بوكس 2

يعني لو دخلت كلمة

hello

ودخلت الكي 7

يصير الناتج

XCZZU

هذا الكود اللي سويته




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

Dim key As Integer
Dim multy As Integer
Dim upper As String
Dim num As Integer


upper &= UCase(TextBox1.Text)



TextBox3.Text = key

multy = key * 15
TextBox2.Text = ""
For i As Integer = 0 To TextBox1.Text.Length - 1
If upper.Chars(i) = "A" Then
num = 0
End If
If upper.Chars(i) = "B" Then
num = 1
End If
If upper.Chars(i) = "C" Then
num = 2
End If
If upper.Chars(i) = "D" Then
num = 3
End If
If upper.Chars(i) = "E" Then
num = 4
End If
If upper.Chars(i) = "F" Then
num = 5
End If
If upper.Chars(i) = "G" Then
num = 6
End If
If upper.Chars(i) = "H" Then
num = 2
End If
If upper.Chars(i) = "I" Then
num = 2
End If
If upper.Chars(i) = "J" Then
num = 2
End If
If upper.Chars(i) = "K" Then
num = 2
End If
If upper.Chars(i) = "L" Then
num = 2
End If
If upper.Chars(i) = "M" Then
num = 2
End If
If upper.Chars(i) = "N" Then
num = 2
End If
If upper.Chars(i) = "O" Then
num = 2
End If
If upper.Chars(i) = "P" Then
num = 2
End If
If upper.Chars(i) = "Q" Then
num = 2
End If
If upper.Chars(i) = "R" Then
num = 2
End If
If upper.Chars(i) = "S" Then
num = 2
End If
If upper.Chars(i) = "T" Then
num = 2
End If
If upper.Chars(i) = "U" Then
num = 2
End If
If upper.Chars(i) = "V" Then
num = 2
End If
If upper.Chars(i) = "W" Then
num = 2
End If
If upper.Chars(i) = "X" Then
num = 2
End If
If upper.Chars(i) = "Y" Then
num = 2
End If
If upper.Chars(i) = "Z" Then
num = 2
End If


multy = (num * key) Mod 26
num = multy









TextBox2.Text &= upper.Chars(num)
Next i



End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub
End Class
Public Class Form1

لو دخلت كلمة hello

يطلعلي

HHHHH

اتوقع فيه غلط باللوب

وش الإشكاليه هنا ؟

#12 
Dim str As String
		Dim key As Integer = InputBox("Enter the key:")
		str = TextBox1.Text.ToUpper()
		For i As Integer = 0 To str.Length - 1
			Dim num As Integer
			num = Asc(str.Chars(i)) - 65
			num = (num * key) Mod 26
			TextBox2.Text &= Chr(num + 65)
		Next

سبحان الله وبحمده ... سبحان الله العظيم

#13

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

جالسه اشتغل عليه وضبط معي

الله يجزاك الفردوس يارب

مواضيع مشابهة