Изображения на форме

@DannO · Регистрация: 30.03.2014

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

Помогите пожалуйста решить задачу!
Разработать приложение, позволяющее изображать на форме имитацию сферы (метод Circle в цикле), куба (метод Line в цикле), закрашенный эллипс. Ввести в интерфейс приложения следующие элементы управления:
1) созданный на основе объектов HScrollBar и VScrollBar, позволяющие изменять размеры сферы, куба, эллипса;
2) управляющие автоматическим сжатием/увеличением сферы и куба (пульсирующие сфера и куб).
P.S. если можно с комментариями, хотябы небольшими)
Заранее большое спасибо!

@Антихакер32 · 31.03.2014, 11:38

Зайди в готовые решения там подобных исходников полно и с коментариями и без коментариев

@The trick · 31.03.2014, 14:00

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
Dim WithEvents picDisp As PictureBox, _
    WithEvents hsbSize As HScrollBar, _
    WithEvents hsbZoom As HScrollBar, _
    WithEvents tmrTime As Timer, _
    WithEvents cboType As ComboBox
    
Private Sub Form_Load()
    Set picDisp = Controls.Add("VB.PictureBox", "picDisp")
    Set hsbSize = Controls.Add("VB.HScrollBar", "hsbSize")
    Set hsbZoom = Controls.Add("VB.HScrollBar", "hsbZoom")
    Set tmrTime = Controls.Add("VB.Timer", "tmrTime")
    Set cboType = Controls.Add("VB.Combobox", "cboType")
    picDisp.ScaleMode = vbPixels: picDisp.FillStyle = vbSolid: picDisp.AutoRedraw = True
    hsbSize.Max = 100: hsbSize.Min = 0: hsbSize.Value = 50
    hsbZoom.Max = 100: hsbZoom.Min = 0: hsbZoom.Value = 50
    picDisp.Visible = True: hsbSize.Visible = True: hsbZoom.Visible = True
    tmrTime.Interval = 32
    cboType.AddItem "Ñôåðà": cboType.AddItem "Êóá": cboType.AddItem "Ýëëèïñ"
    cboType.ListIndex = 1: cboType.Visible = True
End Sub
 
Private Sub Form_Resize()
    If ScaleHeight <= 1000 Or ScaleWidth <= 2000 Then Exit Sub
    picDisp.Move 100, 100, ScaleWidth - 200, ScaleHeight - 1000
    hsbSize.Move 100, ScaleHeight - 800, ScaleWidth - 200
    hsbZoom.Move 100, ScaleHeight - 400, ScaleWidth - 2000
    cboType.Move ScaleWidth - 1800, ScaleHeight - 400, 1700
End Sub
 
Private Sub tmrTime_Timer()
    Static ph As Single, cz As Single, x As Single, y As Single, d As Single, _
           p As Single, s As Long, l As Long, q As Single
           
    q = (hsbZoom.Value / 100)
    cz = Sin(ph) * q
    ph = ph + 0.03: picDisp.Cls
    s = IIf(ScaleWidth > ScaleHeight, picDisp.ScaleHeight / 4, picDisp.ScaleWidth / 4) * (hsbSize.Value / 100)
    s = s + s * cz: If s = 0 Then Exit Sub
    Select Case cboType.ListIndex
    Case 0
        picDisp.DrawStyle = 5
        d = 1.5707963267949 / s: p = 0: x = picDisp.ScaleWidth / 2: y = picDisp.ScaleHeight / 2
        For l = 0 To s - 1
            q = Exp(p - 1.5707963267949) * 255
            picDisp.FillColor = RGB(Sin(p) * 255, q, q)
            picDisp.Circle (x, y), s
            s = s - 1: p = p + d: x = x - 0.4: y = y - 0.4
        Next
    Case 1
        picDisp.DrawStyle = 0
        x = picDisp.ScaleWidth / 2 - s: y = Int(picDisp.ScaleHeight / 2 - s)
        picDisp.Line (x, y)-Step(s * 2, s * 2), &HA0A0FF, BF
        x = x + 1: y = y - 1: q = s / 2.5
        For l = 0 To q - 1
            picDisp.Line (x, y)-Step(s * 2, 0), &H323280
            picDisp.Line (Int(x + s * 2), y)-Step(0, s * 2), &H5252A0
            x = x + 1: y = y - 1
        Next
    Case Else
        picDisp.DrawStyle = 5
        x = picDisp.ScaleWidth / 2: y = picDisp.ScaleHeight / 2
        picDisp.FillColor = vbRed
        picDisp.Circle (x, y), s * 2, , , , 0.5
    End Select
End Sub

@Антихакер32 · 31.03.2014, 15:43

Весь прикол что реализованно на пустой форме
без подключения компонентов !

Добавлено через 5 минут
Что ни строчка то поэзия !
Обязательно добавлю эту страницу в свои закладки ..

@Pro_grammer · 31.03.2014, 17:54

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

без подключения компонентов

Controls.Add как бы намекает...

@Антихакер32 · 31.03.2014, 18:05

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

Controls.Add как бы намекает...

Я к тому, что не надо ничего бросать на форму ...

Добавлено через 3 минуты
так-же не мог сдержаться от коментария когда увидел
массу полезных тригонометрических решений в коде из 67 строчек !))

@DannO · 31.03.2014, 20:13 **[ТС]**

Спасибо большое, выручил очень)
И если тебя это не затруднит конечно, ты и так уже много сделал, но всеже:
если у тебя осталась форма, то ты мог бы скинуть мне zip-файл с проектом (всеми файлами: проектом и т.д.) и в программе поставить /и написать небольшие комментарии, чтобы я мог быстрее разобраться в работе циклов...
Заранее спасибо!)
FelixMacintosh, если бы я нашел похожую задачу (хотя бы без комментариев), не говоря уже с комментариями, в "готовых решениях", то я бы там и посмотрел, но я ничего не нашел...

@Pro_grammer · 31.03.2014, 21:17

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

Весь прикол что реализованно на пустой форме
без подключения компонентов !

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

Что ни строчка то поэзия !

И тут бабах :

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

если у тебя осталась форма, то ты мог бы скинуть мне zip-файл с проектом (всеми файлами: проектом и т.д.)

Вот так заканчивается поэзия! Искренне сожалею за бесцельно потраченное время уважаемого The trick. Простой народ не понял изыска и желает банальный проект с мифическими файлами и пояснениями

@DannO · 31.03.2014, 21:39 **[ТС]**

За изыск большое спасибо, но я сам для себя хочу понимать проект: от А до Я... Я не программист, так что изыски сразу понять я не могу, поэтому и прошу хотябы небольших пояснений, уж извините...
для меня не самое главное сделанный проект, это только пол дела, вторая половина и не маловажная - это его полное понимание и возможность переделать если что!
Спасибо за понимание и сделанный проект, с изыском)

Добавлено через 12 минут
И как ты там говорил: " бесцельно потраченное время уважаемого The trick"... Я с этим не согласен!
Я ему очень благодарен, он меня очень выручил! Так что большое ему за это спасибо!)
Но ты можешь считать что хочешь...

@Pro_grammer · 31.03.2014, 22:21

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

Так что большое ему за это спасибо!

Прямо получилось, что я у тебя для него спасибо выпросил, а сам то ты не догадался?

А изыск именно с в том и состоит, что не нужны ни какие дополнительные файлы, настройки проекта - код написан так, что нужно его просто вставить в пустой стандартный заново открытый проект на Vb6 и всё заработает при первом же запуске!

@DannO · 31.03.2014, 22:36 **[ТС]**

Поблагодарил я его еще до твоих комментариев!
И я вообщето понял что тут можно просто код скопирывать в прогу и все заработает, я просто хотел более детально прогу изучить...
Ну вообщем ладно, не будем спорить)

@Антихакер32 · 01.04.2014, 09:55

Специально для DannO
я сделал код еще более изысканным
Рекомендую скомпилировать и запустить

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
Dim WithEvents picDisp As PictureBox, _
    WithEvents hsbSize As HScrollBar, _
    WithEvents hsbZoom As HScrollBar, _
    WithEvents tmrTime As Timer, _
    WithEvents cboType As ComboBox
 
Private Sub Form_Resize()
    On Error Resume Next
    If ScaleHeight <= 1000 Or ScaleWidth <= 2000 Then Exit Sub
    picDisp.Move 100, 100, ScaleWidth - 200, ScaleHeight - 1000
    hsbSize.Move 100, ScaleHeight - 800, ScaleWidth - 200
    hsbZoom.Move 100, ScaleHeight - 400, ScaleWidth - 2000
    cboType.Move ScaleWidth - 1800, ScaleHeight - 400, 1700
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    On Error GoTo 1
    Cancel = 1: Set picDisp = Controls.Add("VB.PictureBox", "picDisp")
    Set hsbSize = Controls.Add("VB.HScrollBar", "hsbSize")
    Set hsbZoom = Controls.Add("VB.HScrollBar", "hsbZoom")
    Set tmrTime = Controls.Add("VB.Timer", "tmrTime")
    Set cboType = Controls.Add("VB.Combobox", "cboType")
    picDisp.ScaleMode = vbPixels: picDisp.FillStyle = vbSolid: picDisp.AutoRedraw = True
    hsbSize.Max = 100: hsbSize.Min = 0: hsbSize.Value = 50
    hsbZoom.Max = 100: hsbZoom.Min = 0: hsbZoom.Value = 50
    picDisp.Visible = True: hsbSize.Visible = True: hsbZoom.Visible = True
    tmrTime.Interval = 32
    cboType.AddItem "Сфера": cboType.AddItem "Куб": cboType.AddItem "Эллипс"
    cboType.ListIndex = 1: cboType.Visible = True: Form_Resize
    Exit Sub
1
End Sub
 
Private Sub tmrTime_Timer()
    Static ph As Single, cz As Single, x As Single, y As Single, d As Single, _
           p As Single, s As Long, l As Long, q As Single
           
    q = (hsbZoom.Value / 100)
    cz = Sin(ph) * q
    ph = ph + 0.03: picDisp.Cls
    s = IIf(ScaleWidth > ScaleHeight, picDisp.ScaleHeight / 4, picDisp.ScaleWidth / 4) * (hsbSize.Value / 100)
    s = s + s * cz: If s = 0 Then Exit Sub
    Select Case cboType.ListIndex
    Case 0
        picDisp.DrawStyle = 5
        d = 1.5707963267949 / s: p = 0: x = picDisp.ScaleWidth / 2: y = picDisp.ScaleHeight / 2
        For l = 0 To s - 1
            q = Exp(p - 1.5707963267949) * 255
            picDisp.FillColor = RGB(Sin(p) * 255, q, q)
            picDisp.Circle (x, y), s
            s = s - 1: p = p + d: x = x - 0.4: y = y - 0.4
        Next
    Case 1
        picDisp.DrawStyle = 0
        x = picDisp.ScaleWidth / 2 - s: y = Int(picDisp.ScaleHeight / 2 - s)
        picDisp.Line (x, y)-Step(s * 2, s * 2), &HA0A0FF, BF
        x = x + 1: y = y - 1: q = s / 2.5
        For l = 0 To q - 1
            picDisp.Line (x, y)-Step(s * 2, 0), &H323280
            picDisp.Line (Int(x + s * 2), y)-Step(0, s * 2), &H5252A0
            x = x + 1: y = y - 1
        Next
    Case Else
        picDisp.DrawStyle = 5
        x = picDisp.ScaleWidth / 2: y = picDisp.ScaleHeight / 2
        picDisp.FillColor = vbRed
        picDisp.Circle (x, y), s * 2, , , , 0.5
    End Select
End Sub

Добавлено через 7 часов 35 минут

P.S Нас компетентных действительно очень мало, и это проблема
донесите это до наших министров образования !

@Pro_grammer · 01.04.2014, 10:36

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

Form_Unload(

?

@DannO · 01.04.2014, 11:49 **[ТС]**

Спасибо большое всем за помощь и за понимание!)

@Антихакер32 · 01.04.2014, 15:57

Pro_grammer я удивляюсь над вашей выдержкой, Вы стоите наград !

Добавлено через 1 час 3 минуты
Pro_grammer пусть ты и не мой друг
но за тебя я поговоррю

@Pro_grammer · 01.04.2014, 16:03

Не по теме:

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

пусть ты и не мой друг

Был у меня забавный друг, ЖораВоенныйХакер, да слился...

@Антихакер32 · 01.04.2014, 16:15

Даже не знаю, куда вам поставить плюс
потому-что если даже (вы поняли !)
хотя в в вашем компетенции это
знать обязательно )))

@KnyazWill · 01.06.2014, 20:33

Все-таки как можно сделать данную программу с добавлением на форму компонентов?

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

Изображения на форме

Решение

Решение

@DannO 0 / 0 / 0 Регистрация: 30.03.2014 Сообщений: 9

	Изображения на форме 30.03.2014, 21:36. Показов 1763. Ответов 17 Метки нет (Все метки) Помогите пожалуйста решить задачу! Разработать приложение, позволяющее изображать на форме имитацию сферы (метод Circle в цикле), куба (метод Line в цикле), закрашенный эллипс. Ввести в интерфейс приложения следующие элементы управления: 1) созданный на основе объектов HScrollBar и VScrollBar, позволяющие изменять размеры сферы, куба, эллипса; 2) управляющие автоматическим сжатием/увеличением сферы и куба (пульсирующие сфера и куб). P.S. если можно с комментариями, хотябы небольшими) Заранее большое спасибо! 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	31.03.2014, 11:38
	Зайди в готовые решения там подобных исходников полно и с коментариями и без коментариев 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	31.03.2014, 15:43
	Весь прикол что реализованно на пустой форме без подключения компонентов ! Добавлено через 5 минут Что ни строчка то поэзия ! Обязательно добавлю эту страницу в свои закладки .. 1

@DannO 0 / 0 / 0 Регистрация: 30.03.2014 Сообщений: 9
	31.03.2014, 20:13 [ТС]
	Спасибо большое, выручил очень) И если тебя это не затруднит конечно, ты и так уже много сделал, но всеже: если у тебя осталась форма, то ты мог бы скинуть мне zip-файл с проектом (всеми файлами: проектом и т.д.) и в программе поставить /и написать небольшие комментарии, чтобы я мог быстрее разобраться в работе циклов... Заранее спасибо!) FelixMacintosh, если бы я нашел похожую задачу (хотя бы без комментариев), не говоря уже с комментариями, в "готовых решениях", то я бы там и посмотрел, но я ничего не нашел... 0

@DannO 0 / 0 / 0 Регистрация: 30.03.2014 Сообщений: 9
	31.03.2014, 21:39 [ТС]
	За изыск большое спасибо, но я сам для себя хочу понимать проект: от А до Я... Я не программист, так что изыски сразу понять я не могу, поэтому и прошу хотябы небольших пояснений, уж извините... для меня не самое главное сделанный проект, это только пол дела, вторая половина и не маловажная - это его полное понимание и возможность переделать если что! Спасибо за понимание и сделанный проект, с изыском) Добавлено через 12 минут И как ты там говорил: " бесцельно потраченное время уважаемого The trick"... Я с этим не согласен! Я ему очень благодарен, он меня очень выручил! Так что большое ему за это спасибо!) Но ты можешь считать что хочешь... 0

@DannO 0 / 0 / 0 Регистрация: 30.03.2014 Сообщений: 9
	31.03.2014, 22:36 [ТС]
	Поблагодарил я его еще до твоих комментариев! И я вообщето понял что тут можно просто код скопирывать в прогу и все заработает, я просто хотел более детально прогу изучить... Ну вообщем ладно, не будем спорить) 0

@DannO 0 / 0 / 0 Регистрация: 30.03.2014 Сообщений: 9
	01.04.2014, 11:49 [ТС]
	Спасибо большое всем за помощь и за понимание!) 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	01.04.2014, 15:57
	Pro_grammer я удивляюсь над вашей выдержкой, Вы стоите наград ! Добавлено через 1 час 3 минуты Pro_grammer пусть ты и не мой друг но за тебя я поговоррю 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	01.04.2014, 16:15
	Даже не знаю, куда вам поставить плюс потому-что если даже (вы поняли !) хотя в в вашем компетенции это знать обязательно ))) 0

@KnyazWill 0 / 0 / 0 Регистрация: 18.03.2013 Сообщений: 42
	01.06.2014, 20:33
	Все-таки как можно сделать данную программу с добавлением на форму компонентов? 0