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

@Infinity20_5 · 21.06.2016, 13:31. **Показов** 3722. **Ответов** 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 минут
Так больше похоже на русского самородка: Арушанов Хачатур Ренуарович?

Новые блоги и статьи Все статьи Все блоги /
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .

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

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

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

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