Как нарисовать разноцветное яйцо в Visual Basic 6.0?

@Willi2001 · 06.09.2015, 21:34. **Показов** 2932. **Ответов** 40

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, нарисовать разноцветное яйцо в Visual Basic 6.0
Проблема: не могу даже простое яйцо нарисовать, слишком мудро.

Скляревский пишет: У следующей картинки код тот же, но расцветка привязана к Y http://arbuz.uz/u_galerea_egg.html
Авторский код простого яйца:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Dim x1(), y1(), a1(), L1()
Private Sub Комманда1_Click()
Cls
DrawWidth = 2
pi = 4 * Atn(1)
x0 = 350
y0 = 180
bb = 160
ss = 6
n = 0
ReDim x1(num), y1(num), a1(num), L1(num)
xx1 = 0: yy1 = 0: k = 1: j = 1
'*********************************shadow******
For a = 180 To 0 Step -6
 For x = -a To a Step 0.5
  If KeyAscii = 32 Then End
   If k = -1 And j = 1 Then j = -j
   an = a / 1.2: xn = x / 1.2
  tn = (an ^ 2 - xn ^ 2)
  If tn > 0 Then
    yn = k * tn ^ 0.5 / 4
        qrrn = Abs(255 - (-a + 180) / 1)
        qggn = Abs(255 - (-a + 180) / 1)
        qbbn = Abs(255 - (-a + 180))
     col = RGB(qrrn, qggn, qbbn)
     xx = xn
     yy = 110 + yn
     If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
     If ss = 1 Then PSet (xx + 350, yy + 300), col
     Else
       zzzz = 0
     End If
     k = -k: j = -j
    Next x
    n = n + 1
    Next a
     '**********************************egg********  
For a = 180 To 0 Step -3
'For b = 1# To 1.007 Step 0.001
 For x = -a To a Step 0.05
  If KeyAscii = 32 Then End
   If k = -1 And j = 1 Then j = -j
   t = (a ^ 2 - x ^ 2)
  If t > 0 Then
    y = (a - 180) / 2 + k * t ^ 0.5 / (1.6 * 1.0014 ^ x)
        qrr = Abs(255 - a / 2.5)
        qgg = Abs(255 - a / 1.5)
        qbb = Abs(255 - a)
     col = RGB(qrr, qgg, qbb)
     xx = x
     yy = y
     If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
     If ss = 1 Then PSet (xx + 350, yy + 300), col
     Else
       zzzz = 0
     End If
    k = -k: j = -j
    Next x
    n = n + 1
    Next a
End Sub

echs · 07.09.2015, 11:02

Форма яйца похожа на окружность (часть окружности)
и касательную к ней параболу.

@Willi2001 · 07.09.2015, 11:17 **[ТС]**

Сообщение от geh

Форма яйца похожа на окружность

geh! Огромное спасибо за свежую мысль!
Как интересно и оригинально!! Неужели есть и такие, кто не смог бы догадаться: яйцо чем-то похоже на окружность?

Правильно ли рассуждаю? В этой программе многое кажется непонятным, поэтому вызывает сомнения "само её авторство". Похоже, она "пришла" из англоязычных стран.

Почему Скляревский не объявляет полностью переменные?
Попробовал сам объявить, пользуясь другим аналогом, не знаю — кто автор: Пасхальное яйцо http://rusproject.narod.ru/arbuz.htm

Visual Basic 6.0 замучил меня расспросами и уточнениями, например: это что bb, а это что KeyAscii, а что означает x1(num)?
Если слепой поведёт слепого — то они упадут в яму (по-моему, из Евангелия)

Поэтому исправления бросаю на полпути, до хорошего настроения — ниже

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Option Explicit
 
Dim x1  As Single
Dim y1  As Single
Dim x0  As Single
Dim y0  As Single
Dim pi  As Single
Dim x   As Single
Dim xx1  As Single
Dim yy1  As Single
Dim y   As Single
Dim n   As Integer
Dim k   As Integer
Dim a   As Integer
Dim t   As Integer
Dim bb   As Integer
Dim ss   As Integer
 
Dim j   As Byte
Dim i   As Single
 
Private Sub Command1_Click()
Me.ScaleMode = vbPixels
Cls
DrawWidth = 2
pi = 4 * Atn(1)
x0 = 350
y0 = 180
bb = 160
ss = 6
n = 0
 
Dim x1(num), y1(num), a1(num), L1(num)
xx1 = 0: yy1 = 0: k = 1: j = 1
'*********************************shadow******
For a = 180 To 0 Step -6
For x = -a To a Step 0.5
 If KeyAscii = 32 Then End
    If k = -1 And j = 1 Then j = -j
an = a / 1.2: xn = x / 1.2
tn = (an ^ 2 - xn ^ 2)
 
    If tn > 0 Then
yn = k * tn ^ 0.5 / 4
qrrn = Abs(255 - (-a + 180) / 1)
qggn = Abs(255 - (-a + 180) / 1)
qbbn = Abs(255 - (-a + 180))
col = RGB(qrrn, qggn, qbbn)
xx = xn
yy = 110 + yn
If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
If ss = 1 Then PSet (xx + 350, yy + 300), col
Else: zzzz = 0
End If
k = -k: j = -j
Next x
n = n + 1
Next a     '**********************************egg********
For a = 180 To 0 Step -3
'For b = 1# To 1.007 Step 0.001 For x = -a To a Step 0.05
If KeyAscii = 32 Then End
If k = -1 And j = 1 Then j = -j
t = (a ^ 2 - x ^ 2)
If t > 0 Then y = (a - 180) / 2 + k * t ^ 0.5 / (1.6 * 1.0014 ^ x)
qrr = Abs(255 - a / 2.5)
qgg = Abs(255 - a / 1.5)
qbb = Abs(255 - a)
col = RGB(qrr, qgg, qbb)
xx = x
yy = y
If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
    If ss = 1 Then PSet (xx + 350, yy + 300), col
    Else: zzzz = 0
    End If
    k = -k: j = -j
    Next x
    n = n + 1
    Next a
End Sub

SoftIce · 07.09.2015, 11:43

Нужно с кодом из 49-й строки поиграться.

Вот, например, такой код

Visual Basic
1
 col = RGB((Abs(y) Mod 20) * 25, (Abs(y) Mod 15) * 20, (Abs(y) Mod 10) * 15)

@Willi2001 · 07.09.2015, 11:55 **[ТС]**

SoftIce, спасибо.
Напишите, пожалуйста, код с беглыми комментариями. Совсем не понимаю, в чём дело? У меня просто белый экран.

SoftIce · 07.09.2015, 11:59

Сообщение от Willi2001

У меня просто белый экран.

Поставьте свойство формы Autoredraw=true, тогда Вы увидите яйцо только через несколько секунд, когда оно будет полностью отрисовано

, зато оно потом не сотрется.

@Willi2001 · 07.09.2015, 12:55 **[ТС]**

SoftIce, прошу пояснений по алгоритму ниже.
Мои действия:
1. Открываю: Standard EXE
2. Устанавливаю кнопку: CommandButton
3. Ввожу код программы: пост #1 — (без изменений!)
4. Устанавливаю размеры экрана: Height=10000; Widht=10000
5. Устанавливаю: Autoredraw=True
6. Устанавливаю: ScaleMode=3 Pixel
7. Нажимаю выполнить: Run
8. Нажимаю кнопку: CommandButton — (Пуск!)
Ожидаю даже 2-3 минуты…

Почти анекдот
— Граждане! А где же обещанное яйцо?!
— Закончился лимит на яйца — кино не будет
Комментарий: экран белый-белый и яйцо белое-белое, они сливаются — поэтому не видно.

Всё бесполезно — опять белый экран в рамке! Почему?

SoftIce · 07.09.2015, 13:02

Сообщение от Willi2001

Нажимаю кнопку: CommandButton — (Пуск!)

Кнопка в коде называется Комманда1, посмотрите, если у вас она Command1, то нужно просто переименовать.

@Willi2001 · 07.09.2015, 13:30 **[ТС]**

Сообщение от SoftIce

если у вас она Command1, то нужно просто переименовать.

SoftIce, переименовал. Всё зря. Белый экран.

@Willi2001 · 07.09.2015, 14:10 **[ТС]**

Необходима проверка. Делаем так. Не изменяю ни единой настройки!

Diamock (#2 (permalink)) Как рисовать узоры в Visual Basic 6.0?

Сейчас вставляю код Diamock — всё отлично! Снимок ниже, пять минут назад сделан.
Вставляю код Скляревского (#1 (permalink)) — белый экран! Привет Скляревскому!
А SoftIce писал: У меня Ваш код из первого поста работает без всяких переделок.
Не знаю, почему у SoftIce тот код работает без правки? Очень сомнительно.

Похоже — меня "разводят" или сбивают с толку.

SoftIce · 07.09.2015, 14:37

Сообщение от Willi2001

Не знаю, почему у SoftIce тот код работает без правки? Очень сомнительно.
Похоже — меня "разводят" или сбивают с толку.

Прикрепляю проект и скрин

SoftIce · 07.09.2015, 14:41

Проект яйцА

@Willi2001 · 07.09.2015, 16:06 **[ТС]**

SoftIce, спасибо!

Мой VB.6.0, минут 10 назад, сгорел на работе. Экстренное закрытие программы.

Открыл через Notepad, архив про Яйцо:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6330
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10095
   LinkTopic       =   "Form1"
   ScaleHeight     =   422
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   673
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Комманда1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x1(), y1(), a1(), L1()
Private Sub Комманда1_Click()
Cls
DrawWidth = 2
pi = 4 * Atn(1)
x0 = 350
y0 = 180
bb = 160
ss = 6
n = 0
ReDim x1(num), y1(num), a1(num), L1(num)
xx1 = 0: yy1 = 0: k = 1: j = 1
'*********************************shadow******
For a = 180 To 0 Step -6
 For x = -a To a Step 0.5
  If KeyAscii = 32 Then End
   If k = -1 And j = 1 Then j = -j
   an = a / 1.2: xn = x / 1.2
  tn = (an ^ 2 - xn ^ 2)
  If tn > 0 Then
    yn = k * tn ^ 0.5 / 4
        qrrn = Abs(255 - (-a + 180) / 1)
        qggn = Abs(255 - (-a + 180) / 1)
        qbbn = Abs(255 - (-a + 180))
     col = RGB(qrrn, qggn, qbbn)
     xx = xn
     yy = 110 + yn
     If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
     If ss = 1 Then PSet (xx + 350, yy + 300), col
     Else
       zzzz = 0
     End If
     k = -k: j = -j
    Next x
    n = n + 1
    Next a
     '**********************************egg********
For a = 180 To 0 Step -3
'For b = 1# To 1.007 Step 0.001
 For x = -a To a Step 0.05
  If KeyAscii = 32 Then End
   If k = -1 And j = 1 Then j = -j
   t = (a ^ 2 - x ^ 2)
  If t > 0 Then
    y = (a - 180) / 2 + k * t ^ 0.5 / (1.6 * 1.0014 ^ x)
        qrr = Abs(255 - a / 2.5)
        qgg = Abs(255 - a / 1.5)
        qbb = Abs(255 - a)
     col = RGB(qrr, qgg, qbb)
     xx = x
     yy = y
     If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
     If ss = 1 Then PSet (xx + 350, yy + 300), col
     Else
       zzzz = 0
     End If
    k = -k: j = -j
    Next x
    n = n + 1
    Next a
End Sub

Самые интересные для меня настройки, надо по списку для нумерации

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6330
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10095
   LinkTopic       =   "Form1"
   ScaleHeight     =   422
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   673
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Комманда1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Сейчас приведу в порядок свой VB.6.0, попробую точно воспроизвести Ваши настройки. О результатах напишу.

Добавлено через 46 минут
Мои данные

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   9435
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   9765
   LinkTopic       =   "Form1"
   ScaleHeight     =   629
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   651
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Комманда1"
      Height          =   855
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
Dim x1(), y1(), a1(), L1()
Private Sub Комманда1_Click()
Cls
DrawWidth = 2
pi = 4 * Atn(1)
x0 = 350
y0 = 180
bb = 160
ss = 6
n = 0
ReDim x1(num), y1(num), a1(num), L1(num)
xx1 = 0: yy1 = 0: k = 1: j = 1
'*********************************shadow******
For a = 180 To 0 Step -6
 For x = -a To a Step 0.5
  If KeyAscii = 32 Then End
   If k = -1 And j = 1 Then j = -j
   an = a / 1.2: xn = x / 1.2
  tn = (an ^ 2 - xn ^ 2)
  If tn > 0 Then
    yn = k * tn ^ 0.5 / 4
        qrrn = Abs(255 - (-a + 180) / 1)
        qggn = Abs(255 - (-a + 180) / 1)
        qbbn = Abs(255 - (-a + 180))
     col = RGB(qrrn, qggn, qbbn)
     xx = xn
     yy = 110 + yn
     If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
     If ss = 1 Then PSet (xx + 350, yy + 300), col
     Else
       zzzz = 0
     End If
     k = -k: j = -j
    Next x
    n = n + 1
    Next a
     '**********************************egg********
For a = 180 To 0 Step -3
'For b = 1# To 1.007 Step 0.001
 For x = -a To a Step 0.05
  If KeyAscii = 32 Then End
   If k = -1 And j = 1 Then j = -j
   t = (a ^ 2 - x ^ 2)
  If t > 0 Then
    y = (a - 180) / 2 + k * t ^ 0.5 / (1.6 * 1.0014 ^ x)
        qrr = Abs(255 - a / 2.5)
        qgg = Abs(255 - a / 1.5)
        qbb = Abs(255 - a)
     col = RGB(qrr, qgg, qbb)
     xx = x
     yy = y
     If ss > 1 Then Line (xx + 350 + (a - 180) / 2, yy + 300)-Step(ss, ss), col, BF
     If ss = 1 Then PSet (xx + 350, yy + 300), col
     Else
       zzzz = 0
     End If
    k = -k: j = -j
    Next x
    n = n + 1
    Next a
End Sub

Самые подозрительные мои настройки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   9435
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   9765
   LinkTopic       =   "Form1"
   ScaleHeight     =   629
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   651
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Комманда1"
      Height          =   855
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Пока плохо разбираюсь в настройках, поэтому теряется много времени.
Сам ещё не сравнивал. Сделаю чуть позже.

@Willi2001 · 07.09.2015, 16:41 **[ТС]**

Прошу, пожалуйста, бегло просмотреть мои настройки для Form
Возможно, бросится в глаза какая-нибудь несуразность, которой, как неуч, не придаю значения
Самая последняя строка не поместилась на снимках: WindowState=0 -Normal

@Diamock · 07.09.2015, 16:55

Сообщение от Willi2001

Сейчас вставляю код Diamock — всё отлично! Снимок ниже, пять минут назад сделан.
Вставляю код Скляревского (#1 (permalink)) — белый экран! Привет Скляревскому!
А SoftIce писал: У меня Ваш код из первого поста работает без всяких переделок.
Не знаю, почему у SoftIce тот код работает без правки? Очень сомнительно.
Похоже — меня "разводят" или сбивают с толку.

Поясню, почему у SoftIce, код работает без правки.
У Скляревского - самопальный коряво русифицированный VB. От него и вся беда. К тому же, у него нет Option Explicit'а, который требует явного объявления переменных.
У Скляревского:

Visual Basic
1
Комманда1_Click

У меня:

Visual Basic
1
Command1_Click

Откуда это берётся? Кинь на форму любой элемент управления и щёлкни по нему два раза мышью - получишь событие элемента по умолчанию.
Так, что разбирайся в коде и не надо голословных обвинений, иначе помощи не будет

@Willi2001 · 07.09.2015, 17:33 **[ТС]**

Сообщение от Diamock

разбирайся в коде и не надо голословных обвинений, иначе помощи не будет

Diamock! У меня по-прежнему "Белый Экран". Код не срабатывает! Поэтому прошу толковых специалистов пояснить: в чём дело? Что конкретно надо сделать?
Возможно, у меня уже по умолчанию установлен "Option Explicit". Могу только догадываться. Точнее гадать на кофейной гуще.
Прогресса от "количества советов" нет!
Мне безразлично, что у других: Васи, Пети, Вити — всё нормально. Почему у меня ненормально? — вот суть вопроса.
По-настоящему умница — уже давно бы подсказал и указал на ошибку (причину).
Или неправ?

@Diamock · 07.09.2015, 17:35

Прикрепи свой проект в котором у тебя белый экран.

SoftIce · 07.09.2015, 17:56

Сообщение от Willi2001

По-настоящему умница — уже давно бы подсказал и указал на ошибку

Не умница, а экстрасенс

Это из разряда: Вот ты - программист, скажи тогда почему у меня компьютер не работает?

@Willi2001 · 07.09.2015, 18:38 **[ТС]**

Сообщение от Diamock

Прикрепи свой проект в котором у тебя белый экран.

Редко делаю такое, поэтому не знаю как оформить архив. Если не понравится, то переделаю.

@Pro_grammer · 07.09.2015, 18:44

Сообщение от Willi2001

У меня по-прежнему "Белый Экран". Код не срабатывает! Поэтому прошу толковых специалистов пояснить: в чём дело?

Я толковый.
У тебя дело в том, что слабый компьютер.
Если белый экран в этой теме Как перевести красивые картинки с VB.NET на VB.6.0?
и в этой, то явно, что комп не справляется с рисованием фракталов. Надо запустить и ждать. Возможно долго ждать.

Кликните здесь для просмотра всего текста

Не по теме:

В конце концов или изображение появится, или ошибка выскочит.
Если не произойдет ни того ни другого, то надо менять. Всё. Начинать с компа, потом квартиру, город, страну, и эту чертову планету, где компы рисуют белые экраны.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

Как нарисовать разноцветное яйцо в Visual Basic 6.0?

Решение

Решение

Решение

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	07.09.2015, 11:02
	Форма яйца похожа на окружность (часть окружности) и касательную к ней параболу. 1

@Willi2001 Заблокирован
	07.09.2015, 11:55 [ТС]
	SoftIce, спасибо. Напишите, пожалуйста, код с беглыми комментариями. Совсем не понимаю, в чём дело? У меня просто белый экран. 0

@Willi2001 Заблокирован
	07.09.2015, 12:55 [ТС]
	SoftIce, прошу пояснений по алгоритму ниже. Мои действия: 1. Открываю: Standard EXE 2. Устанавливаю кнопку: CommandButton 3. Ввожу код программы: пост #1 — (без изменений!) 4. Устанавливаю размеры экрана: Height=10000; Widht=10000 5. Устанавливаю: Autoredraw=True 6. Устанавливаю: ScaleMode=3 Pixel 7. Нажимаю выполнить: Run 8. Нажимаю кнопку: CommandButton — (Пуск!) Ожидаю даже 2-3 минуты… Почти анекдот — Граждане! А где же обещанное яйцо?! — Закончился лимит на яйца — кино не будет Комментарий: экран белый-белый и яйцо белое-белое, они сливаются — поэтому не видно. Всё бесполезно — опять белый экран в рамке! Почему? 0

@Willi2001 Заблокирован
	07.09.2015, 14:10 [ТС]
	Необходима проверка. Делаем так. Не изменяю ни единой настройки! Diamock (#2 (permalink)) Как рисовать узоры в Visual Basic 6.0? Сейчас вставляю код Diamock — всё отлично! Снимок ниже, пять минут назад сделан. Вставляю код Скляревского (#1 (permalink)) — белый экран! Привет Скляревскому! А SoftIce писал: У меня Ваш код из первого поста работает без всяких переделок. Не знаю, почему у SoftIce тот код работает без правки? Очень сомнительно. Похоже — меня "разводят" или сбивают с толку. Миниатюры 0

@Willi2001 Заблокирован
	07.09.2015, 16:41 [ТС]
	Прошу, пожалуйста, бегло просмотреть мои настройки для Form Возможно, бросится в глаза какая-нибудь несуразность, которой, как неуч, не придаю значения Самая последняя строка не поместилась на снимках: WindowState=0 -Normal Миниатюры 0

@Diamock 20 / 20 / 5 Регистрация: 22.07.2015 Сообщений: 63
	07.09.2015, 17:35
	Прикрепи свой проект в котором у тебя белый экран. 2