لو حفظت رقم بالتكست الثاني كيف ينتقل للأول عندما اشغل البرنامج في المرة الجاية؟!

المفروض ان تخزن القيمة ورقم مربع النص مثلا المربع الاول يأخذ 1 والثاني 2 وهكذا

لكن اين تخزن هذه القيم ؟ ولو امكن فورم بسيط لليتضح الامر اكثر لنا

ممكن أنك تخلي البرنامج يحفظ القيم في ملف ويرجع لها في التشغيل الجاي

احفظها أخي في ملف , واستدعيها في Load البرنامج

اشكركم أخوتي الكرام على تفاعلكم

وبالفعل فكرتكم حول حفظها بملف فعال وهذا إللي أريده .. بس كيف اسوي :(

ما عندي خبرة كيف اضبط ملف يقوم بهالدور -_-

أخي الكريم الحل ان شاء الله تعالى هو ان تستخدم ملف نصي لتخزين الرقم واستعادته كما يلي:

بالبداية نعلن عن متغير عام اسمه sWord لكي نخزن فيه قيمة النص الذي ادخلته فيه

'بسم الله الرحمن الرحيم
Private Sub Form_Load()
On Error GoTo t
   Open "C:\MyTxt.txt" For Input As #1
	  Line Input #1, sWord$
	  Close #1
   Text1.Text = sWord$
   Exit Sub
t:
End Sub

بعد ذلك نقوم عند (حدث تحميل الفورم بالبحث في المسار "C:\MyTxt.txt" عن ملف نصي

اذا وجدنا هذا الملف معناها اننا قد قمنا بحفظ قيم سابقه فيه ونسترجع القيم بمربع النص الأول

اذا لم نجد هذا الملف معناها ان البرنامج اول مره يشتغل او ان احد حذف الملف او غير مساره

وبالتالي لايوجد مانضعه بمربع النص الأول

بعد ذلك :

Private Sub Command1_Click()

   Open "C:\MyTxt.txt" For Output As #1
	  Print #1, Text2.Text
   Close #1

End Sub

زر الحفظ تضع فيه الاسطر السابقه وهي تقوم

بفتح الملف الذي اسمه"MyTxt.txt" ومساره "C:\MyTxt.txt"

وتخزن فيه المدخلات الموجوده في مربع النص الثاني

واذا لم يكن موجود الملف فان البرنامج يعمل ملف جديد

واذا فيه شيء غير مفهوم فبعون الله تعالى نساعدك بمانستطيع والزملاء ماايقصرون ان شاء الله تعالى

يعطيك العافية أخوي { الفدرالي }

جاري تجربة الأكواد .. ولي عودة بإذن الله

بس عندي سؤالين:-

الأول: هل يقوم البرنامج في حالة عدم وجود الملف النصي بإنشاء الملف،ام يجب عليّ أن أقوم بإنشاؤه؟!

ثانياً: هل يمكن أن تعطيني كود عام ؛بحيث ما أخلي الملف النصي يكون محصور بالـC

بل في المجلد الذي يكون فيه البرنامج، وين ما كان مساره، ويقوم البرنامج بجلبه وين ما كان مكانه :thumb_up:

ولك ولجميع الإخوة مني جزيل الشكر وأجل التقدير

أخوك / المدمر007

السلام عليكم

إضافة على ماكتبه أخي الفيدرالي :

ضع هذا الكود في الفورم :

On Error Resume Next


Open "C:\MyTxt.txt" For Append As #1  ' إنشاء ملف جديد

Close #1


   Open "C:\MyTxt.txt" For Input As #1
	  Line Input #1, sWord$
	  Close #1
   Text1.Text = sWord$

Exit Sub

ثم ضع هذا الكود على زر الأمر :

Open "C:\MyTxt.txt" For Output As #1
	  Print #1, Text2.Text
   Close #1

أما بالنسبه لمسار البرنامج فضع هذا الكود بدلا من المسار السابق :

" & App.Path & "\MyTxt.txt

يعطيكم العافية أخواني ..

والله يسعدني أن نتشارك الأفكار والحلول..

أنا بختصر عليكم .. وبحط المطلوب بالملف المرفق..

ومن باب الأمانة ..

راح تجدون بالملف عدة أكواد لكيفية انشاء ملف يحفظ المدخلات وهو ليس من اعدادي، وانما من اعداد أحد الإخوة جزاه الله عنا كل خير :wub:

فكرتكم نجحت معي .. لو ماعندي ملف مسبق، يحفظ البيانات

بس الفكرة ما ضبطت مع ملف موجود .. وبالتالي بدل ما البرنامج يقوم بحفظ كل البيانات في ملف واحد، يقوم بإنشاء ملفين !!!

فهل يمكننا دمجها في ملف واحد؟!!

لذا .. أرجو منكم معاينة الأكواد .. ومعرفة أين الخلل بالضبط من المثال المرفق :smile:

TextBox_Data_Change.rar

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

TextBox.rar

بارك الله فيك أخي العزيز {TareqVB}

المثال نجح معي بعد التعديل عليه ..

بس لدي سؤال .. البيانات بأي شكل تنحفظ ؟ وأين ينحفظ الملف، لأني ماوجدته لا بالـC ولا بمجلد البرنامج نفسه :hmm: ؟!!!

وهل بالكود الحالي.. استطيع أن استغني عن الأكواد السابقة؟!!

تقبل خالص تحياتي :thumb_up:

TextBox_Data_Change2.rar

المفروض ان تستخدم الفورم الثاني وهو اختصار للفورم الاول حيث استخدمت ال registry لتخزين البيانات والاستغناء عن الملفات

جزاءك الله عني كل خير

اسأل الله تعالى أن يشرح صدرك ويفرج همك كما فرجت كربتي

واشكرك جزيل الشكر أخي الكريم.

مع خالص تحياتي وأجل تقديري لك

أخوك/المدمر007