Fisrt After Effects CS6
Comedy Project With "AMORIK part-1"
Comedy Project With "AMORIK part-2"
15 December 2015
Dim rd, rm, rj As Integer
Dim ad, am, aj As Integer
Private Sub Form_Load()
rd = 140: rm = 120: rj = 100
LD.X1 = Form1.ScaleWidth / 2
LD.Y1 = Form1.ScaleHeight / 2
LD.X2 = LD.X1
LD.Y2 = LD.Y1 - rd
Form1.Circle (LD.X1, LD.Y1), rd + 15, vbBlue
Form1.Circle (LD.X1, LD.Y1), rd + 5, vbBlue
For i = 1 To 12
x = LD.X1 + ((rd + 10) * Cos(i * 30) / 45 * Atn(1))
y = LD.Y1 + ((rd + 10) * Sin(i * 30) / 45 * Atn(1))
Form1.Circle (x, y), 5, vbMagenta
Next
LM.X1 = Form1.ScaleWidth / 2
LM.Y1 = Form1.ScaleHeight / 2
LM.X2 = LM.X1
LM.Y2 = LM.Y1 - rm
LM.BorderWidth = 3
LM.BorderColor = RGB(255, 127, 0)
LJ.X1 = Form1.ScaleWidth / 2
LJ.Y1 = Form1.ScaleHeight / 2
LJ.X2 = LJ.X1
LJ.Y2 = LJ.Y1 - rj
LJ.BorderWidth = 5
LJ.BorderColor = vbRed
Timer1.Interval = 2
Timer1.Enabled = True
ad = 270: am = 270: aj = 270
End Sub
Private Sub Timer1_Timer()
ad = ad + 6
If ad = 360 Then ad = 0
LD.X2 = LD.X1 + rd * Cos(ad / 45 * Atn(1))
LD.Y2 = LD.Y1 + rd * Sin(ad / 45 * Atn(1))
If ad = 270 Then
am = am + 6
If am = 360 Then am = 0
LM.X2 = LM.X1 + rm * Cos(am / 45 * Atn(1))
LM.Y2 = LM.Y1 + rm * Sin(am / 45 * Atn(1))
If am Mod 30 = 0 Then
aj = aj + 2.5
If aj = 360 Then aj = 0
LJ.X2 = LJ.X1 + rj * Cos(aj / 45 * Atn(1))
LJ.Y2 = LJ.Y1 + rj * Sin(aj / 45 * Atn(1))
End If
End If
End Sub
Dim ad, am, aj As Integer
Private Sub Form_Load()
rd = 140: rm = 120: rj = 100
LD.X1 = Form1.ScaleWidth / 2
LD.Y1 = Form1.ScaleHeight / 2
LD.X2 = LD.X1
LD.Y2 = LD.Y1 - rd
Form1.Circle (LD.X1, LD.Y1), rd + 15, vbBlue
Form1.Circle (LD.X1, LD.Y1), rd + 5, vbBlue
For i = 1 To 12
x = LD.X1 + ((rd + 10) * Cos(i * 30) / 45 * Atn(1))
y = LD.Y1 + ((rd + 10) * Sin(i * 30) / 45 * Atn(1))
Form1.Circle (x, y), 5, vbMagenta
Next
LM.X1 = Form1.ScaleWidth / 2
LM.Y1 = Form1.ScaleHeight / 2
LM.X2 = LM.X1
LM.Y2 = LM.Y1 - rm
LM.BorderWidth = 3
LM.BorderColor = RGB(255, 127, 0)
LJ.X1 = Form1.ScaleWidth / 2
LJ.Y1 = Form1.ScaleHeight / 2
LJ.X2 = LJ.X1
LJ.Y2 = LJ.Y1 - rj
LJ.BorderWidth = 5
LJ.BorderColor = vbRed
Timer1.Interval = 2
Timer1.Enabled = True
ad = 270: am = 270: aj = 270
End Sub
Private Sub Timer1_Timer()
ad = ad + 6
If ad = 360 Then ad = 0
LD.X2 = LD.X1 + rd * Cos(ad / 45 * Atn(1))
LD.Y2 = LD.Y1 + rd * Sin(ad / 45 * Atn(1))
If ad = 270 Then
am = am + 6
If am = 360 Then am = 0
LM.X2 = LM.X1 + rm * Cos(am / 45 * Atn(1))
LM.Y2 = LM.Y1 + rm * Sin(am / 45 * Atn(1))
If am Mod 30 = 0 Then
aj = aj + 2.5
If aj = 360 Then aj = 0
LJ.X2 = LJ.X1 + rj * Cos(aj / 45 * Atn(1))
LJ.Y2 = LJ.Y1 + rj * Sin(aj / 45 * Atn(1))
End If
End If
End Sub