النتائج 1 إلى 3 من 3

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

  1. #1
    التسجيل
    04-11-2007
    المشاركات
    2

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

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

  2. #2
    التسجيل
    19-10-2007
    الدولة
    في الجانب المظلم من الـــــــDark basic
    المشاركات
    985

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

    كيف اصنع واجهة في الفجول بيسك تطلب مني اسم مستخدم و كلمة مرور و بها خيارات حفظ البيانات و تغيير اسم المستخدم و كلمة المرور من داخل البرنامج و ليس من التصميم او الكود و شكرا
    السلام أخي الكريم أولاً وأخراً ماقلته في البدايه سهل عمله لكن يجب أن تكون عندك فكره عن التعامل مع دوال الريجيستري(مسجل النظام) لكي تقوم بحفظ بياناتك ......أما بالنسبه للكلام الأخير الذي قلته عن تغيير البيانات
    من داخل البرنامج وليس من الكود ....هذا يدل على إنه ليست عندك خلفيه بالخالص عن دوال الريجستري والأمر أشبه بإنك تكرر طلبك من جديد ولكن بصيغه مختلفه لأن ماتريد تغييره سيكون من الريجستري أيضاً وهي مسئلة متغيرات كمان أخي.......يجب أن يكون عندك الأساس قبل ماتخوض بهذا الشيء

  3. #3
    التسجيل
    10-02-2007
    الدولة
    سوريا
    المشاركات
    55

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

    مرحبا أخي الكريم على حسب ما فهمت من طلبك سأعطيك مثال عن الحفظ والتعديل بعيدا عن الريجستري.
    أولا تنشأ ملف نصي ولنقل اسمه 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
    وهذا الكود يعني إذا كانت قيمة النص المكتوبة في التكست هي نفسها القيمة الموجودة في الليبل إفعل أمرا معينا
    أرجو أن تكون استفدت من الكود لتحقيق طلبك لأنني قدمت لك أكواد خاصة بإنشاء كلمة المرور وعندما تفكر ماليا ستسفيد من الكود لحل المشكلة
    سلاااااااااااااااااااااااااااااااااام
    التعديل الأخير تم بواسطة مهاب مكارم ; 03-07-2008 الساعة 10:16 PM

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •