اطلاعیه

کاربر گرامی

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

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


saeed120m

کاربر عادی
  • تعداد ارسال ها

    14
  • تاریخ عضویت

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

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

3 متوسط

درباره saeed120m

  • درجه
    کاربر

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

36 بازدید کننده نمایه
  1. سلام دوستان یه کتاب دارم پرداخت درون برنامه مایکت رو توش قرار دادم با BillingManager3 رو سامسونگ j3 با اندروید 5.1 راحت کار میکنه ولی رو سونی xperia p با اندروید 4.1 و سامسونگ j5 با اندروید 6 امتحان کردم برنامه باز نمیشه امتحان کردم مشکل از کدای درون پرداخت هست ، این کدارو که حذف میکنم برنامه راحت باز میشه از این کتابخانه استفاده میکنم MyketIAP اینم کدهام AddPermission(ir.mservices.market.BILLING) 'دسترسی درون پرداخت مایکت Sub Process_Globals Private key As String ="MIG" Dim oBillingManager As BillingManager3 End Sub Sub Activity_Create(FirstTime As Boolean) If FirstTime Then oBillingManager.Initialize("BillingManager", key) oBillingManager.DebugLogging = False End If End Sub Sub BillingManager_BillingSupported(Supported As Boolean, Message As String) If Supported=True Then Else ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False) End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button_premium_Click oBillingManager.RequestPayment("premium", "inapp", "Developer Payload") End Sub Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success= True Then ToastMessageShow("با تشکر، خرید با موفقیت انجام شد",True) cur=s.ExecQuery("select * from tbl ") S.ExecNonQuery("UPDATE tbl SET premium = 1 ") Else If Success=False Then ToastMessageShow("خرید انجام نشد، دوباره تلاش کنید" , True) End If End Sub اگه میشه راهنمایی کنید
  2. سلام دوستان چطوری بعد از خرید و فعال کردن برنامه ، دکمه خرید حذف بشه یعنی Button_premium.Visible = False توی ساب عملیات پس از خرید، حذفش کردم ( در اکتیویتی main ) ولی وقتی یک مطلب باز میکنم و دوباره به صفحه اصلی برمیگردم دکمه خرید رو دوباره نشون میده باید کدی باشه که احتمالا در Activity_Create نوشته بشه ؟؟؟
  3. اینم فایل zip project_khvasMeve اینم چند تا کتابخونه که لازم میشن Lib_khavas
  4. ممنون بابت راهنمایی دوستان ولی من هر کاری میکنم درست نمیشه فقط این پیام رو میده (باید نسخه کامل را خریداری کنید) کل اکتیویتی رو براتون میزارم لطفا کد درست و کامل رو بهم بدید اینم عکس دیتابیسم میخام اگه premium یک بود مطلب باز بشه اگه 0 بود پیغام بده #Region Activity Attributes #FullScreen: false #IncludeTitle: false #End Region Sub Process_Globals Dim s As SQL Dim idonvan As String Dim pr As Int End Sub Sub Globals Dim cur As Cursor Private ListView1 As ListView Dim ani As ICOSScaleAnimation Private ScrollView_onvanha As ScrollView Private Label_onvan As Label Private ImageView_onvan As ImageView Private Panel_onvan As Panel Private Image_fav As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("l_onvan") afrazlab.DatabesCopy(s,"nafas.db",True) onvanMatnha(ScrollView_onvanha) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Activity_KeyUp (KeyCode As Int) As Boolean If KeyCode=KeyCodes.KEYCODE_BACK Then StartActivity(attari) Activity.Finish End If End Sub Sub onvanMatnha(ScroollNeme As ScrollView) afrazlab.DatabesCopy(s,"nafas.db",True) Activity.Color=0xFF586A60 cur=s.ExecQuery("select * from tbl_khavas WHERE mozo = 2 ") Dim h As Int=1%y For i =0 To cur.RowCount-1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") p1.LoadLayout("l_panel_onvan") p1.Color=0xFF586A60 ImageView_onvan.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("aks")&".png") Label_onvan.Text=cur.GetString("onvan") Label_onvan.TextColor=Colors.Black Label_onvan.TextSize=20 Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT) Label_onvan.Tag=cur.GetInt("id") Dim b As Bitmap b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png") Image_fav.Bitmap=b Image_fav.Tag=cur.GetString("id") ani.ScaleCenterIn("ani",1500) ani.StartAnim(Image_fav) Dim aniInt As Int aniInt=Rnd(0,1) If aniInt=0 Then ani.ScaleFromRight("ani",1500) ani.StartAnim(p1) Else ani.ScaleFromLeft("ani",1500) ani.StartAnim(p1) End If ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y) h=h+14%y Next ScroollNeme.Panel.Height=h+5%y End Sub Sub Panel_onvan_Click End Sub Sub Label_onvan_Click ' Dim l As Label ' l=Sender ' idonvan=l.Tag ' StartActivity(matnha) Log(cur.GetInt("premium")) Dim l As Label l=Sender pr=l.Tag If pr = 1 Then StartActivity(matnha) Else ToastMessageShow("باید نسخه کامل را خریداری کنید",True) End If End Sub Sub Image_fav_Click Dim img As ImageView img=Sender cur=s.ExecQuery("select * from tbl_khavas ") cur.Position=img.Tag If cur.GetInt("fav")=1 Then Dim b As Bitmap b.Initialize(File.DirAssets,"fav0.png") img.Bitmap=b s.ExecNonQuery("UPDATE tbl_khavas SET fav =0 WHERE id ="&cur.GetInt("id")) Else if cur.GetInt("fav")=0 Then Dim b As Bitmap b.Initialize(File.DirAssets,"fav1.png") img.Bitmap=b s.ExecNonQuery("UPDATE tbl_khavas SET fav =1 WHERE id ="&cur.GetInt("id")) End If End Sub
  5. پیشنهاد من به شما برای ساختن کتاب استفاده از این سورس هست خودم دارم از همین سورس استفاده میکنم عالیه البته من تا حالا کلی تغییرات توش دادم شما هم با تغییرات میتونید با این سورس یه کتاب خیلی خوب بسازید
  6. ممنون بابت راهنماییتون برای اولین کد که نوشتید لوگ گرفتن که گفتید رو بلد نیستم ----------------------- هر کد رو کلی کم و زیاد کردم ولی به هیچ صراطی مستقیم نمیشن ممنون میشم بیشتر راهنمایی کنید یه سوال اون pr چی هست
  7. سلام یه دیتابیس داریم با مثلا یه ستون به اسم premium مطالبی که در دیتابیس هستن 5تای اول با premium با مقدار 1 باز هستن و قابل استفاده بقیه مطالب با premium با مقدار 0 قفل هستن حالا ما باید بعد از پرداخت درون برنامه و خرید تمام مطالب 0 رو به 1 تغییر بدیم تا باز بشن فعلا کاری به آپدیت دیتابیس بعد از خرید نداریم تو اکتیویتی main اینارو داریم Sub Process_Globals Private key As String ="*********" Dim PREMIUM As String = "premium" Dim oBillingManager As BillingManager3 End Sub Sub Activity_Create(FirstTime As Boolean) If FirstTime Then Log("Initialize billing manager") oBillingManager.Initialize("BillingManager", key) oBillingManager.DebugLogging = True End If End Sub Sub Button_premium_Click oBillingManager.RequestPayment("premium", "inapp", "Developer Payload") End Sub Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then ToastMessageShow("خرید انجام شد.",False) Else If Success=False Then ToastMessageShow("خرید انجام نشد" , True) End If End Sub بعد از تو main با یه دکمه میریم تو اکتیویتی onvanha اونجا هم اینارو داریم Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("l_onvan") afrazlab.DatabesCopy(s,"nafas.db",True) onvanMatnha(ScrollView_onvanha) End Sub Sub onvanMatnha(ScroollNeme As ScrollView) afrazlab.DatabesCopy(s,"nafas.db",True) Activity.Color=0xFF586A60 cur=s.ExecQuery("select * from tbl_xxx WHERE mozo = 2 ") Dim h As Int=1%y For i =0 To cur.RowCount-1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") p1.LoadLayout("l_panel_onvan") p1.Color=0xFF586A60 ImageView_onvan.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("aks")&".png") Label_onvan.Text=cur.GetString("onvan") Label_onvan.TextColor=Colors.Black Label_onvan.TextSize=20 Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT) Label_onvan.Tag=cur.GetInt("id") Dim b As Bitmap b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png") Image_fav.Bitmap=b Image_fav.Tag=cur.GetString("id") ani.ScaleCenterIn("ani",1500) ani.StartAnim(Image_fav) Dim aniInt As Int aniInt=Rnd(0,1) If aniInt=0 Then ani.ScaleFromRight("ani",1500) ani.StartAnim(p1) Else ani.ScaleFromLeft("ani",1500) ani.StartAnim(p1) End If ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y) h=h+14%y Next ScroollNeme.Panel.Height=h+5%y End Sub Sub Panel_onvan_Click End Sub Sub Label_onvan_Click 'اینجا مشکل دارم If cur.GetInt("premium") = 0 Then ToastMessageShow("باید نسخه کامل را خریداری کنید",True) End If If cur.GetInt("premium") = 1 Then Dim l As Label l=Sender idonvan=l.Tag StartActivity(matnha) End If End Sub با کلیک کردن Label_onvan اگر premium برابر 1 بود که مطلب باید باز بشه ولی اگر 0 بود پیغام (خرید کن) رو بده و مطلب رو باز نکنه با این کدها هر کدوم از مطالب رو که کلیک میکنم (باید نسخه کامل را خریداری کنید) نشون میده . چه premium اون مطلب 1 باشه چه 0 باشه چیکار کنم که شرط دوم درست کار کنه
  8. بلد نیستید ؟ مهم نیست
  9. درون پرداخت معمولا خیلی راحت هک میشه اگه لایسنس باشه که خیلی بهتره ======================================================== کسی بلد نیست لطفا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
  10. سلام دوستان لطفا اگر کسی از Myket licensing استفاده کرده و کار باهاشو کامل بلده آموزشش رو در اینجا بزاره کلی گشتم آموزش به درد بخوری پیدا نکردم طبق آموزش سایت مایکت برنامه م رو آماده و ارسال کردم ولی رد شد اینم پیغامشون : ============================= ضمن تشکر از حسن همکاری‌تان، برنامهٔ شما با نام****بررسی شده و نتیجهٔ آن به شرح زیر است: نسخه: در ابتدای اجرای برنامه پیغام " برنامه را از مایکت دانلود کنید" نمایش داده می شود و امکان بررسی محتوا وجود ندارد نتیجهٔ نهایی: برنامه تایید نشد. شما می‌توانید از پایگاه دانش مایکت، راهنمای انتشار برنامه‌ها را مطالعه نمایید و در صورت نیاز و با توجه به موارد مذکور در نتیجهٔ بررسی، با ما مکاتبه کنید یا نسخهٔ جدیدی از برنامه را برای رفع مشکلات از طریق پنل‌تان بارگذاری نمایید. ============================= خب وقتی کسی برنامه رو خریداری نکرده باشه ، باید این پیغام رو بده اگر من این کد رو بردارم تا مایکت بتونه برنامه رو بررسی کنه ، وقتی بررسی کرد و تایید شد منتشر میکنن ( برنامه بدون قفل منتشر میشه ) اینم کدایی که تو برنامه استفاده کردم Sub Activity_Create(FirstTime As Boolean) Dim lc As LicenseChecker Dim p As PhoneId Dim SALT As String = "32857463957843298562" Dim publicKey As String = "xxxxxxxxxxxx" lc.Initialize("lc", p.GetDeviceId, publicKey, SALT.GetBytes("UTF8")) lc.SetVariableAndValue("test_1", "some secret value") lc.CheckAccess End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub lc_Allow Log("Allow") 'کاربر اجازه دسترسی به برنامه را دارد End Sub Sub lc_DontAllow Try Log("DontAllow") ToastMessageShow("اجازه استفاده از برنامه را ندارید", True) ' Activity.Finish '---------------------------- Dim e As Int e=Msgbox2("به اینترنت متصل شوید.مایکت را به روزرسانی ویا نصب کنید","این برنامه از طریق مایکت نصب نشده. ویا","","خروج","دانلود از مایکت",Null) If e=DialogResponse.CANCEL Then ExitApplication Else If e=DialogResponse.NEGATIVE Then Dim nazzar As AriaMarkets nazzar.Myket_SafheBarname("xxx.xxx.xxx") End If ExitApplication '----------------------------- Catch End Try ExitApplication End Sub Sub lc_Error (ErrorCode As String) Log("error: " & ErrorCode) ToastMessageShow("خطایی رخ داده.دوباره تلاش کنید", True) Activity.Finish End Sub
  11. saeed120m

    درخواست کتابخانه Myket licensing

    ممنون دوست عزیز
  12. سلام دوستان لطفا اگه کسی این کتابخانه رو داره برام ارسال کنه Myket licensing تو همین سایت یا به ایمیل من arashpdff@gmail.com توی این صفحه از سایت مایکت بررسی مجوز در B4A :: پایگاه دانش توسعه دهندگان مایکت ولی دانلود نمیشه