مینی سورس عمودی کردن ویوها در بیسیک فور اندروید

[MR.B4A 246]

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

سورس

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