Dialler App ေလးတခုေရးၾကည့္ပါ

Dialler App ေလးတခုေရးၾကည့္ပါ
Button ေနရာမွာ Key Tone
ေလးေတြပါထည့္ၿပီး
ခ်ဲထြင္ေရးသားႏိုင္ပါတယ္

Main Code Selection
###############
AddPanel("pnl",0,0,100%x,100%y,"")
SetColor("pnl",0,cblack)

AddButton("1",3%x,37%y,30%x,12%y,"pnl")
SetText("1","1")
SetColor("1",30,cgold)
SetTextColor("1",cblack)

AddButton("2",35%x,37%y,30%x,12%y,"pnl")
SetText("2","2")
SetColor("2",30,cgold)
SetTextColor("2",cblack)

AddButton("3",67%x,37%y,30%x,12%y,"pnl")
SetText("3","3")
SetColor("3",30,cgold)
SetTextColor("3",cblack)

AddButton("4",3%x,50%y,30%x,12%y,"pnl")
SetText("4","4")
SetColor("4",30,cgold)
SetTextColor("4",cblack)

AddButton("5",35%x,50%y,30%x,12%y,"pnl")
SetText("5","5")
SetColor("5",30,cgold)
SetTextColor("5",cblack)

AddButton("6",67%x,50%y,30%x,12%y,"pnl")
SetText("6","6")
SetColor("6",30,cgold)
SetTextColor("6",cblack)

AddButton("7",3%x,63%y,30%x,12%y,"pnl")
SetText("7","7")
SetColor("7",30,cgold)
SetTextColor("7",cblack)

AddButton("8",35%x,63%y,30%x,12%y,"pnl")
SetText("8","8")
SetColor("8",30,cgold)
SetTextColor("8",cblack)

AddButton("9",67%x,63%y,30%x,12%y,"pnl")
SetText("9","9")
SetColor("9",30,cgold)
SetTextColor("9",cblack)

AddButton("bs",3%x,76%y,30%x,12%y,"pnl")
SetText("bs","*")
SetColor("bs",30,cgold)
SetTextColor("bs",cblack)

AddButton("0",35%x,76%y,30%x,12%y,"pnl")
SetText("0","0")
SetColor("0",30,cgold)
SetTextColor("0",cblack)

AddButton("bh",67%x,76%y,30%x,12%y,"pnl")
SetText("bh","#")
SetColor("bh",30,cgold)
SetTextColor("bh",cblack)

AddButton("Call",20%x,89%y,60%x,10%y,"pnl")
SetText("Call","Call")
SetColor("Call",30,cgold)
SetTextColor("Call",cblack)

AddButton("edt1",1%x,10%y,70%x,10%y,"pnl")
Setinputtype("edt1",3)
SetTextColor("edt1",cblack)
SetColor("edt1",10,cgold)
Setgravity("edt1",17)

AddButton("Del",75%x,10%y,20%x,10%y,"pnl")
SetText("Del","Del")
SetColor("Del",30,cgold)
SetTextColor("Del",cblack)

AddMenuItem("About Balck & Gold Dialler")

Event Code Selection
###############
Sub Button_Click(Who)
select who

Case "Del"
c=GetText("edt1")
d=StringLength(c)
if d<>0 then
d=d-1
end if
e=SubString(c,0,d)
SetText("edt1",e)

case"1"
SetText("edt1",GetText("edt1") & 1)

case"2"
SetText("edt1",GetText("edt1") & 2)

case"3"
SetText("edt1",GetText("edt1") & 3)

case"4"
SetText("edt1",GetText("edt1") & 4)

case"5"
SetText("edt1",GetText("edt1") & 5)

case"6"
SetText("edt1",GetText("edt1") & 6)

case"7"
SetText("edt1",GetText("edt1") & 7)

case"8"
SetText("edt1",GetText("edt1") & 8)

case"9"
SetText("edt1",GetText("edt1") & 9)

case"0"
SetText("edt1",GetText("edt1") & 0)

case"bs"
SetText("edt1",GetText("edt1") & "*")

case"bh"
SetText("edt1",GetText("edt1") & "#")

case"Call"
c=getText("edt1")
if Stringcontains(c,"#")=true then
d=Stringlength(c)
d=d-1

e=subString(c,0,d)
callphone(e&gethashcharacter)
else
callphone(c)
end if

end select
end sub
Sub Label_Click(Who)
End Sub

Sub Menu_Click(Which)
End Sub

Sub Menu_Click(Which)
select which
case "About Balck & Gold Dialler"
a="Developer By Min Mon Zaw" &CRLF & "Application ၏ အားနည္းခ်က္မွားေတြ႕႐ွိပါက" &CRLF & "Email-thandpin2014@gmail.com" &CRLF & "Phone-09" &CRLF & "ဆက္သြယ္အေၾကာင္းၾကားႏိုင္ပါသည္"
MsgBox(a,"About Black & Gold Dialler")

end select

end sub