المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيان


ali26sami
25-04-2008, 02:11 AM
كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيانات و تغيير اسم المستخدم و كلمة المرور من داخل البرنامج و ليس من التصميم او الكود و شكرا
The_source
29-04-2008, 05:07 PM
كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيانات و تغيير اسم المستخدم و كلمة المرور من داخل البرنامج و ليس من التصميم او الكود و شكرا


السلام أخي الكريم أولاً وأخراً ماقلته في البدايه سهل عمله لكن يجب أن تكون عندك فكره عن التعامل مع دوال الريجيستري(مسجل النظام) لكي تقوم بحفظ بياناتك ......أما بالنسبه للكلام الأخير الذي قلته عن تغيير البيانات
من داخل البرنامج وليس من الكود ....هذا يدل على إنه ليست عندك خلفيه بالخالص عن دوال الريجستري والأمر أشبه بإنك تكرر طلبك من جديد ولكن بصيغه مختلفه لأن ماتريد تغييره سيكون من الريجستري أيضاً وهي مسئلة متغيرات كمان أخي.......يجب أن يكون عندك الأساس قبل ماتخوض بهذا الشيء
مهاب مكارم
03-07-2008, 10:03 PM
مرحبا أخي الكريم على حسب ما فهمت من طلبك سأعطيك مثال عن الحفظ والتعديل بعيدا عن الريجستري.
أولا تنشأ ملف نصي ولنقل اسمه File.txt في المسار C:\Windows
افتح الفيجوال بيسك وضع على الفورم Text1,Command1,Label1
اكتب كلمة المرور في الملف واحفظ التغيرات على الملف
في الحدث Form_Load اكتب الكود الآتي :


Open "C:\Windows\File.txt" For Input As #1
Dim W
Input #1, W
Close #1
Label1.Caption = W


الكود السابق يعني أن نضع كلمة المرور في الملف الذي أنشأته أن نسنده إلى Label1
واكتب الكود الآتي بالحدث Command1_Click :


If Text1 = "" Then
MsgBox "كلمة المرور فارغة", vbInformation, "خطأ في الدخول"
ElseIf Text1 = Label1.Caption Then
' اكتب الكود الذي تريده هنا
end if

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