Buttom တစ္ခုကို ႏွိပ္လိုက္ရင္ Text File ကို Read လုပ္မယ္ Back ႏွိပ္ရင္ Main ကို ျပန္ေရာက္မယ္ ေနာက္တစ္ခါ Back ႏွိပ္ရင္ Activity Finish ျဖစ္ပါမယ္

Buttom တစ္ခုကို ႏွိပ္လိုက္ရင္ Text File ကို Read လုပ္မယ္ Back ႏွိပ္ရင္ Main ကို ျပန္ေရာက္မယ္ ေနာက္တစ္ခါ Back ႏွိပ္ရင္ Activity Finish ျဖစ္ပါမယ္
ေအာက္ကအတိုင္းေရးၾကည့္ပါ

view

SetActivityTitle("ABC")
SetActivityColor(0,cGray)

AddPanel("pm",0,0,100*x,100*y,"")

AddLabel("lb",0,0,100*x,20*y,"pm")
SetText("lb","သင့္နာမည္ရဲ႕ အစ စာလံုးက ဘာလဲ ???")
SetTextSize("lb",25)
SetTextColor("lb",cYellow)
SetGravity("lb",17)

AddButton("a",2*x,20*y,16*x,13*y,"pm")
SetText("a","A")
SetTextSize("a",35)
SetTextColor("a", cCyan )

AddButton("b",18*x,20*y,16*x,13*y,"pm")
SetText("b","B")
SetTextSize("b",35)
SetTextColor("b", cCyan )

AddButton("c",34*x,20*y,16*x,13*y,"pm")
SetText("c","C")
SetTextSize("c",35)
SetTextColor("c", cCyan )

AddButton("d",50*x,20*y,16*x,13*y,"pm")
SetText("d","D")
SetTextSize("d",35)
SetTextColor("d", cCyan )

AddButton("e",66*x,20*y,16*x,13*y,"pm")
SetText("e","E")
SetTextSize("e",35)
SetTextColor("e", cCyan )

AddButton("f",82*x,20*y,16*x,13*y,"pm")
SetText("f","F")
SetTextSize("f",35)
SetTextColor("f", cCyan )

AddButton("g",2*x,34*y,16*x,13*y,"pm")
SetText("g","G")
SetTextSize("g",35)
SetTextColor("g", cCyan )

AddButton("h",18*x,34*y,16*x,13*y,"pm")
SetText("h","H")
SetTextSize("h",35)
SetTextColor("h", cCyan )

AddButton("i",34*x,34*y,16*x,13*y,"pm")
SetText("i","I")
SetTextSize("i",35)
SetTextColor("i", cCyan )

AddButton("j",50*x,34*y,16*x,13*y,"pm")
SetText("j","J")
SetTextSize("j",35)
SetTextColor("j", cCyan )

AddButton("k",66*x,34*y,16*x,13*y,"pm")
SetText("k","K")
SetTextSize("k",35)
SetTextColor("k", cCyan )

AddButton("l",82*x,34*y,16*x,13*y,"pm")
SetText("l","L")
SetTextSize("l",35)
SetTextColor("l", cCyan )

AddButton("m",2*x,48*y,16*x,13*y,"pm")
SetText("m","M")
SetTextSize("m",35)
SetTextColor("m", cCyan )

AddButton("n",18*x,48*y,16*x,13*y,"pm")
SetText("n","N")
SetTextSize("n",35)
SetTextColor("n", cCyan )

AddButton("o",34*x,48*y,16*x,13*y,"pm")
SetText("o","O")
SetTextSize("o",35)
SetTextColor("o", cCyan )

AddButton("p",50*x,48*y,16*x,13*y,"pm")
SetText("p","P")
SetTextSize("p",35)
SetTextColor("p", cCyan )

AddButton("q",66*x,48*y,16*x,13*y,"pm")
SetText("q","Q")
SetTextSize("q",35)
SetTextColor("q", cCyan )

AddButton("r",82*x,48*y,16*x,13*y,"pm")
SetText("r","R")
SetTextSize("r",35)
SetTextColor("r", cCyan )

AddButton("s",2*x,62*y,16*x,13*y,"pm")
SetText("s","S")
SetTextSize("s",35)
SetTextColor("s", cCyan )

AddButton("t",18*x,62*y,16*x,13*y,"pm")
SetText("t","T")
SetTextSize("t",35)
SetTextColor("t", cCyan )

AddButton("u",34*x,62*y,16*x,13*y,"pm")
SetText("u","U")
SetTextSize("u",35)
SetTextColor("u", cCyan )

AddButton("v",50*x,62*y,16*x,13*y,"pm")
SetText("v","V")
SetTextSize("v",35)
SetTextColor("v", cCyan )

AddButton("w",66*x,62*y,16*x,13*y,"pm")
SetText("w","W")
SetTextSize("w",35)
SetTextColor("w", cCyan )

AddButton("x",82*x,62*y,16*x,13*y,"pm")
SetText("x","X")
SetTextSize("x",35)
SetTextColor("x", cCyan )

AddButton("y",34*x,76*y,16*x,13*y,"pm")
SetText("y","Y")
SetTextSize("y",35)
SetTextColor("y",cCyan)

AddButton("z",50*x,76*y,16*x,13*y,"pm")
SetText("z","Z")
SetTextSize("z",35)
SetTextColor("z",cCyan)

AddPanel("se",0,0,100*x,95*y,"")
SetVisible("se",False)
AddScrollView("sc",0,0,100*x,95*y,"se")
GetPanel("sc","se2")
SetHeight("se2",150*y)

AddLabel("ee",0,10,100*x,1000*y,"se2")
SetTextSize("ee",16)
SetTextColor("ee",cYellow)

AddLabel("l",0.5*x,95*y,99*x,5*y,"")
SetText("l","Developed By Bla Bla Bla")
SetGravity("l",17)
SetColor("l",5,cBlack)
SetTextColor("l",cCyan)

Reading = False

Event

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Panel_Click(Who)
End Sub

Sub Button_Click(Who)
Select Who

Case "a"
str = FileReadString(DirAssets,"aa.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "b"
str = FileReadString(DirAssets,"bb.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "c"
str = FileReadString(DirAssets,"cc.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "d"
str = FileReadString(DirAssets,"dd.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "e"
str = FileReadString(DirAssets,"ee.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "f"
str = FileReadString(DirAssets,"ff.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "g"
str = FileReadString(DirAssets,"gg.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "h"
str = FileReadString(DirAssets,"hh.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "i"
str = FileReadString(DirAssets,"ii.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "j"
str = FileReadString(DirAssets,"jj.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "k"
str = FileReadString(DirAssets,"kk.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "l"
str = FileReadString(DirAssets,"ll.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "m"
str = FileReadString(DirAssets,"mm.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "n"
str = FileReadString(DirAssets,"nn.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "o"
str = FileReadString(DirAssets,"oo.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "p"
str = FileReadString(DirAssets,"pp.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "q"
str = FileReadString(DirAssets,"qq.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "r"
str = FileReadString(DirAssets,"rr.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "s"
str = FileReadString(DirAssets,"ss.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "t"
str = FileReadString(DirAssets,"tt.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "u"
str = FileReadString(DirAssets,"uu.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "v"
str = FileReadString(DirAssets,"vv.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "w"
str = FileReadString(DirAssets,"ww.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "x"
str = FileReadString(DirAssets,"xx.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "y"
str = FileReadString(DirAssets,"yy.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

Case "z"
str = FileReadString(DirAssets,"zz.txt")
SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)

SetText("ee",str)
Reading = True
SetVisible("pm",False)
SetVisible("se",True)
End Select
End Sub
Sub Button_LongClick(Who)
End Sub

Sub Activity_KeyPress(key)
If key=4 Then
If Reading = True Then
Reading = False
SetVisible("se",False)
SetVisible("pm",True)
Else
b=MessageBox("Do You Want To Exit!!!","EXIT!!!","OK","Cancel","")
If b=-1 Then

ActivityFinish
End If
End If
End If
End Sub

Sub Edit_Change(Who, Old, New)
End Sub

Sub Edit_Enterpressed(who)
End Sub

Sub Label_Click(Who)
End Sub

Label နဲ႔မေရးဘဲ
EditText နဲ႔ေရးလဲ ရပါတယ္
ကုိယ့္ဘာသာ ႀကိဳးစားေရးၾကည့္ပါ
ကြၽန္ေတာ္ေရးတာ မွားရင္လဲ မွားပါလိမ့္မယ္
ဆရာမ်ားကေတာ့ သည္းခံၿပီး မျမင္ခ်င္ေယာင္ေဆာင္ေပးသြားပါ
ေအာက္ဆံုးမွာ " Developed By Bla Bla Bla " ဆိုတဲ့ေနရာမွာ ကိုယ့္နာမည္ကို ထည့္ေရးႏိုင္ပါတယ္