اريد أن أنشأ ملف INI
مع بداية تشغيل البرنامج الخاص بي
وأضع فيه مسار القاعدة مثلا
C:\vBsQ.mdb
وفي حال تشغيله (البرنامج) مرة أخرى يتم التأكد من وجود الملف أن لم يكن موجودا
يتم أنشاءه مرة اخرى .. وهكذا ..
بس :lol:
اريد أن أنشأ ملف INI
مع بداية تشغيل البرنامج الخاص بي
وأضع فيه مسار القاعدة مثلا
C:\vBsQ.mdb
وفي حال تشغيله (البرنامج) مرة أخرى يتم التأكد من وجود الملف أن لم يكن موجودا
يتم أنشاءه مرة اخرى .. وهكذا ..
بس :lol:
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ..
اقتباسوأعتذر للأخوة لأننى سوف أنقطع لمده شهر تقريبا بسبب السفر وظروف الإختبارات على العودة إن شاء الله حالما أنتهى
حفظك الله أخي :: شرير :: وفي أمان الله وحفظه
سبحان الله وبحمده ... سبحان الله العظيم
سؤال آخر أخ shearer
أريد ان أخزن في الملف أيضا قيمة بحيث تظهر لي في كعداد للأيام المتبقية في استخدام البرنامج
كبرامج الديمو .. حيث أن هذه القيمة استدعيها لأظهارها في اداة ProgressBar كما في الصورة
وبعدها يتوقف البرنامج عن العمل .. فكيف أفعل هذا
بعد اذن الاخ SHEARER فقد قمت بتعديل الملف ليتوافق مع الطلب الثانى
اما بالنسبة للاخ VBSQ فقد وضعت لك طلبك لكن ان كنت تريد استخدام هذه الطريقة فى برنامج معين فأنصحك باستخدام الريجيسترى والامرين SaveSetting و GetSetting فهذا أفضل :rolleyes:
تم تعديل هذه المشاركة بواسطة ghost2010 في 9 مايو 2005 في 19:21
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
طيب ممكن تعملها لي بالرجيستر عن الشوف كيف أذا ممكن
تفضل ياأخى هذه هى طريقة الريجيسترى وهى اسهل وافضل :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اشكرك اخ ghost2010 جاري التحميل الاطلاع عليه ولكن هناك سؤال
هل سيعمل البرنامج بعد انتهاء المدة وأزالته وأعادة تنصيبه من جديد
وشاكرلك هذا الجهد الجميل
تحية طيبة......
اخى الفاضل......
على حد علمى لن يعمل البرنامج بعد اعادة تنصيبه واذا كنت تريد العكس فيمكنك عمل التالى:
1-حفظ المدة بالريجيسترى كما فى الملف السابق
2-عند تشغيل البرنامج لاول مرة يقوم بعمل ملف سيستم فى مكان مختفى
3-عند تحميل البرنامج مرة اخرى وكانت المدة 0 وكان ملف السيستم موجود فان البرنامج يقوم بانهاء عمله
4-اذا لم يكن الملف موجودا وكانت المدة 0 فان ذلك يعنى ان البرنامج اعيد تنصيبه وبالتالى يقوم البرنامج بحفظ القيمة 30 فى المكان المخصص للمدة فى الريجيسترى
5-عند الغاء تنصيب البرنامج يتم حذف ملف السيستم
ارجو ان تكون الفكرة واضحة واعذرنى لانى لااجيد الشرح وهذه هى مشكلتى وربنا يوفقك :rolleyes:
تم تعديل هذه المشاركة بواسطة ghost2010 في 11 مايو 2005 في 09:31
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
شاكرلك على تفاعلك معي وعلى هذه المعلومات القيمة فعلا بس أبغى منك توضح لي حاجه
في الكود هذا لماذا تم وضع هذا السطر
pVal = GetSetting("Project1", "RunCount", "RunTimes", 30)p.Value = pVal
هنا
a = App.Path
If Right$(a, 1) <> "\" Then a = a & "\"
a = a & "my.ini"
pVal = GetSetting("Project1", "RunCount", "RunTimes", 30)p.Value = pVal
If pVal = 0 Then End
pVal = pVal - 1
'هل الملف موجود
If Dir(a) <> "" Then
ولماذا تم وضع هذا السطر في هذا الحدث
Private Sub Form_Unload(Cancel As Integer) SaveSetting "Project1", "RunCount", "RunTimes", pVal End Sub
تم تعديل هذه المشاركة بواسطة ghost2010 في 12 مايو 2005 في 07:41
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
مجهود جميل منك أخ ghost2010 وشرح رائع
اتمنى لكما التوفيق
شكراً لك اخ هانى فلكم اسعدنى كلامك الجميل :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اشكرك اخ ghost2010
على هذه المعلومات وأشكر تواجد الاخ HnHn معنا
سأحاول تطبيق ما فهمت .. وراجعلك .فأنت أستاذي من الأن B)
ان شاء الله ستجدنى بجوارك......فقط اسأل :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.