رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

جستجو در تالار

در حال نمایش نتایج برای برچسب های 'basic4android'.



تنظیمات بیشتر جستجو

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


دسته ها

  • Articles

تالار ها

  • انجمن برنامه نویسی Basic4X
    • قوانین
    • انتقادات و پیشـــنهادات
    • پشتیبانی
    • اخبار
    • بازارچه
  • Basic4Android - برنامه نویسی اندروید
    • کتابخانه ها Libraries
    • کتابخانه های رپ شده library wrapper
    • آموزش های مبتدی
    • متریال
    • درخواست ها
    • سورس کد
    • آموزش های تصویری
    • آمورش های متنی
    • پاسخگوی به سوالات
    • برنامه های ساخته شده شما
    • پشتیبانی محصولات کاربران
  • Basic4IOS - برنامه نویسی ای او اس
    • IOS کتابخانه ها Libraries
    • IOS آموزش های تصویری
    • IOS سورس کد
    • IOS برنامه های ساخته شده شما
  • Basic4Java - برنامه نویسی کامپیوتر - شبکه - جاوا
    • B4J کتابخانه ها Libraries
    • B4J آموزش های تصویری
    • B4J سورس کد
    • B4J پاسخگوی به سوالات
    • B4J برنامه های ساخته شده شما
    • پشتیبانی محصولات کاربران
  • Basic4Arduino - برنامه نویسی آردوینو
    • B4R کتابخانه ها Libraries
    • B4R آموزش و سورس کد
  • AndroidStudio-اندروید استودیو
    • آموزش اندروید استودیو
    • سورس کد
    • کتابخانه ها
  • برنامه های مورد نیاز برنامه نویسی بیسیک
    • برنامه های ویندوز
    • برنامه های اندروید و ای او اس
    • دیگر نیازمندی ها
  • دیگر برنامه ها و زبان های برنامه نویسی
    • آموزش PHP
    • آموزش RUBY
    • اکلیپس
    • پاسخگویی به سوالات
    • آموزش سی شارپ
  • گرافیک
    • ابرازهای طراحی
    • طرح های لایه باز
    • درخواست ها
  • متفرقه
    • آگاه سازی
    • بازی TownShip-تاون شیپ
    • VIP
    • صندلی داغ
    • بحث آزاد
    • مسابقه
  • بایگانی
    • بایگانی
  • کلوپ بچه های بیسیک's موضوع ها

وبلاگ‌ها

چیزی برای نمایش وجود ندارد

چیزی برای نمایش وجود ندارد


124 نتیجه پیدا شد

  1. سلام ممنون میشم این کتابخونه رو از github برام رپ کنید. خییییییییییلی برام حیاتیه https://github.com/LukeDeighton/WheelView?utm_source=android-arsenal.com&utm_medium=referral&utm_campaign=780
  2. جدیدترین نسخه نرم افزار Basic4Android را با لینک مستقیم از این پست دانلود کنید. در این نسخه تغییرات زیادی انجام شده است که در ادامه به بررسی این قابلیت ها می پردازیم. اضافه شدن استفاده شکلک و عکس و متن های طولانی در (تایتل ، توست مسیج ، مسیج باکس و ….). CharSequence as internal type. Allows showing rich text in many places such as: Labels, toast messages, dialogs, ListView and others. • استفاده از متد multoDex در سرویس ها و اکتیویتی ها ، ماژول ها. Support for MultiDex - With MultiDex enabled there is no limit to the number of methods or fields. This issue is important for large projects that reference many third party libraries. کارایی : رفع باگ های کدنویسی نرم افزار Basic4Android ؛ افزایش پردازش کار ها و متد ها 'main module #MultiDex: True • کتابخانه OkHttp اپدیت شد و چندین باگ فیکس شد ، نسخه انتشار داده شده : 3.50 OkHttp updated and is now based on OkHttp v3.50. • استفاده از چندین دیوایس از طریق B4A-Bridge و وصل شدن مولتی به دیوایس ها. Many improvements to B4A-Bridge: کارایی : رفع مشکلات نرم افزار Basic4Android در گوشی مختلف برای تست قبل انتشار Auto discovery - Devices running B4A-Bridge are discovered automatically and are listed in the devices list with their names. Logs - The logs implementation was rewritten. Logs reading with B4A-Bridge is more stable and it is also possible to read the unfiltered logs (limited to the running process). #BridgeLogger attribute - When set to true, logs will be available in release mode as well as debug mode. Landscape layout. Download progress bar. File Explorer menu shortcut. • استفاده از کلید F7 برای پیدا کردن تمامی ریفرنس ها یا کال ساب ها. Find all references (F7) finds references in layout files and CallSub methods. • اضافه شدن دو ساب زیر به ساب اصلی TypeFace. Typeface.FONTAWESOME / MATERIALICONS constants. کارایی : استفاده مستقیم فونت ایکنی و ایکن های متریال در کدنویسی که دیگه نیازی نیست Resource به برنامه اضافه کنه برای ایکن ها. • اضافه شدن هیلتر سرچ برای ایکن ها و ایکن های متریال که قبلا در بیسیک فور اندروید به قسمت دیزاین اضافه شد. Icon picker - Filter field and icons tool tips: • اضافه شدنCallSubUtils در قالب یک کتابخانه برای بیسیک فور اندروید. CallSubUtils is included as a library. • منو جدیدی ایجاد شده برای برای اجراء رویداد ها و تغییر ان برای جلوگیری از Force Close شدن برنامه. (اجرا متد (رویداد کلیک) برای مشکلات به وجود اماده) Menu click event implementation changed to avoid issues with modal dialogs. • انتشار و اشکال زدایی علامت تلفیقی (symbol) در ویرایشگر و در دیزاین اسکریپت پشتیبانی می شوند. Release and Debug compilation symbols are supported in the manifest editor and designer script. • دیتا و دیتابیس برنامه در فایل zip ذخیره سازی میشود و محفوظ است برای برنامه. Export as zip keeps the original dates. کارایی : خروجی گرفتن اطلاعات و دیتا های برنامه در قالب فایل zip و همچنین در پیرو تغییرات بالا ، برخی باگ ها فیکس شدن که اطلاعاتی در مورد انها در سایت مرجع نگذاشته شده. Other minor improvements and bug fixes. • همچین در پیرو نسخه 6.8 نرم افزار Basic4Android برای اجرا برنامه بر روی گوشی خودتون از طریق B4A-BRIDGe باید نسخه جدید که امروز خروجی داده شد رو استفاده کنید نسخه انتشار داده b4a-bridge 2.3 میباشد در انتهای پست می تونید دانلود کنید Make sure to update to B4A–Bridge v2.30+ دانلود بیسیک 6.80 دانلود کرک اگر کرک بالا جواب نداد از فایل کرک پیوست استفاده کنید. License & DLL.zip دانلود bridge
  3. سلام - کسی میدونه چیکار میشه کرد که در زمانی که صفحه گوشی خاموشه و گوشی در حالت sleep هست در اون زمان هم کدی که داخل سرویسمون برای یادآور گذاشتیم اجرا بشه. حدود 3 ماه دنبال این موضوع میگردم هنوز پیدا نکردم - زمانی که صفحه گوشی روشنه مشکلی نیست یادآور اجرا میشه و آلارمم پخش میشه اما وقتی صفحه خاموشه صدای آلارم پخش نمیشه . لطفا کسی اگه میدونه کمک کنه
  4. Basic4Android

    Basic4Android مشاهده فایل 6.80 full ارسال کننده H@mid.RS ارسال جمعه, 2 مهر 1395 دسته Basic4Android  
  5. ScrollView بی نهایت!

    سلام دوستان میشه کاری کرد که اسکرول ویو بی نهایت بشه، یعنی به آخرش که رسیدیم اولش دوباره تکرار بشه... فرض کنید ده تا باتن از شماره 1 تا 10 تو یه اسکرول ویو داریم وقتی کاربر اسکرول میکنه و به اخرش میرسه بعد از 10 دوباره 1 تکرار بشه و همینطور قبل از باتن1 ، باتن10 باشه...خلاصه اول و اخر اسکرول ویو معلوم نباشه و هی تکرار بشه درضمن اسکرول ویویی که ساتفاده میکنم افقی (HorizontalScrollView) هستش که فکر نمیکنم تفاوتی داشته باشه با معمولیش.
  6. IRPanelView

    IRPanelView مشاهده فایل درود به همه دوستان عزیز کتابخانه PanelView وارپ شده از پروژه گیت هاب زیر: پروژه گیت هاب کارش نمایش پروجرس بار یا همون نوار وضعیت هست که به صورت زیباتر برای شما نمایش میده وضعیت رو کاربر دهای زیادی داره از جمله نمایش درصد باتری و کارکرد cpu گوشی و .. شات : کتابخانه همراه با سورس کد برای شما قرار داده شد در پناه حق ارسال کننده H@mid.RS ارسال ۱۶/۰۸/۱۴ دسته کتابخانه  
  7. درود به دوستان بعضی اوقات می خواید کاربر اگه حواسش پرت شد و متوجه قفل شدن صفحه گوشیش نشد شما با کد زیر دیگه زحمت باز کردن قفل رو از کاربر بر می دارید وقتی کلید پاور رو برای روشن کردن صفحه گوشی بزنه برنامه شما اجرا میشه و قفل صفحه فعال نمیشه نکته: تا موقعی که داخل برنامه شماست هیچ قفلی درخواست نمیکنه و وقتی از برنامه شما به جای دیگه ای بخواد بره کاربر قفل گوشی فعال و نمایش داده میشه Sub Activity_Create(FirstTime As Boolean) SetShowwithLocked End Sub Sub SetShowwithLocked Dim r As Reflector r.Target = r.GetActivity r.Target = r.RunMethod("getWindow") r.RunMethod2("addFlags", 6815872, "java.lang.int") End Sub
  8. IRKerningView

    IRKerningView مشاهده فایل درود به کاربران عزیزانجمن بیسیک فور ایکس کتابخانه ای برای ایجاد فاصله بین حروف وارپ شده از پروژه گیت هاب زیر : پروژه گیت هاب شات : کتابخانه + سورس کد برای شما قرار داده شد در پناه حق ارسال کننده H@mid.RS ارسال ۱۶/۰۸/۱۱ دسته کتابخانه  
  9. IRLoadingViews

    IRLoadingViews مشاهده فایل درود دوستان انواع لودینگ ویو زیبا براتون نوشتم و می تونید از اون برای بارگزاری یک وب ویو یا هرچیزی که دوست داشتید استفاده کنید : شات : امکانات بیشتری به این کتابخانه اضافه میشه برای شما کاربران عزیز بیسیک فور ایکس در پناه حق ارسال کننده H@mid.RS ارسال ۱۶/۰۸/۰۷ دسته کتابخانه  
  10. درود دوستان شما با این سورس کد که برای یکی از دوستان نوشتم می تونید ادیت تکست ها رو برای ورود شماره کارت تنظیم کنید شما نیازی نیست کاری انجام بدید فقط چشتون به کارت باشه وارد کنید خودش میره جلو شات : سورس کد پیوست شد. Enter Number Cart.zip
  11. کتباخانه ای برای طراحی متریال فوق العاده زیبا و کاربردی اخرین نسخه این کتابخانه برای شما قرار گرفته شد. شات از عملکرد سورس کد FixedTabs شات از عملکرد سورس ScrollingTabs شات از عملکرد سورس کد SnackBar شات از عملکرد سورس کد TabsWithCustomView کتابخانه هم پیوست شد. موفق باشید DesignSupport2_00.zip
  12. درود دوستان و بازدید کنندگان انجمن سورس کد ساخت دیالوگ زیبا و پیشرفته با انواع کادر پیام شات از عملکرد : و شات از تمام قابلیت ها و شاتی دیگر : ExSweetAlertDialog.zip
  13. درود دوستان یه دیالوگ فوق العاده زیبا می تونید ایجاد کنید و یا عملیات دانلود رو روش پیاده کنید که من این کارو براتون کردم شات : و شات از تمام قابلیت های این کتابخانه : و شاتی دیگر : سورس کد همراه با مثال پیوست شد کد نیاز داشتید بگید تا بارتون قرار بدم libSweetAlertDialogV1.1.0.zip ExSweetAlertDialog.zip
  14. آموزش تصویری درون پرداخت مایکت

    برای مشاهده آموزش درون پرداخت مایکت در آپارات به لینک زیر مراجعه نمایید http://www.aparat.com/v/ucgLS
  15. با نام و یاد خدا تعاریف پرداخت درون‌برنامه‌ای در B4A ماژول پرداخت درون‌برنامه‌ای B4A در مایکت از محصولات مصرف‌شدنی، مصرف‌نشدنی و اشتراکی پشتیبانی می‌کند. قدم اول:ا ضافه کردن ماژول مایکت برای اضافه کردن کتابخانه درون پرداخت مایکت لازم است مراحل زیر را انجام دهید.. 1- ابتدا کتابخانه درون پرداخت بازار را از این لینک دانلود نمایید 2- دو فایل MyketIAP.jar و MyketIAP.xml را در پوشه کتابخانه‌های Basic4Android کپی نمایید. 3-در پنل سمت راست B4A، تب libs را انتخاب و Refresh نمایید تا کتابخانه MyketIAP نمایان شود. 4- با استفاده از Manifest Editor (واقع در منوی Project) کد زیر را به Manifest برنامتون اضافه کنید: AddPermission(ir.mservices.market.BILLING) قدم دوم: معرفی API در B4A کلاس BillingManager3 BillingManager3 رابط B4A با سرویس خرید درون برنامه مایکت است. برای استفاده از این کلاس کافیه در Process_Globals ، این کلاس را تعریف کنید: Dim oBillingManager As BillingManager3 از BillingManager3 برای دریافت اطلاعات محصولات خریده‌ شده، خرید یک محصول (فروشی یا اشتراکی) و مصرف کردن آن استفاده میشه. در ادامه با نحوه استفاده از متد‌های BillingManager3 آشنا میشویم: متد Initialize برای استفاده از BillingManager3 ابتدا حتما باید این کلاس را Initialize نمود: oBillingManager.Initialize("BillingManager", publicKey) پارامتر اول EventName . ابتدای نام CallBack‌های BillingManager3 را مشخص می کنه. که در این مستند فرض بر اینه که پارامتر EventName را "BillingManager" مقدار‌دهی نموده‌ایم. پارامتر دوم PublicKey محصولات شماست. توجه کنید که PublicKey را پس از قرار دادن محصول و یا محصولات خود در پنل برنامه‌نویسان، دریافت می‌نمایید. برای مثال : Private PublicKey As String = "MIGf000GCSqGSIb3DQEBAQ12A4GNADCBiQKBgQCS0+b45Va062Yd+5wsMbH3EOrKgg2s0Rn5HZ8smXqbtbRsenFMhQPZ/RSPIMjAZyN0jF4FQn2eAaYUzzNQ52oBfqPudPllvq9OxsZtqF6MUgF1A8fK6znWc/mBDiVz7lAQyDz6vZFv5DSfGJgG1XPsI3LNbdyyllO8yyig1PQJuwIDAQAB" این کد را باید در قسمت Process_Globals قرار داد توجه کنید که publickey مخصوص به خود را از طریق پنل توسعه دهنده مایکت خود باید دریافت نمایید و PublicKey هر برنامه مخصوص به خودش میباشد قدم سوم :چک کردن پشتیبانی از سرویس درون‌خرید مایکت این Callback، پس از اتمام عملیات متد Initialize صدا زده می شه که مشخص می‌کنه که آیا دستگاه کاربر از سرویس درون خرید مایکت پشتیبانی می‌کنه یا نه. در صورتی که مقدار Supported برابر True باشه، دستگاه کاربر از خرید درون‌برنامه‌ای مایکت پشتیبانی می‌کنه. Sub BillingManager_BillingSupported(Supported As Boolean, Message As String) متد RequestPayment از RequestPayment برای خریدن یک محصول (فروشی یا اشتراکی) استفاده می شود: oBillingManager.RequestPayment("gas", "inapp", "DeveloperPayload") پارامتر اول نام محصول است که در پنل برنامه‌نویسان مایکت وارد کردید. پارامتر دوم نوع محصول را مشخص می‌کنه. که برای محصولات فروشی مقدار "inapp" و برای محصولات اشتراکی مقدار "subs" را میپذیره. پارامتر سوم اطلاعات اضافی یا Developer Payload هست. این فیلد شامل رشته‌ای است که مقدار‌دهی آن اختیاریه و در پردازش مایکت تاثیری نداره. مقداری که به این پارامتر تخصیص داده می‌شه عینا در CallBack اتمام خرید (که در ادامه توضیح داده میشه)، باز‌می‌گرده اتمام فرایند خرید این Callback، پس از اتمام عملیات متد RequestPayment صدا زده می‌شود و وضعیت خرید Product را مشخص می‌کند. درصورتی که Success برابر True باشد خرید با موفقیت انجام شده است. اگر محصول خریداری‌ شده از نوع فروشی و مصرف‌شدنی بود، باید این محصول را با استفاده از متد ConsumeProduct در سرور مایکت مصرف نمود. در صورتی که محصول از نوع فروشی و مصرف‌نشدنی و یا از نوع اشتراکی بود، نباید متد ConsumeProduct صدا زده شود. Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase) متد ConsumeProduct برای محصولات مصرف‌شدنی باید حتما پس از خرید، متد ConsumeProduct فراخوانی بشه تا این محصول در سرور مایکت مصرف شود. برای این کار کافیه: oBillingManager.ConsumeProduct(Product) این متد Object محصولی که باید مصرف بشه را در تنها پارامتر ورودی خود میگیره. (این object در callback اتمام خرید ارسال شده.) اتمام عملیات مصرف شدن محصول این Callback، پس از اتمام عملیات متد ConsumeProduct صدا زده میشه و در صورتی که پارامتر Success برابر True باشه، باید محصول را به کاربر تحویل داد. Sub BillingManager_ProductConsumed(Success As Boolean, Product As Purchase) متد GetOwnedProducts این متد در اول برنامه پس از Initialize شدن BillingManager صدا زده میشه. هدف از این کار دریافت محصولات فروشی که در سرور مایکت مصرف نشده اند و محصولات اشتراکی می‌باشد. بعد از اتمام کار، این متد در Callback دریافت محصولات کاربر لیستی از محصولات برمیگردونه. به عنوان مثال زمانی که کاربر در برنامه شما اکانت ویژه (Premium Account) خریداری میکنه همیشه این محصول در Callback‌ برگردونده میشه. برای صدا زدن این متد کافیه: oBillingManager.GetOwnedProducts() دریافت محصولات کاربر این Callback، پس از فراخوانی متد GetOwnedProducts صدا زده میشه و لیست purchases شامل محصولات مصرف‌نشدنی کاربر و محصولات مصرف‌شدنی که در سرور مایکت مصرف نشده‌اند میباشد. Sub BillingManager_OwnedProducts(Success As Boolean, purchases As Map) فعال و غیرفعال کردن Log برای فعال یا غیر‌فعال کردن Log کتابخانه سرویس خرید درون‌برنامه‌ای مایکت، کافیهمقدار True/False را به متد DebugLogging بدهید: oBillingManager.DebugLogging = True اول توضیحات زیر را بخونید خرید بنزین یا Buy Gas بنزین در این مثال در دسته‌ی محصولات فروشی و مصرف‌شدنی است. با فشردن این دکمه در صورتی که مخزن بنزین پر نباشد برنامه به خرید درون‌برنامه‌ای مایکت وصل شده و بعد از پرداخت هزینه مورد نظر تعداد ۱۰ واحد به مخزن بنزین اضافه می‌شود. استفاده بنزین یا Use Gas در صورتی که تعداد بنزین ذخیره بیشتر از ۱۰ واحد باشد، ۱۰ واحد بنزین مصرف می‌شود. خرید اکانت ویژه یا Buy Premium اکانت ویژه در این مثال در دسته‌ی محصولات فروشی و مصرف‌نشدنی است. با انتخاب این گزینه برنامه به خرید درون‌برنامه‌ای مایکت وصل شده و با پرداخت هزینه اکانت ویژه خریداری می‌شود این نوع پرداخت مصرف‌نشدنی است. خرید اکانت اشتراکی یا Get Inifite Gas این اکانت به صورت زمان‌دار است که کاربر با پرداخت هزینه می‌تواند اکانت (ماهانه، هفتگی و یا سالانه) را خریداری کند. توجه داشته باشید که کاربر با خریدن اکانت ویژه می‌تواند به صورت نامحدود بنزین مصرف کند بدیهی است که در این مدت زمان کاربر نباید بنزین خریداری کند و همچنین نمی‌تواند اکانت زمان‌دار دیگری نیز بخرد به همین دلیل دکمه اکانت نامحدود مخفی شده و خرید بنزین نیز غیرفعال می‌شود. خب توضیحات بالا برای افراد نیمه حرفه ای بود حالا به صورت خلاصه براتون توضیح میدم به زبان ساده: اول از همه کدهای زیر را در process_globals قرار بدید Dim oBillingManager As BillingManager3 Private key As String = "MIG0156GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQCS0+btzVa062Yd+5wsMbH3EOrKgg2s0Rn5HZ8smXqbtbRsenFMhQPZ/RSPIMjAZyN0jF4FQn2eAaYUzzNQ52oBfqPudPllvq9OxsZtqF6MUgF1A8fK6znWc/mBDiVz7lAQyDz6vZFv5DSfGJgG1XPsI3LNbdyyllO8yyig1PQJuwIDAQAB" Dim SKU_PREMIUM As String = "premium" Dim SKU_GAS As String = "gas" Dim bIsoBillingManagerAvailable As Boolean = False کد های زیر رو هم در globals قرار بدید Dim Label_Gas As Label Dim Label_MSG As Label Dim Label_Premium As Label کد زیر رو هم در Activity_Create(FirstTime As Boolean) If FirstTime Then Log("Initialize billing manager") oBillingManager.Initialize("BillingManager", key) 'Its for debug log, set it to false after test and when ready to build the App oBillingManager.DebugLogging = True 'False 'True End If برای نمایش دادن مقدار گاز Show_Gas را در Activity_Create(FirstTime As Boolean) قرار میدیم و برای نمایش نوع حساب(معمولی یا ویژه ) Show_Premium را در Activity_Create(FirstTime As Boolean) قرار میدیم. خب حالا سه تا دکمه به اسم های Button_BuyGas ، Button_BuyPremium و Button_UseGas ایجاد میکنیم . و کدهای زیر را مینویسیم: 'Start the buy gas Sub Button_BuyGas_Click StartBuyGas End Sub 'Start the buy Premium account Sub Button_BuyPremium_Click StartBuyPremium End Sub 'Spend gas and reduce the amount of gas Sub Button_UseGas_Click Dim iCurrentGas As Int = Get_Gas iCurrentGas = iCurrentGas - 10 Save_Gas(iCurrentGas) Show_Gas Label_MSG.Text = "" End Sub Sub StartBuyGas() If Get_Gas = 100 Then Label_MSG.Text = "Your Gas is full" Else oBillingManager.RequestPayment(SKU_GAS, "inapp", "Developer Payload") End If End Sub Sub StartBuyPremium() If Get_Gas = 100 Then Label_MSG.Text = "You alrady have premium account" Else oBillingManager.RequestPayment(SKU_PREMIUM, "inapp", "Developer Payload") End If End Sub StartBuyGas برای شروع خرید گاز و StartBuyPremium برای شروع خرید حساب ویژه هست. برای اینکه ببینیم گوشی از پرداخت درن برنامه ای پشتیبانی میکنه یا نه کد زیر را استفاده میکنیم Sub BillingManager_BillingSupported (Supported As Boolean, Message As String) Log("BillingSupported: " & Supported & ", " & Message) ToastMessageShow(oBillingManager.About , True) Log("Subscriptions supported: " & oBillingManager.SubscriptionsSupported) If Supported = True Then bIsoBillingManagerAvailable = True End If If bIsoBillingManagerAvailable = True Then 'Get Owned Products oBillingManager.GetOwnedProducts End If End Sub برای اینکه ببینیم خرید موفقیت امیز بوده یا نه از کد زیر استفاده میکنیم Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase) Log("Is Purchase State: " & Success) If Success Then ToastMessageShow("PurchaseCompleted: Success" , True) 'Consume ProductName if you product is consumable If Product.ProductId = SKU_GAS Then oBillingManager.ConsumeProduct(Product) End If 'Check for non-consumable product If Product.ProductId = SKU_PREMIUM Then Premium_Account(True) Else Premium_Account(False) End If Else ToastMessageShow("PurchaseCompleted: Unsuccess" , True) End If End Sub کد زیر رو هم برای محصولات مصرف شدنی قرار میدیم (خرید اعتبار) (برای محصولات مصرف شدنی (مثل گاز)) ub BillingManager_ProductConsumed (Success As Boolean, Product As Purchase) Log("Product ( " & Product.ProductId & " ) Consume : " & Success ) ToastMessageShow("Product ( " & Product.ProductId & " ) Consume : " & Success , False) If Success = True Then Add_Gas End If End Sub کد زیر هم برای نمایش محصولات درون پرداخت قرار بدید Sub BillingManager_OwnedProducts(Success As Boolean, purchases As Map) Log("Product owned : " & Success) If Success Then Log(purchases) For Each P As Purchase In purchases.Values Log("type : " & P.ItemType & "/" & P.DeveloperPayload) 'Check for consumable product (GAS) If P.ProductId = SKU_GAS Then oBillingManager.ConsumeProduct(P) Add_Gas End If 'Check for non-consumable product (PREMIUM) If P.ProductId = SKU_PREMIUM Then 'Premium account available Premium_Account(True) Else Premium_Account(False) End If Log(P.ProductId & ", Purchased? " & (P.PurchaseState = P.STATE_PURCHASED)) Label_MSG.Text = P.ProductId Next End If End Sub حالا دو تا لیبل به اسم های Label_Premium و Label_MSG بسازید . حالا کد زیر را برای نمایش معمولی بودن یا ویژه بودن اکانت کاربر قرار بدید Sub Premium_Account(isAvailable As Boolean) If isAvailable = True Then Label_Premium.Text = "Premium Account" Save_Premium(1) Else Label_Premium.Text = "Normal Account" Save_Premium(0) End If End Sub حالا کد های زیر رو هم قرار بدید و تمام Sub Add_Gas() 'add 10 to gas Save_Gas( Get_Gas + 10 ) 'update the ui to show added gas Show_Gas End Sub 'Load gas from file Sub Get_Gas() As Int Dim i As Int If File.Exists(File.DirInternal , SKU_GAS) Then i = File.ReadString(File.DirInternal , SKU_GAS) Else 'Start with 100 gas if there is not a file (first run of the app after install) i = 100 Save_Gas(i) End If Return i End Sub 'Save gas to file Sub Save_Gas(iGasAmount As Int) File.WriteString(File.DirInternal , SKU_GAS , iGasAmount) End Sub 'Load premium from file Sub Get_Premium() As Int Dim i As Int If File.Exists(File.DirInternal , SKU_PREMIUM) Then i = File.ReadString(File.DirInternal , SKU_PREMIUM) Else i = 0 Save_Premium(i) End If Return i End Sub 'Save Premium account to file Sub Save_Premium(isPremium As Int) File.WriteString(File.DirInternal , SKU_PREMIUM , isPremium) End Sub 'Show gas to user Sub Show_Gas() Label_Gas.Text = "Gas: " & Get_Gas End Sub 'Show premium to user Sub Show_Premium() If Get_Premium = 1 Then Label_Premium.Text = "Premium Account" Else Label_Premium.Text = "Normal Account" End If End Sub سورس پیوست شد .درصورت وجود هرگونه ابهام تاپیک جدید ایجاد کنید. MyketIAP-sample.zip
  16. با سـلام خـدمت دوســتان گـرامی هـم اکـنون میتوانـید کـتابخــانه درون پـرداخت مایـکت را از انجـمن Basic4x دانـلود نمـایید MyketIAP.zip
  17. درود خدمت دوستان شما می تونید با سورس کدی که براتون قرار دادم ی پیانو با تنظیمات فوق العاده زیاد بسازید صدا ها رو تغییر بدید و ی ساز بندری بسازید شات : کتابخانه مورد نیاز Gestures1.2 در صورت نیاز در بخش در خواست ها درخواست دهید سورس کد پیوست شد Piano (Www.Basic4X.IR).zip
  18. درود به همه دوستان همون طور که می دونید انجمن ما اولین انجمنی بود که نسخه6 ازمایشی رو براتون قرار داد و حالا نسخه کامل این برنامه رو براتون قرار میدیم اولین بار در جهان نسخه Basic4Android v6.00 کامل بدون نیاز به کرک و فعال ساز منتشر شده توسط انجمن ما همون طور که می دونید دوستان کپی پیست می کنن و این برنامه رو که ما گذاشتیم به اسم خودشون میذارن خلاصه این ادمها کم نیستن و دشمن هم حساب نمی شن دقیقا مثل اسرائیل لطفا نسخه قبلی رو از سیستمتون پاک کنید و نسخه جدید رو نصب کنید لینک دانلود نسخه کامل : لیست کامل تغییرات در قسمت دانلود می تونید مشاهده کنید مشکلی اگه در نصب بود حتما اطلاع بدید امیدوارم به پیشرفت روز افزون هموطنان عزیز افزوده بشه تا پرچم ایران همیشه بالا هست بالاتر بره کپی با ذکر منبع مانعی نداره و مجاز، اما کپی بدون ذکر منبع شرعا حرام و پیگرد قانونی داره منبع: Www.Basic4X.Ir و در اخر مرگ بر اسرائیل... در پناه حق
  19. درود دوستان شما برای این کار نیاز به کتابخانه دارید که در لینک زیر قرار دادم : http://basic4x.ir/topic/494-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-fabricview-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9-%D9%81%D9%88%D8%B1-%D8%A7%D9%86%D8%AF%D8%B1%D9%88%DB%8C%D8%AF/?p=1376 حالا با این سورس کد چیکار میشه کرد با اضافه کردن رنگ های بیشتر به برنامه و شخصی سازی کردنش می تونید برنامه خوبی بنویسید امیدوارم کاربرد خوبی داشته باشه شات : سوالی بود در خدمتم b4aFabricView.zip
  20. درود به دوستان عزیز دوستان شبتون بخیر باشه این کتابخونه هدیه ای ناقابل برای شما همین اولشم بگم که از این کتابخونه ها فقط داخل انجمن ما گیر میاد شات از عملکرد: سورس کد و کتابخانه پیوست شد. کپی با ذکر منبع آزاد FaceOffToggleButton.zip FaceOffToggleButtonEx.zip
  21. درود نسخه رفع باگ شده کتابخانه InAppBilling3 تقدیم به شما کاربران عزیز داخل نت پیداش نمی کنید البته بعضیا هم دارن می فروشنش که جای تاسف داره کتابخانه پیوست شد در پناه حق InAppBilling3.zip
  22. با کد زیر می تونید سایز یا حجم فایل رو بگیرید داخل هز مسیری که هست Private getsize As Long Public txtsize As String Dim dir,FileName As String dir=File.DirRootExternal FileName="mojtaba.txt" Dim getsize As Long = File.Size(dir, FileName) txtsize=NumberFormat2(getsize/1000, 0, 0, 0, True)&" KB" Label1.Text = txtsize سوالی در این رابطه بود در خدمتم
  23. درود شما می تونید با این سورس کد تمام اطلاعات موجود در یک سیم کارت از جمله اطلاعات خود سیم رو دریافت کنید : نمایش در قسمت لاگ ها : sim.Initialize() Log("1: - " & sim.GetDataActivity) Log("2: - " & sim.GetDataState) Log("3: - " & sim.GetLine1Number) Log("4: - " & sim.GetLine2Number) Log("5: - " & sim.GetMmsAgent) Log("6: - " & sim.GetMmsURL) Log("7: - " & sim.GetNetworkCountryIso) Log("8: - " & sim.GetNetworkOperator) Log("9: - " & sim.GetPhoneType) Log("10: - " & sim.GetSimCountryIso) Log("11: - " & sim.GetSimOperator) Log("12: - " & sim.GetSimOperatorName) Log("13: - " & sim.GetSimState) Log("14: - " & sim.GetSubscriberId) Log("15: - " & sim.GetVoiceMailAlphaTag) Log("16: - " & sim.GetVoiceMailNumber) Log("17: - " & sim.HasIccCard) Log("18: - " & sim.Imei) Log("19: - " & sim.Imei2) Log("20: - " & sim.IsNetworkRoaming) Log("21: - " & sim.IsDualSIM) Log("22: - " & sim.GetSimSerialNumber1) Log("23: - " & sim.GetSimSerialNumber2) Log("24: - " & sim.GetLine2Number) Log("25: - " & sim.GetNetworkOperatorName) سورس پیوست شد. در پناه حق Example-SimCard2.zip
  24. سورس کد بار کد اسکنر متریال در بیسیک فور اندروید basic4android Scanner شات: پیوست شد MaterialBarcodeEx.zip
  25. کتابخانه ای برای اشتراک متن، چت با یک مخاطب، و .. برای واتس اپ OpenChatWithNumber (phoneNumber As String) Open Chat with Number Example:<code> Dim whapp As WhatsApp whapp.OpenChatWithNumber("+39334336444")</code> createPhoneNumber (displayName As String, mobileNumber As String, email As String) This method create a contact. Example:<code> Dim whapp As WhatsApp whapp.createPhoneNumber("Devil","+393343365647","info@devil-app.com"</code> existPhoneNumber (phoneNumber As String) As Boolean This method determines if a mobileNumber is a contact. Example:<code> Dim whapp As WhatsApp if whapp.existPhoneNumber("+393343365647") then MsgBox("Ok","msg")</code> isInstalled As Boolean This method determines if Whatssap are installed. Example:<code> Dim whapp As WhatsApp if whapp.isInstalled then MsgBox("Installed","Msg")</code> launchMarket This method go to Market. Example:<code> Dim whapp As WhatsApp whapp.launchMarket</code> shareMediaWithContact (uri As Uri, mediaType As Int) Share Media with Contact Example:<code> Example: shareMediaWithContact(Activity.this, uriMedia, IMAGE_TYPE); Example: shareMediaWithContact(Activity.this, uriMedia, AUDIO_TYPE); Example: shareMediaWithContact(Activity.this, uriMedia, VIDEO_TYPE); Dim whapp As WhatsApp whapp.shareMediaWithContact(uriMedia, whapp.VIDEO_TYPE)</code> shareTextWithContact (text As String) Share Text with Contact Example:<code> Dim whapp As WhatsApp whapp.shareTextWithContact("Hi...how are you")</code> Permissions: android.permission.READ_CONTACTS android.permission.SEND_SMS android.permission.WRITE_CONTACTS WhatsApp.zip
×