رفتن به مطلب

Salar82

پاسخگو و راهنما
  • تعداد ارسال ها

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

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

  • روز های برد

    121

پست ها ارسال شده توسط Salar82

  1. در 10 ساعت قبل، Salar82 گفته است :

    هر تاپیکی از بنده که دارای عبارت *B4X* و یا *B4XPages* بود، میتونید  به عنوان یک کتابخونه، در B4XPages و یا دیگر پروژه های B4A، B4i و یا B4J استفاده کنید

    البته اگر دوستان هم در این زمینه همکاری داشته باشن، واقعا خوشحال میشم.

    به امید پیشرفت روز افزون انجمن...

    • پسندیدن 2
  2. جلسه سوم _ قسمت 2

    در در 29 مهر 1399 در 00:00، Salar82 گفته است :

    هزینه هر آموزش، یه صلوات برای سلامتی و ظهور امام عصر (عج) هست ....

    سلام دوستان

    یسری نکات برای استفاده از خاصیت CrossPlatform کلاسهای B4XPages باید در نظر داشته باشیم.

    مثلا از هر کتابخونه ای استفاده نکنیم. چون کتابخونه هایی که برای اندروید نوشته میشه، قابل استفاده در ios نیست، این مشکل یه سری راه حل داره که اینجا دو موردش رو خدمتتون عرض میکنم:

    1- بیسیک برای حل این مشکل، یه سری کدها و کتابخونه هایی طراحی کرده، که هم در B4A، هم در B4i و هم در B4J قابل استفاده هست. کتابخونه های که در این زمینه آماده میشن، کتابخونه های سری b4xlib هستن که مثل کتابخونه های پیشفرض، دوفایل jar و xml نیستن و فقط یک فایل با پسوند b4xlib هست.

           من این کدها و کتابخونه ها رو تا جایی که بتونم، تو انجمن قرار میدم و برای شناسایی اونا، عنوان رو با *B4X* مشخص میکنم. پس هر تاپیکی از بنده که دارای عبارت *B4X* و یا *B4XPages* بود، میتونید  به عنوان یک کتابخونه، در B4XPages و یا دیگر پروژه های B4A، B4i و یا B4J استفاده کنید.

     

    2- دومین روش اینه که در B4XPages چک کنید که مثلاً اگر در B4A بودیم، از فلان کتابخونه استفاده شه و یا اگر در B4i بودیم، از فلان کتابخونه دیگه استفاده کن. در واقع به IDE میفهمونیم، که از چه کتابخونه ای استفاده کنه.

         چک کردن این مورد، دو راه داره:

    • راه اول استفاده از #: 
    #If B4A
    	Dim p As Phone
    	p.SetRingerMode(i.RINGER_NORMAL)
    #Else IF B4J
    	Dim j As JFX
        'j.
    #Else
    	'......
    #End If

    اگر این رو هرجایی از بیسیک بنویسید(فرض بر این میگیریم، که هر سه بلوک، دارای کد خاص خودشون باشن)، در بیسیک، موقع کامپایل، فقط کد داخل بلوک B4A کامپایل میشه؛ در B4J، فقط کدهای مربوط به خودش کامپایل میشه و بهمین ترتیب در B4i

     

    • راه حل دوم برای چک کردن IDE، استفاده از کتابخونه xui هست:
    Dim xui As XUI
    If xui.IsB4A Then
    	Dim p As Phone
    	p.SetRingerMode(i.RINGER_NORMAL)
    Else If xui.IsB4J Then
    	Dim j As JFX
    	'j.
    Else
    
    End If

    این هم دقیقا عین بالاس، هیچ فرقی نداره.

     

     

    هر تاپیکی از بنده که دارای عبارت *B4X* و یا *B4XPages* بود، میتونید  به عنوان یک کتابخونه، در B4XPages و یا دیگر پروژه های B4A، B4i و یا B4J استفاده کنید.(پس با استفاده از این کتابخونه ها، دیگه لازم نیست چنین شرط‌هایی بذاریم) مثل این پست:

     

     

    پیشنهاد میکنم حتما حتما حتما فیلم آموزشی زیر از خود شخص ارل رو ببینید تا درکتون از این پروژه ها در B4XPages، بره بالاتر.

    https://vimeo.com/440642051

     

    شرمنده خودم وقت مناسب ندارم که چنین فیلمهایی پر کنم. :(

    جلسه بعد، بیشتر با خصوصیات و رفتار B4XPages آشنا میشیم.

     

    موفق باشید

    اگر نقدی، مشکلی و یا ایرادی از بنده هست، تو خصوصی میتونید پیام بدید. حتما استقبال میکنم. :) 

    :53::53::53::53:

    • پسندیدن 9
  3. در در 24 مهر 1399 در 20:37، Salar82 گفته است :

    لینک آموزشهای دیگه هم، اینجا قرار داده میشه. پس تمامی آموزشهای مربوط به B4XPages، همینجا در دسترس هستن.

    سلام دوستان

    همونطور که قول داده بودم، لینک تمامی آموزش‌ها و سورس‌ها رو همینجا قرار میدم.

     

    موفق باشید :53:

    • پسندیدن 6
    • ذوق زده 1
  4. سلام به همه

    کتابخونه ای که براتون آماده کردم، همون طور که از اسمش پیداست، با انیمیشن به یه ویو، بردر میده و رسم میکنه.

    پیشنمایش:

    test-gif.59321

     

    برای انجام اینکار کافیه تیک کتابخونه رو بزنید و برای اولین بار، اون رو Initialize کنید.

    حالا هرجا که خواستین انیمیشن رو اجرا کنید، کد زیر رو بنویسید:

    SetAnimateBorder(View1, Duration, Color)

    آرگومان اول، ویوی مدنظرتون رو بدید.

    آرگومان دوم مدت زمان به ms هست.

    آرگومان سوم هم رنگ بردر هست.

     

    کتابخونه:

    ShAnimatedBorder.rar

     

    موفق باشید

    :53::53::53::53:

    • پسندیدن 4
  5. TextLabelFitter_V2.zip

    این کتابخونه جدید هست. یه امکان جدید بهش اضاف شده.

    خیلی از مواقع متد FitText ، متن رو خیلی بزرگ نشون میده؛ تو این نسخه یه متد جدید هم بهش اضاف شده که میتونید به اندازه دلخواه، سایز رو تنظیم کنید:

    Dim TLF As TextLabelFitter
    Label1.TextSize = TLF.TextSize(Label1) - 5

    متد TextSize همون حداکثر مقدار رو بهتون برمیگردونه و خوبیش اینه که میتونید سایزش رو کم و زیاد کنید.

    • پسندیدن 3
  6. سلام

    چند وقت پیش کتابخونه آقا پژمان رو (ٍEditTextPlus) از تاپیک زیر دانلود کردم.

     

    دیدم کتابخونشون بسیار کاربردیه ولی چون با نسخه جدید(9.8 َAndroidx) بیسیک مشکل داره، نمی شه ازش استفاده کرد.

    بخاطر همین یه سری تغییرات داخل کتابخونه انجام دادم و اونو بروز کردم. از جمله:

    1- اضافه شدن کاستوم ویو کتابخونه

    2- امکان ویرایش ادیت تکست در Designer

     

    1500971063_Screenshot(15).png.e6fea5439f49d29eb815e1eacfba68ff.png

    3- تلفیق خصوصیات ادیت تکست با کتابخانه

    و...

     

    دانلود نسخه 1 :

    ShEditText_v1.00.rar

     

    نسخه 1.2 : (افزوده شدن متد MaxLength و نمایش خطای مربوطه)

    ShEditText_V1.2.rar

     

    ممنون از زحمات آقای نیکروان

     

    :53::53::53::53::53:

    • پسندیدن 6
    • تشکر 1
  7. سلام خدمت همه‌ی دوستان

    من همیشه دلم می‌خواست عکس‌هایی که تو برنامم میذارم، قابلیت زوم داشته باشه؛ خیلی از کتابخونه‌هایی هم که برای این کار رپ شده بودن چیزی نبود که می‌خواستم.

    برای همین بعد از تحقیق زیاد، تونستم کتابخونه‌ای در این زمینه رپ کنم که عکس‌ها رو از فایل گوشی میگیره و تو وب‌ویو نشون میده؛ گفتم اونو تو انجمن بذارم تا بقیه هم استفاده کنن.

    امیدوارم برا همگی مفید باشه

     

    لینک دانلود

    • پسندیدن 4
    • تشکر 1
  8. یکی از مشکلات اساسی برنامه‌نویسی اینه که موقعی که تو لیبل متنی رو می‌نویسیم، سایز متن لیبل در تمام گوشی‌ها یکسانه؛ این در حالیه که سایز لیبل بر اساس اندازه‌ی سایز گوشی کاربر تغییر می‌کنه و این باعث می‌شه که جلوه‌ی زیبای برنامه از بین بره.

    با استفاده از این کتابخونه، میتونید به راحتی متنتون رو زیبا در لیبل نشون بدین.

    روش کار با کتابخونه، خیلی سادست. فقط کافیه که اسم لیبل رو وارد کنید:

    Dim TLF As TextLabelFitter
    TLF.FitText(Label1) 'سایز لیبل رو به حداکثر مقدار ممکن تنظیم می کنه

     

    اگر هم میخواین که از حداکثر سایز ممکن، یکم کمتر باشه، از متد زیر استفاده کنید:

    Dim TLF As TextLabelFitter
    Label1.TextSize = TLF.TextSize(Label1) - 5

    متد TextSize همون حداکثر مقدار رو بهتون برمیگردونه و خوبیش اینه که میتونید اونو مدیریت کنید.

     

    TextLabelFitter_V2.zip

    :53::53::53::53:

    • پسندیدن 3
    • تشکر 1
×
×
  • اضافه کردن...