animasyon(kod açıklanması)

[xxihsidxx]

iyi akşamlar
aşağıdaki kodlarda "deg =format(finish-start "0")
ve "Loop While finish - Start <= 2" satırlarının açıklamasına ihtiyacım var.yardımcı olursanız sevinirim.

Public a As Integer
Sub ucankus()
On Error Resume Next
Dim s(3)
Set s(1) = ActiveSheet.Shapes("Group 15")
Set s(2) = ActiveSheet.Shapes("Group 16")
Set s(3) = ActiveSheet.Shapes("Group 17")
a = 0
resumesub:
Start = Timer * [J5]
Do
DoEvents
If a = 1 Then Exit Sub
finish = Timer * [J5]
deg = Format(finish - Start, "0")
For a = 1 To 3
s(a).Visible = False
Next
If deg = 0 Then s(1).Visible = True
If deg = 1 Then s(2).Visible = True
If deg = 2 Then s(3).Visible = True
Loop While finish - Start <= 2
GoTo resumesub:
End Sub
Sub dur()
a = 1
End Sub

 

[alpi]

deg = Format(finish - Start, "0")
finiş değerinden Start değeri çıkarılıyor deg değişkenine formatlı bir şekilde alınıyor. "0" formatının açıklaması şudur. Eğer çıkarma işlemi ondalıklı olursa ondalıklı kısım alınmıyor.
Örnek:

MsgBox Format(123.2, "0")

Loop While finish - Start <= 2 satırı ise

Do döngüsünün bitişi ve kontrolüdür

Eğer finish - Start işlem sonucu 2 ye eşit yada küçük olursa döngü bitiriliyor. Bunu anlayabilmek için Döngüler konusunu araştırın Forumda aratırsanız muhakkak bulursunuz.

 

[xxihsidxx]

te&#351;ekk&#252;rler alpi