الى خبرا وعلما الفجول بيسك ارجو المساعده

الكاتب : معانق النجوم   المشاهدات : 1,145   الردود : 10    ‏2004-06-02
      مشاركة رقم : 1    ‏2004-06-02
  1. معانق النجوم

    معانق النجوم عضو

    التسجيل :
    ‏2004-02-24
    المشاركات:
    16
    الإعجاب :
    0
    بسم الله الرحمن الرحيم



    كيف الحال انشاء الله تكون بخيررر
    انا لي طلب في لغه الفجول بيسك والذي هو كا التالي
    اريد انا اسوي برنامج وفي البرنامج تاكست وبعد ذالك اقوم بعمل البرنامج على ملف تنفيذي exe والمطلوب اني عندما اكتب على التكست اي عدد مثلا 55 او 77
    وبعد ذالك اقوووم باقفال البرنامج وعندما اقوم بفتحه مره تاني القي العدد محتفظ على التكست اي يكون موجود العدد 55 او 77
    فارجو من اخواني المساعده
    اريد الكود الذي اذا كتبت رقم على التكست وقمت بقفل البرنامج نهائياً وفتحه مره اخرى القي الرقم موجود على التكست ديركت . وهذا هو طلبي ونرجو المساعده
    وشكرا اخووووووكم معانق النجوم
     
  2.   مشاركة رقم : 2    ‏2004-06-03
  3. نجيب المجيدي

    نجيب المجيدي عضو فعّال

    التسجيل :
    ‏2003-12-08
    المشاركات:
    527
    الإعجاب :
    0
    أخي العزيز هناك أكثر من طريقة لعمل ذلك , بعض هذه الطرق تتطلب معرفة بالتعامل مع الملفات و بعضها الآخر يتطلب معرفة بالتعامل مع مفاتيح وقيم الرجستري ...الخ

    فإذا تابعت دروس التعامل مع الملفات فيمكنك عند إغلاق برنامجك حفظ البيانات في ملف ما ومن ثم عند تشغيل البرنامج تجعل مربع النص يستمد قيمته من هذا الملف النصي ...

    هذا مثال فقط

    تحياتي
     
  4.   مشاركة رقم : 3    ‏2004-06-03
  5. معانق النجوم

    معانق النجوم عضو

    التسجيل :
    ‏2004-02-24
    المشاركات:
    16
    الإعجاب :
    0
    اخي العزيز

    انا ما فهمت عبر الدروس حتى ما لقيت الذي اريده انا
    نرجو منك الكود اذا سمحت وعفوا على الازعاج
    انا اريد افهم الشي حبه حبه اكل العنب حبه حبه مش حبتين او اكثر انا الان مركز على كيف اسوي الرقم على التكست يكون موجود سوى اقفلت البرنامج او لا وشكرا
    اخوووووك معانق النجوم
     
  6.   مشاركة رقم : 4    ‏2004-06-04
  7. الصدى الباكي

    الصدى الباكي عضو

    التسجيل :
    ‏2004-06-03
    المشاركات:
    6
    الإعجاب :
    0
    اخي الكريم
    اعمل موديل و عرف فية القيمة الي انت سوف تعملة
    و عندما تفتح البرنامج مرة الرقم مكانة موجود
    او اذا حبيت تغير الرقم الرقم الجديد هو الي ينحفظ
     
  8.   مشاركة رقم : 5    ‏2004-06-04
  9. نجيب المجيدي

    نجيب المجيدي عضو فعّال

    التسجيل :
    ‏2003-12-08
    المشاركات:
    527
    الإعجاب :
    0
    يا عزيزي خذ الفكر ..

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

    الآن المطلوب منك تبحث عن كيفية التعامل مع قواعد البيانات أو الملفات أو الرجستري لتتمكن من عمل ما تريد

    لك خالص التحية
     
  10.   مشاركة رقم : 6    ‏2004-06-04
  11. معانق النجوم

    معانق النجوم عضو

    التسجيل :
    ‏2004-02-24
    المشاركات:
    16
    الإعجاب :
    0
    اشكرا الاخ نجيب واشكرا الاخ صدى

    اولا اشكر الاخ نجيب واشكرا الاخت صدى
    يا اخ نجيب انا عارف ان الطريقه با الملفات بس كيف با الملفات مدري نرجو منك اذا كان بمقدرتك على مساعدتي فارجو منك انك تكتب لي الكود او ترسل ملف مش تقلي كيف الفكره الفكره انا عارف لها بس اشتي الكودعرف للفكره بس الكود لا .
    واذا ما كنت قادر عادي و سامحني على ازعاجك وازاد الله الرجال من امثالك وكثر الله خيرك وشكرا
    باااااااااااي
    اخوووكم معانق النجوم
     
  12.   مشاركة رقم : 7    ‏2004-06-05
  13. نجيب المجيدي

    نجيب المجيدي عضو فعّال

    التسجيل :
    ‏2003-12-08
    المشاركات:
    527
    الإعجاب :
    0
    dim txt as string

    private sub cmdsave_click()
    txt = text1.text
    open "file.dat" for output as #1
    write#1,txt
    close#1
    end sub

    private sub form_load()
    open "file.dat" for input as #1
    input#1,txt
    close#1
    text1.text = txt
    end sub
    أعتقد أن الكود سيكون مشابهاً لذلك
     
  14.   مشاركة رقم : 8    ‏2004-06-07
  15. رغيد الطيب

    رغيد الطيب عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    58
    الإعجاب :
    0
    بسم الله الرحمن الرحيم ...

    السلام عليكم و رحمة الله وبركاته ...



    الاخ العزيز معانق النجوم ... في كود الاخ العزيز نجيب تجد مبتغاك بإذن الله تعالى .... و احب ان اضيف زيادةً في الخير اته يمكنك الاعتماد على الريجستري كما قال عزيزنا نجيب لتخزين الرقم بشكل سريع ... فإذا كان لديك مربع نص اسمه Text1 في الفورم فيمكن الاعتماد على الكود التالي لتحيقي مبتغاك بإذن الله تعالى :
    كود:
    Private Sub Form_Load()
        Text1 = GetSetting("Rgheed", "Rgheed", "Rgheed", "0")
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
        SaveSetting "Rgheed", "Rgheed", "Rgheed", Text1
    End Sub
    
    السلام عليكم ورحمة الله وبركاته ....
     
  16.   مشاركة رقم : 9    ‏2004-06-07
  17. معانق النجوم

    معانق النجوم عضو

    التسجيل :
    ‏2004-02-24
    المشاركات:
    16
    الإعجاب :
    0
    اشكر الاخ/ نجيب المجيدي على مشاركتي بحل مشكلتي لكن اقول ان الشفره الي كتبتها يا اخ نجيب ما اشتغلت .
    و اشكر الاخ/ رغيد الطيب الف الف الف شكر يا اخي رغيد واقول بصراحه اسم على مسمى يا استاذ رغيد الطيب شفرتك نفعت معاي وطلعه مظبوطه انا اشكرك بعنف استاذ رغيد وعاد لي خدمه منك يا استاذ رغيد ولو اني مزعج شويه اشتي شرح بسيط عن الشفره الذي كتبتها اذا سمحت وزاد الله الرجال والمبرمجين من امثالك
    وربي يوفقك وانشاء الله تكون من اروع وافضل المبرمجين
    وشكرا
    اخووووك
    معانق النجوم
     
  18.   مشاركة رقم : 10    ‏2004-06-08
  19. رغيد الطيب

    رغيد الطيب عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    58
    الإعجاب :
    0
    بسم الله الرحمن الرحيم ...

    السلام عليكم و رحمة الله و بركاته ..


    الاخ العزيز معانق النجوم ... اسأل الله تعالى ان يجزني و اياك كل الخير و ان يفيدنا بخير دعاك اخي العزيز ...

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

    ولحل المسئلة ينبغي التأكد من وجود لملف اصلاً قبل فتحه بواسطة الامر Open او يمكن تسهيلاً تجاوز اي خطأ ينشأ باستخدام العبارة :
    كود:
    On Error Resume Next
    
    و لعل الله يكتب بذلك النجاح للشفرة السليمة اصلاً ...

    و تسهيلاً قم بكتابة التالي بعد ان تضع مربع نص بإسم Text1 على الفورم :
    كود:
    [align=left]
    Private Sub Form_Load()
        Dim F As Integer, S As String
        
        On Error Resume Next
        F = FreeFile
        Open App.Path + "\myValue.txt" For Input As F
            Input #F, S
        Close F
        
        Text1.Text = S
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
        Dim F As Integer
        
        On Error Resume Next
        
        F = FreeFile
        Open App.Path + "\myValue.txt" For Output As F
            Print #F, Text1.Text
        Close F
    End Sub
    
    اعود فأقول جزا الله الجميع خيرا ... و السلام عليكم ورحمة الله وبركاته ..
     

مشاركة هذه الصفحة