سه تا مشكل دارم

[micro_mega]

سلام دوستان
من تو اين برنامه سه تا مشكل دارم
لطف كنيد و كمك كنيد مشكل اول اينكه
اعدادي كه توليد ميشه پشت سر هم هستن
ميخوام زير هم باشن به اين صورت
0580000000
0580000001
0580000002
0580000003
در حالي كه الان 058000000005800000001580000002
اينجوريه مشكل دوم اول اعداد قبل از 58 صفر رو نميزاره
مشكل سوم وقتي شمارش از صد بالاتر ميشه سرعت شمارش
هم شروع به كم شدن ميشه برنامشو ببينيد ممنون ميشم كمكم كنيد

[mmssoft]

Private Sub Timer1_Timer()
Dim f As String

d = d + 1
f = "0" & Trim(Str(d))
Text2.Text = f
Text1.Text = Text1.Text & vbNewLine & f
End Sub


در ضمن توصیه میکنم که متغیر ها رو درست تعریف کنید و کمی اصولی تر کدنویسی کنید...
موفق باشید

[micro_mega]

سلام بابت كمكتون ممنون :بوس:
يه سوال ديگه اگه بخوام سرعت بيشتري براي توليد اعداد تو زمان كمتري داشته باشم
بدون اينكه از سرعت كاسته بشه چه كار بايد بكنم ممنون ميشم اين سوال رو هم جواب بدين

[vbhamed]

سلام
اينم راه سريع، نياز به تايمر هم نداره، فقط اينكه چون تو تكست باكس بيشتر از 65535 حرف نميشه گذاشت تا يه حدي كه بررسه ديگه اضافه نميشه
مي‌تونيد از RichTextBox يا ListBox يا تكست باكس كامپوننت Codejock استفاده كنيد

[micro_mega]

دوباره سلام دوستان
اقا ببخشيد دوباره يه مشكل داشتم هر كاري هم كردم متوجه نشدم مشكل كجاست
با كمك شما كارم راه افتاد فقط مشكل اينكه بعد از اينكه اعدادي كه توليد ميشه ميخوام ذخيره كنم اگه بيشتر چند هزار بشه
ديگه تو فايل ذخيره خاليه

[vbhamed]

سلام
دليلش اينه كه وقتي تعداد از 32768 بالاتر ميره عددي كه به عنوان List.ListCount برمي‌گرده اشتباه و يك عدد منفي ميشه و حلقه شما اجرا نميشه
ولي يك سؤال، اصلا چرا شما از تكست باكس يا ليست باكس مي‌خواين استفاده كنيد، شما كه مي‌خواين ذخيره كنين، مگه قراره اعداد توليد شده به اينصورت ديده بشن، اگر اينكار رو انجام ندين خيلي كارتون سريعتر هم ميشه،‌اگر هم مجبوريد مي‌تونيد به vsFlexGrid براي نمايش اعداد فكر كنيد يا فكر مي‌كنم شيء Flatedit كامپوننت Codejock هم جواب بده

[micro_mega]

راستش نه براي نمايش نيازي نيست اما خوب ميخوام اعداد بصورت ليست توي يه نوت پد ذخيره بشه
مهم نيست ديده بشه يا نه . اگه اعداد بعد از شمارش توي يه متغير بزام بعد درحين شمارش ذخيره بشه مشكل حل ميشه بنظرتون مشكل ذخيره شدن حل ميشه
ميشه در مورد نحوه ذخيره شدن اونم بصورتي كه اعداد ليست بشن توضيح بدين?:لبخندساده:

[vbhamed]

سلام
اينم يك نمونه بدون نمايش با سرعت خيلي بالا