ساخت شماره اعداد در ویژوال بیسیک 6

[soft2fire]

سلام و خسته نباشید

از دوران دبیرستان تا به حال دیگه با vb6 کار نکردم

میخوام برنامه ای بنیویسم که کار زیر رو برام کنه

میخوام این برنامه یه عدد 11 رقمی بگیره.مثلا 98740000000 و آخرین عدد رو که الان 0 میباشد رو یک کنه
بعد 2 و ادامه بده
مثلا
96524526591
96524526592
96524526593
96524526594
96524526595
96524526596
و ....

و تا جایی که دکمه stop رو نزدیم به کار ادامه بده تا بی نهایت....

و همچنین درون یک فرم یا اعداد رو چاپ کنه بین اعداد سیمی کالون بزاره(;) به شکل زیر
و همچنین اعداد رو در یک خط چاپ کنه(یعنی اینتر نزنه)

96524526591;96524526592;96524526593;96524526594;96 524526595;96524526596

[arenaw]

سلام
توی فرمت یه دونه تایمر و دوتا کامند بذار:

Dim N As Variant
Private Sub Command1_Click()
N = Trim(InputBox("Adade 11 raghami ro vared kon"))
If IsNumeric(N) = True And Len(CStr(N)) = 11 Then
Print N & ";";
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Timer1_Timer()
N = N + 1
Print N & ";";
End Sub

[soft2fire]

این کدی که شما دادی فقط عدد رو از طریق اینپوت باکس میگیره و تو فرم چاپ میکنه
خودش هی اضافه نمینه به اخرین عدد

[arenaw]

این کدی که شما دادی فقط عدد رو از طریق اینپوت باکس میگیره و تو فرم چاپ میکنه
خودش هی اضافه نمینه به اخرین عدد
چون من شرط گذاشتم اگه عدد 11 رقمی نباشه هیچ کاری نکنه

[soft2fire]

در صورتی که کد زیر رو وارد میکنیم یکی به عدد ورودی اضافه میکنه ما این عمل یک بار انجام میشه و به کار ادامه نمیده
میخام خودش تا وقتی که توقف رو نزدیم ادامه بده به چاپ اعداد ادامه بده به شکل زیر
12345678911;12345678912;12345678913;12345678914;12 345678915;12345678916 و.....
Dim N As Variant
Private Sub Command1_Click()
N = Trim(InputBox("عدد 11 رقمی را وارد کنید"))
If IsNumeric(N) = True And Len(CStr(N)) = 11 Then
N = N + 1
Print "0" & N & ";";
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Timer1_Timer()
N = N + 1
Print N & ";";

[soft2fire]

چون من شرط گذاشتم اگه عدد 11 رقمی نباشه هیچ کاری نکنه
ممنون از جوابت داداشم
ولی چه 11 رقمی چه ...چاپ نمیکنه

[soft2fire]

در ضمن کدی که شما دادی فقط همون عددی که می دی رو چاپ میکنه

[arenaw]

فکر کنم اینترول تایمرت روی 0 باشه
بزارش روی 1000

[soft2fire]

ایولا داداشی من به شخصه عاشقتم
حالا چجوری کاری کنم که تو فرم چاپ نکنه و تو یه تکست باکس چاپ کنه؟


داداشی با این مد خودش بدونه این که شماره ای بدم شروع میکنه از 1 میندازه

[arenaw]

واسه اولی به جای اینکه بنویسی :

Print sadasdads & ";" ;


یه دونه تکست باکس بذارو بنویس :

Text1= text1 & "sadasdad" & ";"


واسه دومی هم چون نباید تایمرت Enable باشه

[soft2fire]

آقا واقعا از راهنمایی هات ممنونم
حالا میخوام کاری کنم که این عمل رو 1000 بار تکرار کنه
باید چی کار کنم؟

[arenaw]

خواهش میکنم
اون بالا شما یه متغیر دیگه تعریف کن

dim z as integer

بعد توی تایمر اضافه کن :

z = z + 1
if z > 1000 then timer1.enabled = false