Printable View
سلام به همه ی دوستان ویژوال بیسیکی
یک کمک کوچیک می خوام برنامه ای که نوشتم برای شبیه سازی برف اما برای یکدونه برف میشه بهم بگید چطوری مثلابرای یک میلیون برف برنامه بنویسم: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
اگه اشتباه نکنم از تابع rnd
به صورت مثال :
به قسمت کد نویسی فرم مراجعه کن و سپس از زبانه ی سمت راست mouse move رو انتخاب کن
و کد زیر رو وارد کن
حالا فرم را اجر کن می بینی که رنگ های متفاوت به دنبال موس هستکد:line (a,s)-(x,y),rnd *vbblue
سلام
ضمنا اگه خواستی سورسش رو هم برات میذارمکد:Private Sub Form_Load()
Dim r, d, sfvar
For sfvar = 0 To sfv.Count - 1
sfx(sfvar).Caption = ScaleWidth * Rnd
sfv(sfvar).Caption = ScaleHeight * Rnd
PSet (sfx(sfvar).Caption, sfv(sfvar).Caption), ForeColor
Next sfvar
Form1.Caption = sfx.Count & " Snowflakes"
End Sub
Private Sub Timer1_Timer()
Form1.Cls
For sfvar = 0 To sfx.Count - 1
r = Int(Rnd * 50)
sfx(sfvar).Caption = Val(sfx(sfvar).Caption) + r
d = Int(Rnd * 50)
sfv(sfvar).Caption = Val(sfv(sfvar).Caption) + d
If sfx(sfvar).Caption > ScaleWidth Then
sfx(sfvar).Caption = -5
End If
If sfv(sfvar).Caption > ScaleHeight Then
sfv(sfvar).Caption = -5
End If
PSet (sfx(sfvar).Caption, sfv(sfvar).Caption), ForeColor
Next sfvar
End Sub
موفق باشی
ممنون ولی میشه واسم سورسش رو هم بذارید :41::41::41:
با تشکر از همکاریتون:11::11::11:
ممنون از کمکتون آقای sinaaeeni ولی اینکه اجرا نمیشه:41::41::41:
سلام دوست گرامینقل قول:
سورس بارش برف تقدیم به شما امیدوارم مورد استفاده قرار گیرد و هر مشکلی داشته باشه بازم خدمتتون هستم
[HTML]http://www.4shared.com/file/165809656/560b7256/Barf.html[/HTML]