Скачать или смотреть ART: BIGGER STARS. 2024 06 22 15 22 25

Public Class Form1
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim surface As Graphics = CreateGraphics()
Dim sun As New Pen(Color.White, 3)
Dim myB = New SolidBrush(Color.White)
Static ai, bi, ci As Integer
Static di, ei, fi As Single
Static gi As Double
Static hi As Integer
Static rad As Single
Dim pi As Double
pi = 4 * Math.Atan(1)

Dim R, G, B As Integer
Dim dR, dG, dB As Integer
Dim starx, stary, dia, radius As Integer
Dim X, Y As Integer

ai = ai + 1
bi = bi + 1
ci = ci + 1

Randomize()
di = Rnd() / 500
ei = Rnd() / 500
fi = Rnd() / 500

dR = Int(Rnd() * 3) + 1
dG = Int(Rnd() * 3) + 1
dB = Int(Rnd() * 3) + 1
R = 200 + Math.Abs(Math.Sin(ai / 280) + di)
G = 200 + Math.Abs(Math.Sin(bi / 290) + ei)
B = 200 + Math.Abs(Math.Sin(ci / 270) + fi)
Dim Pen1 As New Pen(Color.FromArgb(0, 0, 0)) 'SPACE
Dim Pen3 As New Pen(Color.FromArgb(2, 2, 178)) 'EARTH

starx = Int(Rnd() * 1500) + 1
stary = Int(Rnd() * 1000) + 1
dia = Int(Rnd() * 11) + 1
gi = gi + (pi / 1000)
hi = hi + 1

rad = rad + 0.001
radius = CInt(rad)

'SKY
If ai (is less than) 1000 Then
surface.DrawLine(Pen1, 0, ai, 1700, ai)
End If

Me.Text = "FLASHART" & Str(ai)

R = 100 + Math.Cos(2 * pi * ai / 1000)
G = 100 + Math.Cos(2 * pi * ai / 1000)
B = 200 + Math.Cos(2 * pi * ai / 1000)

'Create solid brush.
Dim SolidBrush = New SolidBrush(Color.FromArgb(R, G, B))

Dim Pen2 As New Pen(Color.FromArgb(R, G, B))

'Moon
If ai (is greater than) 1000 Then
X = CInt((Me.Width / 2) + (radius * Math.Cos(0.1 * pi * gi)))
Y = CInt((Me.Height / 2) - (radius * Math.Sin((0.1 * pi * gi) + (pi * 0.5))))
Dim rect1 As New Rectangle(X, Y, 50, 50)
'MICRO MOON TOO SMALL DOES NOT MOVE
'surface.FillEllipse(SolidBrush, rect1)
End If

'Create rectangle for ellipse for Stars.
SolidBrush = New SolidBrush(Color.FromArgb(R, G, B))
Dim Pen4 As New Pen(Color.Blue)
Dim rect5 As New Rectangle(Me.Width / 2, Me.Height / 2, 100, 100)
'EARTH - BLUE WORLD ECLIPTIC EDGE DARK OCCULTATION
'surface.DrawEllipse(Pen4, rect5)
'FILLED SMALL BLUE WORLD WITH SOLID BLUE STARS
surface.FillEllipse(SolidBrush, rect5)

Dim rect2 As New Rectangle(starx, stary, dia, dia)
'Dim Pen5 As New Pen(Color.White)
'CHANGING hi to 100 MAKES WORLD CENTER STAY WITHOUT PIPING
'rect2 = New Rectangle(Me.Width / 2, Me.Height / 2, hi, hi)
'rect2 = New Rectangle(Me.Width / 2, Me.Height / 2, 100, 100)

'BLUE WORLD GETTING BIGGER CENTER MOVING SOUTH-EAST
surface.FillEllipse(SolidBrush, rect2)
'WHITE WORLD CENTER SHIFTING SOUTH-EAST MAKING PIPE
'surface.DrawEllipse(Pen5, rect2)

'DRAWS COLORED STARS AROUND A LITTLE BLUE WORLD
Randomize()
R = Int(Rnd() * 254) + 1
G = Int(Rnd() * 254) + 1
B = Int(Rnd() * 254) + 1
Dim Pen5 As New Pen(Color.FromArgb(R, G, B))
SolidBrush = New SolidBrush(Color.FromArgb(R, G, B))
'STARS
surface.FillEllipse(SolidBrush, rect2)

'SOLID BLUE STARS LITTLE BLUE WORLD
'SolidBrush = New SolidBrush(Color.FromArgb(R, G, B))
'surface.FillEllipse(SolidBrush, rect2)
myB.Dispose()
Pen1.Dispose()
Pen2.Dispose()
Pen3.Dispose()
Pen4.Dispose()
Pen5.Dispose()
SolidBrush.Dispose()
sun.Dispose()
surface.Dispose()
End Sub

Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
'End
End Sub
End Class