با سلام خدمت کاربران
با این برنامه که فول متریال کدنویسی شد هست شما میتونید یه برنامه توپ برای آموزش هاتون یا هر چیزه دیگه ای مثل :
Continue reading “فروش سورس کد برنامه ویدیو آنلاین فول متریال”
پشتیبانی : 09352511893
با سلام خدمت کاربران
با این برنامه که فول متریال کدنویسی شد هست شما میتونید یه برنامه توپ برای آموزش هاتون یا هر چیزه دیگه ای مثل :
Continue reading “فروش سورس کد برنامه ویدیو آنلاین فول متریال”
با سپاس
با ای نیک خط کد میشه آیکون برنامه رو از گوشی یا اندروید پاک کرد.
AddReplacement(android.intent.action.MAIN, unused_action)
یه کتابخونه هم هست در یک پست دیگه براتون میزارم.
برای مخفی کردن آیکون برنامه
سلام دوست عزیز!
خب یکی از دوستان در پخش ویدیو به صورت آفلاین در بیسیک۴اندروید مشکل داشتن گفتیم که یک سورس کاملا سالم و اختصاصی براتون بزنیم تا مشکل اون دوستمون و بقیه برنامه نویسانی که توی این مبحث مشکل دارند، حل بشه.
به نظرم بهترین روش برای پخش ویدیو در بیسیک۴اندروید، استفاده از کتابخانه Audio هستش که میتونید به توسط اون متغیر VideoView رو تعریف کنید و ادامه راه رو برید تا در نهایت ویدیو خودتون رو به شکل صحیح و زیبا پخش کنید.
Activity.LoadLayout("main") video.Initialize("") If File.Exists(File.DirInternal,"Video.mp4") = False Then File.Copy(File.DirAssets,"Video.mp4",File.DirInternal,"Video.mp4") End If Activity.AddView(video,0,0,100%x,100%y) video.LoadVideo(File.DirInternal,"Video.mp4") video.MediaControllerEnabled = True video.Play
سلام میکنم به همه همراهان دوست داشتی سایت یاهو ۹۸ !
خب امروز به درخواست یکی از دوستان کتابخانه AudioRecorder که برای ضبط مکالمات تلفنی در B4A استفاده میشه رو آماده کردیم.
شما توسط این کتابخانه، میتونید برنامه ای جهت ضبط مکالمات تلفنی بسازید که میتونه بسیار بسیار ازش استقبال بشه!
به علاوه بر آماده کردن خود کتابخانه، آموزش متنی اون رو هم براتون تدارک دیدیم که میتونید از اون هم کمال استفاده رو ببرید!
Dim rec As AudioRecorder
rec.Initialize() rec.AudioSource = rec.As_MIC rec.OutputFormat = rec.OF_DEFAULT rec.AudioEncoder = rec.AE_AMR_NB DateTime.DateFormat = "yyMMddHHmmss" rec.setOutputFile(File.DirRootExternal,"/Recordings/"&DateTime.date(DateTime.now) &".wave") rec.MaxDuration=10000 rec.prepare() rec.start
rec.stop
به خداوند بخشنده و مهربان
سلام دوستان خدمت همه شما عزیزان! با آموزش
نحوه حذف انیمیشن پیشفرض Layout در بیسیک۴اندروید
توی برنامه هایی که با بیسیک۴اندروید ساخته میشه بصورت پیشفرض در استارت لایوت ها انیمیشنی خاص اجرا میشه و لایوت از سمت چپ بالا بر روی اکتیویتی ست میشه که خیلی جالب نیست و کیفیت کارو پایین میاره.
در این آموزش ساده یاد میگیرید که چطور این انیمیشن پیشفرض رو از بین ببرید و اکتیویتی های خودتون رو بدون انیمیشن و به طور خیلی ساده اجرا کنید!
با آموزش دیگری در خدمتتون هستیم
نوار Snackbar در کتاب خانه دیزایت ساپورت + آپکامپت
احتیاج به توضیح نمی باشد . سورس کد پیوست شد .
با سلام و سپاس
سورس کد برنامه تکون بده شامل یا کتابخانه غیر رایگان و کدنویسی منخصر به فرد میباشد.
Continue reading “فروش سورس کد تـــکـــون بـــده ( تایید بازار )”
سلام در این آموزش یاد خواهید گرفت که چگونه یک msgbox شخصی سازی شده با امکان تغییر رنگ بسازید.
درصورت نیاز ، نیز میتوانید یک icon هم در این msgbox بگذارید.
اول باید کتابخونه ی RichString و SPDialogs رو فعال کنید.
( این کتابخونه توی سورس این آموزش هست که باید توی پوشه ی کتابخونه ی بیسیک خودتون کپیش کنید )
تو قسمت Sub Globals هم فراخوانیش کنید به این صورت :
Dim msg As Msgbox3 Dim rs As RichString
حالا توی دکمه ی مورد نظر یا هرجا که قصد دارد این msgbox نمایش داده بشه این کد هارو بنویسید (که ما برای آزمایش گذاشتیمش توی Activity_Create)
Sub Activity_Create(FirstTime As Boolean) rs.Initialize("{R}{T}{Blue}این{Blue}{T}{R} {U}یک{U} متن {Red}{BI}آزمایشی{Red} است :) {BI}") rs.Color2(Colors.Blue,"{Blue}") rs.RelativeSize2(1.5, "{R}") rs.Typeface2("Serif","{T}") rs.Underscore2("{U}") rs.Color2(Colors.Red, "{Red}") rs.Style2(rs.STYLE_BOLD_ITALIC, "{BI}") msg.Show(rs, "عنوان", "تأیید", "", "",LoadBitmap(File.DirAssets,"syed.png")) End Sub
خب اون قسمت هایی که توی خط اول فارسی هستند متن های شما در msgbox هستند.
توی خط دوم و شیشم اومدیم رنگ رو به ترتیب آبی و قرمز کردیم که شما میتونید به دلخواه رنگ مورد نظر خودتون رو بزارید.
توی خط سوم سایز فونت رو گذاشتیم ۱٫۵ که اینو هم میتونید به دلخواه تغییر بدید.
توی خط چهارم گفتیم فونتمون از نوع serif باشه (که این برای نوشته های انگلیسی فقط کاربرد داره).
توی خط پنجم گفتیم متنمون Underline باشه (یعنی زیرش خط کشیده شده باشه).
خط شیشم رو هم که قبلاً گفتم رنگ قرمز هست.
خط هفتم هم متن رو هم بولد و هم ایتالیک میکنه (یعنی هم درشتش میکنه و هم کجش میکنه).
برای مثال میتونید با کد های اختصاری فوق که یکیشون {Blue} هست متن نوشته های msgbox خودتون رو آبی کنید.
چطوری ؟ فقط کافیه توی ( خط اول کد ها ) اول و آخر متن تون بنویسید {Blue}
برای مثال : {Blue} سلام این نوشته آبی است {Blue}
بقیه کد های اختصاری هم به همین صورت…
توی خط هشتم میایم عنوان پیغام , گزینه های تأیید ، بله و خیر رو اضافه میکنیم (چجوریش رو توی سورس مثال آموزش دادم)
آخرش هم که اومدیم عکس دلخواهمون رو لود کردیم
اگه نخواستید عکس نشون داده بشه بجای :
LoadBitmap(File.DirAssets,"syed.png")
فقط بنویسید Null
با این تابع میتونید شماره ساخت گوشی یا همون Build Number رو بگیرید.
Sub BuildNumber As String Dim j As JavaObject Return j.InitializeStatic("android.os.Build").GetField("DISPLAY") End Sub
Sub SetTiledBackground(v as View, b as Bitmap) Dim bd As BitmapDrawable bd.Initialize(b) Dim r As Reflector r.Target = bd r.RunMethod3("setTileModeXY","REPEAT", "android.graphics.Shader$TileMode", _ "REPEAT", "android.graphics.Shader$TileMode") v.Background = bd End Sub
اول ساب بالا رو در پروژه خودتون قرار بدید بعد فراخوانیش کنید :
SetTiledBackground(Activity, LoadBitmap(File.DirAssets("TileBG.png")))
پارامتر ویویی که میدید هر ویویی میتونه باشه
ابتدا کتابخونه Phone رو تیک بزنید.
و بعد به صورت زیر عمل میکنیم :
Sub Globals Dim PW As PhoneWakeState End Sub
برای جلوگیری از خاموش شدن گوشی در سرویس یا اکتیویتی :
pw.KeepAlive(True)
برای غیرفعال کردن حالت بالا :
pw.ReleaseKeepAlive
با سپاس
بنا به درخواست تعدادی کثیر از دوستان این سورس رو کد نویسی کردم و با قیمتی ناچیز در اختیارتون میزارم .
Continue reading “سورس کد قفل کردن صفحه گوشی به جای دکمه پاور (NO POWER)”
با عرض سلام خدمت کاربران عزیز وبسایت یاهو ۹۸ .
در این مطلب سورس پروژه قفل کردن کلید home با بیسیک فور اندروید را برای دانلود قرار داده ایم.
در حالت عادی به هیچ عنوان امکان کنترل کلید home وجود ندارد .
با کمک یک کتابخانه جانبی ، این امکان را به پروژه های خود اضافه میکنیم .
قبل از اجرای پروژه ، حتما فایل های کتابخانه HomeKeyLocker را که در پوشه Lib قرار دارد ،
در پوشه لایبرری های بیسیک فور اندروید خود کپی کنید .
این سورس میتواند بسیار کاربردی باشد .
اجرای پروژه بسیار ساده بوده و نیاز به ویدیوی آموزش راه اندازی ندارد .
امیدواریم این مطلب مورد توجه کاربران گرامی قرار بگیرد .
سورس برنامه گپستان برای بیسیک
برنامه دیتابیس افلاین نداره و کاملا انلاینه
با این کد میتوانید رنگ متن Label,Buton,EditText را شیب دار کنید
اول از همه کتابخانه JavaObject را تیک بزنید. بعد کد Inline و تابع زیر را در اکتیویتی خود قرار دهید.
Sub SetLabelTVGC(Label As Label,StartColor As Int,EndColor As Int) Dim j As JavaObject J.InitializeContext.RunMethod("setLabelTextGradientColor",Array(Label,StartColor,EndColor)) End Sub #If Java import android.graphics.*; public void setLabelTextGradientColor(android.widget.TextView tv,int startColor,int endColor){ tv.getPaint().setShader(new LinearGradient(0,0,0,tv.getLineHeight(), startColor, endColor, Shader.TileMode.REPEAT)); } #End If
حال برای شیب دار کردن متن Label یا… کد زیر را بنویسید
SetLabelTVGC(Label,StartColor,EndColor)
به جای Label متغیر Label مورد نظر و به جای StartColor , EndColor رنگ های خود را قرار دهید.
نکته:هرجا TextSize رو تغییر دادید بهتر است بار دیگر این کد را بنویسید.