Диаграмма

[xqz_me]

Спасибо. Сделал так:

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

Const pi = 3.141592654

Private Sub Command1_Click()
Cls
Dim a As Double
a = InputBox(a)
Me.FillStyle = 0
Me.FillColor = vbBlue
Me.ScaleMode = vbPixels
Me.Circle (100, 100), 50, vbBlue, -pi / 2, -pi * 2 * a
End Sub


Терь ворос... Почему только до третей четверти при а = 1 рисуется и заливается?

[Kovu]

Я в шоке
*Падает в обморок

[Konst_One]

xqz_me
извини меня (прости за каламбур), но ты в школу ходил(ешь)?
ты хотел заливку сектора, тебе kovu ее сделал. а математике тебя учить никто не нанимался

[xqz_me]

нет, я больше не могу это читать

Я в шоке
*Падает в обморок

Гы...

А если серёзно?

[Konst_One]

почитай учебник (не помню какого класса) про окружность и круг

[xqz_me]

Хожу. И не понимаю, кто придуиал такие извращения. Начало сектора - 0 радиан (правая часть единичной окружности). Нет, надо писать -pi/2 ( который почему-то стал верхом окружности, а не низом). Если написать -0, чтобы начинать заливать справа, вообще перестаёт заливать. Что это за дебилизм? Конец окружности - 2pi, совпадает с началом, т.е. 0 радиан. А тут это них окружности почему-то. Что за дребедень?

[Kovu]

Me.Circle (100, 100), 50, vbBlue, -pi *2, -pi * 2 * a
Андерстэнд?

[Konst_One]

The Circle method draws a circle, an ellipse, or an arc on a Report object when the Print event occurs.

Syntax

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

object.Circle [Step](x, y), radius[, [color][, [start][, [end][, aspect]]]]

start, end
Single values. When a partial circle or ellipse is drawn, the start and end arguments specify (in radians) the beginning and end positions of the arc. The default value for the start argument is 0 radians; the default for the end argument is 2 pi radians. The range for both is –2 pi radians to 2 pi radians.

When drawing pie slices, if you need to draw a radius to angle 0 to form a horizontal line segment to the right, specify a very small negative value for the start argument rather than 0. For example, you might specify –.00000001 for the start argument.

[xqz_me]

Усё. Дошло. Всем спасибо.

[Konst_One]

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

Option Explicit

Private Const PI As Double = 3.14159265358979


Private Sub Form_Click()
    Dim sngHCtr As Single, sngVCtr As Single
    Dim sngRadius As Single
    Dim sngStart As Single, sngEnd As Single

    sngHCtr = Me.ScaleWidth / 2         ' Horizontal center.
    sngVCtr = Me.ScaleHeight / 2        ' Vertical center.
    sngRadius = Me.ScaleHeight / 3      ' Circle radius.
    ' Draw circle.
    Me.FillColor = vbGreen
    Me.FillStyle = 0
    Me.Circle (sngHCtr, sngVCtr), sngRadius
    sngStart = -0.00000001              ' Start of pie slice.
    sngEnd = -2 * PI / 3                ' End of pie slice.
    Me.FillColor = vbRed                ' Color pie slice red.
    Me.FillStyle = 0                    ' Fill pie slice.
    ' Draw pie slice within circle.
    Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd

End Sub

[Viper]

Ка же долог подчас путь к истине!!! Нет слов...

[xqz_me]

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

Dim c
Dim t
Private Function chart1func(x As Integer, y As Integer, r As Integer, val As Double, delay As Double)
For c = 0 To val
Cls
Picture1.FillStyle = 0
Picture1.FillColor = vbRed
Picture1.ScaleMode = vbPixels
Picture1.Circle (x, y), r, vbBlack, -pi * 2, -pi * 2
Picture1.FillStyle = 0
Picture1.FillColor = vbBlue
Picture1.ScaleMode = vbPixels
Picture1.Circle (x, y), r, vbBlack, -pi * 2, -pi * 2 * val / 100
t = Timer
Do While Timer < t + delay
DoEvents
Loop
Next c
chart1func = 1
End Function

Private Sub Command2_Click()
If chart1func(100, 100, 50, 75, 0.02) < 0 Then MsgBox "shit"
End Sub

Почему так только круг рисуется?

[Konst_One]

еще раз посмотри внимательно: