خوب اگر می خوای کار گروهی شروع کنی با پست و خواستت رو تو بخش پروژه های گروهی بزار
حتما دوستان کمک خواهند کرد از جمله خود من...
یه فرم درست کردم برای لودینگ .
این کداشه :
کد:
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
ProgressBar1.Value = i
If i = 100 Then i = 0
End Sub
بعد حالا چند تا فرم دیگه دارم که لود شدنشون خیلی طول میکشه . به دلیل اینکه به محض بالا اومندن چندین پروسیژر دیگه رو فراخونی می کنن .
توی اون فرمها این کارو انجام دادم :
کد:
Private Sub Form_Load()
DoEvents
Me.Visible = False
Load frm_loading
Call SetRtoL(tvp)
tvp_init
Me.Visible = True
Unload frm_loading
End Sub
در واقع این خیلی وقت گیره : tvp_init به همین خاطر قبلش لودینگ می خام بیاد و بعدش بره .
حالا نمی دونم چرا توی این حالت پروگرس بار هم ثابت می مونه و حرکت نمی کنه ! تا زمانی که این 3-4 ثانیه برای اون ساب وقت گیر بگذره و فرم اصلی نمایش داده بشه !
علت چیه ؟
تو تابع tvp_init بايد از DoEventsاستفاده كني.
البته لود شدن رو بد نوشتي! اون تايمر خيلي مسخره ! اگه يه حلقه وقت گير داري كه توي همون بايد progressbar رو مقدار بدي. يا اگه كد هاي زيادي قبلش بايد اجرا بشه بين اونا بايد peogressbar تغيير كنه.
ممنون
دوایونت رو توی همه ی ساب های وقت گیر گذاشته بودم . مشکل چی می تونه باشه ؟
اینکه نمی تونم از تو حلقه مقدار بهش بدم به این خاطره که می خام این فرم لودینگ رو از توی همه ی فرمها صدا کنم و خودش مقداردهی بشه و بره جلو . ظاهرش برام زیاد مهم نیست . فقط می خام زمانی که سیستم درگیر لود شدنه این پروگرس بار حرکت کنه و هر زمان که فرم اصلی لود شد این بره کنار !
همین فقط .
حالا چرا تو حالت بالا تایمر توی فرم لودینگ از کار میفته ؟
نقل قول: حالا چرا تو حالت بالا تایمر توی فرم لودینگ از کار میفته ؟
احتمالا یه جایی ، یه حلقه ای چیزی هست که یادت رفته DoEvents بذاری .
یه پیشنهاد : اگه نمی خوای از Doevents استفاده کنی ، باتوجه به اینکه وی بی 6 singel thread هست ، لودینگ رو کلا از برنامت جدا کن ! یه فایل exe جدا برای لودینگ بساز . هر وقت می خوای لودش کن ، هر وقت کارت تموم شد ببندش !
در پست 8 جناب far222000 یه مثال گذاشتن
نقل قول: اینکه نمی تونم از تو حلقه مقدار بهش بدم به این خاطره که می خام این فرم لودینگ رو از توی همه ی فرمها صدا کنم و خودش مقداردهی بشه و بره جلو .
خوب همین کار رو بکن. یه کاری کن به ترتیب جلو بره.
نقل قول: یه پیشنهاد : اگه نمی خوای از Doevents استفاده کنی ، باتوجه به اینکه وی بی 6 singel thread هست ، لودینگ رو کلا از برنامت جدا کن ! یه فایل exe جدا برای لودینگ بساز . هر وقت می خوای لودش کن ، هر وقت کارت تموم شد ببندش !
اینم یه روشه. خوبیش اینه که چون از DoEvents استفاده نمی کنی سرعت کم نمیشه. DoEvents سرعت حلقه رو خیلی کم می کنه. ولی یه جوریه !
من تو این چند سالی که برنامه نویسی کردم. فقط یه برنامه نوشتم که واقعا احتیاج به لودینگ داشت. اونم بعد از گذشت هر مرحله و پایان هر حلقه progressbar رو جلو بردم. اون برنامه 10 مگابایت شده بود. برای بقیه برنامه ها یه صفحه wait ... می زارم.
نقل قول: در پست 8 جناب far222000 یه مثال گذاشتن
باز برگشتیم به عقب ! اون اصلا لود نیست که ! اینبار نمی تونم ساکت باشم !
نقل قول: DoEvents سرعت حلقه رو خیلی کم می کنه.
پیشنهاد : اگه یه حلقه داری مثل حلقه زیر. لازم نیست دقیقا توی هر مرحله doevents بزاری ، می تونی هر 100 تا، یک بار doevents بزنی :
نقل قول: For i = 1 To 5000
For j = 2 To i - 1
prime = 1
If i Mod j = 0 Then prime = 0: Exit For
If j Mod 100 = 0 Then DoEvents
Next j
If prime = 1 Then prime_n = prime_n & i & ","
Next i
Text1.Text = "Prime Numbers : " & prime_n
اگه هنوز مشكل تايمر داري يه كار ديگه هم مي توني بكني.
يه تابع callback بساز. با Settimer يه تايمر تعريف كن و به اون تابع آدرس بده. البته من هنوز با تايمر مخالفم. چون اصلا منطقي نيست. ولي خوب ظاهرش برات مهم نيست ديگه !
نقل قول: If i = 100 Then i = 0