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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


تخته امتیازات

  1. نورنما

    نورنما

    کاربر فعال


    • امتیاز

      2

    • تعداد ارسال ها

      520


  2. godping

    godping

    کاربر رو به رشد


    • امتیاز

      2

    • تعداد ارسال ها

      51


  3. محمدرضا شاهپیری

    محمدرضا شاهپیری

    معاون انجمن


    • امتیاز

      1

    • تعداد ارسال ها

      2,331


  4. m007moh

    m007moh

    کاربر رو به رشد


    • امتیاز

      1

    • تعداد ارسال ها

      294



مطالب محبوب

در حال نمایش مطالب دارای بیشترین امتیاز در جمعه, 21 دی 1397 در همه بخش ها

  1. 1 امتیاز
    مشکلی نداره از سورس اصلی که سایت گذاشته باید استفاده کنید مشکلتون برطرف میشه GitHub - Seyyed-Morteza-SeyyedAghaei/ZarinPal-Sample-For-B4A
  2. 1 امتیاز
    با سلام خدمت همه انسر سنتریهای عزیز از اونجایی که داکیومنتهای مارکتهای محترم در مورد پرداخت درون برنامه ای یه خورده گنگ و مبهمه تصمیم بر این شد آموزشی در این خصوص تهیه بشه بیس این آموزش داکیومنتهای خود مارکتها هست فقط ما اونها رو ترکیب کردیم که بشه برای همه مارکتها بدون دردسر استفاده کرد سورس و فایلها و فیلم آموزشی در لینک زیر هستش ایشالا که مفید واقع بشه پسند یادتون نره پسورد:answercenter.ir http://s6.picofile.com/file/8255412176/inappbillding.rar.html
  3. 1 امتیاز
    سلام نمونه سورس و کتابخانه زرین پال ZarinPal-B4A-Library-master برای توضیح بیشتر برای نحوه استفاده از سورس ،مطالب پایین رو نگاه کنید Sub Globals Dim PaymentBtn As Button,MerchantText,AmountText As EditText End Sub Sub Activity_Create(FirstTime As Boolean) 'Add Views To Activity MerchantText.Initialize("") Activity.AddView(MerchantText,0,0,100%x,100dip) ''مثلا 123456789012345678901234567890123456 MerchantText.Hint = "Enter MerchantID کد درگاه پرداخت(مرچنت کد)36 رقمی" AmountText.Initialize("") Activity.AddView(AmountText,0,100dip,100%x,100dip) AmountText.Hint = "Enter Amount قیمت کالامثلا 1000 " AmountText.InputType = AmountText.INPUT_TYPE_NUMBERS PaymentBtn.Initialize("PaymentBtn") Activity.AddView(PaymentBtn,30%x,200dip,40%x,100dip) PaymentBtn.Text = "Payment پرداخت با زرین پال" End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub PaymentBtn_Click 'Clicked Payment Button Dim Payment As Payment Payment.Initialize _ 'Initialize Payment .SetMerchantID(MerchantText.Text) _ 'Set Merchent ID عدد36 رقمی کد درگاه پرداخت(مرچنت کد) .SetAmount(AmountText.Text) _ 'Set Payment Amount Example : 1000 قیمت کالا .SetEmail("ایمیل@yahoo.com") _ 'Set Email Address .SetDescription("تست پرداخت کتابخونه B4A") _ 'Show In Payment Page .SetMobile("شماره موبایل 091234567890") 'Set Mobile PhoneNumber 'Start Payment ZarinPal.Pay(Payment,"Purchase") End Sub Sub Purchase_Failure(Error As Object) 'Payment Failed! Dim ErrorMessage As String Select Error Case ZarinPal.INVALID_PAYMENT ErrorMessage = "پرداخت تایید نشد" Case ZarinPal.USER_CANCELED ErrorMessage = "پرداخت توسط کاربر متوقف شد" Case ZarinPal.NOT_ENOUGH_DATA ErrorMessage = "اطلاعات پرداخت کافی نیست" Case ZarinPal.UNKNOWN ErrorMessage = "خطای ناشناخته" End Select ErrorMessage = "خطا : "&CRLF&ErrorMessage ToastMessageShow(ErrorMessage,True) Activity.Title = ErrorMessage End Sub Sub Purchase_Success(RefID As String) 'Payment Success ToastMessageShow("Payment Success :پرداخت باموفقیت انجام شد)",True) Activity.Title = "کد پیگیری : "&RefID End Sub
×
×
  • جدید...