Как рисовать узоры в Visual Basic 6.0? - VB
Формулировка задачи:
Помогите, пожалуйста. Почему у меня ничего не получается? В чём дело?
Вроде бы Visual Basic 6.0 уже существует давным-давно. Должно быть много интересных наработок в Интернете. Как бы не так?!
По запросу Google:
Как рисовать узоры в Visual Basic 6.0?
— Нет ничего путного! Ни одного толкового энтузиаста, который поясняет суть техники исполнения. Если кого заинтересует, то знаю три источника, где можно скачать дистрибутивы Visual Basic 6.0! Начиная от образа ISO (617 Mb — getintopc.com), сейчас пользуюсь VB98, и заканчивая Portable ZIP (28.8 Мb — twirpx.com). Использую ключ, по наитию: 111 — 11111111 Есть автор Скляревский, смотрите: Картинки с фрагментом кода - подключайтесь! http://arbuz.uz/x_galerea1.html Взял на пробу самый верхний рисунок "капля", в сиренево-розовых тонах. Смотрите ниже. Авторский (Скляревский
) код, копия ниже. Почему не работает на VB98?
Тот же код в Авторстве:
Petr_S
для VB.NET. Отлично работает на VSC-2013!Прошу объяснить этот фокус
. В каких мелочах спрятался дьвол? Уже неделю бьюсь.Решение задачи: «Как рисовать узоры в Visual Basic 6.0?»
textual
Листинг программы
Option Explicit '# Сам новичок, поэтому вначале: расписываю всё тщательно, как предлагает Diamock. '# Когда освоюсь, буду писать кратко. '# По совету SoftIce устанавливаю ScaleMode=3-Pixel. '# Устанавливаем тёмный фон (подложку) BackColor: &H80000 Menu Text. '# Неясно: то ли Willi2001 наловчился, то ли новая версия 9782 сказывается, поздно ночью установил. '# Кнопку CommandButton2 удалил - пятое колесо. Новички не забывайте нажимать "Пуск". '# Иногда приходится подбирать размер рамки экрана вручную. Dim r1 As Integer Dim r As Integer Dim pi As Single Dim x As Single Dim y As Single Dim i As Single Private Sub kaplya() Dim i As Single For i = 10 To pi * 58 Step 0.0007 r = r1 + i * 1.2 + 0.37 * i * Sin(i * i) ^ 5 Line (r * Cos(i) + x - i * 0.95, r * Sin(i) + y)-(r * Cos(i) + x - i * 0.95, r * Sin(i) + y), _ RGB(Abs(256 * Sin(r / 15)), _ Abs(255 - Sin(i * 17) * 256), _ Abs(255 - i * r * 0.005)) Next i End Sub Private Sub Command1_Click() Cls pi = 4 * Atn(1) DrawWidth = 2 x = 450: y = 250 r1 = 1: kaplya End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д