Как "уговорить" Visual Basic 6.0 нарисовать такую Картинку?

@Willi2001 · 28.09.2015, 14:15. **Показов** 3013. **Ответов** 25

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

Здравствуйте!
Прошу помощи. Подскажите, пожалуйста, как "уговорить" Visual Basic 6.0 нарисовать такую Картинку, ниже. Какие изменения надо внести в исходный код?

Сам код появился в 2007 году. Возможно, в ту пору не хватало умельцев, чтобы дать сюжету Вторую Жизнь.
Исходный код

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

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
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3030
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   ScaleHeight     =   3030
   ScaleWidth      =   4560
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
Option Base 0
Dim Chislo_periodov As Single
 
Sub TwelveNodes()
If ThisDocument.Shapes.Count > 0 Then ThisDocument.Shapes(1).Delete 'удаление фигуры 1
If ThisDocument.Shapes.Count > 0 Then ThisDocument.Shapes(1).Delete 'удаление фигуры 1 (оставшейся)
' Макрос записан 30.06.2007 User; запуск в документе Word: альт-D.
Const pi = 3.1415926535898
Dim k As Integer: k = 49  'количество приближающих дугу циклоиды сегментов
If k < 1 Then Exit Sub
Dim ShiftX: ShiftX = 50             'сдвиг (точек) вправо от угла листа
Dim ShiftY: ShiftY = 10             'сдвиг (точек) вниз от угла листа
Dim fi As Single                    'полярная коодината (радиан)
Dim A As Integer                    'радиус неподвижного круга
Dim x() As Single, y() As Single    'Декартовы коорд. точек (x: вправо, y: вниз от угла)
Dim Nn As Single, N As Single, nS As String, begpoint, finpoint
 
If Chislo_periodov <= 0 Then Chislo_periodov = 32 '31.6667
nS = InputBox(vbLf & "Число периодов:", "Например: 42", Chislo_periodov)
If IsNumeric(nS) = False Then Exit Sub
N = CSng(nS) 'Val(nS)
    If N > 333 Then _
    If MsgBox(N & " требует долгого ожидания, боитесь?", vbYesNo) = vbYes Then Exit Sub
Chislo_periodov = N
If N < 0.01 Then Chislo_periodov = 55: Exit Sub
                            ReDim x(k * N - 1)
                            ReDim y(k * N - 1)
fi = 8 * pi / N / k
A = 43 * N
'A = 31 * N
 
For Nn = 0 To k * N - 1
x(Nn) = (A * Cos(Nn * fi) + A * Sin(A * Nn * fi)) / 3 + ShiftX + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi)
y(Nn) = (A * Sin(Nn * fi) - A * Cos(A * Nn * fi)) / 3 + ShiftY + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi)
'    If Nn = 0 Then InputBox vbCr & vbCr & vbCr & "начальная точка:", "(X; Y)", x(0) & ",  " & y(0)
Next Nn
 
With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(0), y(0))
    For Nn = 1 To k * N - 1
    .AddNodes msoSegmentCurve, msoEditingAuto, x(Nn), y(Nn)
    Next Nn
'    .AddNodes msoSegmentCurve, msoEditingAuto, x(0), y(0)
    .ConvertToShape.Select
End With
 
begpoint = Array(x(0), y(0))                'начало полилинии
finpoint = Array(x(k * N - 1), y(k * N - 1)) 'конец полилинии
 
With ActiveDocument.Shapes
    .AddPolyline Array(begpoint, finpoint)
    .SelectAll
'    .Range(.Item(1), .Item(2)).Group 'группировка фигур 1 и 2
    Selection.ShapeRange.Group.Select 'группировка выделенных фигур
End With
'
With Selection.ShapeRange
    .Width = 240
    .Height = 240
    .Left = CentimetersToPoints(0)
    .Top = CentimetersToPoints(0)
End With
        Chislo_periodov = Chislo_periodov - 1.5
        ActiveDocument.UndoClear    'это очистка списка откатов (он чудовищно велик)
End Sub

@Alex77755 · 28.09.2015, 14:47

Умельцы были и есть.
И когда выкладывали код написали, что он рассчитан на ворд
И в 2003 прекрасно работает
И код "появися" не сам, а его разработал и выложил Sasha_Smirnov
Так, что когда выкладывешь код из соседней темы, то указывай автора

@Willi2001 · 28.09.2015, 15:33 **[ТС]**

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

когда выкладывешь код из соседней темы, то указывай автора

Alex77755, спасибо. Прошу прощения, не знал, что автор "Trophi" — Sasha_Smirnov Как рисовать узоры в Visual Basic 6.0?

Сам рисунок "Trophi" мне понравился и заинтересовал, попытался внести свои доработки. Как ресурс VB6.0 лучше WORD, поскольку легко создаёт файлы-ЕХЕ. Правда, знаний Willi2001 пока не хватает.

Всех специалистов по подобным рисункам на VB6.0, по-моему — можно по пальцам на одной руке пересчитать. Очень мало.
Слово "Макрос" меня патологически страшит, как невежду — других вероятно тоже.
В общем Willi2001 хотел как лучше, а получилось как всегда.

@gaw · 28.09.2015, 16:19

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
Dim A, fi
Dim Nn, k, N
Dim x(), y()
Dim x0, y0
Sub TwelveNodes()
 
ReDim x(k * N - 1)
ReDim y(k * N - 1)
 
A = 43 * N
 
For Nn = 0 To k * N - 1
x(Nn) = (A * Sin(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi)
y(Nn) = (-A * Cos(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi)
Next Nn
 
 Nn = 0
 'Timer1.Enabled = True
 
    'For Nn = 1 To k * N - 1
    'Me.Line (x0 + x(Nn - 1), y0 + y(Nn - 1))-(x0 + x(Nn), y0 + y(Nn)), RGB(0, Nn * 255 / (k * N), (k * N - 1 - Nn) * 255 / (k * N))
    'Next Nn
 
End Sub
 
 
Private Sub Form_Activate()
Timer1.Enabled = False
Timer1.Interval = 1
AutoRedraw = True
WindowState = 2
Print ".............Sasha_Smirnov "
End Sub
 
Private Sub Form_Click()
Cls
Me.Print ".............Sasha_Smirnov "
x0 = Me.Width / 2: y0 = Me.Height / 2
pi = 4 * Atn(1)
k = Int(Rnd * 5) + 47
N = 54 'Int(Rnd * 10) + 50
fi = 8 * pi / N / k
TwelveNodes
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 If Nn < k * N - 10 Then
 
cl = Nn * 255 / (k * N)
 
 
For i = Nn + 1 To Nn + 10
    Me.Line (x0 + x(i - 1), y0 + y(i - 1))-(x0 + x(i), y0 + y(i)), RGB(cl, 0, 255 - cl)
Next i
   Nn = Nn + 10
Else
    Timer1.Enabled = False
 End If
End Sub

@Willi2001 · 28.09.2015, 18:32 **[ТС]**

gaw, огромное спасибо. Всё отлично! Гораздо красивее WORD!

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

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
Dim A, fi
Dim Nn, k, N
Dim x(), y()
Dim x0, y0
Sub TwelveNodes()
 
ReDim x(k * N - 1)
ReDim y(k * N - 1)
 
A = 43 * N
 
For Nn = 0 To k * N - 1
x(Nn) = (A * Sin(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi)
y(Nn) = (-A * Cos(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi)
Next Nn
 
 Nn = 0
 'Timer1.Enabled = True
 
    'For Nn = 1 To k * N - 1
    'Me.Line (x0 + x(Nn - 1), y0 + y(Nn - 1))-(x0 + x(Nn), y0 + y(Nn)), RGB(0, Nn * 255 / (k * N), (k * N - 1 - Nn) * 255 / (k * N))
    'Next Nn
 
End Sub
 
 
Private Sub Form_Activate()
Timer1.Enabled = False
Timer1.Interval = 1
AutoRedraw = True
WindowState = 2
Print ".............Sasha_Smirnov "
End Sub
 
Private Sub Form_Click()
Cls
Me.Print ".............Sasha_Smirnov "
x0 = Me.Width / 2: y0 = Me.Height / 2
pi = 4 * Atn(1)
k = Int(Rnd * 5) + 47
N = 54 'Int(Rnd * 10) + 50
fi = 8 * pi / N / k
TwelveNodes
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 If Nn < k * N - 10 Then
 
cl = Nn * 255 / (k * N)
 
 
For i = Nn + 1 To Nn + 10
    Me.Line (x0 + x(i - 1), y0 + y(i - 1))-(x0 + x(i), y0 + y(i)), RGB(cl, 0, 255 - cl)
Next i
   Nn = Nn + 10
Else
    Timer1.Enabled = False
 End If
End Sub

Правда, Willi2001 уже успел приложить руки и к Вашему коду. Неудачно. Смотрите ниже архив.

Пояснение к "родственным душам по знаниям Visual Basic 6.0 ": который раз наскочил на "грабли" — Option Explicit, оставил её текст. Эта ОЕ и повела меня в дебри и путаницу. Удаляйте фразу: Option Explicit в коде.
После запуска кода у меня получился очередной тупик — "большой белый экран", ждал 5-6 минут понапрасну. Надо щёлкнуть один раз ЛКМ (мышкой), тогда появляется каждый раз Новый Рисунок. По одному после каждого щелчка.

Ещё смущает невыразительность надписи: Sasha_Smirnov — она маленькая в левом верхнем углу. Так "наша фамилия" никогда не зазвучит, а надо как «Весна на Заречной улице»!
Как сделать витиеватую и красочную подпись автора — Sasha_Smirnov? Кто сможет?

@Alex77755 · 28.09.2015, 22:11

Visual Basic
1
2
3
4
5
6
Private Sub Form_Click()
Dim Pi
Cls
 
Draw_3d ' добавб строчку вызова процедуры
...............

' и допиши процедуры

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Draw_3d()
Dim X
Randomize
Z1 = Int(100 * Rnd)
 For X = 0 To 200
        Draw3dTxt 300 + X - X1, X - Y1, " Sasha Smirnov", X, X, X, Z1
 Next X
End Sub
 
Private Sub Draw3dTxt(ByVal start_x As Single, ByVal start_y As Single, ByVal txt As String, r, g, b, Z)
    CurrentX = start_x
    CurrentY = start_y
    Font.Size = 48
        ForeColor = RGB(r + Z, g + Z, b + Z)
        Print txt
End Sub

И никогда не пиши больше таких глупостей!

Удаляйте фразу: Option Explicit в коде.

Пиши наоборот: Всегда вставляйте Option Explicit в коде! Помогает избежать многих ошибок

@Willi2001 · 29.09.2015, 00:08 **[ТС]**

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

Пояснение к "родственным душам по знаниям Visual Basic 6.0 "

Здесь подразумеваю таких же дилетантов как и сам Willi2001. Не слушайте грамотеев, им не понять нас! Сам много раз, как новичок, напоролся на Option Explicit! Что русскому здорово, то немцу смерть!

Alex77755! Огромное спасибо! Учёл все Ваши замечания и дополнения. Смотрите Как рисовать узоры в Visual Basic 6.0?

@Willi2001 · 29.09.2015, 16:01 **[ТС]**

Alex77755! Прошу помощи, как добавить в пояснительный текст "немного пурпура"?
Вы счастливый человек и оптимист, поскольку всю жизнь общались только с отличниками!

У меня напротив — пропала вера в людей. Никаких проблесков ума от них не жду, как и от себя. По-моему, 99,99 % людей никогда не догадаются: сделать клик левой кнопкой мышки — если не предупредить их заранее.

Приходится предусматривать случай файла-ЕХЕ, архив прикреплён ниже.

Исходный код

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

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
Dim A, fi
Dim Nn, k, N
Dim X(), y()
Dim x0, y0
Sub TwelveNodes()
 
ReDim X(k * N - 1)
ReDim y(k * N - 1)
 
A = 43 * N
 
For Nn = 0 To k * N - 1
X(Nn) = (A * Sin(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Cos(Nn * fi)
y(Nn) = (-A * Cos(A * Nn * fi)) / 3 + (1 - Cos(Nn * fi / 6)) * Nn * Sin(Nn * fi)
Next Nn
 
 Nn = 0
 'Timer1.Enabled = True
 
    'For Nn = 1 To k * N - 1
    'Me.Line (x0 + x(Nn - 1), y0 + y(Nn - 1))-(x0 + x(Nn), y0 + y(Nn)), RGB(0, Nn * 255 / (k * N), (k * N - 1 - Nn) * 255 / (k * N))
    'Next Nn
 
End Sub
 
Private Sub Draw_3d()
Dim X
Randomize
Z1 = Int(100 * Rnd)
 For X = 0 To 200
        Draw3dTxt 300 + X - X1, X - Y1, " Sasha Smirnov, kliknite levoy knokoy myshki po ekranu!", X, X, X, Z1
 Next X
End Sub
 
Private Sub Draw3dTxt(ByVal start_x As Single, ByVal start_y As Single, ByVal txt As String, r, g, b, Z)
    CurrentX = start_x
    CurrentY = start_y
    Font.Size = 28
        ForeColor = RGB(r + Z, g + Z, b + Z)
        Print txt
End Sub
 
Private Sub Form_Activate()
Timer1.Enabled = False
Timer1.Interval = 1
AutoRedraw = True
WindowState = 2
Print ".............Sasha_Smirnov...kliknite levoy knokoy myshki po ekranu..! "
End Sub
 
Private Sub Form_Click()
Dim Pi
Cls
 
Draw_3d ' äîáàâá ñòðî÷êó âûçîâà ïðîöåäóðû
Me.Print ".............Sasha_Smirnov "
x0 = Me.Width / 2: y0 = Me.Height / 2
Pi = 4 * Atn(1)
k = Int(Rnd * 5) + 47
N = 54 'Int(Rnd * 10) + 50
fi = 8 * Pi / N / k
TwelveNodes
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 If Nn < k * N - 10 Then
 
cl = Nn * 255 / (k * N)
 
 For i = Nn + 1 To Nn + 10
    Me.Line (x0 + X(i - 1), y0 + y(i - 1))-(x0 + X(i), y0 + y(i)), RGB(cl, 0, 255 - cl)
Next i
   Nn = Nn + 10
Else
    Timer1.Enabled = False
 End If
End Sub

Очень прошу помочь с усилением цветовой выразительности пояснительного текста.

@Sasha_Smirnov · 29.09.2015, 16:48

А то ли дело в первоисточнике (Word) — ПКM клацнул и выбирай: цвет, размер, кривизну…

(Я не то чтобы агитирую «питаться суррогатами»… героизм и трудности — близнецы-братья!

Вот исторический (2-недельной давности) вариант моих циклических рисунков (рисовать: Alt-D, разрешив программное содержимое; крутить-сжимать-растягивать: левая, можно с клавишей Ctrl, а красить — правая кнопка мыши):

@Alex77755 · 29.09.2015, 17:32

Об RGB слышал?
вот и добавляй нужные тебе оттенки

@Willi2001 · 29.09.2015, 18:33 **[ТС]**

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

А то ли дело в первоисточнике (Word) — ПКM клацнул

Sasha_Smirnov!
Сейчас скачал Ваше Новое вложение, чуть позже опишу эффект.
Пока вернёмся к событиям той ночи (28.09.2015 около 3:00 мск) Как рисовать узоры в Visual Basic 6.0?

Пишу, положа руку на сердце, у Вас было много недоработок по маркетингу (продвижению товара). В частности толковой и краткой ознакомительной Инструкции. Не учитываете человеческий фактор: подавляющее большинство людей инертны и глупы.
Описываю только первые впечатления от знакомства с Trophy.
1) Willi2001 — туповатый обыватель, сразу напрягся при слове "Макрос". Пуганая ворона и куста боится. Основания не беспочвенны, подробности подобного ниже. До сих пор никто не прокомментировал.

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

Willi2001 (05.09.2015, 20:26) Хорошо бы: если толковый специалист прокомментирует этот случай Как рисовать узоры в Visual Basic 6.0?
Diamock, спасибо!!
Скачал Ваш архив в приложении. Распаковал в отдельную папку среди «Мои документы». Вначале просмотрел в Notepad. Бросилось в глаза: 5-я версия!
Затем прошу VB98 открыть этот проект, привёл его в «Мои документы». Как только только он начал открывать проект "Exemрle" с ним случилась "белая горячка". Поначалу на дисплее возник BIOS! Нажал перезагрузка.
Далее Windows7 стал подсчитывать свои файлы, минут 10-15. Всё ли на месте? Вероятно, принял меня за злоумышленника. Интересно, почему? Редкий для меня случай. Может, "Exemрle" запретное слово?
Потом система запустилась в обычном режиме.

2) Затем Willi2001 клюнул на Alt+D и Enter — ничего не получилось. Сегодня в 17:55 мск повторил опыт, получилось только с третьего раз. Смотрите картинку, где: Вввввввв
3) Стал просить подробных разъяснений и ничего по существу не получил. Рисковать — гори компьютер синим пламенем, ещё успею. Раздражение нарастало…
4) Про клацнуть ПКМ… даже и близко в голову не пришло.

@Willi2001 · 29.09.2015, 18:45 **[ТС]**

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

добавляй нужные тебе оттенки

Alex77755, там нестандартная привязка — чьё-то "ноу-хау". Мне непонятно. Смогу сделать только по стандарту — (0, 0, 255). Как быть?

@Sasha_Smirnov · 29.09.2015, 19:22

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

сразу напрягся при слове "Макрос"

Да не было же этого слова в ночь на ПН 28 сентября (https://cyberforum.ru/visual-b... e2.html#22) — или вы умудрились сразу же и код открыть?

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

клюнул на Alt+D и Enter — ничего не получилось

Это-то ясно: Word (по умолчанию) держит безопасность на высоте! Извините, в той ночи не учёл сей нюанс.

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

Про клацнуть ПКМ…

Так для запуска (не в ВБ, — в ВБА) и не надо. Не понял, как сей пункт раскрывает ваши траблы с запуском.

@Willi2001 · 29.09.2015, 19:51 **[ТС]**

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

Да не было же этого слова в ночь на ПН 28 сентября

Sasha_Smirnov! Со стороны виднее, как новому человеку. У Вас уже "глаз замылился", не замечаете очевидное.

@Willi2001 · 30.09.2015, 11:00 **[ТС]**

Sasha_Smirnov!
Набросал на скорую руку "Инструкцию для пользователя" для Вашего первого Trophy.doc
Считаю всем интересно узнать: как продвигать товар на рынке? Поэтому любопытно услышать критические замечания остальных участников форума.
В данном случае всё изначально бесплатно, поскольку на первом этапе важнее получить известность, а следовательно и популярность . Пишу своими словами, пожалуйста, вносите правки.

Ознакомительная Инструкция по файлу Trophy (Трофей) — 30.09.2015
1) Файл Trophy.doc является абсолютно безопасным для Вашего компьютера, не представляет никакой угрозы. Используется для детского творчества в программе WORD.
Проверка файла Trophy.doc (103 Кб) на безопасность: https://www.virustotal.com/ru/... 443592134/
SHA256: 86235db388270d9c886614a7d9e15c16e2e92ce3 30ad18f9961159b8d3bb3cdd
Имя файла: Trophy.doc
Показатель выявления: 0 / 56
Дата анализа: 2015-09-30 05:48:54 UTC

2) Для запуска программы файла Trophy.doc выполните следующие действия, смотрите Рисунок 1:
2.1) Нажмите на "Параметры", смотрите чуть выше рисунка: "Предупреждение системы безопасности" — "Запуск макросов отключён" — "Параметры"
2.2) Появится окно "Оповещение системы безопасности — макрос", где надо отметить "Включить это содержимое"
2.3) Для активизации картинки сделайте "клик левой кнопкой мышки (ЛКМ)" по центру рисунка. Появятся "девять точек ограничительного контура". Попробуйте "при помощи точек" раздвинуть границы рисунка.
2.4) Нажмите на "Ср…" (Опция изменения рисунка) появится "Набор средств" для изменения рисунка. Смотрите, например, "Стили фигур", где при помощи клавиш можно изменить цвет рисунка.
2.5) Нажмите, одновременно, клавиши Alt+D появится "Диалоговое окно", где предлагается "изменение частоты линий". Попробуйте ввести как пример число — 80

Про остальные функции управления рисунком можно узнать у автора Sasha_Smirnov https://www.cyberforum.ru/

@Alex77755 · 30.09.2015, 11:12

как продвигать товар на рынке?

Всегда считал, что это форум по программированю, а не по маркетингу и продвижению товара на рынке
Ошибался?

@Willi2001 · 30.09.2015, 11:45 **[ТС]**

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

форум по программированю, а не по маркетингу и продвижению товара

Alex77755!
Вокруг обычные живые люди, которые живут вовсе не на Луне.

На форуме много энтузиастов-бессребреников, жаждущих получить общественное признание своего труда.

Тот же Sasha_Smirnov искренне обрадовался увеличению числа просмотров:
За 3 недели 225 просмотров было, а тут (среди ночи!) за 1,5 ч ещё +25. Всплеск интереса сов! Как рисовать узоры в Visual Basic 6.0?

Willi2001 не стремится "всё превращать в звонкую монету", предупреждая: если видите нарушения в стилистике — то, пожалуйста, вносите правки.
Вполне возможно поднятый вопрос многим неинтересен, дело вкуса.

@Sasha_Smirnov · 30.09.2015, 15:54

Willi2001, да вы тут в первой пятёрке по стилю! А то и в двойке.

Под впечатлением этой темы забираю обратно слова о том, что форум не учебный.

Просто учатся тут именно те, кто любит это дело (а это, в основном, ещё/уже не студенты).

Посему ваша антипугалка-замануха, я считаю, напрасно квалифицирует интерес любителей поупражняться в «самопальных» кодах как «детский» — он творческий, часто безотчётный, уж никак не меркантильный*, но детство в нем — момент условный: мол, куда ж я лезу-то в ГРЩ без калош, перчаток и резинового коврика!
______________
* «а-а-а! завтра сдавать»

@Willi2001 · 30.09.2015, 21:53 **[ТС]**

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

но детство в нем — момент условный

Sasha_Smirnov!
В каждом человеке живёт ребёнок. Детские впечатления самые сильные.
Люблю живопись от рождения, много общался с художниками и изобретателями. До сих пор не встретил ни одного человека — равнодушного к высказываниям публики по критике его творчества. Наверно, всё безразлично только мертвецам.

Willi2001 в десять раз охотнее, чем взрослую проблему, будет решать детскую задачку (!) — поскольку она гарантирует успех, собственную значимость и удовлетворение результатом.
Билл Гейтс, например, любил "детскую задачу" — какая из команд найдет больше мусора на улицах города, за определённое время. Хотя и был не чужд для программистов, а, всё-таки, сделал своё состояние только за счёт изучения спроса и предложения — как бизнесмен.

Теория гласит: спрос создать нельзя, но можно создать для него условия.
Если бегло пройтись по тематике форума — то по количеству просмотров, как индикатору общественного интереса, легко обнаружить зачатки будущего спроса (читайте: нарождающиеся денежные потоки). Вроде как "исследовать перспективы жизни на Земле".

@Willi2001 · 30.09.2015, 22:38 **[ТС]**

Sasha_Smirnov!
Вот опишите, пожалуйста, как случай столкновения теории и практики на конкретном примере — ниже.
Много размышляю, например Кнопочная форма аналог программы "Самый умный"
Почему такой спрос (!) — за два дня 918 (!) просмотров, ни одного ответа? Сама задача ерундовая. В чём же дело?
Ясно, по картинке на тему выйти нельзя, остается только по тексту. Люди хотят быть умными?
Наверно всё-таки задача с какой-то проходящей олимпиады или экзаменов, даже и не знаю толком — что ещё можно предположить. В интернете ничего не встретил

Новые блоги и статьи Все статьи Все блоги /
изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	сукцессия микоризы: основная теория в виде двух уравнений. 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 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

Как "уговорить" Visual Basic 6.0 нарисовать такую Картинку?

Решение

Решение

Решение

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	28.09.2015, 14:47
	Умельцы были и есть. И когда выкладывали код написали, что он рассчитан на ворд И в 2003 прекрасно работает И код "появися" не сам, а его разработал и выложил Sasha_Smirnov Так, что когда выкладывешь код из соседней темы, то указывай автора 1

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	29.09.2015, 17:32
	Об RGB слышал? вот и добавляй нужные тебе оттенки 1

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	30.09.2015, 15:54
	Willi2001, да вы тут в первой пятёрке по стилю! А то и в двойке. Под впечатлением этой темы забираю обратно слова о том, что форум не учебный. Просто учатся тут именно те, кто любит это дело (а это, в основном, ещё/уже не студенты). Посему ваша антипугалка-замануха, я считаю, напрасно квалифицирует интерес любителей поупражняться в «самопальных» кодах как «детский» — он творческий, часто безотчётный, уж никак не меркантильный, но детство* в нем — момент условный: мол, куда ж я лезу-то в ГРЩ без калош, перчаток и резинового коврика! ______________ * «а-а-а! завтра сдавать» 1

@Willi2001 Заблокирован
	30.09.2015, 22:38 [ТС]
	Sasha_Smirnov! Вот опишите, пожалуйста, как случай столкновения теории и практики на конкретном примере — ниже. Много размышляю, например Кнопочная форма аналог программы "Самый умный" Почему такой спрос (!) — за два дня 918 (!) просмотров, ни одного ответа? Сама задача ерундовая. В чём же дело? Ясно, по картинке на тему выйти нельзя, остается только по тексту. Люди хотят быть умными? Наверно всё-таки задача с какой-то проходящей олимпиады или экзаменов, даже и не знаю толком — что ещё можно предположить. В интернете ничего не встретил Миниатюры 0