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

أشكركم على التفاعل معى ,, هذا والله يعطينى الحماس لأكمل الموضوع

إن شاء الله سأعلن النتائج وأضع السؤال الجديد عصر أو مساء اليوم بإذن الله (حسب ظروف النت :lol: )

Write_To_File.rar

اقتباس

لكن بطريقة وحده معليش ، اللي امداني عليه ..

مايهمنى أنك شاركت وحاولت حتى لو لم تتوصل للحل بالكامل فالهدف من الموضوع هو تنشيط الأعضاء

تحيتى لك ولكل من يشارك حتى لو لم يتوصل للحل وأتمنى ألا ييأس من لم يستطع الحل ولا يحرمنا من تواجده معنا

ألا يوجد أعضاء آخرون يريدون المشاركة ؟؟!! -_-

سأُشارك إن شاء الله ابتداءا من السؤال الثالث أعِدُكَ إن شاء الله , انا في انتظاره

والله هو ده الحل اللي قدرت اوصله بخصوص السؤال الثالث

SaveTextIntoNotePad.rar

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

ارجو ان تقبلني كمتشارك متأخر

حللت المسؤال الثالث حلين لكن ليس 100% , اردت ان اشارك بغض النظر عن النتيجة

الحل الاول بطريقة سطر و احد

الحل الثاني باربع سطور - لم استطع ان اختصرها

WindowsApplication3.rar

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

أعتذر عن تأخر إعلان النتيجة لأن الانترنت عندى أصيب بالأنفلونزا :blink:

1- محمد رضى

// الطريقة الأولى
		System.IO.File.Open("test.txt", IO.FileMode.Create).Write(System.Text.Encoding.Default.GetBytes("If you can read something, that is the code is correct!"), 0, 55)
// الطريقة الثانية
		System.IO.File.OpenWrite("test1.txt").Write(System.Text.Encoding.Default.GetBytes("If you can read something, that is the code is correct!"), 0, 55)

الكود به مشكلة وهى أن الملف يظل مفتوحا فى الذاكرة حتى يتم إغلاق البرنامج أى أنك لن ترى النص الذى تم حفظه إلا بعد إغلاق البرنامج

2- abetry

لقد أجاب بطريقة واحدة فقط وهى

System.IO.File.WriteAllText("c:\test.txt", "TEST")

صحيحة 100% :thumb_up: :clapping:

3- إشراقة فجر

نفس الحل السابق وبالتالى فهو صحيح :thumb_up: :clapping:

4- الساهر24

Dim binr As New IO.BinaryWriter(System.IO.File.Open("c:\filstream.txt", FileMode.Create, FileAccess.Write))
		My.Computer.FileSystem.WriteAllText("c:\tx.txt", "بسم الله الرحمن الرحيم", True)
		binr.Write("ikikikikiki")

الإجابة الموجودة فى السطر الثانى صحيحة والأخرى خاطئة لأنها عبارة عن سطرين وليس سطر واحد

5- profesor-xp

RichTextBox1.SaveFile("c:\text.txt", RichTextBoxStreamType.PlainText)

فكرة جميلة ولم أكن أتوقعها والكود صحيح :wink:

6- محمد فؤاد تركى

		Dim str As New FileStream(Application.StartupPath & "/" & "SaveTextIntoFile.txt", FileMode.Create)
		Dim Sw As New StreamWriter(str)
		Sw.WriteLine(Txt1.Text)
		Sw.Close()

الكود صحيح لكنه لا يحقق شرط السؤال (سطر واحد فقط من الكود) :wink:

7- assaf_abdullah

		Dim sw As New IO.StreamWriter(My.Application.Info.DirectoryPath + "\User.ini")
		sw.WriteLine("3la Rasi")
		sw.Flush()
		sw.Close()
'''''''''''''''''''''''''''''''''''''
		My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath + "\User.ini", "sssss", False)

الإجابة الثانية صحيحة لأنها تحقق شرط السؤال والأولى صحيحة لكن لا تحقق الشرط وبالتالى فهى غير مقبولة

أنا سعيد جدا لأنى وجدت من يشارك معى فى هذا الموضوع وأتمنى ألا تيأسوا أو تملوا من الموضوع

أما بالنسبة لى فهذه هى الأجوبة :

My.Computer.FileSystem.WriteAllText("C:\test.txt", "This is an example using .netfw classes", False)

		Shell("cmd /c echo This is an example using shell function>c:\shell_test.txt")

الآن السؤال الرابع

كيف تعرف إذا كان السى دى مفتوحا أم مغلقا بطريقتين؟؟

ممنوع مشاركة أ/رغيد الطيب :lol: :lol:

هل هناك من حاول التوصل إلى الإجابة أم أنكم نسيتم الموضوع؟؟؟

إذا كان السؤال صعبا يمكن تغييره لكن أتمنى أن أعرف من يشارك!! :huh:

بحثت في MCI و WMI و لم أجد طريقة عملية للقيام بالعمل المطلوب.

بانتظار الحل.

تحياتي...

شكرا لتواجدك معى أخى محمد

إن شاء الله سأعلن الحل غدا وأتمنى أن أرى المشاركين معى

بالتوفيق للجميع بإذن الله ,,

معاك يا الغالي ،،

ان شاء الله راح احاول البحث عن الحل حتى الغد ،،

اتمنى اخوي " GHOST2010 " انك لما تحط السؤال تكون محدد متى تكون نهايته ، يعني مثلا بكرا راح تحط سؤال ..

تكتب بعد السؤال " آخر موعد للاجابة بعد يومين من الآن " ، كذا بيكون احسن ..

اقتراح بسيط ولك الحق في تطبيقه او رفضه ، ومشكور على الجهد المميز في المنتدى .. :) ..

معك حق أخى prof ,, هذا الاقتراح موجود بالفعل لكنى نسيت تطبيقه :blink: :blink:

إن شاء الله من السؤال القادم سأطبقه

تحياتى للجميع وشكرا لتواصلكم معى :blush:

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

نبحث عن اجابة السؤال ولكن أتى في وقت اجازة عندنا في السعودية الناس تعرف تزور بعضها طبع عند العرب B) حب الزيارات والسوالف صلة رحم وممكن يامشرف الله يجزاك خير يكون فيه توضيح اكثر في السؤال في القادم تفصيل شوي هذا اقتراح

كما قال الاخ الساهر 24 اتى في و قت اجازة , وهذا يعني انه لا عمل لا شغل لا برمجة , نوم ثم نوم و بعد ذلك نوم ...... :rolleyes:

اخي بالكاد بعد البحث تمكنت من فتح و اغلاق CD Room بكبسة زر , و لكني احتاج و قت اكثر للفحص حسب و قت فراغي فانا في العمل اقتص بعد الوقت لحل الاسئلة.......

ارجو كما قال الاخ Profesor-xp حدد مثلا آخرموعد للاجابة يوم السبت الساعة 4 مساءا بتوقيت السعودية ....... و هكذا :rose:

و ايضا اخي Ghost2000 لما لا تشرح الكود

 Shell("cmd /c echo This is an example using shell function>c:\shell_test.txt")

حيث انني لا اعلم ما هي الدالة Shell

اتمنى ان تنزل الحل و معه شرحه

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

اقتباس

ارجو كما قال الاخ Profesor-xp حدد مثلا آخرموعد للاجابة يوم السبت الساعة 4 مساءا بتوقيت السعودية

حسنا ,, آخر موعد للإجابة اليوم الساعة السادسة :blush:

assaf_abdullah كتب:

و ايضا اخي Ghost2000 لما لا تشرح الكود

 Shell("cmd /c echo This is an example using shell function>c:\shell_test.txt")

حيث انني لا اعلم ما هي الدالة Shell

اتمنى ان تنزل الحل و معه شرحه

تحت أمرك

الدالة Shell تقوم بفتح برنامج/ملف معين وتمرير معاملات لهذا البرنامج إذا لزم الأمر

فى هذا الكود قمت باستدعاء هذه الدالة لفتح سطر الأوامر CommandLine وهو شاشة الدوس السوداء المعروفة ومررت لها المعامل /c لكى يخبر سطر الأوامر أن النص الذى يلى المعامل هو عبارة عن أمر يجب تنفيذه ثم أتبعناه بالأمر echo وهذا الأمر يستخدم فى سطر الأوامر لإظهار المخرجات على الشاشة لكن فى حالتنا نحن نريد حفظ المخرجات داخل ملف وليس طباعتها على الشاشة السوداء لذلك استخدمنا معامل التوجيه > يليه إسم الملف المراد حفظ البيانات بداخله ,, هذا المعامل يمكن استخدامه مع جميع أوامر الدوس لطباعة مخرجات الأمر إلى ملف بدلا من طباعتها على الشاشة

أتمنى أن أكون قد استطعت التوضيح واعذرنى على شرحى السئ :blink: :blink:

للاسف لم استطع الحل و لا بأية طريقة .. :cry: لان الوقت داهمني لانني لم اتعامل مع CD Room اطلاقا في حياتي بالكاد عرفت كيف يفتح و كيف يغلق فقط, و ايضا شكرا لك على شرحك الدالة Shell

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

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

حل السؤال الطريقة الاولى والثانية جاري البحث..........

solution1.rar

باقى أقل من 20 دقيقة على انتهاء الموعد المحدد

سأقوم بكتابة درس جديد ثم أعود لأضع الإجابة :wink:

تم كتابة الدرس :blush:

الآن نأتى إلى الحلول

الوحيد الذى شارك معى بالحل هو الساهر24 وكان حله بهذا الشكل

Public Class Form1

	Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
	  (ByVal lpstrCommand As String, _
	  ByVal lpstrReturnString As String, _
	  ByVal uReturnLength As Integer, _
	  ByVal hwndCallback As Integer) As Integer
	Dim pbState As Boolean
	Public Sub SetCDState()
		If pbState Then
			Call mciSendString("Set CDAudio Door Open", 0, 0, 0)
		Else
			Call mciSendString("Set CDAudio Door Closed", 0, 0, 0)
		End If
	End Sub
	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		Select Case pbState
			Case False
				pbState = True
				MsgBox("بسم الله الرحمن الرحيم")
			Case Else
				pbState = False
				MsgBox("الحمدالله رب العالمين")
		End Select
		Call SetCDState()
	End Sub

End Class

الحل خاطئ لأنه اعتمد على أن عملية فتح وغلق السى دى تتم من داخل البرنامج لكن كان المطلوب هو أن يتعرف البرنامج تلقائيا على الحالة بمعنى أننى قمت بفتح السى دى يدويا ثم شغلت البرنامج وضغطت على الزر فأخبرنى أن السى دى مفتوح لكن هذا الحل هو مفتاح الإجابة وسنعرف ذلك حالا وأشكرك أخى الساهر جزيل الشكر على اجتهادك وفقنا الله وإياك إلى ما يحب ويرضى

سنعتمد فى الطريقتين على إحدى دوال الـAPI وهى الدالة التى استخدمها الأخ الفاضل الساهر فى إجابته ألا وهى الدالة mciSendString

التعريف بالدالة

هذه الدالة تستخدم لإرسال أوامر الوسائط المتعددة للأجهزة الخاصة بهذه العمليات مثلا يمكنك استخدامها لتشغيل الملفات الصوتية والفيديو من داخل برنامجك

نبذة من MSDN

اقتباس

The mciSendString function sends a command string to an MCI device. The device that the command is sent to is specified in the command string.

معاملات الدالة

1- المعامل lpszCommand : يحتوى على الأمر الذى سيتم إرساله إلى جهاز الوسائط المتعددة

2- المعامل lpszReturnString : عبارة عن متغير من النوع String يعود بالقيمة الناتجة من تنفيذ الأمر

3- المعامل uReturnLength : طول المعامل السابق

4- المعامل hwndCallback : لن أستطيع شرحه بشكل واضح لكنه متقدم بعض الشئ ولن يفيدنا هنا وهذا شرحه على MSDN

اقتباس

Handle of a callback window if the “notify” flag was specified in the command string.

الآن نريد أن نعرف حالة السى دى

الطريقة الأولى عن طريق إرسال الأمر "status cdaudio mode" والتحقق من القيمة التى يحملها المعامل الثانى بعد استدعاء الدالة إذا كان السى دى مغلقا سيحمل القيمة "closed" وإذا كان مفتوحا سيحمل القيمة "open" فتكون الطريقة الأولى بهذا الشكل

		Dim status As String = Space(100)
		mciSendString("status cdaudio mode", status, 100, 0)
		status = status.Replace(Chr(0), "")
		If status = "open" Then
			MsgBox("Door was open")
			mciSendString("set cdaudio door closed", "", 0, 0)
		Else
			MsgBox("Door was closed")
			mciSendString("set cdaudio door open", "", 0, 0)
		End If

عرفنا متغير باسم status ثم قمنا بتهيئته بعدد 100 مسافة وبعد تنفيذ الدالة كما ذكرنا سنجد أن هذا المتغير يحمل حالة السى دى ,, قمنا بحذف رمز الـNull والذى يحمل القيمة صفر من المتغير حيث أنه متغير من النوع Null-Terminated والذين تعاملوا مع لغات طائفة السى والأسمبلى يفهمون معنى ذلك

بعد ذلك نتأكد من الحالة الناتجة إذا كانت open تظهر رسالة "Door was open" ثم تغلق السى دى والعكس إذا كان مغلقا

توجد هنا ملحوظة وهى أن هذه الطريقة ربما لا تعمل لدى البعض لوجود خلل لا أعرفه فى الأمر

"status cdaudio mode" وهذا ما دفعنى إلى أن أطلب الحل بطريقتين :P :P

الطريقة الثانية مضمونة ومجربة 100% ولا توجد بها أى مشاكل إن شاء الله وهى باستخدام طريقة الأخ الساهر مع بعض التعديلات

حسنا ,, ركزوا معى

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

		Dim sec As Integer = Now.Second
		mciSendString("set cdaudio door open", "", 0, 0)
		If Now.Second = sec Then
			MsgBox("Door was open")
			mciSendString("set cdaudio door closed", "", 0, 0)
		Else
			MsgBox("Door was closed")
			mciSendString("set cdaudio door open", "", 0, 0)
		End If

قمنا أولا بحفظ الثوانى فى المتغير sec ثم استدعاء الدالة وبعد ذلك نقارن الثوانى فى الوقت الحالى بالثوانى التى حفظناها قبل التنفيذ والباقى واضح

تحياتى ,, للجميع

هل تريدون المزيد من الأسئلة أم نتوقف؟؟ :D :D

:resentful: اخي Ghost اتمنى ان تستمر و ايضا عندي اقتراح

انت تعرف ان حياتنا البرمجية كلها مشاكل ........... لذلك اقترح ان كل عضو او مبرمج لديه مشاكل برمجية لماذا لا يطرحها

اي كالتالي , اسم العضوا ............. مشكلته التي يريد ان يحلها او يطورها ................... المرحلة التي وقف عندها

و هكذا يرفق مثال مبسط مشروح , و يشرح العضوا جميع الشاشات العلائقية التي تأدي للشاشة التي بها مشاكل.

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

مثال فرقة رقم 1 تضم الاعضاء ( A,B,C ) و الفرقة رقم 2 تضم (D,E,F) ........ و انت كمشرف توزع المشاكل على الاعضاء بالتساوي

و الذي يحل مشاكل اكثر هو العضو الرابح يعطى على اثرها اوسمة معنوية

ما رايك بالفكرة , هذا اقتراحي لان موضوع الاقتراحات لتطوير القسم قد اغلق قبل ان اراه و اشارك به .

أما بالنسبة للاسئلة الحالية اتمنى ان تستمر و لكن ان تكون تركز على الذكاء و ليس البحث

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

أخى assaf_abdullah تحياتى لك

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

بالنسبة للأسئلة فقد يعتمد بعضها على البحث والبعض على الذكاء وقد يجمع البعض بين البحث والذكاء وهو المطلوب فلابد أن يتعلم المبرمج كيفية البحث وكيفية التفكير فالاعتماد على الذكاء وحده قد لايكون كافيا لكنى أتمنى ألا نلجأ إلى البحث إلا بعد أن يتعسر علينا الوصول إلى الحل بأنفسنا بدون بحث لأن هذا هو الهدف الأول وهو تنمية الذكاء والقدرة على التفكير ولو دققت فى الإجابة الأولى ستجد أنها تحتاج إلى البحث والثانية تحتاج إلى الذكاء

بالنسبة لموضوع اقتراحات تطوير القسم فقد أغلقته بعدما توصلت إلى فكرة قسم الدروس والمواضيع المتميزة والذى كان سببا فى فتح موضوع الأسئلة الذى نكتب فيه الآن استعدادا للمسابقات وحث الأعضاء على المشاركة وكتابة الدروس المفيدة لكن إذا كانت لديك اقتراحات أخرى فسأقوم بفتح الموضوع من جديد وفى انتظار اقتراحاتك هناك

تحياتى للجميع وتمنياتى لكم بالتوفيق ,,

سأضع السؤال الجديد بعد قليل ,, لا تغيروا القناة سأعود بعد الفاصل :D :D

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

أولا نبارك للأخ الفاضل محمد رضى على ترقيته إلى عضو مجتهد ونتمنى له المزيد من التقدم والتميز بإذن الله

السؤال الآن

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

Process.Start(filename)

أو باستخدام دالة الـAPI المعروفة جدا خاصة لدى مبرمجى VB6 والتى تسمى ShellExecute

السؤال هو:

كيف يمكن فتح أى ملف مهما كان نوعه بطريقتين مختلفتين (طبعا غير الطرق السابقة :D )

طريقة يمكن الوصول إليها بالبحث والأخرى بالذكاء :D

سأعلن النتيجة يوم الإثنين الساعة الخامسة إن شاء الله

بالتوفيق للجميع ,,

مر يوم ولاتوجد أى إجابة ,, هل السؤال صعب أم أنكم تركتم الموضوع؟؟

أتمنى أن أرى أى مشاركات -_-

بعد أن قضيت و قت ليس بالقصير وجدت طريقة واحدة غير الطريقتين الوحيدتان التان كنت اعرفهما ايام Vb.Net و Vb6

كلمة السر نفس القديمة

اذا وجدت حل آخر سوف ارفقه

One_Solution.rar

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

نظرا لبعض الظروف لدى سأؤجل إعلان الحلول إلى يوم الثلاثاء (بعد غد) مابين السادسة والسابعة مساءً إن شاء الله وأتمنى أن يكون هذا الوقت كافيا لأرى المزيد من التفاعل ,,