by Dhurai Nathan.s (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 27th August 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
You can have a super laser show on your monitor, Have a nice show.
VBcoders
Scale (3, -3)-(-3, 3)
For s = 0 To 8 Step 0.0001
Picture3.Visible = False
r = Tan(7000 * s)
X = Cos(r * r) * r * Cos(Sin((Tan(Cos(s * r)))))
Y = Sin(Atn(Cos(s * X)))
Kolamground.PSet (X, Y), vbRed
Next s
Picture4.Visible = False
'2 th
Kolamground.Cls
Scale (2, -2)-(-2, 2)
For s = 0 To 5 Step 0.0001
r = Tan(Cos(2000 * s))
m = Atn(r * s)
X = Sin(m) * Cos(r) * Atn(m) * Cos(m * (r * m) * Atn(m * r))
Y = m * X * Tan(Tan(Atn(Cos((s * r)))))
Kolamground.PSet (X, Y), vbBlue
Next s
''3 rd
'Kolamground.Cls
'Scale (2, -2)-(-2, 2)
'For s = 0 To 5 Step 0.0001
'r = Atn(Cos(2000 * s * 1000))
'X = Sin(r * m * 1000 * Atn(s * r))
'y = r * X * r * 10000 * Sin(Cos(s * r))
'Kolamground.PSet (r, y), vbRed
'Next s
'4th
Kolamground.Cls
Scale (3, -3)-(-3, 3)
For s = 0 To 3 Step 0.0001
r = Cos(5000 * s)
X = r * Atn(Cos(10 * r))
Y = r * Sin(Tan(7000 * X * r))
Kolamground.PSet (Y, X), vbGreen
Next s
'5th
Kolamground.Cls
Scale (3, -3)-(-3, 3)
For s = 0 To 5 Step 0.0001
r = Tan(1000 * s)
X = r * Cos(s * r)
Y = r * Atn(Cos(s * r * s))
Kolamground.PSet (X, Y), vbBlue
Next s
'6th
Kolamground.Cls
Scale (3, -3)-(-3, 3)
For s = 0 To 5 Step 0.0001
r = Tan(7000 * s)
X = r * Cos(s * r * 100)
Y = r * Atn(Atn(Cos(s * r)))
Kolamground.PSet (r, Y), vbRed
Next s
'7th
Kolamground.Cls
Scale (6, -6)-(-6, 6)
For s = 0 To 4 Step 0.0001
r = Tan(100 * s)
X = r * Cos(s * 1000 * r * 7000)
Y = r * Tan(Atn(Sin(Atn(Cos(s * r)))))
Kolamground.PSet (Y, r), vbGreen
Next s
'8 th
Kolamground.Cls
Scale (2, -2)-(-2, 2)
For s = 0 To 3 Step 0.0001
r = Tan(100 * s * s)
X = r * Cos(r) * (Cos(s * 1000 * r * 7000))
Y = r * Tan(Atn(Sin(Atn(Sin(Cos(s * r))))))
Kolamground.PSet (r, X), vbBlue
Next s
'9 th
Kolamground.Cls
Scale (8, -8)-(-1, 6)
For s = 0 To 8 Step 0.0001
r = Tan((Atn(s)))
X = r * Sin(r) * Cos(r) * (Cos(s * 1000 * r * 7000))
Y = r * Tan(X) * Tan(s) * Tan(Atn(Sin(Atn(Sin(Cos(s * r))))))
Kolamground.PSet (r, X), vbRed
Next s
'10 th
Kolamground.Cls
Scale (2, -2)-(-2, 2)
For s = 0 To 6 Step 0.0001
r = Tan(100 * s * s)
X = r * Cos(r) * (Cos(s * 1000 * r * 7000))
Y = Sin(X * r * r * Tan(Atn(Sin(Atn(Sin(Cos(s * r)))))))
Kolamground.PSet (X, Y), vbGreen
Next s
Kolamground.Cls
Picture1.Visible = False
Picture2.Visible = True
Picture4.Visible = True
Picture3.Visible = False
No comments have been posted about You can have a super laser show on your monitor, Have a nice show.. Why not be the first to post a comment about You can have a super laser show on your monitor, Have a nice show..
