بسم الله الرحمن الرحيم كيف الحال انشاء الله تكون بخيررر انا لي طلب في لغه الفجول بيسك والذي هو كا التالي اريد انا اسوي برنامج وفي البرنامج تاكست وبعد ذالك اقوم بعمل البرنامج على ملف تنفيذي exe والمطلوب اني عندما اكتب على التكست اي عدد مثلا 55 او 77 وبعد ذالك اقوووم باقفال البرنامج وعندما اقوم بفتحه مره تاني القي العدد محتفظ على التكست اي يكون موجود العدد 55 او 77 فارجو من اخواني المساعده اريد الكود الذي اذا كتبت رقم على التكست وقمت بقفل البرنامج نهائياً وفتحه مره اخرى القي الرقم موجود على التكست ديركت . وهذا هو طلبي ونرجو المساعده وشكرا اخووووووكم معانق النجوم

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

انا ما فهمت عبر الدروس حتى ما لقيت الذي اريده انا نرجو منك الكود اذا سمحت وعفوا على الازعاج انا اريد افهم الشي حبه حبه اكل العنب حبه حبه مش حبتين او اكثر انا الان مركز على كيف اسوي الرقم على التكست يكون موجود سوى اقفلت البرنامج او لا وشكرا اخوووووك معانق النجوم

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

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

اولا اشكر الاخ نجيب واشكرا الاخت صدى يا اخ نجيب انا عارف ان الطريقه با الملفات بس كيف با الملفات مدري نرجو منك اذا كان بمقدرتك على مساعدتي فارجو منك انك تكتب لي الكود او ترسل ملف مش تقلي كيف الفكره الفكره انا عارف لها بس اشتي الكودعرف للفكره بس الكود لا . واذا ما كنت قادر عادي و سامحني على ازعاجك وازاد الله الرجال من امثالك وكثر الله خيرك وشكرا باااااااااااي اخوووكم معانق النجوم

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 أعتقد أن الكود سيكون مشابهاً لذلك

بسم الله الرحمن الرحيم ... السلام عليكم و رحمة الله وبركاته ... الاخ العزيز معانق النجوم ... في كود الاخ العزيز نجيب تجد مبتغاك بإذن الله تعالى .... و احب ان اضيف زيادةً في الخير اته يمكنك الاعتماد على الريجستري كما قال عزيزنا نجيب لتخزين الرقم بشكل سريع ... فإذا كان لديك مربع نص اسمه 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 السلام عليكم ورحمة الله وبركاته ....

اشكر الاخ/ نجيب المجيدي على مشاركتي بحل مشكلتي لكن اقول ان الشفره الي كتبتها يا اخ نجيب ما اشتغلت . و اشكر الاخ/ رغيد الطيب الف الف الف شكر يا اخي رغيد واقول بصراحه اسم على مسمى يا استاذ رغيد الطيب شفرتك نفعت معاي وطلعه مظبوطه انا اشكرك بعنف استاذ رغيد وعاد لي خدمه منك يا استاذ رغيد ولو اني مزعج شويه اشتي شرح بسيط عن الشفره الذي كتبتها اذا سمحت وزاد الله الرجال والمبرمجين من امثالك وربي يوفقك وانشاء الله تكون من اروع وافضل المبرمجين وشكرا اخووووك معانق النجوم

بسم الله الرحمن الرحيم ... السلام عليكم و رحمة الله و بركاته .. الاخ العزيز معانق النجوم ... اسأل الله تعالى ان يجزني و اياك كل الخير و ان يفيدنا بخير دعاك اخي العزيز ... اما بالنسبة لكود عزيزنا المجيدي فهو كود سليم بإذنه تعالى غير انه ربما فقط نسي ان يخبرك ان الخطأ الذي يظهر لك هو ان اعتمد على فتح الملف و قرأته (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 [/align] اعود فأقول جزا الله الجميع خيرا ... و السلام عليكم ورحمة الله وبركاته ..