ساخت یک شمارنده

[tehran2009]

دوستان من سورس یک برنامه ای می خوام که شروع کنه از 0 تا 9999999999999 رو توی یک txt جفت برنامه سیو کنه.
هنگ هم نکنه و حتماً کار بده .
ممنون میشم دوستانی که می تونن کمکم کنن.:قلب:

[far9090]

سلام . به نظر من یه کم واضح نبود سوالتون . میشه واضح تر بگین ؟

[.:KeihanCPU:.]

برای شمردن که مشکلی نیست و باید از حلقه ها استفاده کنید
اما برای این که برنامه به اصطلاح فریز نکنه باید از چند ریسمانی استفاده کنید که آموزشش در سایت هست
در این پست میتونید آموزش چند ریسمانی استفاده کنید
http://barnamenevis.org/forum/showpost.php?p=534963&postcount=18

[tehran2009]

سوالمو واضحتر مطرح می کنم.
یک برنامه می خوام بنویسم که وقتی روی یک کامند کلیک کنم برنامه شروع کنه به شمارش کردن 1.2.3.4.5.6.7.8.9.10.11...... همینطور ادامه بده تا برسه به 9999999999999 .
بعد این اعداد را توی یک txt بنام reza.txt جفت برنامه سیو کنه.
من قبلاً این کارو کرده بودم اما برنامه یا هنگ می کرد یا نصف راه اررور می زد . در کل کارو نیمه تمام میزاشت.
دوستان ممنون میشم با پروژه های وی بی کمکم کنین.

[mpmsoft]

یک نمونه ساده براتون نوشتم و ضمیمه کردم برنامه هم هنگ نمی کنه :چشمک:

[tehran2009]

مرسی از جواب خوبتون
اما اگه ممکنه اینو اینجوری برام اصلاح کنید ممنون میشم:قلب:
2 تا تکست باکس داشته باشه که عدد شروع و عدد پایان را من به برنامه بدم.
مثلاً به برنامه بگم از عدد 1 تا عدد 100 رو توی یک تکس جفت برنامه سیو کنه.

راستی این برنامه رو هم تست زدم فقط یه دونه عدد سیو می کنه باقی اعدادرو سیو نمیکنه.
مشکلشم اگه ممکنه حل کنید برام بازم ممنون میشم.:قلب:

[tehran2009]

دوستان کسی نمی تونه کمکی کنه .......

[quantomquery]

سلام
از تایمر استفاده کردم تا هنگ نکنه

موفق باشید
سورس :

[tehran2009]

می خوام به صورت لیست توی یک txt جفت برنامه سیو کنه لیست پسورد.

[butterfly8528]

سلام .

بفرما .

[quantomquery]

سلام

اصلاح شد


ذخیره هم می کنه

[tehran2009]

مرسی از جواب خوبتون
اما یه مشکل بزرگی داره ..
و اونم اینه که اعداد بزرگ رو که بهش می دم لیست نمی کنه.
مثلاً 100000000000000 تا 99999999999999 .
اگه ممکنه چک کنید ممنون میشم.

[quantomquery]

خب احتمالا سرریز می کنه

بجای a و b رو long کردم Variant کن یعنی 2 خط اول رو اینطوری تغییر بده :

Dim a As Variant
Dim b As Variant

[tehran2009]

باز بی فایدست.
اعدادو ناقص می یاره .

[quantomquery]

سلام
حل شد
البته با کمک رشته ها
این طور طراحی کردم که تا 24 رقم رو بشه روش عملیات انجام داد
البته با یه کم تغییر می تونی بیشترش هم بکنی

اول عدد رو به 3 قسمت 8 تایی تقسیم کردم
بعد عملیات +1 رو روشون اثر دادم

چون اگه با رشته کار نکنیم برای اعداد بالای 16 رقم نماد علمی اونو می نویسه

موفق باشید

سورس :

[tehran2009]

مرسی از جواب خوبتون :قلب:
اما یه مشکل دیگه ای که داره اینه که برنامه تا نصفه بعد قطع می کنه.
تا اینجا
100000004677
100000004678
100000004679
10

ممنون میشم این مشکلشم حل کنی :قلب:

[quantomquery]

دوباره اصلاح شد
چون text بیشتر از این گنجایش نداشت ( اخه تعداد کاراکتر های اون محدوده) از rech textbox استفاده کردم .
موفق باشید

سورس :

[tehran2009]

یه مشکل دیگه ای که داره اینه که وقتی عدد به 100000014679 می رسه برنامه شمارشش کند میشه یعنی اگه اول برنامه توی 1 ثانیه 1 عدد می ساخت وقتی به 100000014679 می رسه هر 10 ثانیه 1 عدد می سازه. ( معذرت که اینقدر اشکال می گیرم ـ ):قلب:

[quantomquery]

سلام
حالا فکر کنم از 0 شروع می کنی تا 10000000000000000000 تا اینکه انشاا.... یه مشکل دیگه پیدا کنی :لبخندساده:. final test رو هم کردی دیگه بهتره برنامه رو بدم بازار ....

ایندفعه لیست گذاشتم سریع شد .

موفق باشید .


سورس :