cauclate နည္းူ

တင္​စရာမ႐ွိ​ေသးလို႔ အလြယ္​​ေလး​ေတြလာတင္​​ေပးတာပါ တြက္​နည္​းကpost တစ္​ခုမွာ​ေတြ႔တာ 😁

MAIN
========
SetActivityColor(0,cGreen)

AddEditText("ed1",7%x,30%y,40%x,10%y,"")
Sethint("ed1","​ေပထည္​့ပါ")
SetHintColor("ed1",cCyan)

AddEditText("ed2",54%x,30%y,40%x,10%y,"")
SetHint("ed2","လက္​မထည္​့ပါ")
SetHintColor("ed2",cCyan)

AddButton("a",10%x,50%y,80%x,10%y,"")
SetText("a","တြက္​ခ်က္​၍​ေပါင္​ျဖင္​့ျပရန္​")

AddButton("b",10%x,60%y,80%x,10%y,"")
SetText("b","ကီလိုဂရမ္​ျဖင္​့ျပရန္​")

EVENT
========
Sub Edit_Change(Who, Old, New)
End Sub

Sub Edit_Enterpressed(who)
End Sub

Sub Button_Click(Who)
Select Who
Case"a"
c=GetText("ed1")
d=GetText("ed2")

ans=100+(c*d)
MsgBox(ans&"​​ေပါင္​")
Case"b"
c=GetText("ed1")
d=GetText("ed2")

ans=100+(c*d)
ans1=ans/2.2
q=ans1
If StringContains(q,".")=true then
p=subString(q,0,Stringindexof(q,(".")))

anss=p+1
MsgBox(anss&"ကီလိုဂရမ္​")

End If

End Select
End Sub
Sub Button_LongClick(Who)
End Sub