မဟာဘုတ္​​ေဗဒင္​ project

ျမန္မာေမြးသကၠရာဇ္ နဲ႔ ေမြးေန႔အရ ဘယ္ မဟာဘုတ္ အဖြားလဲဆိုတာကို BMP IDE နဲ႔ နမူနာ ေရးျပထားပါတယ္။

======================
Views Panel တြင္ ေရးရန္
======================

AddLabel("lbl1",0,100,720,131,"")
SetText("lbl1","Maha Bote" )

AddLabel("lbl2",0,281,348,117,"")
SetText("lbl2","Burmese birth year" )

AddLabel("lbl3",0,434,348,110,"")
SetText("lbl3","Select birth day" )

AddEditText("edt1",376,280,344,120,"")

AddSpinner("spn1",375,436,345,113,"")
Add( "spn1","Sunday")
Add( "spn1","Monday")
Add( "spn1","Tuesday")
Add( "spn1","Wednesday")
Add( "spn1","Thursday")
Add( "spn1","Friday")
Add( "spn1","Saturday")

AddButton("btn1",181,609,387,112,"")
SetText( "btn1","Calculate")

AddLabel("lbl4",0,772,720,284,"")

==========================
Events Panel တြင္ ေရးရန္
==========================

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Spinner_ItemClick(who, pos, value)
End Sub

Sub Button_Click(Who)
y=GetText("edt1")

out=y

wh:
y=y-7
if y>7 then
goto wh
end if

if y=0 then
y=7
end if
e=Getselectedindex("spn1")+1

out=out & "/" & getselectEdItem("spn1") & " --> "

if y=e then
h="Binga"
else if y=e+3 or y=e-4 then
h="Adipati"
else if y=e+6 or y=e-1 then
h="Puti"
else if y=e+2 or y=e-5 then
h="Yarza"
else if y=e+5 or y=e-2 then
h="Thike"
else if y=e+1 or y=e-6 then
h="Ahtun"
else if y=e+4 or y=e-3 then
h="Marana"
end if

SetText("lbl4",out & h)
End Sub

Sub Edit_Change(Who, Old, New)
End Sub
Sub Edit_enterpressed(who)
End Sub

=====================

မဟာဘုတ္ ေဗဒင္ apk တခုအျဖစ္ ခ်ဲ႕ထြင္ ဖန္တီးၾကည့္ပါ။ :)