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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

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 18033 / 7736 / 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