Скачать или смотреть COMPUTER ART. 2024 07 18 11 32 30.

VB CODE

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