میشه کمکم کنید

[parasto2010]

سلام به همه ی دوستان ویژوال بیسیکی
یک کمک کوچیک می خوام برنامه ای که نوشتم برای شبیه سازی برف اما برای یکدونه برف میشه بهم بگید چطوری مثلابرای یک میلیون برف برنامه بنویسم
general
public y as singel

tim1.timer
form 1.cls
x=int(rnd*form1.width)
y=y+100
form1.pset(x,y),vbwhite
if y>=form1.height-1000 then
tim1.enabel=false
form1.pset(x,y),bvwhite
end if

[samadsam]

اگه اشتباه نکنم از تابع rnd
به صورت مثال :
به قسمت کد نویسی فرم مراجعه کن و سپس از زبانه ی سمت راست mouse move رو انتخاب کن
و کد زیر رو وارد کن

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالا فرم را اجر کن می بینی که رنگ های متفاوت به دنبال موس هست

[sinaaeeni]

سلام

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ضمنا اگه خواستی سورسش رو هم برات میذارم
موفق باشی

[parasto2010]

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

[parasto2010]

ممنون از کمکتون آقای sinaaeeni ولی اینکه اجرا نمیشه

[sinaaeeni]

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

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید