VB6: How draw an arc?

[cambalinho]

using the Circle method and knowing the start angle(playerangle-30) and end angle (playerangle+30), in degrees, how can i draw the arc?

[rproffitt]

Since the Circle method uses radians instead of degrees you'll want to write a little helper function or just do the math like I see on the web. Example: https://www.wikihow.com/Convert-Degrees-to-Radians

[cambalinho]

that's why i did these function:

Private Sub DrawCurve(PosX As Double, PosY As Double, Raio As Integer, StartAngle As Single, EndAngle As Single)
    Dim Angulo As Single
    Dim Radians As Double
    Dim PontoX As Double, PontoY As Double
    Angulo = StartAngle
    Dim Rad As Double
    Rad = PI / 180
    Do While Angulo <= (EndAngle) 
        Radians = Angulo * Rad
        PontoX = PosX + Raio * Cos(Radians) 
        PontoY = PosY + Raio * Sin(Radians)

        MemPic.PSet (PontoX, PontoY), vbYellow 

        Angulo = Angulo + 1 
    Loop
End Sub

these function can be more updated for never use the Circle() method ;)
thanks for all

[cambalinho]

heres the function updated:

Const PI As Double = 3.14159265358979
Private Sub DrawCurve(Destiny As Control, PosX As Double, PosY As Double, Raio As Integer, Optional Color As ColorConstants = vbBlack, Optional StartAngle As Single = 0, Optional EndAngle As Single = 360)
    Dim Angulo As Single
    Dim Radians As Double
    Dim PontoX As Double, PontoY As Double
    Angulo = StartAngle
    Dim Rad As Double
    Rad = PI / 180
    Do While Angulo <= (EndAngle) ' ângulo final da curva
        Radians = Angulo * Rad
        PontoX = PosX + Raio * Cos(Radians) ' coordenada X do ponto na curva
        PontoY = PosY + Raio * Sin(Radians) ' coordenada Y do ponto na curva

        Destiny.PSet (PontoX, PontoY), Color ' desenha o ponto na cor amarela

        Angulo = Angulo + 1 ' incrementa o ângulo para desenhar o próximo ponto
    Loop
End Sub