تابع رسم تمام شکل های چند وجهی نظیر مثلث و مربع

[razavioo 310]

تابعی که بنده نوشتم و امیدوارم برای دوستان موثر و قابل استفاده باشه، تابعی به نام ashkal هست که به راحتی با استفاده از اون می تونید اشکال هندسی چند وجهی نظیر مثلث، مربع، شش ضلعی و در نهایت دایره رو با استفاده از Convas و نیز Path طراحی کنید.

#Region  Project Attributes 
	#ApplicationLabel: Ashkal With Convas
	#VersionCode: 1
	#VersionName: Demo
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	
End Sub

Sub Globals
	Dim x As Int = Activity.Width
	Dim y As Int = Activity.Height
End Sub

Sub Activity_Create(FirstTime As Boolean)
	ashkal(10, x/7, 0, x/2, x/2)
	ashkal(3, x/6, 0, x/6, y/5)
	ashkal(4, x/8, 30, 4*x/6, x/4)
End Sub

Sub ashkal (zel As Int, size As Int, zavie1 As Int, xposition As Int, yposition As Int)
	Dim c As Canvas
	c.Initialize(Activity)
	Dim p As Path
	p.Initialize(xposition, yposition)
	Dim zavie As Int
	Dim xpath, ypath As Int
	For i = 0 To zel + 1
		zavie = zavie1 + i*(360/zel)
		xpath = xposition + size*Cos(zavie*cPI/180)
		ypath = yposition + size*Sin(zavie*cPI/180)
		p.LineTo(xpath, ypath)
	Next
	c.ClipPath(p)
	c.DrawColor(Colors.RGB(Rnd(1,255),Rnd(1,255),Rnd(1,255)))
	c.RemoveClip
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

ورودی های این تابع همونطور که مشخصه به ترتیب :

 

Zel تعداد اضلاع چند وجهی

size اندازه (کمی بزرگ تر از ضلع چند وجهی)

zavie1 زاویه اولیه وارد شده بر حسب درجه (مثلا 30 درجه) که چرخش فضایی چند وجهی رو مشخص می کنه

xposition و yposition به ترتیب موقعیت تقریبی افقی و عمودی شکل در صفحه رو مشخص می کنه

 

در پایان هم از آقای بیات عزیز که پست زیر رو در انجمن نوشتن و ایده نوشتن شکل کامل تر رو بهم دادن تشکر می کنم.

 

http://answercenter.ir/topic/12940-%D8%B1%D8%B3%D9%85-%D9%85%D8%AB%D9%84%D8%AB/

ashkal(razavioo).zip