Диаграмма

[xqz_me]

Как без внешних контролов создать плоскую диаграмму (есть круг, например, красного цвета, в нём синим цветом выделяется сектор между двумя радиусами. Размер выделенного сектора зависит от какой-то величины, от 0% до 100%)? Что-то вроде того, что винда рисует в свойствах диска.

[Tamplier]

использовать свойство формы/пикчербокса/юзер_контрола/другой_вариант Circle.

[xqz_me]

Конкретно про Circle догадаться было нетрудно. Как сектор залить другим цветом?

[Andrey Fedorov]

Конкретно про Circle догадаться было нетрудно. Как сектор залить другим цветом?

Дык в Help-е по этому методу все и написано...

[GSerg]

Нарисовать его и вызвать ExtFloodFill...

[xqz_me]

Дык в Help-е по этому методу все и написано

Можешь выложить?

[Andrey Fedorov]

Дык в Help-е по этому методу все и написано

Можешь выложить?

Да элементарно - хоть всю MSDN:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/vb6anchor.asp

[xqz_me]

Код: Выделить всё

Private Sub Command1_Click()
Cls
Dim b As Double
b = InputBox(b)
Circle (2400, 1800), 1200, RGB(255, 0, 0), 0, b * 6.2769 / 100
Line (2400, 1800)-(2400 + 1200, 1800)
Line (2400, 1800)-(3600 * Cos(b * 6.2769 / 100), 3000 * Sin(b * 6.2769 / 100))
End Sub

Пока додумался только до этого. Только не работает. Сперва черчу дугу (b - % от окружности). Задем двумя линиями пытаюсь соединить её концы с центром окружности. Только это не работает. Вторая линия не правильно себя ведёт. Где у меня ошибка? И как залить получившуюся фигуру?

З.Ы. Что у vb за странные представления о pi? Circle (2400, 1800), 1200, ,0, t замыкается только при t = 6.2769 (а не t = 6.2832, как должно быть).

[Igor_123]

xqz_me
а доставить хелп к офису и написать в редакторе VBA circle, стать на середину слова и нажать F1 очень трудно?

[xqz_me]

xqz_me
а доставить хелп к офису и написать в редакторе VBA circle, стать на середину слова и нажать F1 очень трудно?

Трудно.

Код: Выделить всё

Private Sub Command1_Click()
Cls
Dim b As Double
b = InputBox(b)
Circle (2400, 1800), 1200, RGB(255, 0, 0), 0, b * 6.2769 / 100
Line (2400, 1800)-(2400 + 1200, 1800)
Line (2400, 1800)-(2400 + 1200 * Cos(b * 6.2769 / 100), 1800 - 1200 * Sin(b * 6.2769 / 100))
End Sub

Короче, код я исправил. Теперь сектор рисуется правильно. Объясните, плиз, как его залить определённым цветом.

[xqz_me]

Можно получить ответ на заданный вопрос?

[FaKk2]

http://bbs.vbstreets.ru/viewtopic.php?t=23399#6586106

[Kovu]

FAKK2
Не поможет, потому что у него фигура не закрытая получается(то есть цветом зальется вся форма).

[GSerg]

Читаем мануал.
Для рисования радиусов надо указывать угол отрицательным.
Me.Circle (100, 100), 50, vbBlue, -PI / 2, -PI

[xqz_me]

Читаем мануал.
Для рисования радиусов надо указывать угол отрицательным.
Me.Circle (100, 100), 50, vbBlue, -PI / 2, -PI

Ёшкин кот! А у меня он не отрицательный?! Я же писал, что сектор рисуется правильно!

Код: Выделить всё

Private Sub Command1_Click()
Cls
Dim b As Double
b = InputBox(b)
Circle (2400, 1800), 1200, RGB(255, 0, 0), 0, b * 6.2769 / 100
Line (2400, 1800)-(2400 + 1200, 1800)
Line (2400, 1800)-(2400 + 1200 * Cos(b * 6.2769 / 100), 1800 - 1200 * Sin(b * 6.2769 / 100))
End Sub

Код: Выделить всё

Объясните, плиз, как его залить определённым цветом.

И как сделать, чтобы линии не стирались (другой формой, например).

[alibek]

AutoRedraw=True
плюс голова и прямые руки.

[xqz_me]

Спасибо. А как заливать то?

[Kovu]

Me.FillMode=0
Me.FillColor=vbBlue

[GSerg]

Ёшкин кот! А у меня он не отрицательный?!

У тебя - нет.

Я же писал, что сектор рисуется правильно!

Сектор дорисовывается линиями. Следовательно, сектор рисуется неправильно.

А как заливать то?

http://bbs.vbstreets.ru/viewtopic.php?p=6586200#6586200

[xqz_me]

Me.FillMode=0

Ругается

[Kovu]

Me.FillMode=0

Ругается

Ошибся немного
Fillstyle

[xqz_me]

Me.Circle (100, 100), 50, vbBlue, -PI / 2, -PI

Почему-то у меня получается круг, а не сектор.

Если в мой код пихнуть

Код: Выделить всё

Me.FillStyle=0
Me.FillColor=vbBlue

, то ничего не происходит.

Разъясните всё, пожалуйста.

[Konst_One]

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

[xqz_me]

Не работает

[Konst_One]

что не работает? может у тебя нет MSCHART.OCX или он не зарегистрирован?

[Kovu]

xqz_me
Пихаешь мой код перед кодом GSerg'a , выставляешь у формы измерение в пикселях(Me.Scalemode=Vbpixels) и рисуется сектор, заполненнный синим (по крайней мере у меня)
Ну и не забудь PI объявить как константу (из калькулятора значение возьми)

[xqz_me]

Не знaю. Run-Time error 91. Object Variable or With Block variale not set. И потом, там же ocx используется... А мне бы без него управиться.

Может, вернёмся к заливке сектора?

[Konst_One]

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

[Kovu]

Код: Выделить всё


Private Const PI As Double = 3.14159265358979
Private Sub Command1_Click()
Me.ScaleMode = 3
Me.FillColor = vbRed
Me.FillStyle = 0
Me.Circle (100, 100), 50, vbBlue, -PI / 2, -PI
End Sub


[Konst_One]

я думаю, что ему лучше так написать:

Код: Выделить всё

'Form1
Option Explicit

Private Const PI As Double = 3.14159265358979


Private Sub Form_Load()

Me.AutoRedraw = True
Me.ScaleMode = 3
Me.FillColor = vbRed
Me.FillStyle = 0
Me.Circle (100, 100), 50, vbBlue, -PI / 2, -PI



End Sub