سوال در مورد تابع Circle

[MeHrDaD341]

من ميخوام يه دايره روي فرم داشته باشم ولي توي يه قسمتش مشكل دارم .


Circle (x,y),z,Color, محل خاتمه قوس , محل شروع قوس

اين قسمت تعيين شروع و پايان محل قوس ميخواستم ببينم بر چه اساسيه و بين چه رنجيه ؟ :متفکر:

ممنون ميشم اگه كمك كنين .

[returnx]

اگه اشتباه نکنم اون دو پارامتر برای کشیدن کمان هست و در زمان کشیدن دایره نیازی نیست...
و در ضمن اگه اشتباه نکنم بر حسب رادیان هست(مطمئن نیستم)

[MeHrDaD341]

خب من ميخوام كمان بكشم .
در مورد عددش هم من هر چي وارد كردم ارور ميده فقط 1 تا 6 ارور نميده :متفکر:

[returnx]

در مورد عددش هم من هر چي وارد كردم ارور ميده فقط 1 تا 6 ارور نميده :متفکر:
همونطور که حدس میزدم بر حسب رادیان مقدار دهی میشه:

OBJECT.CIRCLE [STEP](X,Y),RADIUS,[COLOR,START,END,[ASPECT]]]
--
STEP-IT SPECIFIES THE CENTER OF THE CIRCLE IS RELATIVE TO THE CURRENT COORDINATES GIVEN BY "CURRENTX","CURRENTY"
X,Y-INDICATES THE CENTER COORDINATE OF THE CIRCLE.
RADIUS-INDICATES THE RADIUS.
START,END-WHEN AN ARK OR A PARTIAL CIRCLE IS DRAWN START AND END SPECIFIES THE BEGINNING AND THE END POSITION OF THE ARC.
THE RANGE FOR BOTH IS -2Pi RADIAN TO +2 Pi RADIAN.THE DEFAULT VALUE FOR START IS 0 RADIANS AND THAT FOR END IS 2*Pi RADIANS.
ASPECT-INDICATES THE ASPECT RATIO OF THE CIRCLE.DEFAULT IS 1.0 WHICH YIELDS A PERFECT CIRCLE ON ANY SCREEN
به طور مثال:
این کد رو تو رویداد Intialize بنویس و خاصیت Auto Redraw فرم رو برابر True قرار بده:

Circle (800, 500), 400, vbRed, 2.6, 5.3

[returnx]

اینم رسم کمان با تابع API :

Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long

Private Sub Form_Load()
Dim rval As Long
rval = Arc(Form1.hdc, 100, 450, 300, 10, 250, 100, 100, 150)
End Sub