اطلاعیه

کاربر گرامی

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

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


m007moh

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

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

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

  • روز های برد

    4

آخرین بار برد m007moh در فروردین 15

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

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

156 عالی

درباره m007moh

  • درجه
    کاربر رو به رشد
  • تاریخ تولد ۹۲/۰۴/۱۴

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

499 بازدید کننده نمایه
  1. m007moh

    کسب در امد

    کاملا واضح در مستندات این موضوع ذکر شده میتونید در عکسی که براتون گذاشتم و خط کشیدم و هم توی لینک این موضوع را ببینید پیاده‌سازی تبلیغات ویدئویی در پروژه B4A | Tapsell Answers
  2. m007moh

    tag .sender

    sender مقداری هست که زمان کلیک روی هر ویو ارسال میشه و شما میتونید در ایونت دریافتش کنید درواقع دقیقا همون ویو رو ارسال میکنه(در ساخت مولتی پنل خیلی کاربرد داره) tag هم که مقداری هست که میتونی هر چیزی را داخلش بریزی و در ایونت ازش استفاده کنی به این مثال دقت کن Sub Activity_Create(FirstTime As Boolean) Dim Hscr As HorizontalScrollView Hscr.Initialize(1,"Hscr") Activity.AddView(Hscr,0,0,100%x,20%x) Dim left As Int=0 For i=0 To 1000 Dim pan As Panel pan.Initialize("pan") Hscr.Panel.AddView(pan,left,0,20%x,20%x) pan.LoadLayout("1") pan.Tag="item "&i pan.Color=Colors.Green left=left+21%x Next Hscr.Panel.Width=left End Sub Sub pan_Click Dim p As Panel p=Sender Msgbox(p.Tag,"ایتم انتخاب شده") End Sub میایم یه مولتی پنل با تعداد 1000 تا پنل میسازیم ولی از کجا بدونیم رو کدومشون کلیک کردیم این کار با sender راحت میشه میاد کل پنل را به ما ارسال میکنه و ما با استفاده از tag که قبلا بهش مقدار دادیم ازش استفاده میکنیم
  3. m007moh

    درخواست کتابخانه jSoup

    نه فکر نکنم متفاوت باشه چون من الان تو هر دوتا محیط بازش کردم شبیه به همه کتابخونش روش کار هم که اگه با گت المن آشنیی داشته باشی واسه گرفتن اطلاعات از سایت استفاده میشه حتی میتونی برای ورودی هم استفاده کنی و میتونی هر المنت توی سایت را بگیری که با کلاس، ایدی، تگ و... مشخص میشن ایدی منحصر به فرده و کلاس میتونه چندینتا باشه که وقتی میگیریشون با ایندکس میتونی بهشون دسترسی داشته باشی یکم پیچیدس اگه بگی میخوای چکار کنی شاید تونستم کمکت کنم ایدی تلگرامم m2rosti
  4. m007moh

    درخواست کتابخانه jSoup

    این کتابخونه هم واسه B4A و هم واسه B4J درست شده رو هر دوتاش جواب میده تو همون پستی هم که شما لینکش را دادید این موضوع رو مطرح کرده
  5. m007moh

    درخواست کتابخانه jSoup

    https://answercenter.ir/applications/core/interface/file/attachment.php?id=5453
  6. m007moh

    انیمیشن دادن به پنل

    سلام از مثال زیر میتونی استفاده کنی و تغییرش بده تا ب اون چیزی ک میخوای برسی Sub Activity_Create(FirstTime As Boolean) Dim btn As Button btn.Initialize("btn") btn.Color=Colors.Red Activity.AddView(btn,0,90%y,10%x,10%y) End Sub Sub btn_Click Dim pan As Panel pan.Initialize("pan") pan.Color=Colors.Green Activity.AddView(pan,10%x,90%y,0%x,10%y) pan.SetLayoutAnimated(2000,10%x,90%y,90%x,10%y) End Sub
  7. m007moh

    کتابخانه CSBuilder

    نسخه 7 به بالا را مطمئنم داره حالا قبلش رو نمیدونم Dim b As CSBuilder اینو تو Global تست کن
  8. m007moh

    کسب در امد

    نه اینجور نیست!! خود تپسل چندین مدل تبلیغ داره به عنوان مثال:بنری استاندارد، تمام صفحه، ویدوئویی جایزه ای و .... ویدئویی جایزه دار دقیقا واسه همین موضوع قرار گرفته که شما در ازای دیدن ویدیو یه جایزه به کاربر بدید واسه همینم این نوع تبلیغ تقریبا کمترین درآمد رو واسه ناشر داره اون چیزی که شما میخواید همین ویدیو جایزه داره مستندات این بخش رو پیاده سازی کنید
  9. m007moh

    کتابخانه CSBuilder

    سلام کتابخونه نداره تو پیشفرض خود B4A هست
  10. سلام از اونجایی که میگید عکستون تک رنگه از کد زیر میتونید استفاده کنید Sub Activity_Create(FirstTime As Boolean) Dim aria As Bitmap aria.Initialize(File.DirAssets,"1.jpg") Private argb() As Int argb = GetARGB(aria.GetPixel(1,1)) Msgbox("A = " & argb(0)&CRLF&"R = " & argb(1)&CRLF&"G = " & argb(2)&CRLF&"B = " & argb(3),"") End Sub Sub GetARGB(Color1 As Int) As Int() Private res(4) As Int res(0) = Bit.UnsignedShiftRight(Bit.And(Color1, 0xff000000), 24) res(1) = Bit.UnsignedShiftRight(Bit.And(Color1, 0xff0000), 16) res(2) = Bit.UnsignedShiftRight(Bit.And(Color1, 0xff00), 8) res(3) = Bit.And(Color1, 0xff) Return res End Sub
  11. سلام شما جای این کد را listviewslide.Initialize("") با این کد عوض کن listviewslide.Initialize("listviewslide")
  12. m007moh

    مشکل با BillingManager3

    به این موضوع دقت کن که روی هر گوشی استفاده میکنی حتما مایکت هم روی اون گوشی نصب باشه!!
  13. کتابخونه javaobject رو تیک بزنید و این کد رو جایگزین کنید #if java import android.graphics.Color; import android.graphics.Paint; import android.graphics.Rect; import android.graphics.Typeface; public int getTextWidth(String txt,int size){ Paint paint = new Paint(); paint.setTextSize(size); paint.setColor(Color.BLACK); paint.setStyle(Paint.Style.FILL); Rect result = new Rect(); paint.getTextBounds(txt, 0, txt.length(), result); return result.width(); } #End If و اینجور فراخونی کنید Dim jo As JavaObject jo.InitializeContext Log( jo.RunMethod("getTextWidth",Array(label1.Text,label1.TextSize))
  14. m007moh

    کسب در امد

    شما تو سایت تپسل که ثبت نام کنید خودشون مستندات فنی کامل و قدم به قدم را دارن بهترین مرجع خودشونن
  15. sub btn_Click JobDone(job) end sub