با سلام-کمک فوری همین امشب

[Bl@ck*roz]

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


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

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

این برنامه رو باید بنویسم که شمارش معکوس 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

[Bl@ck*roz]

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

[Admin]

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

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

اگه سی ++ بود حتما کمک می کردم.

[Bl@ck*roz]

1کی این مشکل رو حل کنه

[آبجی]

1کی این مشکل رو حل کنه

سلام بگو ببینم مشکلت الان چیه ؟؟؟

[Bl@ck*roz]

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

[آبجی]

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

این ارور 424-Object required هست مطمئنی برنامه رو درست نوشتی ؟؟؟

[Bl@ck*roz]

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

[آبجی]

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

خب فکر کنم مشکلت حل شد

بفرمایید:

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

For i = 10 To 1 Step -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

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

Private Sub command2_click90 

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

Private Sub command2_click()