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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


vistamobile

پاسخگو و راهنما
  • تعداد ارسال ها

    1,439
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    20

آخرین بار برد vistamobile در 24 مهر

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

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

1,651 عالی

4 دنبال کننده

درباره vistamobile

  • گروه ثانویه پاسخگو و راهنما
  • درجه
    مختار رئوفی زاده
  • تاریخ تولد 1 تیر

روش های تماس

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

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

  • بیوگرافی
    Array
  • محل زندگی
    Array
  • محل تولد
    Array
  • علایق
    Array
  • شغل
    Array

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

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمیشود.

  1. ببخش بزرگوار. دقت نکردم
  2. داداش اسپ نده بجاش از دکمه امتیاز پست یا کاربر و تشکر استفاده کنین. اگر کارتون راه افتاده بهترین پاسخ رو بزنین. تشکر
  3. سلام استاد عزیز. چک کردم اونی نشد که میخوام. خیلی تکراری میده. من یه چیزی میخوام شبیه این بشه :
  4. سلام. ببین این پروسه طولانی ولی سادست : اول تو اکتیویتی main تو قسمت process global اینو بزن : Sub Process_Globals ' مقدار اولیه سکه Dim coin As Int = 10 End Sub بعد تو Activity_Create همون اکتیوتی main ذخیرش کن به این صورت : If File.Exists(File.DirInternal ,"coinc.txt") = False Then File.WriteString(File.DirInternal,"coinc.txt",coin) End If حالا باید بیایی برای فراخوانی مقدار سکه ذخیره شده هم یه خط کد بنویسی . این خط کد میاد اگر کاربر از بازی خارج شد، بعد وارد شد آخرین مقداری که سکه داشته رو فراخونی میکنه: Sub Activity_Resume Try coin=File.ReadString(File.DirInternal,"coinc.txt") Catch Log(LastException) End Try End Sub همونطوری که مشخصه، اومدم تو Activity_Resume اینو زدم . الان کارمون با اکتیویتی main تموم شد. بریم سراغ دیدن ویدئو یا کم و زیاد شدن سکه : Main.coin = Main.coin + 5 File.WriteString(File.DirInternal,"coinc.txt",Main.coin) این کد رو هر جایی خواستی تو هر اکتیوتی میتونی بزاری. یعنی چی؟ یعنی مثلا کاربر به سوالت جواب داده و 5 سکه جایزه گرفته، اینو میزاری تو ساب باتون جوابت. یا ویدئو رو دیده بعد تو ساب برگشت تایید ویدئو اینو میزاری. یا درون پرداخت کرده بعد تایید درون پرداخت اینو میزاری . مثلا اینجا کاربر من 50 سکه خریده. من تو ساب تایید خرید، بعد از خرید موفق این کد رو گذاشتم که 50 سکه اضافه بشه و ذخیره بشه Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase) ' این تایید پرداخته If Success= True Then If Product.DeveloperPayload = "pardakht1" Then pardakht.ConsumeProduct(Product) ' این اضافه و ذخیره کردن سکه ست Main.coin = Main.coin + 50 File.WriteString(File.DirInternal,"coinc.txt",Main.coin) Msgbox("تبریک"," 50 سکه اضافه شد") End If end if
  5. سلام رو اندروید 9 تست کن یا ایمولاتور. احتمالا از لیست ویو استفاده کردی و اینکه ایتم های لیست ویو یا خیلی بزرگن و چسبیدن یه گوشه یا کوچیک و ناخوانا. البته احتمال اولی بیشتره.
  6. سلام دوستان. خوبین خوشین؟ یه سوال در مورد اعداد رندوم. من میخوام عدد یک تا پنج رو رندوم کنم بین 30 تا باتون. یعنی بصورت رندوم بیاد یک تا پنج رو 6 بار تکرار کنه!!
  7. سلام. احتمالا بشه. میشه بازیکن ها رو با پنل زد و قابلیت جابجایی پنل ها رو داد. بعد موقعیت پنلها رو با شی (توپ) بدست آورد که برخورد کرد توپ واکنش نشون بده و برگشت بخوره. واسه هوش مصنوعی رقیب هم که باید راهنمایی از اساتید انجمن بگیری. میشه ولی سخته. من میگم سعیتو بکن
  8. سلام. واسه نکته اولت : oBillingManager.RequestPayment("gas", "inapp", "DeveloperPayload") این کد پیشنهادی واسه محصولات مصرفی و subs برای محصولات اشتراکیه. و اینکه لاگ نگرفتم وای الان میرم تست کنم ببینم میشه یانه
  9. سلام. من طبق آموزشها جلو رفتم واسه درون پرداخت مایکت تو b4a: 1 - اولش تو مانیفست دسترسی دادم : AddPermission(ir.mservices.market.BILLING) 2 - بعدش معرفیش کردم تو global : ' درون پرداخت مایکت Dim key As String="MIGfMA0GCSqGSIb3DQEBAQ......" Dim oBillingManager As BillingManager3 3 -بعد نصبش کردم تو activty create : oBillingManager.Initialize("BillingManager", key) ' 4 - و بعد تو کلید خریدم دستور پرداخت رو گذاشتم : Sub Button1_Click oBillingManager.RequestPayment("50coin", "inapp", "kharid1") ' گفتم بیاد 50 تا سکه بخره End Sub 5 - بعد هم اومدم چک کردم خرید موفق بود سکه اضافه بشه: Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then If Product.ProductId="kharid1" Then oBillingManager.ConsumeProduct(Product) Main.coin = Main.coin + 51 File.WriteString(File.DirInternal,"sekke.txt",Main.sekke) Msgbox("تبریک","انجام شد") end if End If end sub تراکنش انجام میشه و خرید صورت میگیره ولی وقتی برمیگرده تو بازی ، سکه ها اضافه نمیشه. من چند ساله با درون پرداخت کافه بازار مشکلی ندارم ولی تو مایکت اولین بارمه و خیلی عجیبه. خواستم از دوستان کمک بگیرم ببینم دلیلش چیه که بعد تراکنش هیچ اتفاقی نمیافته. تشکر
  10. من تست زدم مشکل داره رو امولاتور زدم اشیا رفتن گوشه بالا سمت چپ. البته تو سایز تبلت رو حالت عمودی. رو حالت گوشی مشکلی نداشت. رو گوشی خودمم رفت سمت چپ بالا. که یکم تو ذوق میزنه. یه احتمال هست داداش. ببین تو کد نویسی پوزیشن نداده با اشیا.
  11. سلام. اینکه تو دوتا گوشی یکیه اتفاقی بوده احتمالا. من از نرم افزار استفاده میکنم و لایوت رو میدم و کد دیزاین رو میگیرم. دیزاین وقتی درسته که رو تبلت و گوشی با سایز 4 اینچ هم درست اجرا بشه.
  12. سلام عشقولیا، بنظرتون بازی کینگ ویچ 2 رو بسازم یا بازی با کلمات جدید؟؟

  13. سلام. محمد جان خسته نباشی. راهی هست که فقط یک گوشه گرد بشه؟؟ یعنی سه گوشه نود درجه و یک گوشه گرد. تشکر بابت کتابخونه های عالی
  14. vistamobile

    سال 97 رو چطور گذروندی ؟

    سلام. اولا اینکه ما که تو دهه چهل زندگی هستیم پیرمرد نیستیم پیرمرد خودتی. دوم اینکه امسال هیچ بازی موفقی نزدم دلیلشم اینکه چندتا پروژه گرفتم ولی شش تا بازی خوابوندم تو آب نمک تا مهر امسال. ان شا الله هر شش تا هم که تکمیل شد منتشر میکنم. دخترم یک سال بزرگتر شد و من کماکان مستاجرم تو تعمیرات گوشی خیلی بهتر شدم و تقریبا تو شهر مون کسی نیست منو نشناسه (شکر خدا) بعد اینکه انجمن خودمون نسبت به سالهای قبل درسته ساکت تره ولی کارهای واقعا قوی ارائه شد از آموزشها و برنامه های کاربرها بگیر تا کتابخونه ها. جای پژی و عرفان و نمیسیس و حاج حسین و محمد معتمدی و عشق خودم شهاب و ... خالی. چندتا زلزله داشتیم و یکم سیل و آبگرفتگی که شکر خدا اینجا خسارت نداشت. من برم مشتریم رو گازه. فعلا
×
×
  • جدید...