Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
1

Вывести на экран изображение веера

20.11.2014, 19:32. Просмотров 1456. Ответов 15
Метки нет (Все метки)


Вывести на экран изображение веера, складыванием и раскладыванием которого можно управлять: А) с клавиатуры; Б) с помощью мышки.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2014, 19:32
Ответы с готовыми решениями:

Вывести изображение на экран в SDL2
мне нужно вывести изображение на экран в SDL2. Исходников нет т.к. ничего не смог найти на SDL2, а...

Вывести изображение на экран (ручками)
Есть например картинка не важно в каком формате (самые легкие для считывание это наверно tga png...

Как вывести изображение на экран
Здравствуйте! Есть стандартная картинка и я ее пытаюсь вывести следующим образом: Image i =...

Вывести на экран монитора изображение прямоугольника
Вывести на экран монитора прямоугольник красного (red) цвета таким образом чтобы он плавно...

15
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
20.11.2014, 21:37 2
С помощью клавиатуры:
A - закрыть
S - раскрыть
А с помощью мыши вообще легко сделать, но мне уже неинтересно стало
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 Form_KeyDown(KeyCode As Integer, Shift As Integer)
     Static rw As Single
     If KeyCode = 65 And rw < 0.25 Then rw = rw + 0.01
     If KeyCode = 83 And rw > -0.1 Then rw = rw - 0.01
     Draw rw
End Sub
 
Private Sub Form_Load()
    Me.ScaleMode = 3: Me.AutoRedraw = True: Me.DrawWidth = 3
    Me.Scale (-150, 150)-(150, -50)
    Me.KeyPreview = True
    Call Draw
End Sub
 
Private Sub Draw(Optional ByVal rw As Single = 0)
    Dim i As Single, x1 As Single, y1 As Single, x2 As Single, y2 As Single
    Dim r As Integer, min As Single, max As Single, stepW As Single
    Const PI As Single = 3.14159
    r = 140 '
    Cls
    min = PI * (1.7 + rw): max = PI * (2.3 - rw): stepW = Abs(min - max) / 20
    For i = min To max Step stepW
        x1 = Sin(i) * r: y1 = Cos(i) * r
        Me.Line (0, 0)-(x1, y1), vbBlue
        Me.Line (x1, y1)-(x2, y2), vbBlue
        x2 = x1: y2 = y1
        Me.Line (0, 0)-(Sin(i - PI) * (r / 8), Cos(i - PI) * (r / 8)), vbBlue
    Next i
End Sub
1
Миниатюры
Вывести на экран изображение веера  
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
20.11.2014, 22:14 3
Для особо чувствительных натур
Вывести на экран изображение веера

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
Option Explicit
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     Static rw As Single
     If KeyCode = 65 And rw < 0.25 Then rw = rw + 0.01
     If KeyCode = 83 And rw > -0.1 Then rw = rw - 0.01
     Draw rw
End Sub
 
Private Sub Form_Load()
    Me.ScaleMode = 3: Me.AutoRedraw = True: Me.DrawWidth = 3
    Me.Scale (-150, 150)-(150, -50)
    Me.KeyPreview = True
    Call Draw
End Sub
 
Private Sub Draw(Optional ByVal rw As Single = 0)
    Dim i As Single, j As Single, x As Single, y As Single
    Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
    Dim r As Integer, min As Single, max As Single, stepW As Single
    Const PI As Single = 3.14159
    r = 140 '
    Cls
    min = PI * (1.7 + rw): max = PI * (2.3 - rw): stepW = Abs(min - max) / 20
    Me.DrawWidth = 6
    For i = min To max Step stepW / 7
            x = Sin(i) * r: y = Cos(i) * r
            Me.Line (0, 0)-(x, y), vbMagenta
    Next i
    Me.DrawWidth = 3
    For i = min To max Step stepW - 0.00001
        x1 = Sin(i) * r: y1 = Cos(i) * r
        Me.Line (0, 0)-(x1, y1), vbBlue
        Me.Line (x1, y1)-(x2, y2), vbBlue
        If i > min Then Circle ((Sin(i) * (r - 20) + x2) / 2, (Cos(i) * (r - 20) + y2) / 2), 3, vbGreen
        x2 = x1: y2 = y1
        Me.Line (0, 0)-(Sin(i - PI) * (r / 8), Cos(i - PI) * (r / 8)), vbBlue
    Next i
End Sub
3
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
20.11.2014, 23:26  [ТС] 4
Ни че так стильненько
0
Модератор
8381 / 3151 / 824
Регистрация: 22.02.2013
Сообщений: 4,630
Записей в блоге: 78
21.11.2014, 00:28 5
Лучший ответ Сообщение было отмечено deadzwar как решение

Решение

Приближение к вееру с помощью секторов:
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
Option Explicit
 
Dim angle As Single
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    angle = angle + Switch(KeyCode = vbKeyUp, 0.1, KeyCode = vbKeyDown, -0.1, True, 0)
    If angle > 2.5 Then angle = 2.5 Else If angle < 0.001 Then angle = 0.001
    Draw
End Sub
 
Private Sub Form_Load()
    Width = 5000: Height = 5000: FillColor = vbMagenta: FillStyle = vbSolid
    AutoRedraw = True: angle = 2: Draw
End Sub
 
Private Sub Draw()
    Dim dif  As Single, str As Single, n As Long
    dif = angle / 5: str = 1.57 - angle / 2: Cls
    For n = 0 To 4
        Circle (ScaleWidth / 2, ScaleHeight / 1.5), 2000, , -str, -str - dif
        Circle (ScaleWidth / 2, ScaleHeight / 1.5), 300, , -str - 3.14, -str - dif - 3.14
        str = str + dif
    Next
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static oy As Single
    If Button = vbLeftButton Then Form_KeyDown Switch(Y - oy > 0, vbKeyDown, Y - oy < 0, vbKeyUp, True, 0), 0
    oy = Y
End Sub
Управление ↑ ↓, мышкой левой кнопкой зажимать и тоже вверх/вниз.
2
Миниатюры
Вывести на экран изображение веера  
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
22.11.2014, 12:01  [ТС] 6
А можно сделать 3 выбора цвета (зеленый, красный, синий) , и 3 выбора количества пластин(3, 5, 7)?
0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
22.11.2014, 15:35 7
Цитата Сообщение от deadzwar Посмотреть сообщение
А можно сделать 3 выбора цвета (зеленый, красный, синий) , и 3 выбора количества пластин(3, 5, 7)?
Можно
0
11181 / 3559 / 630
Регистрация: 13.02.2009
Сообщений: 10,644
22.11.2014, 16:24 8
SoftIce,
Можно
Справедливо!
Каков вопрос - таков ответ!
Да, к тому же, правила!
П 4.4
На каждый вопрос создавайте по одной теме
А Т.С., наверняка, продолжит: А как?
0
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
25.11.2014, 00:30  [ТС] 9
а можно сделать с 3 выбора цвета (зеленый, красный, синий) , и 3 выбора количества пластин(3, 5, 7) с выбором виде кнопок?

Добавлено через 4 часа 19 минут
Цитата Сообщение от The trick Посмотреть сообщение
Приближение к вееру с помощью секторов:
а можно сделать с 3 выбора цвета (зеленый, красный, синий) , и 3 выбора количества пластин(3, 5, 7) с выбором виде кнопок?
0
Модератор
8381 / 3151 / 824
Регистрация: 22.02.2013
Сообщений: 4,630
Записей в блоге: 78
25.11.2014, 01:29 10
Цитата Сообщение от deadzwar Посмотреть сообщение
а можно сделать с 3 выбора цвета (зеленый, красный, синий) , и 3 выбора количества пластин(3, 5, 7) с выбором виде кнопок?
Цитата Сообщение от SoftIce Посмотреть сообщение
Можно
0
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
25.11.2014, 09:25  [ТС] 11
ну а если без шуток, хотите я вам после 2 декабря перечислю деньги, а вы до четверга делаете...
Цитата Сообщение от The trick Посмотреть сообщение
Приближение к вееру с помощью секторов:
0
SoftIce
25.11.2014, 09:28
  #12

Не по теме:

Цитата Сообщение от deadzwar Посмотреть сообщение
хотите я вам после 2 декабря перечислю деньги
Был тут один товарищ, предлагал 36 рублей, насмешил :D

0
Апострофф
25.11.2014, 09:30
  #13

Не по теме:

Цитата Сообщение от deadzwar Посмотреть сообщение
хотите я вам после 2 декабря перечислю деньги, а вы до четверга делаете...
Я хочу, я хочу!!! Вот только утром деньги, вечером стулья - помните откуда это?

0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
25.11.2014, 10:00 14
Мой вариант
2
Миниатюры
Вывести на экран изображение веера  
Вложения
Тип файла: rar Веер Опахало.rar (1.8 Кб, 5 просмотров)
-4 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 28
25.11.2014, 11:49  [ТС] 15
Просто 2 декабря у меня др, и как раз будут деньги, а программу нужно в четверг сдать... Честно я переведу.

Добавлено через 3 минуты
Цитата Сообщение от SoftIce Посмотреть сообщение

Не по теме:


Был тут один товарищ, предлагал 36 рублей, насмешил :D

Хпххаххаха, я счмтаю за работу нужно от 200- до 400 рублей если работа средняя. А отличная, и просто пэрсик , и канфетка Мамай клянусь от 500 -1500.
0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
02.12.2014, 06:45 16
Happy Birthday to you,
Happy Birthday to you,
Happy Birthday dear deadzwar,
Happy Birthday to you.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2014, 06:45

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

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

Вывести на экран изображение движущегося поезда
Всем привет! Извините за наглость, но горит лабораторная работа. Может есть у кого-то подобная...

Вывести на экран изображение лодки с парусами
Вывести на экран изображение лодки с парусами .

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.