Creare dei mezzi cerchi (vb6)

[satriano17]

Ciao
Ho trovato in giro questo programma. Con esso posso generare dei cerchi con dei raggi all'interno. Diciamo come una ruota di bicicletta .
Ho provato a modificarlo ma non ci sono riuscito.
Il mio scopo é di produrre non dei cerchi con dei raggi come adesso, ma dei semicerchi con raggi. Come un ventaglio, per intenderci. Ovviamente dovrà restare (come nel programma qui) la possibilità de decidere quanti raggi voglio
e deciderne la grandezza del ventaglio
Ultima cosa che volevo aggiungerecera la possibilità, alla base del ventaglio, di aggiungere una parola o descrizione.
Ecco il programma che disegna cerchi e raggi.

Private Sub Command1_Click()

Const PI As Double = 3.14159265358979

Dim s As Double, e As Double
Dim dx As Double, dy As Double
Dim r1 As Double, r2 As Double
Dim x1 As Double, y1 As Double
Dim x2 As Double, y2 As Double
Dim p As Double
Dim numdiv As Integer

Me.AutoRedraw = True

r1 = 200
r2 = 2000 ' grandezza/larghezza cerchio
numdiv = 20 ' numero degli spicchi 

s = PI
e = PI * 3
stp = (e - s) / numdiv
dx = Me.ScaleWidth / 2
dy = Me.ScaleHeight / 2

Me.Circle (dx, dy), r1, , , , 1  ' cerchio centrale
Me.Circle (dx, dy), r2, , , , 1  ' cerchio esterno

For p = s To e Step stp
    x1 = Cos(p) * r1
    y1 = Sin(p) * r1
    x2 = Cos(p) * r2
    y2 = Sin(p) * r2
    
    Me.Line (dx + x1, dy + y1)-(dx + x2, dy + y2)
Next p

End Sub

grazie