Buat Form BerSalju

Option Explicit

Type xparticle
x As Integer
y As Integer
oldX As Integer
oldY As Integer
iStopped As Integer
End Type

Global Const kecepatan_salju = 400
Global Const ukuran_salju = 1
Global snow(0 To kecepatan_salju) As xparticle

option Explicit
Dim jalan As Boolean

Private Sub Form_Load()
ScaleMode = vbPixels
DrawWidth = ukuran_salju
BackColor = vbBlack

Dim i As Integer

For i = 0 To kecepatan_salju
snow(i).x = CInt(Int(ScaleWidth * Rnd))
snow(i).y = CInt(Int(ScaleHeight * Rnd))
Next

jalan = True
Timer1.Enabled = True

Const sTEXT = "Karamecat"
ForeColor = vbRed
FontSize = 20
CurrentX = ScaleWidth / 2 - TextWidth(sTEXT) / 2
CurrentY = ScaleHeight / 2 - TextHeight(sTEXT) / 2 - 5
Print sTEXT

Const sText2 = "karameca.forumid.net"
CurrentX = ScaleWidth / 2 - TextWidth(sText2) / 2
CurrentY = ScaleHeight / 2 + TextHeight(sText2) + 2
Print sText2

ForeColor = vbWhite
End Sub

Sub DrawSnow()
Dim i As Integer
Dim newX As Integer
Dim newY As Integer

Timer1.Enabled = False

Do While jalan
For i = 0 To kecepatan_salju
PSet (snow(i).oldX, snow(i).oldY), vbBlack
PSet (snow(i).x, snow(i).y)
Next i

For i = 0 To kecepatan_salju
snow(i).oldX = snow(i).x
snow(i).oldY = snow(i).y
newX = snow(i).x + Int(2 * Rnd)
newX = newX - Int(2 * Rnd)

newY = snow(i).y + 1

If Point(newX, newY) = vbBlack Then
snow(i).y = newY
snow(i).x = newX
Else
If snow(i).iStopped = 10 Then
If Point(snow(i).x + 1, snow(i).y + 1) = vbBlack Then
snow(i).x = snow(i).x + 1
snow(i).y = snow(i).y + 1
snow(i).iStopped = 0
ElseIf Me.Point(snow(i).x - 1, snow(i).y + 1) = vbBlack Then
snow(i).x = snow(i).x - 1
snow(i).y = snow(i).y + 1
snow(i).iStopped = 0
Else
NewParticle (i)
End If
Else
snow(i).iStopped = snow(i).iStopped + 1
End If
End If
Next i
DoEvents
Loop
End Sub

Sub NewParticle(i As Integer)
snow(i).x = CInt(Int(ScaleWidth * Rnd))
snow(i).y = 0
snow(i).oldX = 0
snow(i).oldY = 0
snow(i).iStopped = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
jalan = False
End Sub

Private Sub Timer1_Timer()
DrawSnow
End Sub