شمارش معکوس در حلقه For

[parvazeh]

سلام دوستان
باید یک برنامه ی ساده به زبان ویژوال بیسیک بنویسم


این برنامه صبح باید تحویل داده بشه

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

این برنامه رو باید بنویسم که شمارش معکوس 10 تا 1 هست:




private sub command1_click()
for i=10 to step-1
print i;
next i
print"fire"
end sub
private sub command2_click90
end
end sub

private sub form_load()
command1.caption = "start"
command2.caption = "exit"
end sub



وقتی برنامه رو اجرا میکنم پیغام 424 میده در قسمت
private sub form_load()
این زدر رنگ می شه

[xxxxx_xxxxx]

سلام،
برای شمارش معکوس در حلقه For به صورت زیر عمل کنید:


For i = 10 To 1 Step -1


لطفاً برای تاپیک هایی که ایجاد می کنید عنوان مناسبی انتخاب کنید.
عنوان تاپیک اصلاح شد/

[parvazeh]

سلام،
برای شمارش معکوس در حلقه For به صورت زیر عمل کنید:


For i = 10 To 1 Step -1
لطفاً برای تاپیک هایی که ایجاد می کنید عنوان مناسبی انتخاب کنید.
عنوان تاپیک اصلاح شد/

یعنی کل مشکل این برنامه فقط همین هست ؟؟؟؟

[mohamad_ice]

یعنی کل مشکل این برنامه فقط همین هست ؟؟؟؟

قطعه کدی که شما قرار دادید تنها همین اررور را داره

[xxxxx_xxxxx]

البته یک مشکل جزئی دیگر هم داره که من فکر کردم اشتباه تایپی هست و متوجه این موضوع در حین تایپ کردن دستورات نشدید:


Private Sub command2_click90
در آخر این خط، عدد 90 نباید باشه بلکه شیفت رو نگه دارید و بعد 90 بزنید تا پرانتز باز و بسته تایپ شه:

Private Sub command2_click()البته فرمودید که در رویداد Load خطای 424 میده! این خطا مربوط به این میشه که شئ مورد نظر وجود نداره! آیا اصلاً شما CommandButton ها رو روی فرم گذاشتید؟

[parvazeh]

private sub command1_click()
for i=10 to step-1
print i;
next i
"print "fire
end sub
private sub command2_click()
end
end sub



private sub form_load()
"command1.caption= "start این تیتر زرد می شه
"command2.caption="exit
end sub

[xxxxx_xxxxx]

اون خطا به خاطر عدم وجود CommandButton ی با نام command1 است.
از پنجره سمت چپ (Toolbox) یک عدد CommandButton روی فرم قرار بدید.

برای command2 هم به همین طریق، یک CommandButton دیگر به فرم اضافه کنید.

[parvazeh]

2 تا فایل پیوست کردم
1کی عکس هست که برنامه ی پایانی رو نشون می ده
1کی فایل تکست هست که کد هایی که هست رو نشون می ده

سوال :برنامه ای بسازید که شمارش معکوس 10 تا 1 را انجام دهد و در پایان پیغام fire را نمایش دهد فایل های پیوست شده

http://www.njavan.com/forum/images/attach/zip.gif 25022010.zip (http://www.njavan.com/forum/attachment.php?attachmentid=832&d=1274017800)

[xxxxx_xxxxx]

سلام،
دوست عزیز در اینجا به سؤالات درسی پاسخی داده نمیشه. شما خودتون باید برای حل مسائل درسی تلاش کنید. نهایتاً در اینجا فقط می توانید راهنمایی بگیرید.
در این مورد هم فکر می کنم راهنمایی به اندازه کافی بوده. پس از اینجا به بعد تبدیل میشه به درخواست حل تمرینات درسی که بر خلاف قوانین سایت است. به همین دلیل تاپیک شما قفل می شود.

با تشکر.
تاپیک قفل شد/