offline chatting

ညက ​ေျပာထားသလိုပါဘဲ offline chattingပံုစံမ်ိဳး​ေပါ့
Broတစ္​​ေယာက္​ ကြၽန္​​ေတာ့္​wall ၀င္​႐ွာၿပီး အာလိုမ်ိဳး​ေလးလုပ္​ခ်ငိတယ္​ဆိုလို႔ ညတည္​းကအစကျပန္​စဥ္​းစားၿပီး​ေရးၾကည္​့ထားတာပါ အရင္​​ေလာက္​​ေတာ့ဒီဇိုင္​းမလွဘူးအျဖစိ​ေလးလုပ္​ထားတာပါ

ဒီapkကအ​ေတည္​လက္​​ေညာင္​းမွာပါ event မွာတည္​းက ကိုယ္​​ေမးခ်င္​တဲ့စကား အာ့လို႔​ေမးလာရင္​ ျပန္​​ေျဖမဲ့စကား ႀကိဳထည္​့ၿပီး​ေရးရတာပါ အမ်ားႀကီး​ေျပာခ်င္​တယ္​ဆိုရင္​​ေတာ့ အမ်ားႀကီး​ေရးရမွာ​ေပါ့​ေနာ္​ အရင္​ကစိတ္​ကူးကွိပါတယ္​ database တစ္​ခု​ေဆာက္​ၿပီး စမ္​းၾကည္​့ဖို႔ ​ေနာက္​ပိုင္​းမလုပ္​ႏိုင္​​ေတာ့ဘူး ထားပါ​​ေတာ့ ​ေလာ​ေလာဆယ္​code ​ေတြ​ေပးထားပါတယ္​ နားလည္​မယ္​လို႔​ေမွ်ာ္​လင္​့ပါတယ္​ button ကိုဖိၿပီးႏွိပ္​ထားရင္​ edittext ကစာက်န္​ခဲ့ပါ့မယ္​ button "a" ကvisible false ျဖစ္​သြားပါ့မယ္​ အမွားပါရင္​လဲ နားလည္​​ေပးၾကပါ ​ေလးစားလ်က္​

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

MAIN

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

SetActivityColor(0,cpink)

AddButton("a",10%x,30%y,80%x,30%y,"")
SetColor("a",50,cBlack)
SetTextColor("a",cGold)
SetVisible("a",false)

AddEditText("b",1%x,85%y,80%x,10%y,"")
Sethint("b","Type here....")
SetHintColor("b",cCyan)

AddButton("c",80%x,85%y,20%x,10%y,"")
SetText("c","Send")
SetTextColor("c",cBlue)

AddButton("d",80%x,75%y,20%x,10%y,"")
SetText("d","Clear")
SetTextColor("d",cBlue)

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

EVENT

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

Sub Button_Click(Who)

Select Who

Case"c"

q=GetText("b")
If q="စားppလား" then
SetText("a","စားpပါၿပီ :-) ")
SetVisible("a",true)
End If

w=GetText("b")
If w="​ေန​ေကာင္​းလား" then
SetText("a","​ေကာင္​းပါတယ္​")
SetVisible("a",true)
End If

e=GetText("b")
If e="မဂၤလာပါ" then
SetText("a","မဂၤလာပါ")
SetVisible("a",true)
End If

Case"d"

SetText("a","")
SetText("b","")
SetVisible("a",false)

End Select
End Sub
Sub Button_LongClick(Who)
SetText("a","")
SetVisible("a",false)
End Sub

Sub Edit_Change(Who, Old, New)
End Sub

Sub Edit_Enterpressed(who)
End Sub