vistamobile

ببخش بزرگوار. دقت نکردم

داداش اسپ نده بجاش از دکمه امتیاز پست یا کاربر و تشکر استفاده کنین. اگر کارتون راه افتاده بهترین پاسخ رو بزنین. تشکر

سلام استاد عزیز. چک کردم اونی نشد که میخوام. خیلی تکراری میده. من یه چیزی میخوام شبیه این بشه :

سلام. ببین این پروسه طولانی ولی سادست : اول تو اکتیویتی 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

سلام رو اندروید 9 تست کن یا ایمولاتور. احتمالا از لیست ویو استفاده کردی و اینکه ایتم های لیست ویو یا خیلی بزرگن و چسبیدن یه گوشه یا کوچیک و ناخوانا. البته احتمال اولی بیشتره.

up

سلام دوستان. خوبین خوشین؟ یه سوال در مورد اعداد رندوم. من میخوام عدد یک تا پنج رو رندوم کنم بین 30 تا باتون. یعنی بصورت رندوم بیاد یک تا پنج رو 6 بار تکرار کنه!!

سلام. احتمالا بشه. میشه بازیکن ها رو با پنل زد و قابلیت جابجایی پنل ها رو داد. بعد موقعیت پنلها رو با شی (توپ) بدست آورد که برخورد کرد توپ واکنش نشون بده و برگشت بخوره. واسه هوش مصنوعی رقیب هم که باید راهنمایی از اساتید انجمن بگیری. میشه ولی سخته. من میگم سعیتو بکن

سلام. واسه نکته اولت : oBillingManager.RequestPayment("gas", "inapp", "DeveloperPayload") این کد پیشنهادی واسه محصولات مصرفی و subs برای محصولات اشتراکیه. و اینکه لاگ نگرفتم وای الان میرم تست کنم ببینم میشه یانه

سلام. من طبق آموزشها جلو رفتم واسه درون پرداخت مایکت تو 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 تراکنش انجام میشه و خرید صورت میگیره ولی وقتی برمیگرده تو بازی ، سکه ها اضافه نمیشه. من چند ساله با درون پرداخت کافه بازار مشکلی ندارم ولی تو مایکت اولین بارمه و خیلی عجیبه. خواستم از دوستان کمک بگیرم ببینم دلیلش چیه که بعد تراکنش هیچ اتفاقی نمیافته. تشکر

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

سلام. اینکه تو دوتا گوشی یکیه اتفاقی بوده احتمالا. من از نرم افزار استفاده میکنم و لایوت رو میدم و کد دیزاین رو میگیرم. دیزاین وقتی درسته که رو تبلت و گوشی با سایز 4 اینچ هم درست اجرا بشه.

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

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