类型
Basic4android的类型系统是直接从Java的类型系统中派生的.
有两种类型的变量: 基本类型 and 非基本类型.
基本类型包括数字类型: Byte, Short, Int, Long, Float 和 Double.
基本类型也包括: Boolean 和 Char.
类型及范围列表: http://www.basic4ppc.com/forum/basic...html#post45511
但函数调用或者赋值时,基本类型总是直接把值传递过去.
例如:
Code:
Sub S1 Dim A As Int A = 12 S2(A) Log(A) 'Prints 12End Sub Sub S2(B As Int) B = 45End Sub
其他所有的类型,,包括基本类型数组和字符串都被归入到非基本类型.
当你将一个非基本类型传递给函数或者给它赋另外一个不同的值时,会将其的引用复制一份传递过去 .
这意味着数据的本身没有被复制.
这与直接把引用传递过去有点小小不同,因为你不能改变原始变量的引用.
所有的类型都可以被看作是对象.
像lists 和 maps这样的容器工作原理与对象相似,因此可以保存任何值.
下面是一个常见的错误例子, 在这里,开发者试图向列表里面加入几个数组:
Code:
Dim arr(3) As IntDim List1 As ListList1.InitializeFor i = 1 To 5 arr(0) = i * 2 arr(1) = i * 2 arr(2) = i * 2 List1.Add(arr) 'Add the whole array as a single itemNextarr = List1.Get(0) 'get the first item from the listLog(arr(0)) 'What will be printed here???
本来希望能够打印出来2. 但是结果确是10.
我们建立了一个数组,并在列表里面加了这个数组的5个引用.
这个数组最后的值在最后的一个循环里面被改为10,因此出错了
要改正这个错误,我们需要在每一个循环里面产生一个新的数组.
这一在每次循环里面调用Dim:
Code:
Dim arr(3) As Int 'This?call?is?redundant?in?this?case.在这个例子里面,这一句是多余的Dim List1 As ListList1.InitializeFor i = 1 To 5 Dim arr(3) As Int arr(0) = i * 2 arr(1) = i * 2 arr(2) = i * 2 List1.Add(arr) 'Add the whole array as a single itemNextarr = List1.Get(0) 'get the first item from the listLog(arr(0)) 'Will print 2
小贴士: 你可以使用 agraham的 CollectionsExtra 库来复制数组.
转换
Basic4android 当需要时会自动转换类型的. 它也可以自动的将数字转换为字符串,反之亦然.
在很多情况下,你需要显式的转换一个对象成另外一个特定的类型.
这可以通过将一个对象赋值给一个需要类型的变量.
例如, Sender 关键字返回触发这个事件的对象.
下面的代码改变按钮的颜色. 注意有好几个按钮共享同一个事件子程.
Code:
Sub Globals Dim Btn1, Btn2, Btn3 As ButtonEnd Sub
Sub Activity_Create(FirstTime As Boolean) Btn1.Initialize("Btn") Btn2.Initialize("Btn") Btn3.Initialize("Btn") Activity.AddView(Btn1, 10dip, 10dip, 200dip, 50dip) Activity.AddView(Btn2, 10dip, 70dip, 200dip, 50dip) Activity.AddView(Btn3, 10dip, 130dip, 200dip, 50dip)End Sub Sub Btn_Click Dim b As Button b = Sender 'Cast the Object to Button b.Color?=?Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))End Sub
上面的代码也可以写的更优雅点:
Code:
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean) For i = 0 To 9 'create 10 buttons Dim Btn As Button Btn.Initialize("Btn") Activity.AddView(Btn, 10dip, 10dip + 60dip * i, 200dip, 50dip) NextEnd Sub
Sub Btn_Click Dim b As Button b = Sender b.Color = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))End Sub
范围
在Sub Globals or Sub Process_Globals 里面定义的变量可以在所有的子程里面访问.
其他的变量是局部的,只能在定义其的子程里面访问.
请参见 Activity lifecycle tutorial 来了解Globals和Process_Globals变量的区别.
提示
所有的views类型可以看成是Views. 这样就可以方便的改变views的公共属性.
例如,下面的代码使 activity的所有直系子view 不可用:
Code:
For i = 0 To Activity.NumberOfViews - 1 Dim v As View v = Activity.GetView(i) v.Enabled = FalseNext
如果们仅仅想使按钮不可用:
Code:
For i = 0 To Activity.NumberOfViews - 1 Dim v As View v = Activity.GetView(i) If v Is Button Then 'check whether it is a Button v.Enabled = False End IfNext
Type 关键字让你可以建立自己的对象类型. 自定义类型的操作方式与其他非基本类型的操作方式一样.