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

پست های پیشنهاد شده

Mehdi_Abn    10

گروه دانشجو

سلام دوستان:love:

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

میتونید با استفاده از این سورس برنامه را به دلخواه خودتون در بیارید و اون رو انتشار بدید♥

دانلود:

WakiTaki_B4A.rar

رمز:

learn-net.ir

به اشتراک گذاری این ارسال


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • مطالب مشابه

    • توسط Mehdi_Abn
      سلام و خسته نباشید اگه میشه یه سورس برنامه محاسبه سود سپرده و وام بانکی قرار بدید ممنون میشم💗
    • توسط clik8000
      دوستان کس یسورس برنامه سفارش آنلاین غذا رو داره 
      میخوام واستم اختصاصی کنه
      @vahidabedini
      آیدی من تو تلگرامه 
      فقط قیمت معقول باشه 
    • توسط aref74
      سلام خدمت همه اساتید . 
      برای برنامم پرداخت درون برنامه ای گذاشتم ولی زمانیکه برای تست برنامه و عملکردش رو گزینه مربوطه کلیک میکنم که پرداخت انجام بگیره یک پیغام از طرف بازار میاد و نوشته لطفا صبر کنید . البته این پیغام در حد یک ثانیه میاد و میره و بعدشم هیچ اتفاقی نمیوفته و تو قسمت لُگ برنامه بیسیک همچین چیزی مینویسه . کسی میدونه مشکل کجاست ؟ 
      **requestCode = 1~i:** Activity (buy) Pause, UserClosed = false
      sending message to waiting queue (OnActivityResult)running waiting messages (1)Arrived: 1, 1
       
      اینم کدی که تو برنامه موجوده :
      Sub Process_Globals Dim bm As BillingManager3 Dim key As String = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBr......" End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("buylayout") bm.Initialize("bm", key) If File.Exists(File.DirInternal,"k.txt")=True Then ' bsbanner.DisableBannerAds ' Else ' bsbanner.EnableBannerAds ' End If End Sub Sub Label6_Click Try bm.RequestPayment("full","inapp","test") ' Catch ' Msgbox("لطفا مارکت بازار را نصب و سپس اقدام نمایید","مارکت بازار") ' End Try End Sub Sub bm_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then ToastMessageShow("با موفقیت پرداخت شد",True) File.Writestring(File.DirInternal,"k.txt","as") bsbanner.DisableBannerAds Else ToastMessageShow("خطا در پرداخت",True) End If End Sub  
       
  • کاربران آنلاین در این صفحه   0 کاربر

    هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×