ملتقى طلاب وطالبات جامعة الملك فيصل,جامعة الدمام - عرض مشاركة واحدة - برمجه 3

برنسيسهـ · 2011- 12- 22

1. انشيء برنامج يسمح للمستخدم بإدخال كلمة مرور ثم بعد ذلك يتأكد أن كلمة المرور تحتوي على “n” و"*"عندما تحتوي على هذين الرمزين يظهر رساله مرحباً بك وغير ذلك يظهر رساله كلمة مرور خاطئة.

Dim pass AsString
pass = TextBox1.Text
If pass.IndexOf("n" & "*") >= 0 Then
MsgBox("مرحباً بك")
Else
MsgBox("كلمة المرور خاطئة")

EndIf

2. أنشيء برنامج يسمح للمستخدم بإدخال كلمة المرور ثم يتأكد من أن كلمة المرور تحتوي على "t!t" في نفس الوقت وعلى التوالي, وطول احرفها 8 عندما تجدها تظهر مربع رساله مرحبا بك, غير ذلك تظهر رساله كلمة مرور خاطئة

Dim pass AsString
pass = TextBox1.Text
If pass.IndexOf("t!t") >= 0 And Len(pass) >= 8 Then
MsgBox("مرحباً بك")
Else
MsgBox("كلمة المرور خاطئه")

EndIf

3. انشيء برنامج يسمح للمستخدم بإدخال كلمة مرور ثم بعد ذلك يتأكد أن كلمة المرور تحتوي على “*” أو"q" عندما تحتوي على هذين الرمزين يظهر رساله مرحباً بك وغير ذلك يظهر رساله كلمة مرور خاطئة

Dim pass AsString
pass = TextBox1.Text
If pass.IndexOf("*") >= 0 Or pass.IndexOf("q") >= 0 Then
MsgBox("مرحباً بك")
Else
MsgBox("كلمة المرور خاطئة")

EndIf

2011- 12- 22	#2
برنسيسهـ أكـاديـمـي فـضـي الملف الشخصي: رقم العضوية : 55835 تاريخ التسجيل: Sun Aug 2010 المشاركات: 532 الـجنــس : أنـثـى عدد الـنقـاط : 50 مؤشر المستوى: 66 بيانات الطالب: الكلية: كلية المجتمع .. الدراسة: انتظام التخصص: حآسب آلي المستوى: المستوى الرابع	رد: برمجه 3 - اسئلة المراجعه 1. انشيء برنامج يسمح للمستخدم بإدخال كلمة مرور ثم بعد ذلك يتأكد أن كلمة المرور تحتوي على “n” و""عندما تحتوي على هذين الرمزين يظهر رساله مرحباً بك وغير ذلك يظهر رساله كلمة مرور خاطئة. Dim pass AsString pass = TextBox1.Text If pass.IndexOf("n" & "") >= 0 Then MsgBox("مرحباً بك") Else MsgBox("كلمة المرور خاطئة") EndIf 2. أنشيء برنامج يسمح للمستخدم بإدخال كلمة المرور ثم يتأكد من أن كلمة المرور تحتوي على "t!t" في نفس الوقت وعلى التوالي, وطول احرفها 8 عندما تجدها تظهر مربع رساله مرحبا بك, غير ذلك تظهر رساله كلمة مرور خاطئة Dim pass AsString pass = TextBox1.Text If pass.IndexOf("t!t") >= 0 And Len(pass) >= 8 Then MsgBox("مرحباً بك") Else MsgBox("كلمة المرور خاطئه") EndIf 3. انشيء برنامج يسمح للمستخدم بإدخال كلمة مرور ثم بعد ذلك يتأكد أن كلمة المرور تحتوي على “” أو"q" عندما تحتوي على هذين الرمزين يظهر رساله مرحباً بك وغير ذلك يظهر رساله كلمة مرور خاطئة Dim pass AsString pass = TextBox1.Text If pass.IndexOf("") >= 0 Or pass.IndexOf("q") >= 0 Then MsgBox("مرحباً بك") Else MsgBox("كلمة المرور خاطئة") EndIf