MR.B4A

آیا می‌خواهید برنامه‌تان بتواند به‌صورت خودکار و دقیق، روی هر بخش دلخواه کلیک کند؟ 🤖 با مینی سورس کلیک خودکار برای Basic4Android، قابلیت اجرای کلیک‌های خودکار را به پروژه‌های خود اضافه کنید؛ فقط کافی است ویوی موردنظر و زمان اجرا را مشخص کنید تا برنامه، عملیات کلیک را به‌صورت کاملاً خودکار انجام دهد. ✨ ویژگی‌ها: ✅ کلیک خودکار روی ویوی دلخواه ✅ تعیین زمان اجرای کلیک ✅ ساده، سبک و قابل استفاده در پروژه‌های مختلف ✅ مناسب برای توسعه‌دهندگان Basic4Android 🚀 یک ابزار کوچک اما کاربردی برای ساخت اپلیکیشن‌های حرفه‌ای‌تر! سورس Sub Class_Globals Private Root As B4XView Private xui As XUI Private AutoClickEnabled As Boolean End Sub Public Sub Initialize ' B4XPages.GetManager.LogEvents = True End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("MainPage") AutoClickEnabled = True StartAutoClick End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Private Sub Button1_Click ToastMessageShow("دکمه کلیک شد!", False) End Sub Sub StartAutoClick Do While AutoClickEnabled Button1_Click Sleep(3000) ' هر ۱ ثانیه یک بار Loop End Sub این کدها را فقط در پروژتان اضافه کنید. تهیه و تنظیم مرتضی صباغی MR.B4A کانال ایتا https://eitaa.com/basic4androidlan گانال تلگرام https://t.me/programmingwithb4a

اگر با Basic4Android (B4A) برنامه‌نویسی می‌کنی، این سورس دقیقاً همون چیزیه که دنبالش بودی! 🔥 سورس طراحی نمودار با مقداردهی کامل که بهت امکان میده تنها با چند خط کد، نمودارهای جذاب و حرفه‌ای بسازی. ✅ نمودار خطی (Line Chart) ✅ نمودار ستونی یا میله‌ای (Bar Chart) ✅ نمودار دایره‌ای (Pie Chart) 💡 مناسب برای: ✔️ نمایش آمار و گزارش ✔️ داشبوردهای مدیریتی ✔️ اپلیکیشن‌های فروشگاهی، مالی، آموزشی و هر پروژه‌ای که نیاز به نمایش داده‌ها داره. ✨ کدنویسی تمیز، قابل شخصی‌سازی و آماده استفاده در پروژه‌های واقعی. 🎯 اگر می‌خوای ظاهر اپلیکیشن‌هات حرفه‌ای‌تر بشه و داده‌ها رو به زیباترین شکل نمایش بدی، این سورس رو از دست نده. سورس: Sub Globals Private Panel1 As Panel Private Panel2 As Panel Private Panel3 As Panel End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") Dim Data() As Int = Array As Int(12,25,18,40,35,55,48,60) Dim Data2() As Int = Array As Int(12,25,18,40,35,55,48,60) Dim Data3() As Int = Array As Int(12,25,18,40,35,55,48,60) DrawChartline(Data,Colors.Yellow,Colors.Black) DrawBarChart(Data2,Colors.Red,Colors.Black,Colors.Blue,Colors.Cyan,Colors.DarkGray,Colors.Magenta) DrawPieChart(Data3) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub 'نمودار دخطی Sub DrawChartline(Values() As Int, pointcolor As Int, linecolor As Int) If Values.Length < 2 Then Return Dim cvs As Canvas cvs.Initialize(Panel1) cvs.DrawColor(Colors.White) Dim Margin As Float = 30dip Dim MaxValue As Int = 0 'بزرگترین مقدار For Each n As Int In Values If n > MaxValue Then MaxValue = n Next If MaxValue = 0 Then Return Dim StepX As Float = (Panel1.Width - (2 * Margin)) / (Values.Length - 1) Dim i As Int For i = 0 To Values.Length - 2 Dim x1 As Float = Margin + (i * StepX) Dim x2 As Float = Margin + ((i + 1) * StepX) Dim Ratio1 As Float = Values(i) / MaxValue Dim Ratio2 As Float = Values(i + 1) / MaxValue Dim y1 As Float = Panel1.Height - Margin - (Ratio1 * (Panel1.Height - (2 * Margin))) Dim y2 As Float = Panel1.Height - Margin - (Ratio2 * (Panel1.Height - (2 * Margin))) cvs.DrawLine(x1, y1, x2, y2, linecolor, 3dip) cvs.DrawCircle(x1, y1, 5dip, pointcolor, True, 1dip) Next 'رسم آخرین نقطه Dim LastX As Float = Margin + ((Values.Length - 1) * StepX) Dim LastY As Float = Panel1.Height - Margin - ((Values(Values.Length - 1) / MaxValue) * _ (Panel1.Height - (2 * Margin))) cvs.DrawCircle(LastX, LastY, 5dip, pointcolor, True, 1dip) Panel1.Invalidate End Sub 'نمودار خطی 'نمودار ستونی Sub DrawBarChart(Values() As Int,color1 As Int, color2 As Int, color3 As Int, color4 As Int,color5 As Int, _ color6 As Int) Dim cvs As Canvas cvs.Initialize(Panel2) cvs.DrawColor(Colors.White) Dim Margin As Float = 30dip Dim MaxValue As Int = 0 'پیدا کردن بیشترین مقدار For Each n As Int In Values If n > MaxValue Then MaxValue = n Next If MaxValue = 0 Then Return Dim BarCount As Int = Values.Length Dim BarWidth As Float = (Panel2.Width - (2 * Margin)) / BarCount 'آرایه رنگ‌ها Dim ColorsArray() As Int = Array As Int( _ color1, _ color2, _ color3, _ color4, _ color5, _ color6 _ ) Dim i As Int For i = 0 To BarCount - 1 Dim BarHeight As Float = (Values(i) / MaxValue) * (Panel2.Height - (2 * Margin)) Dim Left As Float = Margin + (i * BarWidth) Dim Top As Float = Panel2.Height - Margin - BarHeight Dim Right As Float = Left + BarWidth * 0.7 Dim Bottom As Float = Panel2.Height - Margin Dim Rect1 As Rect Rect1.Initialize(Left, Top, Right, Bottom) 'انتخاب رنگ متفاوت برای هر ستون Dim c As Int c = ColorsArray(i Mod ColorsArray.Length) cvs.DrawRect(Rect1, c, True, 0) Next Panel2.Invalidate End Sub 'نمودار ستونی 'نمودار دایره ای Sub DrawPieChart(Values() As Int) Dim cvs As Canvas cvs.Initialize(Panel3) cvs.DrawColor(Colors.White) 'محاسبه مجموع Dim Total As Int = 0 For Each n As Int In Values Total = Total + n Next If Total = 0 Then Return 'رنگ بخش ها Dim ColorsArray() As Int = Array As Int( _ Colors.Red, _ Colors.Blue, _ Colors.Green, _ Colors.Yellow, _ Colors.Magenta, _ Colors.Cyan _ ) Dim Radius As Float = Min(Panel3.Width, Panel3.Height) / 3 Dim CenterX As Float = Panel3.Width / 2 Dim CenterY As Float = Panel3.Height / 2 Dim StartAngle As Float = -90 Dim i As Int For i = 0 To Values.Length - 1 Dim SweepAngle As Float = (Values(i) / Total) * 360 'ساخت یک تکه از دایره Dim Path1 As Path Dim StartX As Float = CenterX + CosD(StartAngle) * Radius Dim StartY As Float = CenterY + SinD(StartAngle) * Radius Path1.Initialize(CenterX, CenterY) Path1.LineTo(StartX, StartY) Dim a As Float For a = StartAngle To StartAngle + SweepAngle Step 5 Dim x As Float = CenterX + CosD(a) * Radius Dim y As Float = CenterY + SinD(a) * Radius Path1.LineTo(x, y) Next Path1.LineTo(CenterX, CenterY) cvs.DrawPath(Path1, ColorsArray(i Mod ColorsArray.Length), True, 0) StartAngle = StartAngle + SweepAngle Next Panel3.Invalidate End Sub 'نمودار دایره ای فقط کافیه این کدهارو داخل برنامت کپی کنی. تهیه و تنظیم مرتضی صباغی MR.B4A کانال ایتا https://eitaa.com/basic4androidlan کانال تلگرام https://t.me/programmingwithb4a

سلام. کارش چیه؟

سلام استاد خیلی ممنون که درمورد اپم نظر دادید.واقعا باعث افتخاره منه که شما درمورد برنامم نظر بدید. چشم حتما درمورد اون چه که گفتید تحقیق میکنم و استفاده میکنم خیلی ممنونم

اگر به دنبال یک ابزار کامل برای بررسی صندوق‌های سرمایه‌گذاری و وضعیت بازار بورس هستید، این برنامه انتخابی مناسب برای شماست. دانلود از کافه بازار: https://cafebazaar.ir/app/mr.b4a.bors محاسبه سود سهام به‌صورت سریع و دقیق معرفی صندوق‌های پربازده و برتر بازار پیشنهاد صندوق‌های مناسب بر اساس عملکرد و بازدهی مشاهده بازدهی صندوق‌های درآمد ثابت در هفته گذشته بررسی وضعیت نمادها معرفی عرضه‌های اولیه امکانات ویژه برنامه: نمایش دارایی هر سهم و صندوق بررسی بازدهی هفتگی صندوق‌ها شناسایی صندوق‌های دارای روند صعودی رابط کاربری ساده و سریع به‌روزرسانی هفتگی اطلاعات و داده‌های بازار با استفاده از این برنامه می‌توانید اطلاعات مهم بازار سرمایه را در یک محیط ساده و کاربردی مشاهده کرده و تصمیم‌های آگاهانه‌تری برای سرمایه‌گذاری بگیرید. اطلاعات به‌روز و دسترسی آسان به مهم‌ترین داده‌های بورس و صندوق‌های سرمایه‌گذاری در یک اپلیکیشن

یک لیست ویوی بسیار زیبا و مدرن با قابلیت کلیک سورس: ⭕ صفحه اول Sub Process_Globals Dim Bitmap As Bitmap End Sub Sub Globals Private xui As XUI Private ImageView1 As B4XView Private T As Label Private Button1 As Button Private Label1 As Label Private Button1 As Button Private CLV As CustomListView Private Panel1 As Panel Private Button2 As Button Dim Counter As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") End Sub Private Sub activity_PermissionResult (Permission As String, Result As Boolean) End Sub Private Sub CreateItem(Width As Int, Title As String, Image As B4XBitmap,Date As String) As Panel Dim p As B4XView = xui.CreatePanel("") Dim height As Int = 120dip Dim Obj1 As Reflector p.SetLayoutAnimated(0, 0, 0, Width, height) p.LoadLayout("card") T.Text = Title Dim ripple As RippleView ripple.Initialize(Panel1, Colors.Blue, 300, True) Label1.TextColor = 0xFF4A0091 Label1.Text = " Tel : @SkillPersian"&CRLF&Date ImageView1.SetBitmap(CreateRoundBitmap(Image, ImageView1.Width)) Obj1.Target = T Obj1.RunMethod3("setLineSpacing", 1, "java.lang.float", 1.2, "java.lang.float") Return p End Sub Sub CreateRoundBitmap (Input As B4XBitmap, Size As Int) As B4XBitmap If Input.Width <> Input.Height Then 'if the image is not square then we crop it to be a square. Dim l As Int = Min(Input.Width, Input.Height) Input = Input.Crop(Input.Width / 2 - l / 2, Input.Height / 2 - l / 2, l, l) End If Dim c As B4XCanvas Dim xview As B4XView = xui.CreatePanel("") xview.SetLayoutAnimated(0, 0, 0, Size, Size) c.Initialize(xview) Dim path As B4XPath path.InitializeOval(c.TargetRect) c.ClipPath(path) c.DrawBitmap(Input.Resize(Size, Size, False), c.TargetRect) c.RemoveClip c.DrawCircle(c.TargetRect.CenterX, c.TargetRect.CenterY, c.TargetRect.Width / 2 - 2dip, xui.Color_White, False, 5dip) 'comment this line to remove the border c.Invalidate Dim res As B4XBitmap = c.CreateBitmap c.Release Return res End Sub 'درصورت فعال بودن Ripple View 'کلیک آیتم از کار می افته بنابرین باید 'seneder 'برای دسترسی به کلیک آیتم ها استفاده کنید Sub CLV_ItemClick (Index As Int, Value As Object) ToastMessageShow(Value,False) End Sub Private Sub Panel1_Click Dim index As Int = CLV.GetItemFromView(Sender) ToastMessageShow("آیتم شماره "&CLV.GetValue(index)&" کلیک شد. ",False) End Sub Private Sub Button1_Click Dim index As Int = CLV.GetItemFromView(Sender) ToastMessageShow("مشاهده آیتم "&CLV.GetValue(index),False) End Sub Private Sub Button2_Click For i= 0 To 10 Bitmap= LoadBitmap(File.DirAssets,i&".jpg") Counter = Counter +1 CLV.Add(CreateItem(CLV.AsView.Width,"Mohammad Reza Pirzadeh"&CRLF&"Skillpersian",Bitmap,""),Counter) Next End Sub Private Sub btn_next_Click Activity.Finish StartActivity("page2") End Sub ✅ صفحه دوم Sub Process_Globals Dim Bitmap As Bitmap End Sub Sub Globals Private xui As XUI Private ImageView1 As B4XView Private T As Label Private Button1 As Button Private Label1 As Label Private Button1 As Button Private CLV As CustomListView Private Panel1 As Panel Dim Counter As Int Private i As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("page2") End Sub Private Sub CreateItem(Width As Int, Title As String, Image As B4XBitmap,Date As String) As Panel Dim p As B4XView = xui.CreatePanel("") Dim height As Int = 120dip Dim Obj1 As Reflector p.SetLayoutAnimated(0, 0, 0, Width, height) p.LoadLayout("card") T.Text = Title Dim ripple As RippleView ripple.Initialize(Panel1, Colors.Blue, 300, True) Label1.TextColor = 0xFF4A0091 Label1.Text = " Tel : @SkillPersian"&CRLF&Date ImageView1.SetBitmap(CreateRoundBitmap(Image, ImageView1.Width)) Obj1.Target = T Obj1.RunMethod3("setLineSpacing", 1, "java.lang.float", 1.2, "java.lang.float") Return p End Sub Sub CreateRoundBitmap (Input As B4XBitmap, Size As Int) As B4XBitmap If Input.Width <> Input.Height Then 'if the image is not square then we crop it to be a square. Dim l As Int = Min(Input.Width, Input.Height) Input = Input.Crop(Input.Width / 2 - l / 2, Input.Height / 2 - l / 2, l, l) End If Dim c As B4XCanvas Dim xview As B4XView = xui.CreatePanel("") xview.SetLayoutAnimated(0, 0, 0, Size, Size) c.Initialize(xview) Dim path As B4XPath path.InitializeOval(c.TargetRect) c.ClipPath(path) c.DrawBitmap(Input.Resize(Size, Size, False), c.TargetRect) c.RemoveClip c.DrawCircle(c.TargetRect.CenterX, c.TargetRect.CenterY, c.TargetRect.Width / 2 - 2dip, xui.Color_White, False, 5dip) 'comment this line to remove the border c.Invalidate Dim res As B4XBitmap = c.CreateBitmap c.Release Return res End Sub 'درصورت فعال بودن Ripple View 'کلیک آیتم از کار می افته بنابرین باید 'seneder 'برای دسترسی به کلیک آیتم ها استفاده کنید Sub CLV_ItemClick (Index As Int, Value As Object) ToastMessageShow(Value,False) End Sub Private Sub Panel1_Click Dim index As Int = CLV.GetItemFromView(Sender) ToastMessageShow("آیتم شماره "&CLV.GetValue(index)&" کلیک شد. ",False) End Sub Private Sub Button1_Click Dim index As Int = CLV.GetItemFromView(Sender) ToastMessageShow("مشاهده آیتم "&CLV.GetValue(index),False) End Sub Private Sub Button2_Click If i=11 Then ToastMessageShow("همه آیتم ها ساخته شدند",False) Return End If Bitmap= LoadBitmap(File.DirAssets,i&".jpg") i=i+1 Counter = Counter +1 CLV.Add(CreateItem(CLV.AsView.Width,"Mohammad Reza Pirzadeh"&CRLF&"Skillpersian",Bitmap,""),Counter) End Sub Private Sub activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event Activity.Finish StartActivity("main") Return True End Sub تهیه و تنظیم مرتضی صباغی MR.B4A https://eitaa.com/basic4androidlan https://t.me/programmingwithb4a

با استفاده از این سورس یک WobbleMenu برای پروزه تان بسازید یک منوی بسیار زیبا و کاربردی سورس: Sub Globals Private WobbleMenu1 As WobbleMenu End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") WobbleMenu1.SetTabTextIcon(1,"Menu 1",Chr(0xF009),Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(2,"Menu 2",Chr(0xF0CA),Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(3,"Menu 3",Chr(0xF0EC),Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(4,"Menu 4",Chr(0xF24D),Typeface.FONTAWESOME) WobbleMenu1.SetTabTextIcon(5,"Menu 5",Chr(0xF2C0),Typeface.FONTAWESOME) WobbleMenu1.SetBadge(4,5,Colors.White,Colors.Blue) End Sub Sub WobbleMenu1_Tab1Click WobbleMenu1.RemoveBadge(4) ToastMessageShow("تب اول",False) End Sub Private Sub WobbleMenu1_Tab2Click ToastMessageShow("تب دوم",False) End Sub Private Sub WobbleMenu1_Tab3Click ToastMessageShow("تب سوم",False) End Sub Private Sub WobbleMenu1_Tab4Click ToastMessageShow("تب چهارم",False) End Sub Private Sub WobbleMenu1_Tab5Click ToastMessageShow("تب پنجم",False) End Sub طراح و تهیه کننده: مرتضی صباغی MR.B4A https://t.me/programmingwithb4a

این عملکرد را چگونه بسازیم؟ https://www.aparat.com/v/hbvp3f3 به وسیله این مینی سورس میتوانید کاراکترهای داخل جعبه متن رو تک تک حذف کنید. دقیقا مثل دکمه بک کیبرد. سورس: Private Sub btn_delete_Click If txt_char.Text.Length > 0 Then txt_char.Text = txt_char.Text.SubString2(0, txt_char.Text.Length - 1) txt_char.SelectionStart = txt_char.Text.Length Else ToastMessageShow("جعبه متن خالی است!",False) End If End Sub تهیه و تنظیم مرتضی صباغی MR.B4A https://t.me/programmingwithb4a https://eitaa.com/basic4androidlan

این سورس را میخواهیم بسازیم: https://aparat.com/v/osgpkrg با استفاده از این سورس میتوانید یک افکت انیمیشنی بسیار زیبا به برنامه خود دهید. سورس #Region Project Attributes #ApplicationLabel: Animation Wave #VersionCode: 1 #VersionName: 1.00 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: true #IncludeTitle: false #Extends : androidx.appcompat.app.AppCompatActivity #End Region #MultiDex:true Sub Process_Globals End Sub Sub Globals Dim WaveView As AXWaveView Dim LineWaveView As AXLineWaveView Dim chk,chk2 As CheckBox Private Panel1 As Panel End Sub Sub Activity_Create(FirstTime As Boolean) Activity.Color = 0xFF1C2229 If File.Exists(File.DirInternal,"db.db")=False Then File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db") End If Dim Seekbar As ACSeekBar Seekbar.Initialize("Seekbar") Activity.AddView(Seekbar,16dip,16dip,100%x-32dip,32dip) WaveView.Initialize Dim Size As Int = 250dip Activity.AddView(WaveView,50%x - (Size/2), 50%y - (Size/2) , Size, Size) InitWaveView Dim MicImage As ImageView MicImage.Initialize("") Size = 64dip Activity.AddView(MicImage,50%x - (Size/2), 50%y - (Size/2) , Size, Size) Dim BD As BitmapDrawable BD.Initialize(LoadBitmap(File.DirAssets,"mic.png")) Dim AC As AppCompat AC.SetDrawableTint(BD,Colors.White) MicImage.Background = BD LineWaveView.Initialize Activity.AddView(LineWaveView,0,100%y-36dip,100%x,36dip) InitLineWaveView chk.Initialize("RedState") chk.TextColor = Colors.White chk.Checked = False Activity.AddView(chk , 16dip , Seekbar.Top + Seekbar.Height + 20dip , 140dip , 40dip) chk.Text = "Red State" chk2.Initialize("WaveEnabled") chk2.TextColor = Colors.White chk2.Checked = True Activity.AddView(chk2 , 16dip , chk.Top + chk.Height + 20dip , 140dip , 40dip) chk2.Text = "WaveEnabled" Panel1.Initialize("") Activity.AddView(Panel1,0,0,100%x,100%y) Panel1.Visible=False End Sub Private Sub activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event If KeyCode=KeyCodes.KEYCODE_BACK Then If Panel1.Visible=True Then Panel1.Visible=False End If Return True End If End Sub Private Sub RedState_CheckedChange(Checked As Boolean) If chk2.Checked = False Then chk2.Checked = True WaveView.PrepareToRemove(Checked) End Sub Private Sub WaveEnabled_CheckedChange(Checked As Boolean) WaveView.PrepareToRemoveWaveEnabled = Not(Checked) Dim st As AXWeavingState = WaveView.CurrentState st.SupportWaves = Checked WaveView.Invalidate End Sub Private Sub InitWaveView Dim State1 As AXWeavingState State1.Initialize3(1,WaveView.CreateRadialShader(200,0xff2BCEFF,0xff0976E3)) State1.Width = WaveView.Width + 20dip State1.Height = State1.Width WaveView.AddState(1,State1) Dim State2 As AXWeavingState State2.Initialize(2,WaveView.CreateRadialShader(200,0xff12B522,0xff00D6C1),"WaveState2") State2.Width = WaveView.Width + 20dip State2.Height = State2.Width WaveView.AddState(2,State2) WaveView.SetState(1) WaveView.CircleEnabled = True WaveView.Amplitude = -1 Dim Reflection As Reflector Reflection.Target = WaveView Reflection.SetOnClickListener("Wave_Click") WaveView.PrepareToRemoveColor = Colors.Red WaveView.PrepareToRemoveSize = 250dip WaveView.PrepareToRemoveAngle = 45.0f WaveView.PrepareToRemoveShader = WaveView.CreateLinearShader(350dip,0xFFD54141, 0xFFF76E7E,Colors.Transparent) WaveView.PrepareToRemoveWaveEnabled = False End Sub Private Sub WaveState2_UpdateTargets (State As AXWeavingState) State.TargetX = 0.2f + 0.1f * Rnd(1,100) / 100 State.TargetY = 0.7f + 0.1f * Rnd(1,100) / 100 End Sub Private Sub Wave_Click (Tag As Object) Dim State As AXWeavingState = WaveView.CurrentState If State.State = 1 Then WaveView.SetState(2) LineWaveView.SetState(2) SetNavigationBarColor(0xff00D6C1) Else WaveView.SetState(1) LineWaveView.SetState(1) SetNavigationBarColor(0xff0976E3) End If End Sub Private Sub Seekbar_ValueChanged (Value As Int, UserChanged As Boolean) WaveView.Amplitude = Value * WaveView.MAX_AMPLITUDE / 100 LineWaveView.Amplitude = Value * LineWaveView.MAX_AMPLITUDE / 100 End Sub Private Sub InitLineWaveView Dim State1 As AXLineWeavingState State1.Initialize3(1,WaveView.CreateRadialShader(200,0xff0976E3,0xff0976E3)) LineWaveView.AddState(1,State1) Dim State2 As AXLineWeavingState State2.Initialize3(2,WaveView.CreateRadialShader(200,0xff00D6C1,0xff00D6C1)) LineWaveView.AddState(2,State2) LineWaveView.SetState(1) SetNavigationBarColor(0xff0976E3) LineWaveView.MaxAlpha = 120 LineWaveView.MainWaveEnabled = False End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Public Sub SetNavigationBarColor (NewColor As Int) Dim sdk As Phone If sdk.SdkVersion >= 21 Then Dim j1 As JavaObject j1.InitializeContext j1.RunMethodJO("getWindow",Null) _ .RunMethod("setNavigationBarColor",Array (NewColor)) End If End Sub تهیه و تنظیم مرتضی صباغی MR.B4A لینک کانال ایتا: https://eitaa.com/basic4androidlan لینک کانال تلگرام: https://t.me/programmingwithb4a

بااستفاده از این سورس، ویوهای برنامه تان را با استفاده از کدنویسی، عمودی کنید. بیشتر گاربر بصری دارد. سورس Sub Process_Globals Private t1, t2, t3, t4, t5, t6 As Timer End Sub Sub Globals Private SeekBar1 As SeekBar Private SeekBar2 As SeekBar Private SeekBar3 As SeekBar Private SeekBar4 As SeekBar Private SeekBar5 As SeekBar Private SeekBar6 As SeekBar Private Label1 As Label Private btn_source As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") t1.Initialize("t1",1000) t2.Initialize("t2",2000) t3.Initialize("t3",3000) t4.Initialize("t4",4000) t5.Initialize("t5",5000) t6.Initialize("t6",6000) 'تایمرها مقداردهی شدند تا به ترتیب حالتشان تغییر کند Dim jo As JavaObject jo.InitializeContext jo.RunMethod("ChangeColor",Array As Object(SeekBar1,Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)))) jo.RunMethod("ChangeColor",Array As Object(SeekBar2,Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)))) jo.RunMethod("ChangeColor",Array As Object(SeekBar3,Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)))) jo.RunMethod("ChangeColor",Array As Object(SeekBar4,Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)))) jo.RunMethod("ChangeColor",Array As Object(SeekBar5,Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)))) jo.RunMethod("ChangeColor",Array As Object(SeekBar6,Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255)))) 'رنگ های سیک بار با استفاده از این کدها تغییر میکند End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Private Sub t1_Tick Private x As B4XView = SeekBar1 x.Rotation=90 t1.Enabled=False End Sub Private Sub t2_Tick Private x1 As B4XView = SeekBar2 x1.Rotation=90 t2.Enabled=False End Sub Private Sub t3_Tick Private x2 As B4XView = SeekBar3 x2.Rotation=90 t3.Enabled=False End Sub Private Sub t4_Tick Private x3 As B4XView = SeekBar4 x3.Rotation=90 t4.Enabled=False End Sub Private Sub t5_Tick Private x4 As B4XView = SeekBar5 x4.Rotation=90 t5.Enabled=False End Sub Private Sub t6_Tick Private x5 As B4XView = SeekBar6 x5.Rotation=90 t6.Enabled=False End Sub 'رویدادی که تایمرها، دستورات مربوط به تغییر حالت سیک بارها را اجرا میکنند Private Sub Button1_Click t1.Enabled=True t2.Enabled=True t3.Enabled=True t4.Enabled=True t5.Enabled=True t6.Enabled=True End Sub 'روشن کردن همه تایمرها #if java import android.graphics.PorterDuff; import android.widget.SeekBar; public void ChangeColor(SeekBar seekbar,int Color) { seekbar.getProgressDrawable().setColorFilter(Color, PorterDuff.Mode.SRC_IN); seekbar.getThumb().setColorFilter(Color, PorterDuff.Mode.SRC_IN); } #End If 'دستورات جاوا برای تغییر رنگ سیک بار Private Sub Button2_Click Private x As B4XView = SeekBar1 x.Rotation=0 Private x1 As B4XView = SeekBar2 x1.Rotation=0 Private x2 As B4XView = SeekBar3 x2.Rotation=0 Private x3 As B4XView = SeekBar4 x3.Rotation=0 Private x4 As B4XView = SeekBar5 x4.Rotation=0 Private x5 As B4XView = SeekBar6 x5.Rotation=0 End Sub 'برگت به حالت افقی سیک بارها Private Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean) Label1.Text=Value End Sub Private Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean) Label1.Text=Value End Sub Private Sub SeekBar3_ValueChanged (Value As Int, UserChanged As Boolean) Label1.Text=Value End Sub Private Sub SeekBar4_ValueChanged (Value As Int, UserChanged As Boolean) Label1.Text=Value End Sub Private Sub SeekBar5_ValueChanged (Value As Int, UserChanged As Boolean) Label1.Text=Value End Sub Private Sub SeekBar6_ValueChanged (Value As Int, UserChanged As Boolean) Label1.Text=Value End Sub 'مقداردهی لیبل عدد Private Sub Button3_Click Activity.Finish StartActivity("page2") End Sub کانال ایتا:https://eitaa.com/basic4androidlan کانال بله: https://web.bale.ai/chat?uid=5896703188 تهیه و تنظیم مرتضی صباغی MR.B4A

بااستفاده از این سورس، میتوانید به راحتی یک ویدئو را با استفاده از لینک، به صورت آنلاین پخش کنید. همچنین میتوانید با انتخاب ویدئو از حافظه گوشی، آن را به صورت آفلاین در برنامه پخش کنید. سورس: Sub Process_Globals Private cc As ContentChooser End Sub Sub Globals Private videov As VideoView Private ptn_play_pause As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") If cc.IsInitialized=False Then cc.Initialize("cc") End If If videov.IsInitialized=False Then videov.Initialize("v") End If Activity.AddView(videov,0,0,100%x,100%y) videov.MediaControllerEnabled=True If File.Exists(File.DirInternal,"1.mp4")=False Then File.Copy(File.DirAssets,"1.mp4",File.DirInternal,"1.mp4") End If videov.LoadVideo(File.DirInternal,"1.mp4") End Sub Sub cc_Result (Success As Boolean, Dir As String, FileName As String) If Success=True Then videov.LoadVideo(Dir,FileName) videov.Play Else Msgbox("اجرای ویدئو با مشکل مواجه شده است","") End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Private Sub ptn_play_pause_Click If videov.IsPlaying=False Then videov.Play ptn_play_pause.Typeface=Typeface.MATERIALICONS ptn_play_pause.Text=Chr(0xE034) Else videov.Pause ptn_play_pause.Typeface=Typeface.MATERIALICONS ptn_play_pause.Text=Chr(0xE037) End If End Sub Private Sub v_Complete Msgbox("پخش ویدئو تمام شد","") videov.Play End Sub Private Sub btn_select_vid_Click cc.Show("video/*","ویدئوی مورد نظر را انتخاب کنید") End Sub Private Sub btn_play_web_Click videov.LoadVideo("http://media.newspring.cc/video/2013/","021013_DontWasteYourLife_01_iPod.mp4") videov.Play End Sub تهیه و تنظیم مرتضی صباغی MR.B4A لینک کانال ایتا: https://eitaa.com/basic4androidlan لینک کانال بله: https://web.bale.ai/chat?uid=5896703188 ویرایش شده1۱۱:۴۲ بعدازظهر

میخوام یه اپ بنویسم که به درگاه بانکی ( ترجیحا با api ) وصل شه. حالا میخوام اول یه تستی برم ببینم چه طوری کسی از دوستان سایتی ترفندی راهی میشناسه که بشه درگاه بانکی رو تست کرد؟

بااستفاده از این سورس به راحتی میتوانید متون رو از هر دو طرف جاستیفای کنید تا از خط بیرون نزند و مرتب باشد. سورس در ادامه... Sub Globals Private Label1 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") Dim PersianText As String = Label1.Text Label1.Text = PersianText Dim jo As JavaObject = Label1 jo.RunMethod("setJustificationMode", Array(1)) Label1.Gravity = Bit.Or(Gravity.LEFT, Gravity.RIGHT) End Sub لینک کانال ایتا: https://eitaa.com/basic4androidlan ینک کانال بله: https://web.bale.ai/chat?uid=5896703188 طراح و تهیه کننده: مرتضی صباغی MR.B4A

با استفاده از کدهای پست بعدی یک کورنومتر بسیار زیبا برای پروژه خود بسازید سورس فقط کافیه این دستورات رو در برنامه خود کپی کنید: Sub Process_Globals Dim t As Timer End Sub Sub Globals Dim MiliS = 0 ,Secound = 0, Minute=0 As Int Private Label2 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("MainLayout") t.Initialize("T",10) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Btn2_Click End Sub Sub T_Tick If MiliS = 100 Then Secound = Secound + 1 MiliS = 0 If Secound = 60 Then Minute = Minute + 1 Secound = 0 If Minute = 60 Then Minute = 0 Secound = 0 MiliS = 0 End If End If Else MiliS = MiliS + 1 End If Label2.Text=Minute&":"&Secound&":"&MiliS End Sub Private Sub Button1_Click t.Enabled = True End Sub Private Sub Button2_Click t.Enabled = False End Sub Private Sub Button3_Click Label2.Text=0 Label2.Text="" Minute=0 Secound=0 MiliS=0 End Sub لینک کانال ایتا: https://eitaa.com/basic4androidlan لینک کانال بله: https://web.bale.ai/chat?uid=5896703188 طراح و تهیه کننده: مرتضی صباغی MR.B4A

سلام مگه از چه کتابخونه هایی استفاده میکنید؟