razavioo 310 ارسال شده در 10 تیر، ۱۳۹۵ اشتراک گذاری ارسال شده در 10 تیر، ۱۳۹۵ تابعی که بنده نوشتم و امیدوارم برای دوستان موثر و قابل استفاده باشه، تابعی به نام 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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.