БЛОГФорумСсылки Написать письмоПочему Арбуз? Служебная UN ЕЖЕ-движение - международный союз интернет-деятелей

Картинки с фрагментом кода - подключайтесь!

kapli.gif (44603 bytes) Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single

Private Sub Комманда1_Click()
Cls
pi = 4 * Atn(1)
DrawWidth = 2: n = 30
For j = 1 To n
x = Rnd * 500 + 150: y = Rnd * 300 + 20
r1 = 9 * (n - j) + 10: kaplya
Next j
End Sub
Private Sub kaplya()
For i = 0 To pi / 2 Step 0.001
r = r1 * Sin(i) ^ 3
Line (r * Cos(i) + x - i * 70, r * Sin(i) + y)-(-r * Cos(-i) _
+ x - i * 70, -r * Sin(-i) + y), _
RGB(Abs(r), _
Abs(255 - i * 220), _
Abs(255 - i * 320))
Next i
End Sub
Private Sub Комманда2_Click()
End
End Sub
kap1.gif (42381 bytes) Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
Dim n As Integer, j As Byte, i As Single
Option Explicit
Private Sub Комманда1_Click()
Cls
pi = 4 * Atn(1)
DrawWidth = 2: n = 1
For j = 1 To n
x = 550: y = 220
r1 = 100
kaplya
Next j
End Sub
Private Sub kaplya()
For i = 0 To pi * 9 Step 0.0015
r = r1 * (1 - Cos(5.4 * i) ^ 1)
Line (r * Cos(i) + x - i * 20, r * Sin(i) + y)- _
(-r * Cos(i) + x - i * 30, r * Sin(-i) + y), _
RGB(Abs(r), _
Abs(255 - Cos(i / 2) * 420), _
Abs(Cos(i * 2) * 250))
Next i
End Sub
Private Sub Комманда2_Click()
End
End Sub
kap2.jpg (30745 bytes) Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
Dim n As Integer, j As Byte, i As Single

Option Explicit
Private Sub Комманда1_Click()
Cls
pi = 4 * Atn(1)
DrawWidth = 2: n = 1
For j = 1 To n
x = 550: y = 220
r1 = 10
kaplya
Next j
End Sub
Private Sub kaplya()
For i = -pi To pi * 50 Step 0.0015
r = r1 + i * 2.5 + 0.1 * i * Cos(55 * i) ^ 6
Line (r * Cos(i) + x - i * 1, r * Sin(i) + y)- _
(r * Cos(i) + x - i * 1.2, r * Sin(i) + y), _
RGB(Abs(r), _
Abs(255 - Cos(i / 2) * 420), _
Abs(Cos(i * 4) * 250))
Next i
End Sub
Private Sub Комманда2_Click()
End
End Sub
mirror.gif (59514 bytes) Private Sub Комманда1_Click()
xmax = 730
ymax = 530
sc = 0.028
For y = 1 To ymax Step ss
For x = 1 To xmax Step ss
xx = (x - xmax / 2) * sc: yy = (y - ymax / 2) * sc
si = 10 * Sin(Sin(xx / 3.3)) * (Sin(yy) - Cos(xx))
co = 10 * Cos(Cos(yy / 7.5)) * (Cos(xx) - Sin(yy))
b1 = (si + co)
red = 255: green = 255: blue = 255
If (b1 > -0.01 And b1 < 20) Or b1 < -20 Then
b1 = Abs(b1)
red = Abs(si * 60) Mod 255
green = Abs(co * 60) Mod 255
blue = Abs(b1) * 180 Mod 255
End If
Col = RGB(red, green, blue)
If ss > 1 Then Line (x + 50, y)-Step(ss, ss), Col, BF
If ss = 1 Then PSet (x + 50, y), Col
Next x
Next y
End Sub
Private Sub Комманда2_Click()
End
End Sub
kap3.jpg (56754 bytes) Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
Private Sub Комманда1_Click()
Cls
pi = 4 * Atn(1)
DrawWidth = 2
x = 450: y = 250
r1 = 1: kaplya
End Sub
Private Sub kaplya()
For i = 10 To pi * 58 Step 0.0007
r = r1 + i * 1.2 + 0.37 * i * Sin(i * i) ^ 5
Line (r * Cos(i) + x - i * 0.95, r * Sin(i) + y)
-(r * Cos(i) + x - i * 0.95, r * Sin(i) + y), _
RGB(Abs(256 * Sin(r / 15)), _
Abs(255 - Sin(i * 17) * 256), _
Abs(255 - i * r * 0.005))
Next i
End Sub
Private Sub Комманда2_Click()
End
End Sub

Автор about me
Design by dady_MYKC
)c( 2000-2017
Kопирайта нет, копируйте на здоровье :)

100012 лет в Интернете


.