أسئلة الإحماء لبداية مسابقات القسم؟

هل بامكاني الاستفادة من الـ clipboard ام لا يحق لي استخدام اي فكشن مساند من الـ Net.

و عليكم آلسلآم ورحمه آلله وبركآته .. ,

بدآيه موفقه ..

حليت آلسؤآل ..

بس مآ أعرف آضغط آلملف برقم سري :( ..

ينفع آضع آلحل :D

السلام عليكــم ورحمـة الله وبركاتــه ،،

جآري إرسآل الرقم :)

WindowsApplication2.rar

..

السلام عليكــم ورحمـة الله وبركاتــه ،،

ماشاء الله لم أكن أتوقع هذا التفاعل

اخى assaf_abdullah ,, لا طبعا لا يمكن الاستعانة بالكليبورد :D لكن فكرة جميلة :D

أخى md_mostafa ,, يرجى الالتزام بالقوانين ,, قمت بحذف مشاركتك التى تحتوى على الحل

سيتم إعلان النتيجة غدا بإذن الله

بالتوفيق للجميع وأرجو أن يستمر هذا التفاعل عندما تبدأ المسابقات الفعلية :wink:

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

solution

solution.rar

بسم الله الرحمن الرحيم ،،

اجابتي في المرفقات ،،

Q.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخى md_mostafa ,, هذه المرة الثانية التى أنبهك فيها إلى إلتزام القوانين ,, يرجى التزام القوانين كما فعل باقى الأعضاء ,, قمت بحذف مشاركتك للمرة الثانية ولو تكررت المخالفة فسيكون هناك إجراء آخر

يرجى احترام القوانين

وفقنا الله وإياكم إلى ما يحب ويرضى ,,

ماشاء الله جميع الحلول صحيحة ,, سأقوم بإعلان جميع الحلول عصر اليوم بإذن الله

لكن تكملة للسؤال ,, لو كانت القيم من النوع النصى String وليست أرقاما

مثلا لو كانت

x="ArabTeam"
y=" For Programming"

كيف نبدل القيم فى هذه الحالة ؟؟

فى انتظاركم وأتمنى أن أجد نفس التفاعل :blush:

سلام عليكم

خلاص ياريس أنا رايح قسم السى

md_mostafa كتب:

سلام عليكم

خلاص ياريس أنا رايح قسم السى

سواء هنا أو فى أى قسم آخر يجب عليك التزام القوانين وإلا سيتم اتخاذ إجراء تجاه عضويتك من مشرف القسم

القوانين هنا تسرى على الجميع بلا استثناء سواء عضو جديد أو خبير أو حتى مشرف

بالتوفيق ,,

Q.rar

أين باقى الأعضاء؟؟!! :huh:

نحن مازلنا فى بداية مرحلة الإحماء وهذا أول سؤال ,, هل نلغى الفكرة ونوقف المنافسة ؟؟ -_-

السلام عليكــم ورحمـة الله وبركاتــه ،،

يبدو أننى سألغى الفكرة

على كل حال ,, هذه هى الحلول التى وصلتنى بالنسبة للسؤال الأول

1- إشراقة فجر

		TextBox1.Text = TextBox1.Text * TextBox2.Text
		TextBox2.Text = TextBox1.Text / TextBox2.Text
		TextBox1.Text = TextBox1.Text / TextBox2.Text

الحل صحيح لكن المشكلة لو كان مربع النص TextBox2 به صفر ستكون النتيجة "ليس برقم" لكنه يعمل مع باقى الأرقام بطريقة صحيحة

2- الساهر24

Dim y As Integer = 8
		Dim x As Integer = 5
		MsgBox(y)
		MsgBox(x)
		y = y - x
		x = x + y
		MsgBox(x)
		y += x Mod y
		MsgBox(y)

الحل خطأ إذا كانت قيمة x أكبر من قيمة y

3- profesor-xp

		Dim a As Integer
		a = TextBox1.Text
		Dim b As Integer
		b = TextBox2.Text
		a = a + b
		b = a - b
		a = a - b
		TextBox3.Text = a
		TextBox4.Text = b

الحل صحيح تماما :thumb_up: :clapping:

فى انتظار حلول السؤال الثانى ,,

اقتباس

الحل صحيح لكن المشكلة لو كان مربع النص TextBox2 به صفر ستكون النتيجة "ليس برقم" لكنه يعمل مع باقى الأرقام بطريقة صحيحة

صحيح .. مآ جربت آلصفر :D ..

جزآكم آلله من خيري آلدنيآ و آلأخرهـ ..

/

هذآ حلي لتكمله آلسؤآل ..

نفس آلرقم آلسابق :) ..

ArabTeam.rar

سيتم إعلان نتيجة السؤال الثانى صباح الغد بإذن الله ووضع السؤال الجديد وأتمنى أن أرى التنافس :blush:

كلمة المرور هي نفسها الله يوفق الجميع :wink:

solution1.rar

هل من مزيد؟؟ :blush:

أين أنتم ,, الأسئلة القادمة أكثر صعوبة وتحتاج فعلا إلى وجود متنافسين :wink:

نتيجة السؤال الثانى

1- profesor-xp :

		Dim a As String
		a = TextBox1.Text
		Dim b As String
		b = TextBox2.Text
		a = a + "_" + b
		b = a.Substring(0, a.IndexOf("_"))
		a = a.Substring(a.IndexOf("_") + 1)
		TextBox3.Text = a
		TextBox4.Text = b

الحل صحيح نسبيا لكن به خطأ وهو إذا بدأ الإسم بالرمز "_" لكن غير ذلك فلا توجد مشاكل

2- إشراقة فجر

		a = "ArabTeam"
		b = " For Programming"
		a = a + b
		x = a.Length
		y = b.Length
		b = a.Substring(0, x - y)
		a = a.Substring(b.Length)
		TextBox1.Text = a
		TextBox2.Text = b

الحل صحيح تماما :thumb_up: :clapping:

3- الساهر24

Public Class Form1

	Class employees
		Public x As String = "ArabTeam"
		Public y As String = "For Programming"
		Sub a()
			x = y
			MsgBox(x)

		End Sub
	End Class
	Class abs
		Inherits employees
		Sub b()
			Dim EM As New employees
			EM.y = EM.x

			MsgBox(EM.y)
		End Sub
	End Class

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim x As New abs
		x.a()
		x.b()

	End Sub

End Class

الحل يعمل بشكل صحيح لكنه خطأ لأنك استخدمت 4 متغيرات

عندما قمت بتعريف نسخة جديدة من الفئة abs والتى تحتوى على متغيرين x , y قامت الفئة بتعريف نسخة أخرى من الفئة employees والتى تحتوى على نفس المتغيرين وقمت بالتبديل بين النسختين وبالتالى فقد استخدمت 4 متغيرات

الآن السؤال الثالث أصعب قليلا وأرجو أن أجد التنافس ومن حاول الحل ولم يستطع أرجو أن يخبرنا أنه لم يتوصل للحل ويضع محاولاته حتى أرى كم عدد المتنافسين ومن على استعداد للاستمرار

السؤال هو:

- كيف تقوم بحفظ نص داخل ملف باستخدام سطر واحد من الكود فقط بطريقتين مختلفتين؟؟

فى انتظاركم :blush:

هذا جوابي على السؤال :

تحياتي...

answer.rar

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه ،،

فكرة الموضوع ممتازة بارك الله فيك

عذرا جئت متأخرا عن السؤال الأول

وهذه اجابة السؤال الثاني

example.rar

لــم أتوصـل إلى آلحل :mad:

السلام عليكــم ورحمـة الله وبركاتــه ،،

محآولتي <_<

موفقيــن

Code.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

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

solution1.rar