by Arun.R.K (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 19th August 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
a Superb Laser show with complete entertainment! enjoy guys!
API Declarations
Public AR As Integer
Dim SSX As Boolean
' programmed by Arun.R.K.
' Aptech Computer Education - kumbakonam
'put a progressbar(progressbar1),form(form1), picturebox(picture1)and
' a timer(timer1)
Dim UU As Integer
Dim progress As Integer
Dim X, Y As Double
VBcoders
ProgressBar1.Value = 1
SSX = False
a = 1
End Sub
Private Sub Timer1_Timer()
'1
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
a = a + 1
b = Atn(Sin(90) * Sin(90)) / Sin(a) * Sin(90)
D = D + 10
c = Atn(Sin(D) + Sin(D)) / Sin(a) * Sin(D)
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(2)
Next
Picture1.Cls
'2
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Atn(Cos(D) * Cos(D)) / Cos(10)
D = D + 120
c = Atn(Cos(D) + Cos(D)) / Cos(10)
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(3)
Next
Picture1.Cls
'3
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Atn(Sin(D) * Sin(D)) / Sin(10)
D = D + 120
c = Atn(Sin(D) + Sin(D)) / Sin(10)
Picture1.PSet (Picture1.Width / 2 + (c * a), Picture1.Width / 2 + (b * a)), QBColor(4)
Next
Picture1.Cls
'4
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Sin(90) + Atn(a) * Cos(a)
D = D + 120
c = Atn(D * a) + Atn(b * a) / Tan(10)
Picture1.PSet (Picture1.Height / 2 + (c * a), Picture1.Height / 2 + (b * a)), QBColor(5)
Next
Picture1.Cls
'5
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Atn(a) * Cos(a)
D = D + Tan(120)
c = Atn(D * Cos(a)) + Atn(b * Sin(a)) / Sin(10)
Picture1.PSet (Picture1.Width / 2 + (c * a), Picture1.Width / 2 + (b * a)), QBColor(6)
Next
Picture1.Cls
'6
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Atn(a) * Tan(a)
D = D + Cos(120)
c = Atn(D * Cos(a)) + Atn(b * Sin(a)) / Cos(10)
Picture1.PSet (Picture1.Width / 2 + (c * a), Picture1.Width / 2 + (b * a)), vbYellow
Next
Picture1.Cls
'7
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Cos(a) + Sin(a)
D = Sin(D) * Cos(120)
c = Tan(Cos(D) * Sin(a)) + Atn(Sin(b) * Cos(a)) / Tan(10)
Picture1.PSet (Picture1.Width / 2 + (c * a), Picture1.Width / 2 + (b * a)), QBColor(8)
Next
Picture1.Cls
'8
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Sin(17 * Atn(90)) * Cos(90)
D = Sin(a * b) * (Cos(b * b) * Sin(a * a))
c = Cos(D * b) * (Sin(b * D) * Cos(D * b * b * D))
Picture1.PSet (Picture1.Width / 2 + (c * a), Picture1.Width / 2 + (b * a)), QBColor(9)
Next
Picture1.Cls
'9
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Cos(17 * Sin(90)) * Cos(90)
D = Atn(a * b) * (Cos(b * a) * Sin(a * b))
c = Tan(D * b) * (Sin(b * b) * Cos(D * D))
Picture1.PSet (Picture1.Width / 2 + (c * a), Picture1.Width / 2 + (b * a)), QBColor(10)
Next
Picture1.Cls
'10
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Cos(Sin(90) * Atn(90)) / Sin(a) * Tan(90)
D = D + 10
c = Sin(Sin(D) + Tan(D)) / Sin(a) * Atn(D)
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(11)
Next
Picture1.Cls
'11
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Sin(Tan(90) * Atn(90)) / Cos(Tan(a) * Atn(90))
D = D + 10
c = Sin(Tan(D) + Atn(D)) / Cos(a) * Sin(D)
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(12)
Next
Picture1.Cls
'12
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Cos(Tan(90) * Atn(a)) / (Sin(a) * Cos(90)) / 2
D = Cos(Tan(b) * Cos(a)) / (Sin(b) * Tan(90)) / 2
c = Sin(Tan(D) + Cos(D)) / Sin(a) * Cos(D)
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(13)
Next
Picture1.Cls
'13
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Tan(Sin(180) * Tan(90) * Atn(a))
D = Sin(a) * Cos(b) / (Atn(b) * Tan(a))
c = Atn(Cos(D) * Cos(D)) / Tan(Sin(a) * Sin(D))
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(13)
Next
Picture1.Cls
'14
ProgressBar1.Value = ProgressBar1.Value + 11
For a = 1 To Picture1.Width
b = Tan(Sin(180) * Tan(90) * Atn(a))
D = Sin(a) * Cos(b) / (Atn(b) * Tan(a))
c = Atn(Cos(D) * Cos(D)) / Tan(Sin(a) * Sin(D))
Picture1.PSet (Picture1.Width / 2 + (b * a), Picture1.Width / 2 + (c * a)), QBColor(13)
Next
Picture1.Cls
Dim r
If ProgressBar1.Value = ProgressBar1.Max Then
r = MsgBox("Do You Want To Run Show Again?", vbYesNo)
If r = vbYes Then
a = 0
Picture1.DrawWidth = (Rnd * 1) + 0.89
ProgressBar1.Value = 1
Else
End
End If
End If
End Sub