سلام وقت بخیر خدمت همه دوستان سایت یاهو ۹۸
امروز براتون تکه کد کاربردی مهیا کرده ایم که امیدوارم مفید واقع گردد.
با تابع زیر میتونید تشخیص بدید متن RTL هستش (فارسی) یا LTR (انگلیسی) (B4A)
با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸
امروز براتون یه قطعه کد مهیا کردیم که خیلی کاربردی می باشید.
Continue reading “با تابع زیر میتونید تشخیص بدید متن RTL هستش (فارسی) یا LTR (انگلیسی) (B4A)”
رسم نیم دایره ، دایره کامل یا … روی یک ویو
با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO
رسم نیم دایر ه، دایره کامل یا … روی یک ویو
Continue reading “رسم نیم دایره ، دایره کامل یا … روی یک ویو”
بدست آوردن قسمت Base Url
با درود فراوان خدمت دوستان همیشه در صحنه کاربران عزیز
بدست آوردن قسمت Base Url
بدست آوردن اندازه تولبار رو برای تبلت یا گوشی
با درود فراوان خدمت دوستان همیشه در صحنه کاربران عزیز
با این ساب هم میتونید اندازه تولبار رو برای تبلت یا گوشی بدست بیارید.
میتونید برای کارهای دیگه هم ازش استفاده کنید.
Continue reading “بدست آوردن اندازه تولبار رو برای تبلت یا گوشی”
تغییر رنگ استاتوس بار بدون آپ کامپت appcompat
با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO
اگه میخواید رنگ استاتوس بار رو تغییر بدین بدون اینکه از اپ کامپت استفاده کنید، کد زیر اینکارو انجام میده:
Continue reading “تغییر رنگ استاتوس بار بدون آپ کامپت appcompat”
تغییر رنگ آیتم های استاتوس بار گوشی(باتری، ساعت و…) نسبت به رنگ استاتوس بار برنامه شما
با سلام و سپاس فراوان خدمت دوستان عزیز
امروز براتون تکه کد تغییر رنگ آیتم های استاتوس بار گوشی رو مهیا کرده ایم که به صورت زیر می باشد .
حذف فضاهای خالی توی یه رشته در بیسیک
با سلام و سپاس فراوان خدمت دوستان عزیز
امروز براتون تکه کد حذف فضاهای خالی توی یه رشته در بیسیک رو مهیا کرده ایم که به صورت زیر می باشد .
تکه کد یا اینتنت باز کردن مستقیم صفحه ارسال ایمیل
با سلام و سپاس
خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO
امروز براتون تکه کدی رو آماده کردیم که مستقیما ایمیل و متن مورد نطر رو در صفحه ارسال ایمیلتون چاپ میکنه.
Continue reading “تکه کد یا اینتنت باز کردن مستقیم صفحه ارسال ایمیل”
حل مشکل نمایش همیشگی نام اپ در نوار اعلان اندروید ۸
ا سلام و درود خدمت دوستان عزیز یاهو ۹۸
اگر در برنامه هاتون از سرویس استفاده میکنید قطعاً به مشکل نمایش همیشگی یک نوتیفیکیشن(اعلان) با عنوان “نام اپ” که از بین نمیره مواجه شدید، برای رفع این مشکل باما همراه باشید.
این مشکل معمولاً در اندروید ۸ رخ میده که دلیلش همیشه اجرا بودن و نااستاندارد بودن سرویس های استفاده شده در اپلیکیشن هست.
بهترین راه حل
بهترین راه حل
۱- وارد تک تک سرویس – service های پروژتون بشید
۲- در رویداد Service_Create این کد قرار بدید:
Dim n As Notification
n.Initialize2(n.IMPORTANCE_LOW)
n.Icon = "icon"
n.Sound = False
n.Vibrate = False
n.Light = False
n.Insistent = False
n.AutoCancel = False
n.SetInfo("","","")
Service.AutomaticForegroundNotification = n
۳- و در رویداد Service_Start کد زیر:
Service.StopAutomaticForeground
در این روش یک لحظه یه نوتیفیکیشن نمایش داده میشه و بعد غیب میشه، اگه میخواین همون نیم ثانیه هم دیده نشه یک آیکن transparent بذارید براش.
دادن فونت (Typeface) به متن از پوشه های دیگر
با سلام و سپاس خدمت کاربران عزیز
📖 دادن فونت(Typeface) به متن از پوشه های دیگر بطور معمول ما برای دادن فونت به متن لیبل، باتن و… از تابع Typeface.LoadFromAssets استفاده میکنیم
که این فقط محدود به پوشه Files پروژه خودتونه. ✅ برای فراخوانی فونت از پوشه های دیگه از تابع زیر استفاده کنید:
Continue reading “دادن فونت (Typeface) به متن از پوشه های دیگر”
📩 تابع تشخیص درست وارد شدن جیمیل – Gmail
📩 تابع تشخیص درست وارد شدن جیمیل – Gmail
• با استفاده ازاین تابع میتونید تشخیص بدید آیا ایمیل وارد شده #جیمیل هست یانه.
خیلی هم خوبه که قبلش چک کنید آیا اصلا ایمیل وارد شده صحیح هست یاخیر .
💡۲ تابع کاربردی که برای فرم های ثبت نام بکار میاد😍
📧 بررسی صحیح وارد شدن ایمیل:
Sub Verify_Email(Mail As String) As Boolean
Dim eMatch As Matcher
eMatch = Regex.Matcher("\w+@\w+\.\w+", Mail)
Return eMatch.Find
End Sub
مثال:
Verify_Email(“info@yahoo98.ir”) ‘درصورت صحیح بودن true برگردونده میشه
👤 بررسی درست وارد شدن نام کاربری(username)
| با این تابع نام کاربری فقط میتونه شامل: ( حروف انگلیسی، اعداد و کاراکترهای – , . ) باشه.
Sub Verify_UserName(user As String) As Boolean
Dim eMatch As Matcher
eMatch = Regex.Matcher("^[a-zA-Z0-9._-]{3,}$", user)
Return eMatch.Find
End Sub
✅ تابع
Sub isGmail(text As String) As Boolean Dim ads As String="@gmail.com" text=text.ToLowerCase If text.Length<12 Then Return False Else If text.SubString(text.Length-10)=ads Then Return True Else Return False End If End If End Sub
▫️ استفاده
If isGmail("yahoo98.ir@gmail.com") Then
ToastMessageShow("جیمیل صحیح است",True)
End If
تابع_کاربردی برای بیسیک ۴ اندروید $
با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸
💡 آیا میدونستید با قرار دادن یک $ در ابتدا و انتهای رشته، میتونید متن مورد نظر رو به هرصورتی که دوست دارید بنویسید؟
تکه کد گرفتن لیست فولدرهای یک مسیر
با سپاس خدمت دوستان
با تکه کد زیر میتونید نام فولدر های مسیر معین شده رو نمایش بدید .
موفق باشید.
تبدیل زمان (میلی ثانیه) به ساعت : دقیقه : ثانیه b4a
با سلام خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO
امروز براتون یه تکه کد کاربردی مهیا کرده ایم که امیدواریم مورد قبول شما عزیزان قرار بگیره.
تبدیل زمان (میلی ثانیه) به ساعت : دقیقه : ثانیه
Continue reading “تبدیل زمان (میلی ثانیه) به ساعت : دقیقه : ثانیه b4a”