•
Почему Арбуз? •
Служебная •
UN
•
 |
 |
 |
|
 |
|
 |
|
 |
|
 |
|
 |
|
 |
Картинки с
фрагментом кода - подключайтесь! |
|
 |
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 |
 |
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 |
 |
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 |
 |
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 |
 |
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 |
| Автор | )c( 2000-2019 Kопирайта нет, копируйте на здоровье :) 100112 лет в Интернете |
|