فرا آموزش

آموزش برنامه نویسی، ویندوز و اندروید، دانلود و...

۱۳ مطلب با کلمه‌ی کلیدی «B4A» ثبت شده است

آموزش تغییر رنگ و اندازه خطوط جدا کننده List View در B4A

اگر در بیسیک فور اندروید از لیست ویو استفاده کرده و قصد سفارشی سازی آن را داشته باشید متوجه می شوید که در بین آیتم های لیست ویو خطوطی سفید و نازک مشاهده می شوند. برای تغییر رنگ، اندازه یا حذف این خطوط در بیسیک فور اندروید دستوری به صورت پیشفرض تعریف نشده است؛ اما با استفاده از تکه کد زیر می توانید این کار را انجام دهید:
Sub SetDivider (lv As ListView, color As Int, height As Int)
	Dim r As Reflector
	r.Target = lv
	Dim cd As ColorDrawable
	cd.Initialize(color, 0)
	r.RunMethod4("setDivider", Array As Object(cd), Array As String("android.graphics.drawable.Drawable"))
	r.RunMethod2("setDividerHeight", height, "java.lang.int")
End Sub
برای اجرا و استفاده از تکه کد بالا باید به این صورت عمل کنید:
SetDivider(ListView1, Colors.Transparent, 10dip)
آرگومان اول نام لیست ویوی مورد نظر، آرگومان دوم رنگ مورد نظر و آرگومان سوم ضخامت خطوط جدا کننده است.
  • ۱ پسندیدم
  • ۲ نظر
    • پنجشنبه ۲۱ بهمن ۹۵

    اضافه کردن قابلیت انتخاب متن (Selectable) به لیبل در B4A

    با استفاده از این آموزش ساده ولی کاربردی می توانید به لیبل خود قابلیت انتخاب بدهید، یعنی کاربر با کشیدن دست خود روی لیبل می تواند قسمتی از متن آن را انتخاب کرده و سپس با انتخاب گزینه کپی آن قسمت را کپی کنید. توجه داشته باشید که با این قابلیت دیگر نیازی به کدنویسی کپی کردن متن لیبل ندارید و حتی با استفاده از این آموزش امکانات بیشتری را به کاربر خود داده اید. در ادامه با ما همراه باشید.
  • ۱ پسندیدم
  • ۰ نظر
    • پنجشنبه ۷ مرداد ۹۵

    تکه کد تغییر اندازه متن و فونت تمام لیبل های یک اکتیویتی در B4A

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

  • ۲ پسندیدم
  • ۰ نظر
    • يكشنبه ۳ مرداد ۹۵

    گرفتن مقدار تمامی کاراکتر های یک متن در B4A

    ابتدا بایستی متن مورد نظر خود را در یک متغیر متنی قرار دهیم. سپس می توانیم با متد Length مقدار تمامی کاراکتر های آن را بدست آوریم. به مثال زیر توجه کنید:

    Dim a As String = "b4a learn"
    Log(a.Length)

    با کد بالا مقدار کاراکتر های متن "b4a learn" در Log چاپ خواهد شد. این مقدار 9 خواهد بود.
  • ۱ پسندیدم
  • ۰ نظر
    • شنبه ۱۲ تیر ۹۵

    گرفتن ساعت دستگاه در بیسیک فور اندورید

    با کد زیر می توانید ساعت گوشی کاربر را بگیرید. مقدار برگشتی به این صورت خواهد بود (ساعت:دقیقه:ثانیه)

    DateTime.Time(DateTime.Now)

    کد بالا ساعت را بر می گرداند که می تواند آن را برابر با مقدار یک متغیر با متن لیبل یا ... بکنید.


  • ۱ پسندیدم
  • ۰ نظر
    • پنجشنبه ۱۰ تیر ۹۵

    دانلود کتابخانه AppCompat 2.00 برای بیسیک فور اندورید

    آخرین نسخه کتابخانه AppCompat (2.00) را آپلود کرده ایم که در متریال کردن برنامه در بیسیک 4 اندروید نقش به سزایی دارد. این کتابخانه را می توانید از اینجا دانلود کنید.
  • ۱ پسندیدم
  • ۰ نظر
    • سه شنبه ۱۸ خرداد ۹۵

    دانلود B4A v5.80 Beta ساخت برنامه اندروید

    B4A در حال حاضر ساده ترین محیط برنامه نویسی برای اندروید محسوب می شود. شما با این نرم افزار قادر به برنامه نویسی به زبان ویژوال بیسیک برای اندروید خواهید بود. این نرم افزار شی گرا بوده و بر خلاف تمامی محیط های کدنویسی اندروید نیاز به نوشتن کدهای XML ندارد. همچنین دارای کتابخانه های گسترده و زیادی می باشد.
  • ۲ پسندیدم
  • ۰ نظر
    • جمعه ۱۴ اسفند ۹۴

    جدول تمامی Event های موجود در B4A برای ویو ها

    سلام

    جدول تمام Event های موجود برای تمامی ویو ها در B4A به شرح زیر:

    Table_Evenet.PNG

  • ۲ پسندیدم
  • ۰ نظر
    • شنبه ۸ اسفند ۹۴

    آموزش جلوگیری از هک درون پرداخت بازار در B4A

    سلام

    این آموزش تضمینی نیست و ممکنه که برنامه شما هک شود اما امنیت را بسیار بالا می برد. ابتدا یک کتابخانه دارد که باید از اینجا دانلود کنید .

    قبل از انجام درون پرداخت باید کد های زیر را بنویسید:


    k1.Initialize
    If k1.CheckPatcher = True Then
        msgbox("شما از نرم افزار هک استفاده می کنید و نمی توانید از درون پرداخت استفاده کنید !","خطا")
    else
        'این جا درون پرداخت را انجام دهید.
    End if

  • ۲ پسندیدم
  • ۰ نظر
    • شنبه ۸ اسفند ۹۴

    آموزش گرفتن ورژن SDK گوشی کاربر در B4A

    ابتدا کتابخانه Phone را تیک زده و یک متغیر از همان نوع تعریف کنید:
    Dim Phone1 as Phone

    حالا در رویداد مد نظر کد زیر را بنویسید:

    Phone1.SdkVersion

    مقدار برگشتی کد بالا ورژن اندروید نیست و API هست!

    یعنی مثلا برای اندروید 5.0.1 مقدار برگشتی 21 هست!

    برای تبدیل هم می توانید از دستور If استفاده کنید:

    Dim Phone1 As Phone
    Dim v As Int
    Dim u As String
    v = Phone1.SdkVersion
    If v = 21 Then
    u = 5.0.1
    End If
  • ۲ پسندیدم
  • ۰ نظر
    • پنجشنبه ۶ اسفند ۹۴