ooredoo project

buttonေတအတြက္စံုေအာင္ထည့္မထားပါဘာလို႔သိလားကိုကိုတိုင္ကိုoျကီးဝန္ေဆာင္မႈေတမသိလို႔ပါကြကိုထည့္ပါ။


 MAIN


SetActivityTitle("Hello World")
fullscreen(true)
SetActivityTitleColor(cred)

MsMsgBox("မဂၤလာပါအသံုးျပဳသူ ဖလန္းဖလန္းကျကိဳဆိုပါတယ္ခင္ဗ်ာ","ျကိဳဆိုပါတယ္")

AddPanel("pnl1",0,0,100%x,100%y,"")

Bitmapinit(DirAssets,"yy.jpg")

setBackgroundimage("pnl1")




AddButton("4",3%x,50%y,30%x,12%y,"pnl")
SetText("4","ေဘစစ္ရန္")
SetColor("4",60,cpink)
SetTextColor("4",cpurple)

AddButton("5",35%x,50%y,30%x,12%y,"pnl")
SetText("5","ေဘျဖည့္မယ္")
SetColor("5",60,cpink)
SetTextColor("5",cpurple)

AddButton("6",67%x,50%y,30%x,12%y,"pnl")
SetText("6","ေဘေခ်းရန္")
SetColor("6",60,cpink)
SetTextColor("6",cpurple)

AddButton("7",3%x,63%y,30%x,12%y,"pnl")
SetText("7","ေရႊအိပ္မက္")
SetColor("7",60,cpink)
SetTextColor("7",cpurple)

AddButton("8",35%x,63%y,30%x,12%y,"pnl")
SetText("8","မွတ္ပံုတင္/မတင္")
SetColor("8",60,cpink)
SetTextColor("8",cpurple)

AddButton("9",67%x,63%y,30%x,12%y,"pnl")
SetText("9","free for all")
SetColor("9",60,cpink)
SetTextColor("9",cpurple)

AddButton("bs",3%x,76%y,30%x,12%y,"pnl")
SetText("bs","")
SetColor("bs",60,cpink)
SetTextColor("bs",cpurple)

AddButton("0",35%x,76%y,30%x,12%y,"pnl")
SetText("0","")
SetColor("0",60,cpink)
SetTextColor("0",cpurple)

AddButton("bh",67%x,76%y,30%x,12%y,"pnl")
SetText("bh","")
SetColor("bh",60,cpink)
SetTextColor("bh",cpurple)


AddButton("btn2",20%x,90%y,60%x,10%y,"")
SetText("btn2","Download project") 
SetTextSize("btn2",15)
SetColor("btn2",0,"0#0#0")
SetColor("btn2",100,cblack)
SetTextColor("btn2",cred)


AddButton("bt3",600,10,20%x,20%x,"pnl2")
SetText("bt3","ထြက္ရန္")
SetColor("bt3",100,cwhite)
SetTextColor("bt3",cred)


Event

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Menu_Click(Which)
End Sub


Sub Panel_Click(Who)
End Sub

Sub Button_Click(Who)
select who

case"4"
CallPhone("*124"& GetHashCharacter)

case"5"
a1=InputBox("ေငြျဖည့္ကဒ္မွ လွ်ိဳ႕ဝွက္နံပါတ္ ရိုက္ပါ","ဖုန္းေငြျဖည့္ရန္","OK","Cancle","")

b1=GetInput

If a1=-1 Then

If StringLength(b1)=18 Then
CallPhone("*123*" & b1 & GetHashCharacter)

Else

ShowToast("လွ်ိဳ႕ဝွက္နံပါတ္၏ ဂဏန္းအေရအတြက္မွားယြင္းေနပါသည္!",true)

End If

End If

case"bt3"
ActivityFinish

case"6"
CallPhone("*125"& GetHashCharacter)


case"7"
CallPhone("*234"& GetHashCharacter)

case"8"
CallPhone("*600"& GetHashCharacter)

case"9"
CallPhone("*4444"& GetHashCharacter)






end select
end sub