စိတ္ကူးထဲရွိတာကလိထား

main
*********-**-**-*****

AddEditText("edt1",29%x,12%y,68%x,10%y,"")
AddEditText("edt2",29%x,22%y,68%x,10%y,"")
AddEditText("edt3",29%x,32%y,68%x,10%y,"")
AddEditText("edt4",29%x,42%y,68%x,10%y,"")
AddEditText("edt5",29%x,52%y,68%x,10%y,"")
AddLabel("lb1",0%x,12%y,30%x,10%y,"")
AddLabel("lb2",0%x,22%y,30%x,10%y,"")
AddLabel("lb3",0%x,32%y,30%x,10%y,"")
AddLabel("lb4",0%x,42%y,30%x,10%y,"")
AddLabel("lb5",0%x,52%y,30%x,10%y,"")
AddButton("btn2",18.4%x,88.3%y,63.6%x,10%y,"")
AddLabel("lb6",0%x,62%y,100%x,10%y,"")
AddLabel("lb7",0%x,72%y,100%x,10%y,"")
SetText("lb1","ဗ်က္လက္မ")
SetText("lb2","ဒုလက္မ")
SetText("lb3","ေပရွည္")
SetText("lb4","ပ်ဉ္ခ်ပ္ေရ")
SetText("lb5","တစ္တန္၏ေစ်းႏႈန္း")

event

Sub Button_Click(who)
select who
case "btn2"
SetText("lb6",(((gettext("edt1")*gettext("edt2"))/144)*gettext("edt3"))*gettext("edt4")&"ကုဗေပ")
SetText("lb7",gettext("edt5")/50*(((gettext("edt1")*gettext("edt2"))/144)*gettext("edt3"))*gettext("edt4")&"က်ပ္က်သင့္ပါမည္")

end select

End Sub