تابع ShadeColor

Posted on آوریل 25, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged تابع ShadeColorLeave a Comment

با سلام و سپاس

با تابع ShadeColor میتونید یه رنگ رو حالت سایه بهش بدید خیلی جالب میشه

Sub ShadeColor(clr As Int) As Int
Dim argb() As Int = GetARGB(clr)
Dim factor As Float = 0.75
Return Colors.RGB(argb(1) * factor, argb(2) * factor, argb(3) * factor)
End Sub

Sub GetARGB(Color As Int) As Int()
Private res(4) As Int
res(0) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff000000), 24)
res(1) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff0000), 16)
res(2) = Bit.UnsignedShiftRight(Bit.And(Color, 0xff00), 8)
res(3) = Bit.And(Color, 0xff)
Return res
End Sub

موفق باشید.

حذف سایه پیشفرض دکمه ها در کتابخانه appcompat

Posted on مارس 20, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged حذف سایه پیشفرض دکمه ها در کتابخانه appcompatLeave a Comment

با سلام و سپاس

خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO

حتما تا حالا دیدی با فعال کردن کتابخانه AppCompat در برنامه , یک سایه به صورت پیشفرض به دکمه های برنامه اضافه میشود که در برخی از مواقع ممکن است زیبایی برنامه را از بین ببرد …

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

<item name="android:buttonStyle">@style/Widget.AppCompat.Button.Borderless</item>

امیدوارم مفید واقع گردد .

تابع گرفتن صدای زنگ گوشی کاربر

Posted on مارس 6, 2018مارس 6, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged تابع گرفتن صدای زنگ گوشی کاربرLeave a Comment

به درود به کاربران عزیز سایت یاهو ۹۸ YAHOO

شاید براتون پیش اومده بخواین همون صدای زنگی که کاربر برای گوشیش تنظیم کرده رو بگیرید و پخشش کنید.

با کد زیر این عمل قابل اجراست :

Dim jo As JavaObject
  jo.InitializeStatic("android.media.RingtoneManager")
  Dim context As JavaObject = Activity
  context = context.RunMethod("getContext", Null)
  Dim r As Reflector
  r.Target = "ContentDir"
  r.Target = r.RunMethod("intern")
  Dim mp As MediaPlayer
  mp.Initialize
  mp.Load(r.Target, jo.RunMethod("getActualDefaultRingtoneUri", Array As Object(context, 1)))
  mp.Play

تابع Reverse یا برعکس کردن متن

Posted on مارس 6, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged Reverse, برعکس کردن متن, تابع Reverse یا برعکس کردن متنLeave a Comment

با سلام و سپاس

تکه کد کاربردی برعکس کردن متن یا Reverse

Sub Reverse (T As String) As String
  Dim s As String
  For i = T.Length - 1 To 0 Step -1
    s = s & T.CharAt(i)
  Next
  Return s
End Sub

و گرفتن خروجی از ساب به صورت زیر می باشد :

Log(Reverse("YAHOO98")) 'خروجی: ۸۹OOHAY

جداسازی کلمات با دستور ریجکس Regex

Posted on فوریه 3, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged جداسازی کلمات با دستور ریجکس RegexLeave a Comment

با سلام و سپاس خدمت عزیزان

با تکه کد زیر میتوانید حروف و اعداد رو جداسازی کنید.

Public Sub getmatch(matn As String) As List
	Dim l As List
	l.Initialize
	Dim reqstr() As String=Regex.Split("#",matn)
	For Each str As String In reqstr
		l.Add(str.Replace("^",""))
	Next
	Return l
End Sub

نحوه استفاده هم به این شکله

Dim l As List=getmatch("^one^#1#^two^#2#^three^#3#")
	For Each mm As String In l
		Log("word: "&mm)
	Next

سایه دادن به text در بیسیک فور اندروید

Posted on ژانویه 29, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged سایه دادن به text در بیسیک فور اندرویدLeave a Comment

با سلام و سپاس

خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO

امروز یکی از کاربران تکه کد سایه دادن به text ها رو برای ما ارسال کرده که به آن می پردازیم :

این کد ساده و ساب ساده به نوشته های درون یک ویو مثل لیبل سایه خیلی زیبایی رو میده
که میتونید مقدار جا و رنگ سایه رو هم تنظیم کنید و عالی

موفق باشید.

Sub SetTextShadow(pView As View, pRadius As Float, pDx As Float, pDy As Float, pColor As Int)
   Dim ref As Reflector
  
   ref.Target = pView
   ref.RunMethod4("setShadowLayer", Array As Object(pRadius, pDx, pDy, pColor), Array As String("java.lang.float", "java.lang.float", "java.lang.float", "java.lang.int"))
End Sub

تابع گرفتن مدت زمان یه فیلم توی بیسیک ۴ اندروید

Posted on ژانویه 16, 2018 by سید اسماعیل0 Posted in تکه کدها, سورس کدTagged تابع گرفتن مدت زمان یه فیلم توی بیسیک 4 اندرویدLeave a Comment

با سلام و سپاس خدمت عزیزان

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

Continue reading “تابع گرفتن مدت زمان یه فیلم توی بیسیک ۴ اندروید” →

تکه کد دادن هایپر لینک به متن در بیسیک فور اندروید

Posted on ژانویه 3, 2018ژانویه 3, 2018 by سید اسماعیل0 Posted in تکه کدهاTagged تکه کد دادن هایپر لینک به متن در بیسیک فور اندرویدLeave a Comment

با سپاس و درود

با تکه کد زیر شما میتوانید به متن داخل لیبل هایپر لینک بدهید.

یعنی روی متن زده شد مرورگر باز بشه و به صفحه مورد نظر هدایت بشه

Continue reading “تکه کد دادن هایپر لینک به متن در بیسیک فور اندروید” →

آموزش تغییر رنگ متون در بیسیک فور اندروید

Posted on دسامبر 22, 2017دسامبر 22, 2017 by سید اسماعیل0 Posted in تکه کدها, سورس کد, کتابخانهTagged Appcompat3.52, RichString, آموزش تغییر رنگ متون در بیسیک فور اندرویدLeave a Comment

با سلام و سپاس

شب همگی کاربران گل وب سایت یاهو ۹۸ YAHOO بخیر و خوشی باشد ان شا ء لله

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

Continue reading “آموزش تغییر رنگ متون در بیسیک فور اندروید” →

تغییر نام برنامه با توجه به زبان گوشی

Posted on دسامبر 20, 2017دسامبر 20, 2017 by سید اسماعیل0 Posted in تکه کدها, سورس کدTagged تغییر نام برنامه با توجه به زبان گوشیLeave a Comment

با عرض سلام خدمت شما کاربران عزیز سایت یاهو ۹۸ YAHOO

در این بخش میخواهیم تغییراتی را در برنامه انجام دهیم تا با توجه به زبان گوشی کاربر , نام برنامه نیز تغییر کند ! برای مثال اگر زبان گوشی کاربر فارسی است نام برنامه نیز فارسی باشد و در غیر اینصورت نام برنامه انگلیسی باشد !

برای شروع وارد پوشه سورس برنامه مورد نظرتان شوید و در پوشه Objects \ res دو پوشه با نام های زیر ایجاد کنید :

values-en
values-fa

تا اینجا ما برای دو زبان “فارسی – fa” و “انگلیسی – en” پوشه ساخته ایم .

داخل هرکدام از این پوشه ها باید یک فایل با نام strings با فرمت xml ایجاد کنید و کد زیر را داخل آن قرار دهید .

برای اینکار میتوانید از نرم افزار NotePad یا سایر ویرایشگر های متن کمک بگیرید و توجه داشته باشید که فایل را از نوع utf-8 ذخیره کنید تا از زبان فارسی پشتیبانی کند .

<?xml version="1.0" encoding="utf-8"?>
<resources>
 <string name = "AppName">یاهو ۹۸</string>
</resources>

در کد بالا به جای “یاهو ۹۸” نام مورد نظرتان را جایگزین کنید و چون نام بالا فارسی است این فایل را در پوشه values-fa ذخیره میکنیم .

مجددا یک فایل دیگر به همین شکل ایجاد کنید و نام برنامه را انگلیسی وارد کنید و در پوشه values-en ذخیره کنید .

نکته مهم این است که باید دسترسی این فایل ها را روی Road Only قرار دهید ( روی فایل راست کلیک کنید و گزینه Properties را انتخاب کنید.

در کادری که باز میشود گزینه Read-Only را تیک بزنید و بر روی OK کلیک کنید ) و باید حتما این کار را انجام دهید و در غیر اینصورت فایل ها در هنگام خروجی گرفتن از برنامه حذف میشوند …

وارد بیسیک فور اندروید شوید و کد های زیر را به Manifest اضافه کنید :

SetActivityAttribute("Main", android:label ,"@string/AppName")
SetActivityAttribute("Main", android:configChanges , "locale")

حالا اگر از برنامه خروجی بگیرید مشاهده خواهید کرد که نام برنامه با توجه به زبان گوشی شما تغییر میکند !

موفق باشید !

تکه کد فاصله دادن به متون در بیسیک فور اندروید

Posted on دسامبر 14, 2017دسامبر 14, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged تکه کد فاصله دادن به متون در بیسیک قور اندرویدLeave a Comment

با سپاس

با ته کد زیر شما میتونید به متونتون به هر کاراکترش یه فاصله بدید .

مثلا ما میخواهیم یاهو رو به صورت ی ا ه و بنویسیم .

Continue reading “تکه کد فاصله دادن به متون در بیسیک فور اندروید” →

تابع ارسال پیامک طولانی در بیسیک ۴ آندروید

Posted on دسامبر 9, 2017دسامبر 9, 2017 by سید اسماعیل0 Posted in تکه کدها, سورس کدTagged sms, اس ام اس, تابع ارسال پیامک طولانی در بیسیک4آندرویدLeave a Comment

با سلام و سپاس

خدمت کاربران عزیز وب سایت یاهو ۹۸

شاید برای شما هم اتفاق افتاده باشد که بخواهید

اس ام اس بلند ( طولانی ) رو در بیسیک فور اندروید ارسال کنید که به مشکل عدم ارسال بر بخورید.

با تابع زیر میتونید کامل این مشکل رو برطف کنید و محدودیت رو بردارید.

Sub SendLargeSms(Number As String , Message As String)
   Dim r As Reflector
   r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
   Dim parts As Object
   parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
   r.RunMethod4("sendMultipartTextMessage", _
      Array As Object(Number, Null, parts, Null, Null), _
      Array As String("java.lang.String", "java.lang.String", _
         "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
End Sub

در این کد با استفاده از Reflection و دسترسی به کدجاوا تابعی بدین منظور نوشته شده است.

اکر کتابخانه مورد نظر در دسترس شما قرار نداشت کافیه فقط با آیدی تلگرام ما در ارتباط باشید.

آیدی تلگرام : crypt3r@

کانال ما در تلگراک : YAHOO98@

نکته: دسترسی را در فایل منیفست اضافه کنید حتما

AddPermission("android.permission.SEND_SMS")

موفق باشید.

کار با EditText در بیسیک فور اندروید

Posted on دسامبر 2, 2017دسامبر 5, 2017 by سید اسماعیل0 Posted in تکه کدها, درخواست سورس, سورس کدTagged کار با EditText در بیسیک فور اندروید, مخفی کردن اشاره گر ادیت تکستLeave a Comment

با سپاس

یکی از دوستان فرمودند نحوه کار با EditText رو درون یک پست مختصر و مفید توضیح بدم که بنده هم خدمتتون عرض می کنم.

برای کار با ادیت تکست میتونید اون رو از دیزاینر ادد کنید یا اینکه به صورت دستی اینیشیالایز کنید .

برای این کار اول میام تو دیزاینر یه EditText1 رو ادد میکنیم .

Continue reading “کار با EditText در بیسیک فور اندروید” →

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

Posted on نوامبر 30, 2017نوامبر 30, 2017 by سید اسماعیل0 Posted in تکه کدها, درخواست سورس, سورس کدTagged ادد کردن عکس و لیبل و غیره در لیست ویو و مدیریت آنLeave a Comment

با سلام و سپاس

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

دید که تو لیست ویو عکس میزارن ؟

دید وقتی متن فارسی رو تو لیست ویو نمایش میدیم میچسبه به سمت راست انگار رفته تو دیواره لیست ویو ؟

Continue reading “ادد کردن عکس و لیبل و غیره در لیست ویو و مدیریت آن” →

رویداد باز شدن منو در کتابخانه MenuSlidingWrapper

Posted on نوامبر 27, 2017نوامبر 27, 2017 by سید اسماعیل0 Posted in تکه کدهاTagged رویداد باز شدن منو در کتابخانه MenuSlidingWrapperLeave a Comment

اگه از کتابخونه ی MenuSlidingWrapper استفاده میکنید میتونید با تابع زیر وقتی منو باز میشه رو تشخیص بدید.

اون Event رو هم که نیازه زیر تابع اوردم اونجا شما میتونی بفهمی که منو باز شده :

Continue reading “رویداد باز شدن منو در کتابخانه MenuSlidingWrapper” →