Как нарисовать оригинальный диаметр в форме?

Question

Как рисовать исходный диаметр в форме с помощью метода Pset?

Я хочу нарисовать линию, подобную этой: см. Изображение

спасибо.

Answer 1

Откройте новый проект vb (Standard Executable) и скопируйте / вставьте этот код.

Option Explicit

Private Sub Form_Load()

    Me.AutoRedraw = True
    Me.ScaleMode = vbPixels

End Sub

Private Sub DrawLine()

    Dim i As Single
    Dim Angle As Single

    Cls

    If Me.ScaleHeight = 0 Then
        Exit Sub
    End If

    If Me.WindowState = vbMinimized Then
        Exit Sub
    End If

    Angle = Atn(Me.ScaleWidth / Me.ScaleHeight)
    For i = 0 To Sqr(Me.ScaleWidth * Me.ScaleWidth + Me.ScaleHeight * Me.ScaleHeight)

       PSet (i * Sin(Angle), i * Cos(Angle))

    Next

End Sub

Private Sub Form_Resize()

    Call DrawLine

End Sub

Answer 2

Private Sub DrawCircle(ByVal X As Single, ByVal Y As Single, ByVal Diameter As Single, ByVal PointsToDraw As Long)

    Dim Angle As Single

    For Angle = 0 To 2 * 3.14159 Step (2 * 3.14159) / PointsToDraw
        Me.PSet (X + Diameter * Sin(Angle) / 2, Y + Diameter * Cos(Angle) / 2), vbRed
    Next
End Sub

Вы должны знать, что есть функция Circle, которую вы можете использовать вместо этого. Код выше можно заменить на:

Me.Circle (X,Y), Diameter / 2, vbRed

PSet - это относительно медленный способ рисования графики, особенно когда уже есть встроенная функция, которую вы можете использовать вместо нее.

Answer 3

Private Sub circleRoutine(aX As Single, aY As Single, Radius As Single, Steps As Single)
    Dim currAngleX As Single
    Dim i As Integer

    aX = aX - Radius * 1 / Steps

    For currAngleX = 0 To Rad(360) Step Steps
        aX = aX + Radius * Sin(currAngleX)
        aY = aY + Radius * Cos(currAngleX)
        Me.PSet (aX, aY)
    Next currAngleX
End Sub