رفتن به مطلب

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


razavioo

ارسال‌های توصیه شده

تابعی که بنده نوشتم و امیدوارم برای دوستان موثر و قابل استفاده باشه، تابعی به نام 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

post-5704-0-51968000-1467311807_thumb.png

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...