سؤال بسيط للمبتدئين لتحدي النفس

المنتدى ميت لهذه الدرجة !!

المرجو من كل من لديه الاجابة ان يضعها، يبدو اني أخطأت عندما جعلت الاجابة حكرا على المبتدئيين ظننا مني انهم يحبون التحديات !!!!!!!!

لو وضعت جائزه لوجدت العديد من الردود :D لكن يجب أن يكون الحل لمجرد التحدي لا لرغبة في جائزه!!

مرحباً أخي آيوب .

أعلم أن كتابة الحل سهلة بالنسبة لك ولي وللعديد من المبرمجين في هذا المنتدى .

أعتقد أن السبب في عدم محاولة بعض الأعضاء, هو أن Console Application تصبح منقرضة لأن شكلها وطريقة برمجتها مختلفة بعض الشيء عن الـ Windows Application, لكن للعلم ( لكم أيها الأعضاء المبتدئين ) في بعض الأحيان استخدام الـ Console Application يساعد في حل أمور لطلما حلمتم بحلها .

الحل :

Module Module1
	Dim Password As String = "Ayoub"

	Sub Main()
		' استخدام متغير نصي لحفظ الاحرف المدخلة فيه
		Dim CurrentInput As String = String.Empty
		' استخدام متغير حرفي لحفظ أخر حرف مدخل
		Dim CurrentChar As Char = Nothing
		' كتابة ملاحظة, يمكنك الإستغناء عن هذا السطر
		Console.WriteLine("Please type your password : " & Password)
		' استخدام حلقة تكرارية لتأكد من الحرف المدخل
		' هذه الحلقة التكرارية ستظل تدور حتى يضط المستخدم الزر Enter
		Do While CurrentChar <> Chr(13)
			' في عملية قراءة الحرف True هنا نقوم بإعداد الحرف, لاحظ القيمة,_
			' تستخدم لعدم عرض الحرف في شاشة البرنامج
			CurrentChar = Console.ReadKey(True).KeyChar
			' استخدام الجملة الشرطية للتأكد أن الحرف المخل هو عبارة عن حرف أو رقم
			If Char.IsLetterOrDigit(CurrentChar) Then
				' إذا تحقق الشرط السابق, سنضيف الحرف الى النص
				CurrentInput &= CurrentChar
				' ثم نجعل البرنامج بكتب رمز النجمة
				Console.Write("*")
				' في حال كان الحرف المدخل ( فراغ خلفي ) سيقوم البرنامج بحذف الحرف الاخير وإضافة فراغ وحذفه
				'BackSpace لهذا السبب تدعى
			ElseIf (CurrentChar = Chr(8)) And (CurrentInput.Length > 0) Then
				CurrentInput = CurrentInput.Substring(0, CurrentInput.Length - 1)
				Console.Write(Chr(8) & " " & Chr(8))
				End If
		Loop
		' إضافة سطر جديد ( سطر فارغ )ز
		Console.WriteLine()
		' تأكد من القيمة ( النص )إذا كان يساوي كلمة السر أو لايساويها
		If CurrentInput.ToLower = Password.ToLower Then
			Console.WriteLine("The given password was correct :D")
		Else
			Console.WriteLine("Loser !!, The given password wasn't correct .")
		End If
		'هذا سطر لإعطاء المستخدم مهلة ليرى إذا كان الإدخال صحيح أم لا
		If Console.ReadKey(True).KeyChar = Chr(13) Then End
	End Sub

End Module

تحياتي للجميع .

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

شكرا أخي بشار على اجابتك و هي صحيحة ، :)