0 / 0 / 0
Регистрация: 20.12.2015
Сообщений: 3
1

Использование цикла for для графики

01.12.2016, 16:52. Показов 692. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Приветствую. Дали задание изобразить рупор и что-то подобное на четырехгранную звезду методом circle с использованием оператора for. (В прикрепленных файлах).
С рупором методом Тыкова получилось родить такой код:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Picture1_Paint()
Dim i, s As Integer
Const x = 1200
Const y = 2000
Const x1 = 1800
Const y1 = 3000
For i = 1 To 2000 Step 40
s = x + i + i
d = y + 1
f = i + 1
Picture1.Circle (s, d), f, vbRed, , , 1.8
Next i
End Sub
Я вроде и понимаю, что все абсолютно так же, но когда начинаю подстраивать этот код для второй пикчи, получается только выкидыш какой-то. Благодарствую.
Миниатюры
Использование цикла for для графики  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2016, 16:52
Ответы с готовыми решениями:

Использование графики для рисования кругов
помогите ещё создать с помощью графики эти программы

Как используя операторы цикла и графики составить программу для рисования на экране каскада эллипсов
Используя операторы цикла и графики, составьте программу для рисования на экране следующего

Использование цикла с предусловием для табулирования функций
Помогите, пожалуйста,решить задачу. Значение функции f(x)= 3x^2+2x+1 определены при x=x0(hx)xn....

Использование цикла с постусловием для табулирования функций
Пожалуйста, помогите сделать. Разработать алгоритм и программу, имеющие структуру цикла с...

1
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
01.12.2016, 17:42 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
    Picture1.Scale (-100, 100)-(100, -100)
    Picture1.AutoRedraw = True
    Picture1.Cls
    For i = -50 To 50 Step 2
       Picture1.Circle (i, 0), (i + 51) / 2, vbRed, , , 1.8
    Next i
End Sub
 
 
Private Sub Command2_Click()
    Picture1.Scale (-100, 100)-(100, -100)
    Picture1.AutoRedraw = True
    Picture1.Cls
    For i = -100 To 100 Step 2
       Picture1.Circle (i, i), (101 - Abs(i)) / 5, vbRed
       Picture1.Circle (-i, i), (101 - Abs(i)) / 5, vbRed
    Next i
End Sub
Миниатюры
Использование цикла for для графики   Использование цикла for для графики  
1
01.12.2016, 17:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2016, 17:42
Помогаю со студенческими работами здесь

Использование MouseEnter для каждого Label с использованием цикла
Как с помощью цикла для каждого Label в форме задать события MouseEnter и MouseLeave ? Я пытался...

Использование вектора прерываний для вывода значения на экран с продолжением цикла
В программе имеется циклический счётчик, считающий от 1 до 6. При нажатии любой клавиши содержимое...

составить блок-схему алгоритмов для решения задач с использованием трех циклов цикла с постусловием, цикла с предусловием и цикла с параметрами
помогите составить блок-схему алгоритмов для решения задач с использованием трех циклов цикла с...

Программа с применением графики, алгоритмов цикла и ветвления
Добрый вечер. Нужно разработать программу с применением графики, применяя алгоритм цикла и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru