با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO

 

رسم نیم دایر ه، دایره کامل یا … روی یک ویو

• با تابع زیر میتونید با دادن ۰ الی ۱۸۰ یک نیم دایره بکشید، و اگر همین عدد رو ۹۰ یا ۳۶۰ یا… بگذارید میتونید یک چهارم دایره یا تمام دایره یا… رسم کنید.

 

Dim cvsTest As Canvas
cvsTest.Initialize(Activity)
Dim x1 As Float
Dim y1 As Float
For i = 0 To 180
x1 = x1 + SinD(i)
y1 = y1 + CosD(i)
cvsTest.DrawCircle(x1+50%x,40%y+ y1,10,Colors.Red,True,80dip)
Next
Activity.Invalidate

 

• بجای Activity میتونید ویو دلخواهتون رو بدید.