✅با سلام و ارادت خدمت کاربران یاهو۹۸✅
خوب امروز میخوام بهتون آموزش خروج از برنامه با دوبار کلیک کردن کلید خروج بره بیرون
که وقتی کاربر یک بار روی دکمه خروج میزنه بهش یه پیام نشون داده میشه مثال:👇👇
سورس کتاب کامل(اشتراک متن،دیتابیس آنلاین،لیمیت اسکرول و …)
با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO98
امروز با یک سورس کاربردی دیگر در خدمتتون هستیم که خیلی ارزنده و مفید برای دوستان بیسیک کار می باشد.
Continue reading “سورس کتاب کامل(اشتراک متن،دیتابیس آنلاین،لیمیت اسکرول و …)”
اصلاح لیست شماره تلفن ها و حذف سه شماره اول
اصلاح لیست شماره تلفن ها و حذف سه شماره اول
برای مثال اگر یه لیست بزرگ شماره تلفن داشته باشید به این صورت:
۹۱۱۱۲۳۴۵۶۷
۹۳۸۱۲۳۴۵۶۷
۹۳۳۱۲۳۴۵۶۷
Continue reading “اصلاح لیست شماره تلفن ها و حذف سه شماره اول”
تغییر رنگ استاتوس بار حین اجرای برنامه (Run Time)
تغییر رنگ استاتوس بار حین اجرای برنامه (Run Time)
تابع :
Sub SetStatusBarColor(clr As Int)
Dim p As Phone
If p.SdkVersion >= 21 Then
Dim jo As JavaObject
jo.InitializeContext
Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
window.RunMethod("addFlags", Array (0x80000000))
window.RunMethod("clearFlags", Array (0x04000000))
window.RunMethod("setStatusBarColor", Array(clr))
End If
End Sub
استفاده :
SetStatusBarColor(Colors.Blue)
موفق باشید.
یک راه حل دیگر برای حذف صفحه سیاه اول آپ
درود به شما کاربران گرامی وب سایت یاهو ۹۸
یه راه دیگه حذف کردن صفحه سیاه اول اپلیکیشن استفاده از تگ های زیر توی تم هستش.
SetActivityAttribute(Main, android:theme, @style/CustomActTheme) CreateResource(values, theme.xml, <resources> <style name="CustomActTheme"> <item name="android:windowBackground">@android:color/transparent</item> <item name="android:windowNoTitle">true</item> <item name="android:windowFullscreen">false</item> </style> </resources> )
موفق باشید.
تابع ShadeColor
با سلام و سپاس
با تابع 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
با سلام و سپاس
خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO
حتما تا حالا دیدی با فعال کردن کتابخانه AppCompat در برنامه , یک سایه به صورت پیشفرض به دکمه های برنامه اضافه میشود که در برخی از مواقع ممکن است زیبایی برنامه را از بین ببرد …
برای غیر فعال سازی این امر کافیه تکه کد زیر به به منیفستتون اضافه کنید :
<item name="android:buttonStyle">@style/Widget.AppCompat.Button.Borderless</item>
امیدوارم مفید واقع گردد .
آیا شماره من روی گوشی کاربر ثبت شده ؟
با سلام و سپاس
خدمت تمامی عزیزانی که ما رو در سایت یاهو ۹۸ YAHOO دنبال می کند.
سپاسگذاریم.
امروز سورسی رو براتون کد نویسی کردم که دقیقا عملی مشابه برنامه موبوگرام انجام می دهد :
تابع گرفتن صدای زنگ گوشی کاربر
به درود به کاربران عزیز سایت یاهو ۹۸ 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 یا برعکس کردن متن
با سلام و سپاس
تکه کد کاربردی برعکس کردن متن یا 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
سورس کد هواشناسی دقیق + روز های آینده بیسیک فور اندروید
با سلام و سپاس
میتوان به جرات گفت بهترین اپلیکیشن دقیق برای هواشناسی می باشد که امکانات و جزییات فراوانی نیز برخوردار می باشد.
سورس کد پیوست شد .
Continue reading “سورس کد هواشناسی دقیق + روز های آینده بیسیک فور اندروید”
جداسازی کلمات با دستور ریجکس Regex
با سلام و سپاس خدمت عزیزان
با تکه کد زیر میتوانید حروف و اعداد رو جداسازی کنید.
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
تکه کد Replace جداسازی + ذخیره در TXT
با سلام و سپاس خدمت شما سروران عزیز
امروز با تکه کدی کاربردی در خدمتتون هستیم.
با این تکه کد شما میتونید تمامی مواردی که در یک خط نوشته شده رو جوری که میخواهید جداسازی کنید.
سورس کد مترجم فراز به صورت رایگان
با سلام و سپاس
سورس کد مترجم فراز به صورت رایگان
هدف ما فقط و فقط خدمت به عزیزان برنامه نویس و کسانی که تازه با برنامه نویسی بر پایه بیسیک فور اندروید آشنا و شروع به یادگیری کردن است.
امروز براتون سورس کد مترجم آنلاین فراز رو مهیا کردیم که به صورت کاملا رایگان هست .
چون دیدم بعضی از سایت ها اقدام به فروش آن کردم وظیفه خود دانستم که موجب این ……………….. بشم.
امیدوارم مفید واقع گردد.
دانلود نمونه APK
دانلود سورس
دانلود کتابخانه ها
سایه دادن به text در بیسیک فور اندروید
با سلام و سپاس
خدمت کاربران عزیز وب سایت یاهو ۹۸ 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