X
تبلیغات
نماشا
رایتل
پشم سنگ عایق الاستومری
یکشنبه 30 فروردین‌ماه سال 1388
توسط: آلفا پک

شعله آتش

شاید شما از قرار دادن افکت های جالب در کارهاتون لذت می برید این هم افکت شعله آتش هست  شاید موقع اجرا از این کد خوشتون بیاد .

اول یک Timer ایجاد کنید بعدش کد ادامه مطلب رو وارد کنید .

کد :
Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As LongByVal x As LongByVal y As LongByVal crColor As Long) As LongPrivate Fire() As BytePrivate Sub Form_Load()Timer1.Interval 10
Me
.AutoRedraw True
ReDim Fire
(0 To 1000 To 100)
For 
0 To 100For 0 To 100
Fire
(xy) = 0
Next y
Next x
End Sub
Private Sub Timer1_Timer()On Error Resume Next
Dim x 
As Integer
Dim y 
As Integer
Dim Color 
As Integer
Dim table 
As ByteFor 100 To 0 Step -1For 0 To 100
Randomize
Fire
(xy) = Fire(xy) - Int(Rnd 4)table Int(Rnd 3)Fire(xtable) = Fire(xy)Color = (Int(Fire(xy) * 3))SetPixel Me.hDC+ (Rnd 2), yRGB(Color ColorColorColor 2)Next x
Next y
For 0 To 100For 95 To 100
Fire
(xy) = 110
Next y
Next x
منبع : ویژوال بیسیک حرفه ایی