مشاهده نسخه کامل
: parasto2010
23-11-2009, 22:22
سلام به همه ی دوستان ویژوال بیسیکی
یک کمک کوچیک می خوام برنامه ای که نوشتم برای شبیه سازی برف اما برای یکدونه برف میشه بهم بگید چطوری مثلابرای یک میلیون برف برنامه بنویسم:41:
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
یک کمک کوچیک می خوام برنامه ای که نوشتم برای شبیه سازی برف اما برای یکدونه برف میشه بهم بگید چطوری مثلابرای یک میلیون برف برنامه بنویسم:41:
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