رفتن به مطلب

seyed_27

کاربر رو به رشد
  • تعداد ارسال ها

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

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

  • روز های برد

    1

seyed_27 آخرین باز در روز ۷ اسفند برنده شده

seyed_27 یکی از رکورد داران بیشترین تعداد پسند مطالب است !

درباره seyed_27

  • تاریخ تولد ۱۷ فروردین ۱۳۵۹

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

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمی شود.

seyed_27's Achievements

Newbie

Newbie (1/14)

  • Week One Done Rare
  • One Month Later Rare
  • One Year In Rare

Recent Badges

170

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

  1. سلام آموزش این قسمت ساخته شده؟ چطور میشه در خود برنامه توکن دسترسی رو گرفت؟
  2. سلام دوستان در خرید اشتراکی 365 روزه کافه بازار با b4a میخوام چک کنم اگر کاربر قبلا محصول رو خریده دیگه پرداخت انجام نشه و برنامه فعال بشه کد بررسیش چطوریه من کد اشتراکی رو زدم و شخص پرداخت میکنه و فعال میشه اما وقتی کاربر برنامه رو پاک کنه و دوباره نصب کنه ، هنگام پرداخت مبلغ کسر میکه در صورتی که باید چک کنه اگر قبلا پرداخت کرده و از مهلتش باقی مانده ، نباید مبلغ کسر بشه لطفا کمکم کنید Sub Button1_Click If (File.Exists(File.DirInternalCache,"MANIFEST.js") =False) Then InAppBilling.Initialize("InAppBilling", "bazaar", key) InAppBilling.DebugLogging = True Else Msgbox("نسخه کنونی ، نسخه کامل می باشد","هشدار") End If End Sub Sub InAppBilling_SetupFinished(Supported As Boolean, Message As String) If Supported = True Then Try InAppBilling.RequestPayment("mmpi71_2", "subs", DeveloperPayload) Catch Log(LastException) End Try End If End Sub Sub InAppBilling_PurchaseFinished (Success As Boolean, Purchase As Purchase) Log(Success) If Success = True Then ' InAppBilling.ConsumeProduct(Purchase) ' Baray Mahsolat eshteraki ya masraf nashodani estefade nashavad File.WriteString(File.DirInternalCache, "MANIFEST.js" , DeveloperPayload) MsgboxAsync("پرداخت با موفقیت انجام شد. نمایش نیمرخ ، فعال شد","پیام") Wait For Msgbox_Result(pResult As Int) Else MsgboxAsync("پرداخت ناموفق بود 1","پیام") End If End Sub Sub InAppBilling_ConsumeFinished(Success As Boolean, Purchase As Purchase) If Success = True Then File.WriteString(File.DirInternalCache, "MANIFEST.js" , DeveloperPayload) MsgboxAsync("پرداخت با موفقیت انجام شد. نمایش نیمرخ ، فعال شد","پیام") Wait For Msgbox_Result(pResult As Int) Else MsgboxAsync("پرداخت ناموفق بود 2","پیام") End If End Sub
  3. متاسفانه خریدم و مشکل داره نمیشه لایوت لود کرد و کنترل کلیک روی بانت هاش داشت مئیریت محترم لطفا پاسخگو باشن
  4. یه مشکل دیگه هم داره نام فایل رو از لینک درست تشخیص نمیده مثلا از لینک ذیل نام فایل رو downloadfile.bin میگیره در صورتی که نام فایل اینه:Dr Khodadadi (28)_2.mp3 لینک ذیل رو با برنامتون دانلو کنید تا ببینید: http://rasekhoon.net/media/download/343216/جمشید-خدادادی-جلسه-ششم-خداشناسی/
  5. مثالی که گذاشتید این مورد رو تست کنید: سریع و پشت سر هم :وقتی دکمه Start / Resume رو میزنید برنامه شروع به دانلود میکنه pause رو که میزنید دانلود متوقف میشه دوبار Start / Resume میزنید ادامه رو دانلود میکنه : مشکل اینجاست حالا دوباره pause کنید میبینید pause نمیشه و به روند دانلود ادامه میده !! حالا بیاید Start / Resume رو بزینید برنامه قاطی میکنه! یه نگاهی به progressbar بندازید متوجه میشید ظاهرا کتابخونتون مشکل داره لطفا بررسی کنید و تصحیح کنید و لطفا به این پست پاسخ بدید که در حال حاضر پس از خرید کتابخونتون چه باید کرد لطفا پشتیبانی کنید
  6. حل شد با این تکه کد For Each v As View In sv.Panel.GetAllViewsRecursive If GetType(v)="android.widget.TextView" Then If v.Tag=Mybtn.Tag Then Dim lb As Label=v lb.Text=Mybtn.Tag End If End If Next
  7. بزرگوار پستم رو چرا حذف کردید به تاپیکم هم جواب ندادید لطفا
  8. بسمه تعالی با سلام خدمت اساتید یه نگاهی به این بندازید من لیبل رو فیتلر میکنم و میخوام به text ش مقدار بدم text باتن هایی که تگشون برابر تگ لیبل هست هم تغییر میکنن در مولتی پنل چرا؟ Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private Button1 As Button Private Button2 As Button Private Button3 As Button Private Button4 As Button Private Label1 As Label Private Label2 As Label Private Label3 As Label Private Label4 As Label End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("l1") Button1.Tag=1 Button2.Tag=2 Button3.Tag=3 Button4.Tag=4 Label1.Tag=1 Label2.Tag=2 Label3.Tag=3 Label4.Tag=4 End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim tag As Int Dim Mybtn As Button Mybtn = Sender tag = Mybtn.Tag Log(tag) For Each v As View In Activity.GetAllViewsRecursive If v Is Label Then Dim myLabel As Label = v If myLabel.Tag = tag Then myLabel.Text="123" End If End If Next End Sub Sub Button2_Click Dim tag As Int Dim Mybtn1 As Button Mybtn1 = Sender tag = Mybtn1.Tag Log(tag) For Each v As View In Activity.GetAllViewsRecursive If v Is Label Then Dim myLabel As Label = v If myLabel.Tag = tag Then myLabel.Text="456" End If End If Next End Sub
  9. یکی از مشکلات b4a اینه که برای لود کردن متنهای طولانی برنامه کرش میکنه (جهت لود در لیبل و اسکرول ویو) راهی براش پیدا نکردم شما در فراخوانی کار رو جهت لود متن در لیبل و اسکرول ویو ، راحت کردید اگر بتونید این مشکل (لود متن بسیار طولانی) رو حل کنید خیلی خوب میشه یه کاری برای لیست ویو طولانی با لود محدود(مثلا 4 تا 4 تا) دوستان انجام دادن وقتی لیست به آخر میرسید 4 تا دیگه لود میشد اما این مشکل برای لیبل و اسکرول ویو هست .اگر متن بسیار طولانی باشه بسته به رم و سی پی یو گوشی یا هنگ میکنه یا برنامه برای لود هنگ میکنه تا کل متن لود بشه و کاربر فکر میکنه برنامه هنگ کرده اگر بشه مثلا مت رو 1000 حرف 1000 حرف با لود کنه شاید بشه مشکل رو حل کرد موفق باشید
  10. این کتابخونه فشرده شده هستند روی لینکی که دادم کلیک کنید حق با شماست بنده قصد خراب کردن بازار شما رو نداشتم فکرتون جای دیگه نره! دیدم کتابخونه ها بدرد بخورند و خیلی هاشون با مثال گفتم دوستان استفاده کنند اگر ناراحت شدید پاکش کنم
  11. بسمه تعالی با سلام خدمت دوستان 348 تا کتابخانه نفیس هدیه به دوستان هدیه ش یه صلوات برای سلامتی و ظهور حضرت ولی عصر علیه السلام Libraries(10 June 2015)(66mb): اینجا دو مجموعه بسیار نفیس دیگه Libraries (Sep 2016)(135.84mb): اینجا Libraries (Apr 2016)(85mb): اینجا
  12. بسمه تعالی کدrsa و شناسه کالا رو ایجاد کردم اما برنامه میگه این محصول وجود ندارد چرا کدها کاملا دقیق کپی و پیست شده چندتا شناسه محصول ایجاد کردم با اونها هم مشکل داره و همین پیام رو میده
  13. بسمه تعالی با سرچی که کردم تو سایت های مختلف جهت لود متن بسیار حجیم پیشنهاد بافرینگ رو دادند اما ظاهرا نیاز به کتابخانه ش هست این کتابخانه رو آپ بفرمائید کتابخانه جهت بافرینگ با تشکر http://www.b4x.com/android/forum/threads/bytearraybuffer.34306/#content
  14. بسمه تعالی با سلام لطفا کتابخانه RtfLabel رو از لینک ذیل دانلود بفرمائید با تشکر توضیح: با این کتابخانه میتونید لیبلی داشته باشید که توش بطور اتوماتیک رنگ متن و پاراگراف بندی و bold کردن متن یا بخشی از اون و انتخاب کلمه و .. رو انجام بدید http://www.b4x.com/android/forum/threads/rtflabel.32455/
×
×
  • اضافه کردن...