بهترین راه برای استفاده از حلقه

[m2011kh]

سلام و خسته نباشید خدمت همه ی دوستان.
خوب شاید عنوان تاپیکم زیاد به سوالم مرتبط نباشه ولی عنوان بهتری به ذهنم نرسید.

من برای ایجدا تمام حالات ممکن در کلمه های 6 حرفی شیش حلقه تو در تو ایجاد میکنم و همه رو داخل یک فایل میریزم.از Doevents در حلقه ام استفاده میکنم تا Explorer فکر نکنه برنامه هنگ کرده.

و حالا اصل مطلب:
در این بین 100% CPU اشغال میشه.و تا جایی که دیدم سرعت کار یلی پایین هست.من برنامه های ساده ی دیگه ای رو دیدم که در حین کارشون همین کارو میکردن ولی سرعت به نسبت بهتری رو داشتن.

من میخوام برنامه ام حجم کمتری از ظرفیت CPU رو استفاده کنه.

در ضمینه ای سرعت هم اگه پیشنهادی دارید خوشحال میشم از نظراتتون استفاده کنم.

MMD

[m2011kh]

دوستان ببخشید اسپم میدم ولی دیدم تاپیک رفته پایین گفتم بیارمش بالا.
کسی جوابی یا حتی پیشنهادی نداره؟؟؟

MMD

[m2011kh]

مسئله کاملا مشخصه:

نمونه کد:
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long
For a = 65 To 122
For b = 65 To 122
For c = 65 To 122
For d = 65 To 122
For e = 65 To 122
For f = 65 To 122
List1.AddItem Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f)
DoEvents
Next f
Next e
Next d
Next c
Next b
Next a
End Sub

[ho3ein.3ven]

سلام . این برنامه رو با استفاده از تایمر پیاده کردم .

102179

موفق باشید

[محسن واژدی]

مسئله کاملا مشخصه:
.
.
.
بله صورت مسئله مشخص هست، منتها همانطور که قبلا نیز برای یکی از عزیزان عرض شد، همیشه به نتیجه نرسیدن تاپیک به این معنی نیست که دوستان از جواب اطلاع ندارند، بلکه بخاطر نبود سورس کدی از مشکل موجود، نوشتن دستورات پایه و نامرتبط با مسئله اصلی وظیفه پاسخگو میشود از شرکت در تاپیک صرفنظر میکنند.

[m2011kh]

سلام.

ممنون از نظرتون آقای واژدی.من آدم انتقاد پذیری هستم.

اشتباه از من بوده.به بزرگی خودتون ببخشید.