الطريقة الافضل لانهاء برنامجك وازالته من الذاكرة!

شكراً هانى

وبطريقة اخرى

Private Sub Form_Unload (Cancel As Integer)
Dim F As Form
For Each F In Forms
Unload F
Set F = Nothing
Next
End
End Sub

شكرا لكم إخواني على الأفكار الجميله

والله اخ هاني واخ Ghost2010 انا اصبحت من المتتبعين لكل مشاركاتكم ارجو ان تقبلوني صديق لكم ولجميع الاخوة في هذا المنتدى الرائع

نرحب بك اخ وصديق جديد لنا ونحن نتشرف بذلك

بعد اذنك ياهانى تحدثت بالنيابة عنك :rolleyes:

انا لي الشرف اخ Ghost2010

السلام عليكم

اخى محمد

شكرا على الطريقة

وطبعا انت تتكلم عنى براحتك ياباشا :D

الاخ seaprince46

شكرا لك على المتابعة

الاخ hussein2005

شكرا جزيلا على رأيك وصداقتك تشرفنى وتسعدنى بالطبع

مرحبا بك اخ وصديق فى المنتدى

و ايه المشكلة لما أعمل END و لا مش هتكون مناسبة :)

بص ياعم احمد

لو البرنامج بتاعك جواه اكتر من فورم وبتستخدم للتنقل بينهم الامر FormName.Hide بالطريقة دى الفورم يكون محمل فى الذاكرة وطبعاً ده بيؤدى لبطء نسبى فى الاداء علشان كده بعد ماتقفل البرنامج لازم تحرر المساحات الخاصة بالبرنامج المحجوزة فى الذاكرة اما لو بتستخدم Unload FormName فممكن تستخدم End مباشرة :rolleyes:

طب أن هاجرب أفتح 500 فورم و اشوف الفرق :D

جربتاه يا باشا و طلعو الأثنين زي بعض :) حملت 50 فورمة و باردة مفيش فرق :)

Private Sub Command1_Click()
    Dim a(50) As New Form1
    For i = 0 To 50
        a(i).Show
    Next
End Sub

Private Sub EndRight()
    Dim F As Form
        For Each F In Forms
            Unload F
            Set F = Nothing
        Next
    End
End Sub

Private Sub EndWrong()
    End
End Sub

:lol: :lol:

ياعم احمد انت باستخدام End مش بتحرر المساحة المحجوزة فى الذاكرة وبالتالى بتأثر على سرعة الجهاز حتى لو كان البطء مش واضح لان ده راجع لامكانيات الجهاز لكن المساحة بتتحرر بعد عمل ريستارت

حاول تفهم المنطق :lol:

بسم الله الرحمن الرحيم

hussein2005 كتب:

والله اخ هاني واخ Ghost2010 انا اصبحت من المتتبعين لكل مشاركاتكم ارجو ان تقبلوني صديق لكم ولجميع الاخوة في هذا المنتدى الرائع

←

وأكيد أنا أيضا

كما أشكر الأخ Neo على محاولة الاثبات وباسلوب علمي عملي .

على كل حال أحبذ استخدام الطرق في المشاركة 1 أو 2 ثم استخدام end

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

لو أستخدمنا هذا المنطق يبقى لازم تبدأ برنامج صح من الأول يعني كل لما تحجز متغير تعرفة ( متعدمش أن الـVB هيظبط العملية ) يعني تستعمل Option Explicit بالأضافة عن انتهائك من أستخدام متغير أو مكتبة معينة أن تقوم بمحوها من الذاكرة Set Varible = nothing كمان يريت يكون مع البرنامج بتاعك Flow chart معمولة بدقة علشان تعرف راسك من رجليك الاهم و الأحلى من ذلك أن تحاول قدر الأمكان تقليل أستخدام الأدوات الـOCX و عدم الاكثار من الـصور الى لو هتعمل لعبة طبعا :D

و شكرا لحسن أستماعكم كان معكم أحمد عصام من أمام الشاشة :D

:( :( :( :(

طلعت نفس طريقة الأخوة هاني ومحمد

:lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:

اقتباس

لو أستخدمنا هذا المنطق يبقى لازم تبدأ برنامج صح من الأول يعني كل لما تحجز متغير تعرفة ( متعدمش أن الـVB هيظبط العملية ) يعني تستعمل Option Explicit بالأضافة عن انتهائك من أستخدام متغير أو مكتبة معينة أن تقوم بمحوها من الذاكرة Set Varible = nothing

كلامك مظبوط ياعم احمد وعلى فكرة قتل المتغيرات قبل انهاء البرنامج شئ اساسى عند تقييم البرامج لانها تزيد من كفاءة البرنامج وتدل على مستوى المبرمج وعلشان كده انا البرامج الجديدة اللى باعملها دايما فى حدث الانهاء باحول مسار البرنامج الى دالة اسمها KillAllVariables باقضى فيها على كل المتغيرات وبعدين انهى البرنامج :rolleyes:

طيب ممكن تحط االدالة الى بتموت كل المتغيرات ديه لحسن عندي شوية خنقني

ممكن فعلا تضع هذه الدالة ليتستفيد منها الجميع

:lol: :lol:

يااحمد ياحبيبى

الحكاية ببساطة شديدة جداً ان المتغيرات بتموت بمجرد انهاء البرنامج اما الكائنات بتستعمل معاها

Set Object = Nothing

ولو انا عايز اقتل المتغيرات كمان قبل انهاء البرنامج باعرف المتغيرات على انها من النوع Variant وباستعمل نفس الكود السابق لكن الافضل انك ماتستخدمش متغيرات من النوع ده لانها ابطأ انواع المتغيرات لانها تحمل قيمة لاى نوع من المتغيرات

فهمت؟ :lol:

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

" أنا فكرت أستعمل بيروسول بس مجبش نتيجة " :D

السلام عليكم

انا سعيد جدا من هذا النقاش المفيد والتفاعل مع الموضوع :D

الاخ البريشي

اقتباس

QUOTE(hussein2005 @ Aug 10 2005, 11:09 AM)

والله اخ هاني واخ Ghost2010 انا اصبحت من المتتبعين لكل مشاركاتكم ارجو ان تقبلوني صديق لكم ولجميع الاخوة في هذا المنتدى الرائع

وأكيد أنا أيضا

شكرا لك

ده شىء يسعدنا ويشرفنا

بعد اذنك يامحمد تحدثت بالنيابة عنك :lol:

اقتباس

طلعت نفس طريقة الأخوة هاني ومحمد

فى الواقع انا مش فاهم تقصد ايه

بس عموما الطريقة تعتبر احترافية شوية او للتأكد تماما من عدم بقاء اى فورم للبرنامج بتاعك فى الذاكرة

بس لو انهيت البرنامج ب END مش هيجرى حاجة :o بس الطريقة دى زيادة فى التأكد والاحترافية فى تصميم برنامجك

نقطة اخرى اود ان اشير لفت نظرى لها الاخ neo فى كلامه

بالفعل المبرمج المحترف عندما يصمم برنامج لا ينظر فقط الى ان البرنامج شغال والسلام

بل لابد ان يضع فى اعتباره سرعة تنفيذ البرنامج وتأثيره على الرام و...............

فمثلا لا يستخدم متغيرات لا يحتاجها

او لا يستخدم مثلا متغير double وهو فى الواقع يحتاج الى متغير long

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

وهكذا.........

موضوع له علاقة بهذا الموضوع يقارن بين الاكواد الاسرع والابطأ فى التنفيذ

neo كتب:

و ايه المشكلة لما أعمل END و لا مش هتكون مناسبة :)

←

End سوف تنهي البرنامج لكن في حالة وجود حدث مثل QueryUnload , unload فلن يتم تنفيذهم

لذلك لا ينصح بإستخدامها

على فكرة، عند انتهاء البرنامج سوف يقوم ويندوز بتحرير كل الذاكرة المستخدمة من قبل ال proccess سواء تم كتابة الكود السابق الخاص بعملية ازالة كل فورم من الذاكرة ام لا

الكود السابق يفيد اثناء تشغيل البرنامج واردت ازالة النماذج الغير مستخدمة فذلك سوف يقلل من استهلاك الذاكرة للبرنامج

وايضا في حالة وجود كود في احداث unload وQueryunload

شكراً استاذ محمد ويارب تكون اقتنعت ياعم احمد :rolleyes:

و الله أنا مقتنع من الأول بس أنا حبيت أعمل Refresh للموضوع مش أكتر

و بعدين للعمل أنا بهتم بموضوع الأداء جدا و بحاول أحسن منه ديما :)