ကဲဘာမေျပာနဲ႔ Copy လုပ္ၿပီး Run ၾကည့္
Code ေတကို
Main Code Selection
###############
AddButton("btn1",30%x,1%y,40%x,10%y,"")
SetColor("btn1",20,"112#216#214")
SetText("btn1","ဖုန္းေငြစစ္ရန္")
SetTextColor("btn1","255#0#255")
AddButton("btn2",20%x,12%y,60%x,10%y,"")
SetColor("btn2",20,"112#216#214")
SetText("btn2","ဖုန္းေငြျဖည့္ရန္")
SetTextColor("btn2","255#0#255")
AddButton("btn3",10%x,23%y,80%x,10%y,"")
SetColor("btn3",20,"112#216#214")
SetText("btn3","အျခားဖုန္းသို႔ေငြျဖည့္ေပးရန္")
SetTextColor("btn3","255#0#255")
AddButton("btn4",10%x,34%y,80%x,10%y,"")
SetColor("btn4",20,"112#216#214")
SetText("btn4","အျခားဖုန္းသို႔ေငြလြဲေပးရန္")
SetTextColor("btn4","255#0#255")
AddButton("btn5",20%x,45%y,60%x,10%y,"")
SetColor("btn5",20,"112#216#214")
SetText("btn5","ဖုန္းျပန္ေခၚခိုင္းရန္")
SetTextColor("btn5","255#0#255")
AddButton("btn6",30%x,56%y,40%x,10%y,"")
SetColor("btn6",20,"112#216#214")
SetText("btn6","ေငြေခ်းရန္")
SetTextColor("btn6","255#0#255")
AddButton("btn7",20%x,67%y,60%x,10%y,"")
SetColor("btn7",20,"112#216#214")
SetText("btn7"," USSD ဝန္ေဆာင္မႈ")
SetTextColor("btn7","255#0#255")
AddButton("btn8",20%x,78%y,60%x,10%y,"")
SetColor("btn8",900,"112#216#214")
SetText("btn8","Call To Developer")
SetTextColor("btn8","255#0#255")
AddButton("btn9",10%x,89%y,80%x,10%y,"")
SetColor("btn9",900,"112#216#214")
SetText("btn9","App ေရးသူ အေၾကာင္း")
SetTextColor("btn9","255#0#255")
AddButton("btn10",10%x,1%y,80%x,87%y,"")
SetColor("btn10",10,"112#216#214")
SetText("btn10","MPT Service Application ကို" &CRLF & "MyanmarMobileFreeAppမွေရးသားသည္။" &CRLF & "ဤ Application တြင္ အားနည္းခ်က္မ်ားေတြ႔႐ွိပါက Call To Developer သို႔ ၄င္း" &CRLF & "ကြၽန္ေတာ္၏ Email ျဖစ္ေသာ thandpin2014@gmail.com" &CRLF & "သို႔ ေပးပို႔အေၾကာင္းၾကားႏိုင္ပါသည္။" &CRLF & "ေနာက္ထက္ MPT ၏ Service Code" &CRLF & "အသစ္မ်ားထြက္႐ွိလာပါက" &CRLF & "Up Date ျပဳလုပ္ေပးသြားမည္ျဖစ္ပါသျဖင့္" &CRLF & "က်ေတာ့္ Blog ျဖစ္ေသာ" &CRLF & "
https://myanmarmobilefreeapp.blogspot.com/" &CRLF & "တြင္သြားေရာက္၍ DOWNLOAD ျပဳလုပ္ႏိုင္ပါသည္။")###############
AddButton("btn1",30%x,1%y,40%x,10%y,"")
SetColor("btn1",20,"112#216#214")
SetText("btn1","ဖုန္းေငြစစ္ရန္")
SetTextColor("btn1","255#0#255")
AddButton("btn2",20%x,12%y,60%x,10%y,"")
SetColor("btn2",20,"112#216#214")
SetText("btn2","ဖုန္းေငြျဖည့္ရန္")
SetTextColor("btn2","255#0#255")
AddButton("btn3",10%x,23%y,80%x,10%y,"")
SetColor("btn3",20,"112#216#214")
SetText("btn3","အျခားဖုန္းသို႔ေငြျဖည့္ေပးရန္")
SetTextColor("btn3","255#0#255")
AddButton("btn4",10%x,34%y,80%x,10%y,"")
SetColor("btn4",20,"112#216#214")
SetText("btn4","အျခားဖုန္းသို႔ေငြလြဲေပးရန္")
SetTextColor("btn4","255#0#255")
AddButton("btn5",20%x,45%y,60%x,10%y,"")
SetColor("btn5",20,"112#216#214")
SetText("btn5","ဖုန္းျပန္ေခၚခိုင္းရန္")
SetTextColor("btn5","255#0#255")
AddButton("btn6",30%x,56%y,40%x,10%y,"")
SetColor("btn6",20,"112#216#214")
SetText("btn6","ေငြေခ်းရန္")
SetTextColor("btn6","255#0#255")
AddButton("btn7",20%x,67%y,60%x,10%y,"")
SetColor("btn7",20,"112#216#214")
SetText("btn7"," USSD ဝန္ေဆာင္မႈ")
SetTextColor("btn7","255#0#255")
AddButton("btn8",20%x,78%y,60%x,10%y,"")
SetColor("btn8",900,"112#216#214")
SetText("btn8","Call To Developer")
SetTextColor("btn8","255#0#255")
AddButton("btn9",10%x,89%y,80%x,10%y,"")
SetColor("btn9",900,"112#216#214")
SetText("btn9","App ေရးသူ အေၾကာင္း")
SetTextColor("btn9","255#0#255")
AddButton("btn10",10%x,1%y,80%x,87%y,"")
SetColor("btn10",10,"112#216#214")
SetText("btn10","MPT Service Application ကို" &CRLF & "MyanmarMobileFreeAppမွေရးသားသည္။" &CRLF & "ဤ Application တြင္ အားနည္းခ်က္မ်ားေတြ႔႐ွိပါက Call To Developer သို႔ ၄င္း" &CRLF & "ကြၽန္ေတာ္၏ Email ျဖစ္ေသာ thandpin2014@gmail.com" &CRLF & "သို႔ ေပးပို႔အေၾကာင္းၾကားႏိုင္ပါသည္။" &CRLF & "ေနာက္ထက္ MPT ၏ Service Code" &CRLF & "အသစ္မ်ားထြက္႐ွိလာပါက" &CRLF & "Up Date ျပဳလုပ္ေပးသြားမည္ျဖစ္ပါသျဖင့္" &CRLF & "က်ေတာ့္ Blog ျဖစ္ေသာ" &CRLF & "
SetTextColor("btn10","255#0#255")
SetVisible("btn10",false)
AddButton("btn11",10%x,89%y,80%x,10%y,"")
SetText("btn11","Ok")
SetTextColor("btn11","255#0#255")
SetColor("btn11",900,"112#216#214")
SetVisible("btn11",false)
SetVisible("btn10",false)
AddButton("btn11",10%x,89%y,80%x,10%y,"")
SetText("btn11","Ok")
SetTextColor("btn11","255#0#255")
SetColor("btn11",900,"112#216#214")
SetVisible("btn11",false)
Event Code Selection
###############
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Button_Click(Who)
Select Who
Case "btn1"
CallPhone("*124"& GetHashCharacter)
Case "btn2"
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 "btn3"
a2=InputBox("ေငြျဖည့္ေပးလိုသည္႕ ဖုန္းနံပါတ္ ရိုက္ပါ","အျခားဖုန္းသို႔ေငြျဖည့္ေပးရန္","Ok","Cancle","")
b2=GetInput
If a2=-1 Then
If StringLength(b2)=11 Then
a3=InputBox("ေငြျဖည့္ကဒ္မွ လွ်ိဳ႕ဝွက္နံပါတ္ရိုက္ပါ","လွ်ိဳ႕ဝွက္နံပါတ္ ရိုက္ျခင္း","Ok","Cancle","")
b3=GetInput
If StringLength(b3)=18 Then
If a3=-1 Then
CallPhone("*123*" & b3 & "*" & b2 & GetHashCharacter)
End If
Else
ShowToast("လွ်ိဳ႕ဝွက္နံပါတ္၏ ဂဏန္းအေရအတြက္မွားယြင္းေနပါသည္!",true)
End If
Else
ShowToast("ဖုန္းနံပါတ္၏ ဂဏန္းအေရအတြက္ မွားယြင္းေနသည္!",true)
End If
End If
Case "btn4"
a5=InputBox("ေငြလြဲေပးလိုသည္႕ ဖုန္းနံပါတ္ ရိုက္ပါ","အျခားဖုန္းသို႔ေငြလြဲေပးရန္","Ok","Cancle","")
b5=GetInput
If a5=-1 Then
If StringLength(b5)=11 Then
a6=InputBox("300 or 500","လြဲေပးလိုသေလာက္ထည့္ပါ","Ok","Cancle","")
b6=GetInput
If StringLength(b6)=3 Then
If a6=-1 Then
CallPhone("*223*" & b6 & "*" & b5 & GetHashCharacter)
End If
Else
ShowToast("ေငြ Amount မွားယြင္းေနပါသည္!",true)
End If
Else
ShowToast("ဖုန္းနံပါတ္၏ ဂဏန္းအေရအတြက္ မွားယြင္းေနသည္!",true)
End If
End If
Case "btn5"
a4=InputBox("ျပန္ေခၚေစလိုသည့္ ဖုန္းနံပါတ္ရိုက္ပါ","ဖုန္းျပန္ေခၚခိုင္းရန္","Ok","Cancle","")
b4=GetInput
If a4=-1 Then
If StringLength(b4)=11 Then
CallPhone("*222*" & b4 & GetHashCharacter)
Else
ShowToast("ဖုန္းနံပါတ္၏ ဂဏန္းအေရအတြက္မွားယြင္းေနပါသည္!",True)
End If
End If
Case "btn6"
CallPhone("*800"& GetHashCharacter)
Case "btn7"
CallPhone("*106"& GetHashCharacter)
Case "btn8"
CallPhone("09452219785")
case "btn9"
SetVisible("btn9",false)
SetVisible("btn10",true)
SetVisible("btn11",true)
case"btn11"
SetVisible("btn9",true)
SetVisible("btn10",false)
SetVisible("btn11",false)
end select
end sub
Sub Activity_KeyPress(key)
If key=4 Then
b=MessageBox("Do You Want To Exit?","","Ok","Cancel","")
If b=-1 Then
ActivityFinish
End If
End If
End Sub
Sub Menu_Click(Which)
End Sub
###############
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Button_Click(Who)
Select Who
Case "btn1"
CallPhone("*124"& GetHashCharacter)
Case "btn2"
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 "btn3"
a2=InputBox("ေငြျဖည့္ေပးလိုသည္႕ ဖုန္းနံပါတ္ ရိုက္ပါ","အျခားဖုန္းသို႔ေငြျဖည့္ေပးရန္","Ok","Cancle","")
b2=GetInput
If a2=-1 Then
If StringLength(b2)=11 Then
a3=InputBox("ေငြျဖည့္ကဒ္မွ လွ်ိဳ႕ဝွက္နံပါတ္ရိုက္ပါ","လွ်ိဳ႕ဝွက္နံပါတ္ ရိုက္ျခင္း","Ok","Cancle","")
b3=GetInput
If StringLength(b3)=18 Then
If a3=-1 Then
CallPhone("*123*" & b3 & "*" & b2 & GetHashCharacter)
End If
Else
ShowToast("လွ်ိဳ႕ဝွက္နံပါတ္၏ ဂဏန္းအေရအတြက္မွားယြင္းေနပါသည္!",true)
End If
Else
ShowToast("ဖုန္းနံပါတ္၏ ဂဏန္းအေရအတြက္ မွားယြင္းေနသည္!",true)
End If
End If
Case "btn4"
a5=InputBox("ေငြလြဲေပးလိုသည္႕ ဖုန္းနံပါတ္ ရိုက္ပါ","အျခားဖုန္းသို႔ေငြလြဲေပးရန္","Ok","Cancle","")
b5=GetInput
If a5=-1 Then
If StringLength(b5)=11 Then
a6=InputBox("300 or 500","လြဲေပးလိုသေလာက္ထည့္ပါ","Ok","Cancle","")
b6=GetInput
If StringLength(b6)=3 Then
If a6=-1 Then
CallPhone("*223*" & b6 & "*" & b5 & GetHashCharacter)
End If
Else
ShowToast("ေငြ Amount မွားယြင္းေနပါသည္!",true)
End If
Else
ShowToast("ဖုန္းနံပါတ္၏ ဂဏန္းအေရအတြက္ မွားယြင္းေနသည္!",true)
End If
End If
Case "btn5"
a4=InputBox("ျပန္ေခၚေစလိုသည့္ ဖုန္းနံပါတ္ရိုက္ပါ","ဖုန္းျပန္ေခၚခိုင္းရန္","Ok","Cancle","")
b4=GetInput
If a4=-1 Then
If StringLength(b4)=11 Then
CallPhone("*222*" & b4 & GetHashCharacter)
Else
ShowToast("ဖုန္းနံပါတ္၏ ဂဏန္းအေရအတြက္မွားယြင္းေနပါသည္!",True)
End If
End If
Case "btn6"
CallPhone("*800"& GetHashCharacter)
Case "btn7"
CallPhone("*106"& GetHashCharacter)
Case "btn8"
CallPhone("09452219785")
case "btn9"
SetVisible("btn9",false)
SetVisible("btn10",true)
SetVisible("btn11",true)
case"btn11"
SetVisible("btn9",true)
SetVisible("btn10",false)
SetVisible("btn11",false)
end select
end sub
Sub Activity_KeyPress(key)
If key=4 Then
b=MessageBox("Do You Want To Exit?","","Ok","Cancel","")
If b=-1 Then
ActivityFinish
End If
End If
End Sub
Sub Menu_Click(Which)
End Sub
Comments
Post a Comment