Окраска множества эллипсов в заданной последовательности

@Infinity20_5 · 21.06.2016, 13:31. **Показов** 3755. **Ответов** 66

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

Здравствуйте!
Помогите, пожалуйста, практическими алгоритмами кода.
Меня интересует:
1) Как залить (полностью окрасить) эллипсы случайными цветами?

2) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) по признаку делимости на 2, 3 (без остатка) и прочие. Всего три цвета окраски.

3) Как залить (полностью окрасить) эллипсы определёнными заранее цветами, используя индекс (i) для группы, например: For i = 1 To 3 — vbRed; For i = 4 To 6 — vbGreen; For i = 4 To 6 — vbBlue. Всего три цвета окраски.

Не по теме:

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

Вот ниже код, как просто залить (полностью окрасить) эллипсы случайными цветами?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer
Dim r As Integer, c As Single, d As Single
'AutoRedraw = True
'DrawWidth = 10
'FillStyle =
Randomize Timer
Picture1.Cls
For i = 1 To 10
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
d = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Picture1.Circle (x, y), r, d, , , c
 
Next i
 
End Sub

@Infinity20_5 · 24.06.2016, 16:23 **[ТС]**

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

Ты пишешь на Английском языке, так зачем тебе перевод?

Вы добрый и наивный человек!
На деле так:
— во-первых, русский родной;
— во-вторых, в школе учил немецкий;
— В-третьих, за границей не жил, языковой практики нет. По-барабану: английские ли команды, китайскими ли иероглифами. Имею всего один плюс — хорошую память. Негусто!

@CRIDEL · 24.06.2016, 16:37

Учи английский - без него невозможно разобраться в продуктах Microsoft. Переводов нет скорее всего потому что это нереальный объем, в MSDN всегда есть ответ на любой вопрос, надо знать где искать и уметь читать, без этого - программирование будет любительским, и вы будете допускать ошибки приводящие к нерабочему коду. Весь язык VB пронизан логикой Англ. языка, чем лучше его понимаешь-тем лучше понимаешь VB. Изучай по методичкам, - почти все с этого начинали, без основ - нет лестницы, и ступеней нет, ты не можешь сделать первый шаг, а хочешь сразу на 10 ступень, как говаривал Рома Иванов: Учи мат. часть! И Удачи!

@Infinity20_5 · 24.06.2016, 23:44 **[ТС]**

Продолжаю окрашивать эллипсы.

По радиусам:

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
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer
Dim r1 As Single, r2 As Single, r3 As Single, c As Single
Dim d1 As Long, d2 As Long, d3 As Long
Me.Picture1.FillStyle = 0
  Randomize Timer
  Picture1.Cls
  For i = 1 To 7
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r1 = 500 * Rnd
    r2 = r1 * 1.5
    r3 = r2 * 1.4
    c = 1.5
    
    d1 = RGB(255 * 0, 255 * 0, 255)
    Picture1.FillColor = d1
    Picture1.Circle (x, y), r3, d1, , , c
        
    d2 = RGB(255 * 0, 255, 255 * 0)
    Picture1.FillColor = d2
    Picture1.Circle (x, y), r2, d2, , , c
    
    d3 = RGB(255, 255 * 0, 255 * 0)
    Picture1.FillColor = d3
    Picture1.Circle (x, y), r1, d3, , , c
     
  Next i
 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
28
29
Option Explicit
Private Sub Command1_Click()
Dim x1 As Long, x2 As Long, x3 As Long
Dim d1 As Long, d2 As Long, d3 As Long
Me.Picture1.FillStyle = 0
    x1 = 500
    Do Until x1 > 4500
        d1 = RGB(255 * 0, 255 * 0, 255)
        Picture1.FillColor = d1
        Picture1.Circle (x1 + 350, 1000), 850, d1, , , 1.8
        x1 = x1 + 1500
    Loop
    
    x2 = 500
    Do Until x2 > 4500
        d2 = RGB(255 * 0, 255, 255 * 0)
        Picture1.FillColor = d2
        Picture1.Circle (x2 + 400, 3000), 830, d2, , , 1.6
        x2 = x2 + 1500
    Loop
    
    x3 = 500
    Do Until x3 > 4500
        d2 = RGB(255, 255 * 0, 255 * 0)
        Picture1.FillColor = d2
        Picture1.Circle (x3 + 450, 5000), 800, , , , 2.2
        x3 = x3 + 1500
    Loop
End Sub

@Catstail · 25.06.2016, 00:18

Infinity20_5, да, в этом ты прав. Я держал в руках книгу по VB некоего Шмидта. Толковый учебник. Каково же было мое удивление, когда несколько лет спустя я купил фирменную книгу изд. Microsoft, текст в которой местами был очень похож на "шмидтовский". Обычное пиратство.

@Infinity20_5 · 25.06.2016, 01:45 **[ТС]**

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

Каково же было мое удивление, когда несколько лет спустя я купил фирменную книгу

Catstail!
Спасибо. Обычная человеческая природа. Можно взять чужие идеи, затем с легкостью переиначить. Никакой автор, мать родная, ничего уже не докажет. Владелец Майкрософта преуспел в таких делах.

Не по теме:

Про себя криво усмехаюсь. CRIDEL много говорил о пользе обучения, одна беда — никакого чуда не показал. Поэтому его чародеем не признали бы ни в Древнем Египте, ни в Иерусалиме. Пустые разглагольствования не любили, оценили как смуту — и сразу казнили. Зачем бесполезные знания? Люди любят чудеса.

По традициям Русской Церкви за два чуда совершённых принародно — давали звание Святого. Например, попробуйте пообещать и вызвать дождь во время засухи.

Удачный код по секторам эллипса:

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
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer, c As Single
Dim r As Single, d1 As Long, d2 As Long, d3 As Long
  Me.Picture1.FillStyle = 0
  Randomize Timer
  Picture1.Cls
  For i = 1 To 7
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r = 1000 * Rnd
    c = 1.5
        
        d1 = RGB(255 * 0, 255 * 0, 255)
        Picture1.FillColor = d1
        Picture1.Circle (x, y), r, d1, -1, -3, c
        Picture1.Circle (x, y), r, d1, 1, 3, c
        
        
        d2 = RGB(255 * 0, 255, 255 * 0)
        Picture1.FillColor = d2
        Picture1.Circle (x, y), r, d2, 3, 5, c
        Picture1.Circle (x, y), r, d2, -3, -5, c
    
        d3 = RGB(255, 255 * 0, 255 * 0)
        Picture1.FillColor = d3
        Picture1.Circle (x, y), r, d3, 5, 1, c
        Picture1.Circle (x, y), r, d3, -5, -1, c
   
  Next i
 
End Sub

@Catstail · 25.06.2016, 05:57

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

Владелец Майкрософта преуспел в таких делах.

- ты не понял. Это не Microsoft списал у "Шмидта". Это "Шмидт" списал свою книгу с официального руководства, пользуясь тем, что издание на русском задержалось. Читая "Шмидта", я обратил внимание на то, что примеры интересные, а русский язык странный... Похож на комп. перевод, чуть подправленный человеком. А фирменная книга была раза в три толще, а ее русский язык был нормальным. Разве есть факты плагиата со стороны Microsoft?

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

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

CRIDEL много говорил о пользе обучения, одна беда — никакого чуда не показал.

- и он был совершенно прав. Наука не "показывает чудеса", а развенчивает их. То, что ты обсуждаешь - это детский уровень владения VB. Не будешь учиться - он у тебя таким и останется.

@Infinity20_5 · 25.06.2016, 11:52 **[ТС]**

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

в MSDN всегда есть ответ на любой вопрос, надо знать где искать и уметь читать

CRIDEL!
Напишите, пожалуйста, код программы The trick для эллипсов, тема Проект.Нарисовать на форме множество эллипсов произвольного размера с произвольными координатами закрашенных т

Сообщение от The trick

Вот еще вариант:

Сам пока не занимался этим кодом, попробую сделать до вечера.

Catstail!

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

есть факты плагиата со стороны Microsoft?

Мой любимый автор Берков Н. А., как раз указывает самой первой в списке использованной литературы книгу: Шмидт В. Visual Basic 5.0 - М.: АБФ, 1997. - 687 с.: ил.

Запрос в Google: факты плагиата со стороны Microsoft? — Результатов: примерно 51 500

Всегда подозреваю богатых людей в чём-то грязном. С сильным не борись, [а] с богатым не судись.

Ваш знакомый m-ch показал чудеса во многих темах, например Сколько надо купить заготовок длиной 150 см?. Поэтому считаем Святым.

@Infinity20_5 · 25.06.2016, 15:40 **[ТС]**

Один эллипс создал — с горем пополам. А надо много!
Моя конструкция шаткая — зелёный прямоугольник не привязан напрямую к координатам эллипса. Догадываюсь, надо вязать через синус около 25 градусов. Пока нет гибкости.
У кого какие мысли?

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
Option Explicit
Private Sub Command1_Click()
Dim x1, x2, x3, y1, y2, y3 As Single
Dim c As Long, d As Long, p As Long, a As Single, r As Single
Picture1.Cls
Me.Picture1.FillStyle = 0
x1 = 3000
y1 = 2500
r = 2000
a = 1.3
    c = RGB(255 * 0, 255 * 0, 255)
    Picture1.FillColor = c
    Picture1.Circle (x1, y1), r, c, 1.58, 4.696, a
    Picture1.Circle (x1, y1), r, c, -1.58, -4.696, a
    
    d = RGB(255, 255 * 0, 255 * 0)
    Picture1.FillColor = d
    Picture1.Circle (x1, y1), r, d, 4.696, 1.58, a
    Picture1.Circle (x1, y1), r, d, -4.696, -1.58, a
    
    p = RGB(255 * 0, 255, 255 * 0)
    Picture1.FillColor = p
    Picture1.Line (2170, 800)-(3830, 4195), p, B
    Picture1.Circle (x1, y1), r, p, 1.03, 2.1, a
    Picture1.Circle (x1, y1), r, p, -1.03, -2.1, a
    Picture1.Circle (x1, y1), r, p, 4.16, 5.25, a
    Picture1.Circle (x1, y1), r, p, -4.16, -5.25, a
   
End Sub

@Infinity20_5 · 25.06.2016, 20:35 **[ТС]**

CRIDEL!
Вы ошибаетесь, когда заявляете: Visual Basic 6.0 основывается на логике английского языка. Ничего подобного! На деле его предпочтения целиком на стороне математической логики. Если кто пожелает, то могу показать несколько фокусов.

Ладно, наигрался. Последний код, ниже — школьникам пригодится. Пора брать быка за рога, время уходит впустую.
— Батя-я! Я медведя поймал!
— Так тащи его сюда!
— Да он меня не пускает!

Скачал ешё две небольшие книжонки, лет за 5-8 как-нибудь осилю, в смысле — прочту.
1) Глушаков С.В., Мельников В.В., Сурядный А.С. Программирование в среде Windows. Visual Basic 6.0: создание приложений, программирование Web-страниц: VBScript, теория программирования. — Харьков: Фолио; М.: Издательство АСТ, 2001. — 487 с.
Файл формата pdf размером 71,25 МБ

2) Хальворсон Микаэл. Microsoft Visual Basic 6.0 для профессионалов. Шаг за шагом. Практическое пособие. Перевод с англ. - М.: Издательство ЭКОМ, 1999. - 720 с.: илл. (Только изучив данную книгу, вы пройдете основной курс обучения на Microsoft Visual Basic 6.0.)
Файл формата djvu размером 64,62 МБ

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
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer, c As Single
Dim r As Single, d1 As Long, d2 As Long, d3 As Long
  Me.Picture1.FillStyle = 0
  Randomize Timer
  Picture1.Cls
  For i = 1 To 7
    x = Picture1.Width * Rnd
    y = Picture1.Height * Rnd
    r = 1000 * Rnd
    c = 1.5
        
        d1 = RGB(255 * 0, 255 * 0, 255)
        Picture1.FillColor = d1
        Picture1.Circle (x, y), r, d1, 1.6, 4.7, c
        Picture1.Circle (x, y), r, d1, -1.6, -4.7, c
                          
        d2 = RGB(255, 255 * 0, 255 * 0)
        Picture1.FillColor = d2
        Picture1.Circle (x, y), r, d2, 4.7, 1.6, c
        Picture1.Circle (x, y), r, d2, -4.7, -1.6, c
        
        d3 = RGB(255 * 0, 255, 255 * 0)
        Picture1.FillColor = d3
        Picture1.Circle (x, y), r, d3, 1, 2.1, c
        Picture1.Circle (x, y), r, d3, -1, -2.1, c
        Picture1.Circle (x, y), r, d3, 4.2, 5.3, c
        Picture1.Circle (x, y), r, d3, -4.2, -5.3, c
   
  Next i
 
End Sub

@Catstail · 25.06.2016, 20:50

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

Результатов: примерно 51 500

- proof links?

@Infinity20_5 · 25.06.2016, 21:30 **[ТС]**

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

proof links?

Catstail!
1) В компании "Google" уверены, что поисковик "Bing" разработки "Microsoft" копирует поисковые результаты "Google". В "Microsoft", впрочем, отрицают все факты плагиата. http://biz.liga.net/all/all/no... dyvaet.htm

2) Крупнейший производитель программного обеспечения компания Microsoft была вынуждена закрыть свою бета-версию нового китайского сайта микроблогов MSN Juku. Произошло это после того, как компанию обвинили в плагиате дизайна ресурса и его кода у небольшой софтверной фирмы Plurk. http://www.gazeta.ru/business/... 9944.shtml

3) Европейский суд отказал софтверному гиганту в регистрации названия и логотипа Skype, поскольку они очень напоминают зарегистрированные товарные знаки британского вещателя Sky. http://newsinmir.com/kyltyra/1... giate.html

Google: суды обвиняют Microsoft за плагиат — Результатов: примерно 61 100

Про банду "корпорация нью-йоркских адвокатов" уже молчу. Кругом жульё.

@Catstail · 25.06.2016, 22:23

Infinity20_5, все не о том. Мне интересны случаи (если они есть), когда Microsoft "списывал" книги. Такие случаи известны?

А твои ссылки ничего не весят:

1) Копирование поисковых результатов (даже не доказанное) - это что угодно, но не плагиат
2) Ты не только заголовки читай, но и текст. Там написано, что кражу-то совершила не сама Microsoft, а какой-то ее Китайский партнер. Но тут хотя бы речь о краже кода...
3) А это вообще о чем? Такие споры из-за товарных знаков - обычное дело.

То, что Гугл дает много ссылок - ничего не значит, если все они такие, как три твоих.

@Infinity20_5 · 26.06.2016, 09:34 **[ТС]**

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

Каково же было мое удивление, когда несколько лет спустя я купил фирменную книгу изд. Microsoft, текст в которой местами был очень похож на "шмидтовский"

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

Это "Шмидт" списал свою книгу с официального руководства, пользуясь тем, что издание на русском задержалось. Читая "Шмидта", я обратил внимание на то, что примеры интересные, а русский язык странный... Похож на комп. перевод, чуть подправленный человеком. А фирменная книга была раза в три толще

Catstail!
Удивляюсь безудержной агрессивности Вашей фантазии, стараюсь быть деликатным.
Вы огульно обвиняете автора монографии "Visual Basic 5.0" Шмидта В., который якобы украл пособие по обучению у анонимного автора от Microsoft.
Книга, с Ваших слов, некоего анонимного автора, в три раза больше, чем у Шмидта. Значит, она должна составить около 2000 (!) страниц. Покажите, пожалуйста, эту анонимную книгу или укажите на неё ссылки. Хоть проверим число страниц.
К Вашему сведению официально версия Visual Basic 5.0 появилась в феврале 1997 года. Поэтому поражаюсь, как Шмидт мог написать 687 страниц монографии к 1997 году, если он по-Вашему: не входил в число разработчиков.

@Catstail · 26.06.2016, 11:07

Infinity20_5, держу эту книгу в руках. Вот ее выходные данные: Visual Basic 6.0 Пер. с англ. СПб, 2000 г. 992 стр.

В аннотации написано: авторизованный перевод английской редакции, выпущенной Microsoft Corporation в 1998 г.

ISBN 1-57231-863-5 (англ)
ISBN 5-8206-0019-3

Можно, конечно, предположить, что книгу изначально написал Шмидт, а Microsoft тут же ее украла, увеличила в объеме (не в три раза, тут я ошибся, но довольно заметно!) и издала, как свою. Но более правдоподобной представляется другая версия: Microsoft выпустила книгу по VB5 аналогичного класса на английском. На русский книга не переводилась. "Шмидт" ее быстренько перевел (кое-как) и издал на русском. В пользу этой версии говорит (кроме качества русского в кн. "Шмидта") еще и то, что "Шмидт" и не подумал подавать иск к Microsoft (ты же писал, что этих исков очень много - был бы еще один). Кроме этой своей книги "Шмидт" больше ничего не написал, что тоже очень странно.

И последнее. Для преступления нужен мотив. Мотив "Шмидта" понятен - мелкое пиратство. А вот для Microsoft мелкое пиратство - глупость. Выигрыш копеечный, а риски велики. Более того: чем "списывать" у безвестного "Шмидта" (написавшего гениальную книгу), проще этого самого "Шмидта" купить, предложив писать такие книги в Microsoft-е. Реальный Шмидт на это охотно согласился бы.

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

если он по-Вашему: не входил в число разработчиков.

- разработчики (как правило) книг не пишут.

@Infinity20_5 · 26.06.2016, 11:12 **[ТС]**

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

Я обязательно потом расскажу одну хитрость, как это сделать.
Ну если сразу напишу, то ведь не интересно, а так зарядка для ума.

Pro_grammer!
Приведите, пожалуйста, Ваш код. На будущее очень пригодится.

Сам сильно устал, другие проблемы. Ничего не получается. Смотрите ниже.

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
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim x  As Integer, y  As Integer, c As Single
Dim r As Single, d1 As Long, d2 As Long, d3 As Long
  Me.Picture1.FillStyle = 0
  Randomize Timer
  Picture1.Cls
 
    x = 400
    y = 1100
    r = 800 * Rnd
    c = 2 * Rnd
      
      Do Until x > 6000
        x = x + 1200
      
        d1 = RGB(255 * 0, 255 * 0, 255)
        Picture1.FillColor = d1
        Picture1.Circle (x, y), r, d1, -1, -3, c
        Picture1.Circle (x, y), r, d1, 1, 3, c
        
        
        d2 = RGB(255 * 0, 255, 255 * 0)
        Picture1.FillColor = d2
        Picture1.Circle (x, y), r, d2, 3, 5, c
        Picture1.Circle (x, y), r, d2, -3, -5, c
    
        d3 = RGB(255, 255 * 0, 255 * 0)
        Picture1.FillColor = d3
        Picture1.Circle (x, y), r, d3, 5, 1, c
        Picture1.Circle (x, y), r, d3, -5, -1, c
   
      Loop
 
End Sub

@Infinity20_5 · 26.06.2016, 11:48 **[ТС]**

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

разработчики (как правило) книг не пишут

Catstail!
Опять голые домыслы.
Мне интересно кто такой Шмидт В.? Реальный автор или литературный псевдоним?

Разработчики — живые люди, указы им не писаны. Кто-то пьёт водку, кто-то любит возиться в огороде и т. д.
Например:
Как экс-менеджер Microsoft заработал $5 млн на книге о еде http://www.forbes.ru/svoi-bizn... nige-o-ede
"Мне легко давались математика и естественные науки, и у меня много научных степеней в разных сферах, — объясняет противоречивый карьерный путь сам Мирвольд. — Но в параллельной вселенной я бы, очевидно, работал шеф-поваром".

Добавлено через 12 минут
Catstail!
Возможно, Вы запутались? Мог ли купить Microsoft авторские права на книгу ниже. Зачем? В чём выгода?

М.МакКелви, Р.Мартинсон, Дж.Веб, Б.Ризельман. Visual Basic 5. Серия "МАСТЕР" /Пер. с англ. Using Visual Basic 5, Special Edition QUE, 1997 — С-Пб.: "BHV — Санкт-Петербург", 1997. — 976 с.: ил., компакт-диск, тираж 7+3 тыс. экз. ISBN 5-7791-0070-5

@Catstail · 26.06.2016, 13:28

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

Опять голые домыслы. Мне интересно кто такой Шмидт В.? Реальный автор или литературный псевдоним?

- мне тоже интересно. Но он больше ничего почему-то не написал... Странно. Подозреваю, что фамилия Шмидт - отсыл к "детям лейтенанта Шмидта"

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

Мог ли купить Microsoft авторские права на книгу ниже. Зачем? В чём выгода?

- отнюдь я не запутался. Зачем покупать права на книгу, когда проще купить автора?

А замечательная книга Мак Келви (она у меня тоже есть) не имеет на обложке надписи "Microsoft Press" (в отличие от руководства по VB6). Так что Мак Келви и соавторы писали книгу независимо от Microsoft. А "Шмидт" скорее всего сдул с англ. оригинала официального руководства по VB5 (на русский не переведенного).

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

Кстати, а что напрограммировал "Шмидт"?

@Infinity20_5 · 27.06.2016, 08:19 **[ТС]**

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

Вот ее выходные данные: Visual Basic 6.0 Пер. с англ. СПб, 2000 г. 992 стр.
В аннотации написано: авторизованный перевод английской редакции, выпущенной Microsoft Corporation в 1998 г.

Catstail!
Мне было самому интересно узнать: кто такой Шмидт В.? Потратил много времени.
Скорей всего — пока неизвестный русский самородок. Книга написана как монография — научный труд, углубленно разрабатывающий одну тему.

Вполне возможно, что издательство АФБ сэкономило на услугах профессиональных переводчиков, включая редактора по адаптации текста — когда в текст: вставлялись типовые базовые англоязычные понятия. Издательство АБФ в Москве существует до сих пор, значит — всегда беспокоилось о своей репутации.

Этот Шмидт заимствовать (украсть) текст у Microsoft (англ. 1998 год) никак не мог, поскольку его книга появилась раньше — уже осенью 1997 года, по цене 18 руб. примерно $3 (сравнительно недорого). После дефолта 1998 года цена 85 руб. также примерно $3. Книга являлась новинкой и пользовалась большим спросом. Плохих отзывов в Интернете не встретил.

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

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

Цитата Сообщение от Pro_grammer Посмотреть сообщение
Я обязательно потом расскажу одну хитрость, как это сделать.

Pro_grammer!
Толкование обязательности: через 3-4 месяца (года), а может и 5-6 месяцев (лет), если только появится желание рассказать. Иначе ничего делать не стану.

@Catstail · 27.06.2016, 08:28

Infinity20_5, он украл не текст 1998г (о VB6), а непереведенное на русский руководство по VB5.

@Infinity20_5 · 27.06.2016, 09:58 **[ТС]**

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

а непереведенное на русский руководство по VB5

Хорошо. Когда оно появилось? Укажите, пожалуйста, дату появления руководства VB5 (англ.) и ссылки для проверки.

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

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

он украл не текст

Возможно ли, по-моему, Шмидт: тот же Арушаков?

Добавлено через 37 минут
Так больше похоже на русского самородка: Арушанов Хачатур Ренуарович?

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ По ссылке 403. Не очень информативно такую ссылку постить. Запись от Usaga размещена Сегодня в 06:46 . . .
сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .	32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	24.06.2016, 16:37
	Учи английский - без него невозможно разобраться в продуктах Microsoft. Переводов нет скорее всего потому что это нереальный объем, в MSDN всегда есть ответ на любой вопрос, надо знать где искать и уметь читать, без этого - программирование будет любительским, и вы будете допускать ошибки приводящие к нерабочему коду. Весь язык VB пронизан логикой Англ. языка, чем лучше его понимаешь-тем лучше понимаешь VB. Изучай по методичкам, - почти все с этого начинали, без основ - нет лестницы, и ступеней нет, ты не можешь сделать первый шаг, а хочешь сразу на 10 ступень, как говаривал Рома Иванов: Учи мат. часть! И Удачи! 1

@Catstail Супер-модератор 38210 / 21143 / 4313 Регистрация: 12.02.2012 Сообщений: 34,757 Записей в блоге: 14
	25.06.2016, 00:18
	Infinity20_5, да, в этом ты прав. Я держал в руках книгу по VB некоего Шмидта. Толковый учебник. Каково же было мое удивление, когда несколько лет спустя я купил фирменную книгу изд. Microsoft, текст в которой местами был очень похож на "шмидтовский". Обычное пиратство. 1

@Catstail Супер-модератор 38210 / 21143 / 4313 Регистрация: 12.02.2012 Сообщений: 34,757 Записей в блоге: 14
	25.06.2016, 22:23
	Infinity20_5, все не о том. Мне интересны случаи (если они есть), когда Microsoft "списывал" книги. Такие случаи известны? А твои ссылки ничего не весят: 1) Копирование поисковых результатов (даже не доказанное) - это что угодно, но не плагиат 2) Ты не только заголовки читай, но и текст. Там написано, что кражу-то совершила не сама Microsoft, а какой-то ее Китайский партнер. Но тут хотя бы речь о краже кода... 3) А это вообще о чем? Такие споры из-за товарных знаков - обычное дело. То, что Гугл дает много ссылок - ничего не значит, если все они такие, как три твоих. 0

@Catstail Супер-модератор 38210 / 21143 / 4313 Регистрация: 12.02.2012 Сообщений: 34,757 Записей в блоге: 14
	27.06.2016, 08:28
	Infinity20_5, он украл не текст 1998г (о VB6), а непереведенное на русский руководство по VB5. 0