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

[نووونة]

السلام عليكم

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

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

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


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

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

​

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

name = sr.ReadLine
password = sr.ReadLine
​

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

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

Else​

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

End If​

TextBox2.Clear()
TextBox2.Text = newpass

​

End Sub


الزر الثاني رز تغيير كلمة المرور\يقوم هذا الزر بفتح الملف النصي الذي يحتوي على اسم المستخدم وكلمة المرور ثم يقوم بمقارنة محتويات الملف ومحتويات مربع النص اسم المستخدم,كلمة المرورفي حال كانت البيانات المدخلة صحيحة يطلب من المستخدم إدخال كلمة المرورالجديدة مرتين للتأكد من صحة إدخال المستخدم ثم التعديل على الملف النصي وكتابة كلمة المرورالجديدة,وفي حال كانت البيانات المدخلة غير صحيحة فلن يتم تغيير كلمة المرور ويجب إظهار الرسالة التالية(لاتملك الصلاحيات لتغيير كلمة المرور)
يجب أن تكون كلمة المرور أكثر من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 As String​

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("الرجاء المحاولة مره أخرى")
​

End If​

​

Else​

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

End If​

​

Else​

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

End If​

sw.Close()
​

End Sub

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

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

 

[محمد الفرح]

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 متغيرات
وسوف اظر في الزر الثاني

 

[محمد الفرح]

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


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