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

@Willi2001 · 06.09.2015, 21:34. **Показов** 3216. **Ответов** 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

SoftIce · 07.09.2015, 18:52

Willi2001, Вы не переименовали кнопку, хотя я Вам говорил об этом.

Вот Ваш проект

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

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

Если белый экран в этой теме Как перевести красивые картинки с VB.NET на VB.6.0?

Специально засекал время и проверял по секундомеру не более 1 минуты 45 секунд, для полного заполнения рамки. Прошу всех сообщить, если будет возможность - ваши результаты.

SoftIce · 07.09.2015, 19:00

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

@Willi2001 · 07.09.2015, 19:29 **[ТС]**

SoftIce! Что Вы подразумеваете на картинке: Прицел сбился? Очень неразборчиво.
Почему Вы стараетесь создать максимальные трудности во всём? Ведь кроме меня и другие люди будут читать. Напишите Инструкцию: как прочесть?

SoftIce: Willi2001, Вы не переименовали кнопку, хотя я Вам говорил об этом #21 (permalink)
Willi2001 не поленился — всё сделал с лихвой, даже приложил картинку. Смотрите #9 (permalink)

SoftIce · 07.09.2015, 19:56

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

Почему Вы стараетесь создать максимальные трудности во всём?

Ни в коем случае!

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

не поленился — всё сделал с лихвой, даже приложил картинку. Смотрите #9

Вы не переименовали кнопку (свойство Name), Вы изменили надпись на ней(свойство Caption)

Dragokas · 07.09.2015, 20:02

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

Прошу всех сообщить, если будет возможность - ваши результаты.

Intel Core i5, @4,0 GHz. = 3 сек.

@Willi2001 · 07.09.2015, 20:03 **[ТС]**

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

Самые подозрительные мои настройки: #13 (permalink)
13 StartUpPosition = 3 'Windows Default
14 Begin VB.CommandButton Command1
15 Caption = "Комманда1"
16 Height = 855

Правильно надо было:
14 Begin VB.CommandButton Комманда1
15 Caption = "Command1"

Засекал по секундомеру не более 35 секунд, на полный рисунок яйца.

@Willi2001 · 07.09.2015, 20:07 **[ТС]**

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

Вы не переименовали кнопку (свойство Name)

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

@Diamock · 07.09.2015, 20:13

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

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

Объясню на пальцах в чём твой косяк.
В этом посте я тебе указал в чём разница в коде. Ты проигнорировал и даже не спросил, что это значит. В твоём проекте кнопка:

Visual Basic
1
Name=Command1

Соответственно событие Click (нажатие мышой на кнопку во время выполнение программы) должно происходить для неё. А у тебя что?

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
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

У тебя нет кнопки Комманда1 и этот код не выполняется.
Исправь в своём проекте Комманда1 на Command1.

@Willi2001 · 07.09.2015, 20:22 **[ТС]**

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

Intel Core i5, @4,0 GHz. = 3 сек.

Dragokas, спасибо. Думаю быстрее результата ни у кого, на форуме, уже не будет. Догадываюсь: Вы высокопрофессиональный программист. Техника — Ваш хлеб.

SoftIce! Огромная Вам искренняя благодарность за помощь. В любом случае задачу решили. Нервотрёпку быстро забуду, а знания останутся.

Dragokas · 07.09.2015, 20:45

Не по теме:

Willi2001, Нет. А вот и не угадали. Любитель. Просто, оверклокер в прошлом.

Добавлено через 5 минут

Не по теме:

Быстрее будет у того, кто сделает из программы многопоточную.

@Willi2001 · 07.09.2015, 21:03 **[ТС]**

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

Объясню на пальцах в чём твой косяк. В этом посте я тебе указал в чём разница в коде.

Diamock, спасибо. Это уже проехали.

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

Скляревский пишет: У следующей картинки код тот же, но расцветка привязана к Y

Diamock, пожалуйста, внесите исправления в исходный код — для Разноцветного Яйца.
Боюсь, что завтра опять решать. Хотелось бы закрыть тему.

@Diamock · 08.09.2015, 03:13

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

Diamock, пожалуйста, внесите исправления в исходный код — для Разноцветного Яйца.
Боюсь, что завтра опять решать. Хотелось бы закрыть тему.

Что конкретно не понятно?

@Willi2001 · 08.09.2015, 09:12 **[ТС]**

Diamock!
Прошу Вас внести беглые изменения в исходный код, чтобы получилось "Разноцветное Яйцо" точно как на картинке (см. пост 1). Неужели, непонятно? Как ещё конкретнее писать?
Описываю другие тревожные проблемы… как могу, получается топорно, но смысл улавливается.

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

Проблема № 1
Вчера вечером Visual Basic 6.0 рисовал "Простое Яйцо", начиная с тени — так, что я мог наблюдать весь процесс. Но сохранять готовую форму не стал. Подумал: зачем? теперь всё будет в порядке.
Ага-а… наивные мысли.
А сегодня с утра не вижу самого процесса. На Форме написано "(Не отвечает)", а потом сразу появляется уже нарисованное яйцо.
Хорошо, сохраняю как Форма8. Через 10-15 минут возвращаюсь к ней: открыть файл Форма8…
Толку нет. На форме после нажатия Кнопки также написано "(Не отвечает)", затем секунд через 30 появляется "Изображение Готового Яйца". А самого процесса рисования нет.
Проблема № 2
Работаю с Word. Замучили документы Normal, они имеют отношение к макросам. Уже начал сохранять как Normal1, Normal2 и т. д. — лишь бы отвязаться от их придирчивости, много мороки. А как правильно с ними поступать? — до сих пор не знаю, всё недосуг.
Проблема № 3
Скляревский пишет: У следующей картинки код тот же, но расцветка привязана к Y…
Не могу понять вообще, а не только с полуслова: что надо изменить в исходном коде, чтобы получился его цветной рисунок. Может быть Скляревский, сгоряча, тоже забыл сохранить код? Только снимок остался. А нам советует: рисуйте, что Бог пошлёт!
Проблема № 4
На сердце неспокойно. Ночью посмотрел "Монитор Стабильности Системы". Ужас! Последние три дня пикирую. Только вчера было три отказа Visual Basic 6.0!
Мне нравятся средства Java и C++ — там всё продумано до мелочей. Любые изменения в процессе работы надо сохранять. С Visual Basic 6.0 такого не вижу. Много мороки. Мысленно проклинаю авторов книг.

SoftIce · 08.09.2015, 09:56

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

беглые изменения в исходный код, чтобы получилось "Разноцветное Яйцо" точно как на картинке (см. пост 1). Неужели, непонятно? Как ещё конкретнее писать?

Вам нужно не только писать, но и иногда читать.

30 постов назад (в №4) я вам уже давал ответ.
Прикладываю готовый рабочий проект программы рисующей цветное яйцо. В чем проблема просто запустить его у себя?

SoftIce · 08.09.2015, 09:58

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

Может быть Скляревский

Выбросили бы Вы этот "учебник" в печку, а взяли бы в руки что-то более полезное.

@Willi2001 · 08.09.2015, 11:26 **[ТС]**

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

30 постов назад (в №4) я вам уже давал ответ

SoftIce, спасибо!
Сам потерялся в догадках, а пост (#4 (permalink)) крайне скуден — любопытные могут его просмотреть: где сядешь, там и слезешь. Понятно только "спецу"! Нет оперативного простора — для "Мысли Дилетанта".
Утром Visual Basic 6.0, без церемоний, зарубил десяток моих мыслей на корню.
Сегодня скрупулёзно анализировал: почему нет процесса рисования? Потом убрал опцию Autoredraw=True, вернул Autoredraw= False. Сразу увидел сам процесс.

Код разноцветного яйца от SoftIce

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

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
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)
     col = RGB((Abs(y) Mod 20) * 25, (Abs(y) Mod 15) * 20, (Abs(y) Mod 10) * 15)
     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

А Willi2001 по рассеянности залепил код — ниже, без строки: Dim x1(), y1(), a1(), L1()

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

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
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)
     col = RGB((Abs(y) Mod 20) * 25, (Abs(y) Mod 15) * 20, (Abs(y) Mod 10) * 15)
     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

Наверно, даже подсознательно, замучил за два дня проклятый "Option Explicit". Понравилось: Visual Basic 6.0 — всё по-барабану! Без слов выдал картинку, внизу, с процессом рисования.

@locm · 08.09.2015, 15:49

Не по теме:

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

Быстрее будет у того, кто сделает из программы многопоточную.

Или использует другой алгоритм рисования.
Яйцо похоже на это, рисуется за 16 миллисекунд (с помощью полукругов, полуэллипсов и градиентной заливки).

Название: Img.PNG
Просмотров: 46

Размер: 17.4 Кб

Название: Img.PNG
Просмотров: 46

Размер: 17.4 Кб

@Willi2001 · 10.09.2015, 13:00 **[ТС]**

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

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

Понравилось, как описание настроек: Программирование на Visual Basic 6.0 http://ref.by/refs/34/7717/1.html

Добавлено через 8 минут
locm!
Совсем другая картинка. Сказочная веточка цветка.

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

Должна получиться картинка ниже.

Как перевести красивые картинки с VB.NET на VB.6.0?

@locm · 10.09.2015, 14:17

Не по теме:

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

Совсем другая картинка. Сказочная веточка цветка.

В этой теме обсуждается рисование яйца, или нет?

Новые блоги и статьи Все статьи Все блоги /
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	07.09.2015, 19:00
	1

@Willi2001 Заблокирован
	07.09.2015, 19:29 [ТС]
	SoftIce! Что Вы подразумеваете на картинке: Прицел сбился? Очень неразборчиво. Почему Вы стараетесь создать максимальные трудности во всём? Ведь кроме меня и другие люди будут читать. Напишите Инструкцию: как прочесть? SoftIce: Willi2001, Вы не переименовали кнопку, хотя я Вам говорил об этом #21 (permalink) Willi2001 не поленился — всё сделал с лихвой, даже приложил картинку. Смотрите #9 (permalink) 0

Dragokas 18035 / 7738 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	07.09.2015, 20:45
	Не по теме: Willi2001, Нет. А вот и не угадали. Любитель. Просто, оверклокер в прошлом. Добавлено через 5 минут Не по теме: Быстрее будет у того, кто сделает из программы многопоточную. 1

@Willi2001 Заблокирован
	08.09.2015, 09:12 [ТС]
	Diamock! Прошу Вас внести беглые изменения в исходный код, чтобы получилось "Разноцветное Яйцо" точно как на картинке (см. пост 1). Неужели, непонятно? Как ещё конкретнее писать? Описываю другие тревожные проблемы… как могу, получается топорно, но смысл улавливается. Кликните здесь для просмотра всего текста Проблема № 1 Вчера вечером Visual Basic 6.0 рисовал "Простое Яйцо", начиная с тени — так, что я мог наблюдать весь процесс. Но сохранять готовую форму не стал. Подумал: зачем? теперь всё будет в порядке. Ага-а… наивные мысли. А сегодня с утра не вижу самого процесса. На Форме написано "(Не отвечает)", а потом сразу появляется уже нарисованное яйцо. Хорошо, сохраняю как Форма8. Через 10-15 минут возвращаюсь к ней: открыть файл Форма8… Толку нет. На форме после нажатия Кнопки также написано "(Не отвечает)", затем секунд через 30 появляется "Изображение Готового Яйца". А самого процесса рисования нет. Проблема № 2 Работаю с Word. Замучили документы Normal, они имеют отношение к макросам. Уже начал сохранять как Normal1, Normal2 и т. д. — лишь бы отвязаться от их придирчивости, много мороки. А как правильно с ними поступать? — до сих пор не знаю, всё недосуг. Проблема № 3 Скляревский пишет: У следующей картинки код тот же, но расцветка привязана к Y… Не могу понять вообще, а не только с полуслова: что надо изменить в исходном коде, чтобы получился его цветной рисунок. Может быть Скляревский, сгоряча, тоже забыл сохранить код? Только снимок остался. А нам советует: рисуйте, что Бог пошлёт! Проблема № 4 На сердце неспокойно. Ночью посмотрел "Монитор Стабильности Системы". Ужас! Последние три дня пикирую. Только вчера было три отказа Visual Basic 6.0! Мне нравятся средства Java и C++ — там всё продумано до мелочей. Любые изменения в процессе работы надо сохранять. С Visual Basic 6.0 такого не вижу. Много мороки. Мысленно проклинаю авторов книг. 0