رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


M-CAP7AIN

کاربر فعال
  • تعداد ارسال ها

    608
  • تاریخ عضویت

  • روز های برد

    76

آخرین بار برد M-CAP7AIN در 30 فروردین

M-CAP7AIN یکی از رکورد داران بیشترین تعداد پسند مطالب است !

اعتبار در سایت

514 عالی

11 دنبال کننده

درباره M-CAP7AIN

  • درجه
    کاربر حرفه ای
  • تاریخ تولد تعیین نشده

روش های تماس

  • اسکایپ
    Array
  • آدرس سایت
    Array

مشخصات پروفایل

  • محل زندگی
    Array
  • علاقه مندی ها
    Array

آخرین بازدید کنندگان نمایه

1,083 بازدید کننده نمایه
  1. M-CAP7AIN

    مثال ساده بازی با حروف

    کلاس رو بروز کردم ، مشکل شما با مقدار برگشتیه لیسته که مقدار دهی نشده ، کلاس جدید رو جایگزین کنید.(از پست اول دانلود کنید) همیشه لاگ رو موقع خطاها بررسی کنید ، (برنامه نویسی == دیباگ)
  2. M-CAP7AIN

    مثال ساده بازی با حروف

    همون مثال رو پیوست کنید یا تلگرام بفرستید
  3. آپدیت 5.8 اضافه شدن لیست ویوهای متریال به دیزاینر داخلی رفع یکسری مشکلات بهبود کدنویسی برخی از بخش ها * حدودا 2 تا ... ماهی نیستم تو این مدت که نیستم یه Gift کوچیک برای همه ، تو این مدت اندک ، خوبی ، بدی دیدید حلال کنید. - پابلیک شدن نسخه Bronze | (دانلود نسخه) - (نحوه استفاده یدونه پنل داخل لیوت قرار میدید ، سایز پنل رو داخل نرم افزار وارد میکنید ، ویوهاتون رو داخل پنل میچینید ، از نرم افزار خروجی اسکریپت دیزاینر میگیرید) - لینک این نسخه فقط داخل انجمن قرار داده شده ، از جای دیگه دانلود نکنید!
  4. M-CAP7AIN

    مثال ساده بازی با حروف

    سلام به دلیل کمبود وقت ، تایم خالی نداریم ، مختصر توضیح میدم 1.کلاس MC7Drawing (کاربرد کلاس : وظیفه کنترل تاچ رو پنل و نگه داری موقعیت های تاچ و رسم خط) - پس از رسم خط یک مقدار برگشتی از دکمه های تاچ شده برگشت داده میشه. (از این بخش میتونید عمل مقایسه رو انجام بدید ، با این کلاس کاری ندارید فقط کافیه یدونه پنل (سینی) قرار بدید ، حرف هارو تو سینی قرار بدید(دکمه ها) ، یدونه پنل دیگه روی سینی بکشید. ) SD.Initialize(Panel1 , Colors.DarkGray ,7dip) مقادیری که کلاس دریافت میکنه ( 1. پنل (پنل رویی سینی) که روی ویو حرف ها قرار داده میشه | 2. رنگ خط | 3. پهنای خط) Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("Main") Button1.Tag = "س" Button2.Tag = "ل" Button3.Tag = "ا" Button4.Tag = "م" Button1.Text = "س" Button2.Text = "ل" Button3.Text = "ا" Button4.Text = "م" BCH11.Tag = "س" BCH12.Tag = "ل" BCH13.Tag = "ا" BCH14.Tag = "م" BCH21.Tag = "س" BCH22.Tag = "ا" BCH23.Tag = "ل" BCH31.Tag = "م" BCH32.Tag = "ا" BCH33.Tag = "ل" SD.Initialize(Panel1 , Colors.DarkGray ,7dip) End Sub 2. تو اولین راه اندازی ویوها مقدار دهی شدن (تو تگ هر ویو حرف مورد نظر به ترتیب قرار داده شده) - تو این مثال به صورت استاتیک مقداردهی شده ، اگه بخوایم به صورت داینامیک یا پویا ویو هارو بسازیم ، به دیتابیس لازم داریم و گرفتن لیست کلمات از ستون دیتابیس ، جدا کردن کلمات ، ریختن کلمات داخل لیست ، گرفتن طول کلمات و ساخت ویوها (کمی پیچیدس ولی با تلاش قابل پیاده سازیه) Sub Panel1_Touch (Action As Int, X As Float, Y As Float) SD.Panel_Touch(x, y, Action , PnlMain) End Sub 3. کافیه یدونه پنل روی باتن کلمات قرار بدید (پنل روی سینی)، و مقادیری که موقع تاچ دریافت میشند رو به کلاس MC7Drawing بدید. Sub PrintListSelected(Selected As List) Select Selected.Size Case 3 If (BCH21.Tag = Selected.Get(0)) And (BCH22.Tag = Selected.Get(1)) And (BCH23.Tag = Selected.Get(2)) Then BCH21.Text = Selected.Get(0) BCH22.Text = Selected.Get(1) BCH23.Text = Selected.Get(2) Counter = Counter + 1 Else if (BCH31.Tag = Selected.Get(0)) And (BCH32.Tag = Selected.Get(1)) And (BCH33.Tag = Selected.Get(2)) Then BCH31.Text = Selected.Get(0) BCH32.Text = Selected.Get(1) BCH33.Text = Selected.Get(2) Counter = Counter + 1 End If Case 4 If (BCH11.Tag = Selected.Get(0)) And (BCH12.Tag = Selected.Get(1)) And (BCH13.Tag = Selected.Get(2)) And (BCH14.Tag = Selected.Get(3)) Then BCH11.Text = Selected.Get(0) BCH12.Text = Selected.Get(1) BCH13.Text = Selected.Get(2) BCH14.Text = Selected.Get(3) Counter = Counter + 1 End If End Select If Counter >= 3 Then Msgbox("شما برنده شدید." , "اتمام بازی") For Each v As View In PnlKeys.GetAllViewsRecursive If v Is Button Then Dim vv As Button = v vv.Text = "" End If Next Counter = 0 End If End Sub 4. این متد مقدار برگشتی از تاچ هست که موقع اتمام تاچ(سینی) به این کلاس ارسال میشه (تو این بخش عمل مقایسه انجام میشه) برای درک کامل این مثال : اول لیوت رو باز کنید تمامی ترکیب بندی ویوها رو بررسی کنید (کی ، چی ، کجا قرار داره) فقط کافیه اکتیویتی main رو بررسی کنید با کلاس MC7Drawing فعلا کاری نداشته باشید(این کلاس برای راحتی کار ، هرچندتا کلمات رو که داخل سینی باشه تشخیص میده). اصول کار تاچ میکنید روی سینی ، لیست کلمات تاچ شده به ترتیب با لیست برمیگرده. خوبه ساده پیدا سازی شده. موفق باشید.
  5. MC7MapParsijoo.ShowMyLocationButton(True) MC7MapParsijoo.ShowMyLocationButtonCallBack(True)
  6. مثال ساده برای ساخت بازی های حرفی (تو این مثال طراحی خاصی به کار برده نشده فقط برای آشنایی با ساختار این سبک بازی ها پیاده شده.) دانلود مثال 1.0 دانلود مثال 1.1
  7. مستقیم مثال گذاشته شده رو ران بگیرید ، ببینید اررور میده.(از آخرین نسخه کتابخونه استفاده بشه) اگه تو پروژه دیگه ای استفاده میکنید ، لیست کتابخونه های استفاده شده رو بفرستید. بروز بودن SDK یا استفاده از SDK خود B4A
  8. آپدیت 1.5 اضافه شدن InfoWindow برای شخصی سازی دیالوگ Marker
  9. از سرویس استفاده کنید و با استفاده از روش هایی مثل StartServiceAt یا نوتیفیکیشن این سرویس رو پایدار نگه دارید ، ببینید مشکل حل میشه. باید تو بخش B4A تاپیک میزدید.
  10. آپدیت 5.7 تغییر اندازه جدول بر حسب dp اضافه شدن 'ذره بین' به دیزاینر داخلی
  11. از استاندارد خود JavaFX استفاده شده ، تو آپدیت بعدی با dp هماهنگ میکنم. عدد 7و8 اگه زوم کنید با magnifier ویو داخل مرکز قرار نداره
  12. آپدیت جدید 5.6 اضافه شدن جدول به دیزاینر داخلی اضافه شدن الگوریتم AES به بخش Security (برای استفاده از این بخش باید حالت قدرت نامحدود JCE جاوا فعال شود راهنما )
  13. Sub ParsWKT(wktstring As String) Dim wkt As String = wktstring Dim wkt1 As String = wkt.Replace("LINESTRING ","").Replace("(","").Replace(")","") Dim arr1() As String = Regex.Split(", " , wkt1) Dim PolyLine As MC7MapParsijooPolyLine PolyLine.Initialize(MC7MapParsijoo) For i=0 To arr1.Length-1 Dim arr2() As String = Regex.Split(" ", arr1(i)) Log(arr2(0).Trim) Log(arr2(1).Trim) PolyLine.addPoint2(arr2(1) , arr2(0)).setWidth(5dip).setColor(Colors.Red) Next MC7MapParsijoo.addPolyLine(PolyLine) End Sub * تکه کد برای PolyLine یا مسیریابی در نقشه : ( تو مثال زیر کافیه با ارسال درخواست ، جیسون رو دریافت ، دیکد و رشته wkt رو به متد بالا بدید) * متد بالا رو بهبود دادید به اشتراک بزارید ، بقیه هم استفاده کنند. آما: بزرگ ترین کدها از کوچک ترین تکه کدها ساخته میشه.
  14. مورد اول بازم تست کردم ، فایل کپی میشه ، مشکلی نداره ، بازم تست کنید مورد دوم این رو قبلا خواستم پیاده کنم ولی تشخیص ویوها ، نقش ویو و... به صورت خودکار مشکله ، مخصوصا B4A که فقط یک لیوت RelativeLayout در اختیار داریم. مورد سوم بعداز وارد شدن اندازه ، Enter حتما باید زده بشه
×
×
  • جدید...