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

نووونة · #1 2006-04-18, 05:00 PM

السلام عليكم

لو سمحتو بغيت أحد يساعدني :frown: الله يسلمكم انا عندي مهمة ولازم أسلمها بكرة:sweatingb

حليت المهمة لكن واجهتني بعض المشاكل والأخطاء:crying:

فبلييييز ساعدوني:crying:

زر الامرموافق\يقوم هذا الزر بفتح ملف نصي يحتوي على اسم المستخدم وكلمة المرور ثم يتم مقارنة محتويات الملف ومحتويات مربع النص إذا كانت البيانات المدخلة صحيحة يتم الإنتقال إلى النموذج الثاني غير ذلك يتم إظهار رسالة للمستخدم تفيد أن كلمة المرور أو اسم المستخدم غير صحيح.

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

Dim f2 AsNew Form2
Dim sr As IO.StreamReader = IO.File.OpenText("c:\N&P.txt")
Dim newpass, password, name AsString

name = sr.ReadLine
password = sr.ReadLine

If name = TextBox1.Text And password = TextBox2.Text Then

newpass = InputBox("أدخل كلمة المرور")
newpass = InputBox("كرر كلمة المرور مرة أخرى")

Else

MsgBox("لاتملك الصلاحيات لتغيير كلمة المرور")

EndIf

TextBox2.Clear()
TextBox2.Text = newpass

EndSub

الزر الثاني رز تغيير كلمة المرور\يقوم هذا الزر بفتح الملف النصي الذي يحتوي على اسم المستخدم وكلمة المرور ثم يقوم بمقارنة محتويات الملف ومحتويات مربع النص اسم المستخدم,كلمة المرورفي حال كانت البيانات المدخلة صحيحة يطلب من المستخدم إدخال كلمة المرورالجديدة مرتين للتأكد من صحة إدخال المستخدم ثم التعديل على الملف النصي وكتابة كلمة المرورالجديدة,وفي حال كانت البيانات المدخلة غير صحيحة فلن يتم تغيير كلمة المرور ويجب إظهار الرسالة التالية(لاتملك الصلاحيات لتغيير كلمة المرور)
يجب أن تكون كلمة المرور أكثر من8 حروف وتنبيه المستخدم إذا كان عدد الحروف أقل من8.

وهذا الكود لكن برضو مااشتغل معي:crying:

Dim sr As IO.StreamReader = IO.File.OpenText("c:\N&P.txt")
Dim sw As IO.StreamWriter = IO.File.CreateText("c:\N&P.txt")
Dim name, password, pass1, pass2 AsString

name = sr.ReadLine
password = sr.ReadLine
sr.Close()

If name = TextBox1.Text And password = TextBox2.Text Then

pass1 = InputBox("الرجاء إدخال كلمة المرور الجديدة")
pass2 = InputBox("الرجاء إعادة إدخال كلمة المرور الجديدة للتأكيد")

If pass1.Length > 8 Then

If pass1 = pass2 Then

sw.WriteLine(name)
sw.WriteLine(password)

Else

pass2 = InputBox("الرجاء المحاولة مره أخرى")

EndIf

Else

MsgBox("يجب إدخال كلمة المرور بحيث تكون أكبر من 8 أحرف")

EndIf

Else

MsgBox("عفوا لا تستطيع تغيير كلمة المرور")

EndIf

sw.Close()

EndSub

والزر الاخير هو في الفورم الثاني زر الامر حفظ\يتم استخدام هذا الزر بعد إضافة بيانات جديدة لحفظ البيانات التي تم إدخالها...

أتمنى انكم ماتردوني وتساعدوني,,,
ومشكورين مقدما.

محمد الفرح · #2 2006-04-18, 05:23 PM

c:\N&P.txt

خلها N&P.TXT

لانه مو لازم تحطي c:\

ويجب وضع N&P.TXT داخل مجلد العمل

Dim f2 AsNew Form2
Dim sr As IO.StreamReader = IO.File.OpenText("c:\N&P.txt")
Dim newpass, password, name AsString

لازم يكون متغير واحد فقط في الزر وليس 3 متغيرات
وسوف اظر في الزر الثاني

محمد الفرح · #3 2006-04-18, 05:39 PM

في الكود الثاني عندك Dim name, password, pass1, pass2 AsString
وفي الكود الأول Dim newpass, password, name AsString

ممنوع تكرار المتغير مرتين password

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

مواضيع مشابهة للموضوع: أرجو المساعدة من المحترفين في الفيجوال بيسك.
الموضوع	الكاتب	القسم	الردود	آخر مشاركة
لكل محبي لغة الفيجوال بيسك	gold_fire2010	البرمجة	19	2008-08-05 01:08 AM
أرجو المساعدة ضروري جدًا في علاج هذه المشكلة في مشروعي بالفيجوال بيسك	القعقاع 2006	البرمجة	1	2008-03-26 01:50 PM
من يحل هذا السؤال في الفيجوال بيسك ...	البدر !!	البرمجة	1	2008-03-20 10:14 PM
أريد المساعدة من خبراء الفيجوال بيسك	love2007ps	البرمجة	1	2007-11-18 02:48 PM
الفيجوال بيسك	m_tito	البرمجة	1	2007-05-08 06:43 PM

يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)