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

[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()

[آبجی]

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

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

[آبجی]

دیگه فکر نکنم به هیچ وجه خطا بده موفق باشی

[Bl@ck*roz]

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

فایل سیو شده رو در اینترنت اپلود کنید اگر تونستید برنامه رو بسازید


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

[آبجی]

مگه مشکلت رفع نشده ؟؟؟ من که همه ایراداش گفتم :-?

[Bl@ck*roz]

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

[آبجی]

منم میگم مگه مشکلت رفع نشده خب بگو ارورش چیه ؟؟؟ من الان ویژوال رو سیستمم نصب نیست که بگم مشکل اجراش چیه بگو مشکلت چیه و از کجا هست من که مشکلی تو سورس برنامه نمیبینم بگو ارور چی میده ؟؟؟

[Bl@ck*roz]

با کامند 2 تا کلید ساختم بعد اسماشون رو به کامند 1 و کامند 2 تغییر دادم و بعد روی نقطه چین فورم کلیک کردم تا صفه نوشتن کد ها باز شد
بعد کد ها مو نوشتم
وقتی اجراش می کنم فقط عکس اون 2 تا کلیدی که ساختم تو فورم میاد و هیچیز دیگه ای تو جعبه ی فورم تیست
وقتی هم رو کلید هایی که ساختم کلیک می کنم هیچی نمی شه در اامه بگم: هیچ چیزی تو کلید ها نوشته نشده وقتی برنامه اجرا می شه

[آبجی]

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

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


با کامند 2 تا کلید ساختم بعد اسماشون رو به کامند 1 و کامند 2 تغییر دادم و بعد روی نقطه چین فورم کلیک کردم تا صفه نوشتن کد ها باز شد
بعد کد ها مو نوشتم
وقتی اجراش می کنم فقط عکس اون 2 تا کلیدی که ساختم تو فورم میاد و هیچیز دیگه ای تو جعبه ی فورم تیست
وقتی هم رو کلید هایی که ساختم کلیک می کنم هیچی نمی شه در اامه بگم: هیچ چیزی تو کلید ها نوشته نشده وقتی برنامه اجرا می شه


خب معلومه به این پست اصلا توجه نکردی دقت کن ;)

[Mohsensaki]

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



cls

for a=10 to 1 step-1
Print a

Next a
"Print "Fire
صفحه کد رو حالا ببنید.
حالا روی فرم دابل کلک کنید و کد زیر رو وارد کنید:


"Command1.Caption="Start
"Command2.Caption="Exit

دوباره صفحه کد رو ببند.
روی Command2 دوبار کلیک کن و کد زیر رو وارد کن:


End

حالا برنامه رو اجرا کنید

موفق باشید.{happy}

[آبجی]

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


موفق باشید