Android Softwares & Other Technology
Thursday, October 29, 2015
Call Dialer Sample Project
~BMP IDE ျဖင့္ Call Dialer Apk တစ္ခု စမ္းသပ္ေရးသားျခင္း~
==============================================
မဂၤလာပါ သူငယ္ခ်င္းမ်ား BMP IDE ကိုေလ့လာေနက်တဲ႔ သူေဒ တြက္ project တစ္ခုေရးေပးလိုက္ပါတယ္ ပထမေတာ့ BMP IDE နဲ႔ ပတ္သက္ျပီး ဘာမွမတင္ေတာ့ဘူး လုပ္မလို႔ဘဲ ဒါေပမယ့္ မေန႔က ဟို အရင္ Demo Version တုန္းက ကလိတာေလးကို သြားသတိရတာနဲ႔ Apk ေလးတစ္ခုေကာက္ေရးျကည့္တာ ဟီးးး မဆိုးဘူး အာ့နဲ႔ ခု Beginner ေဒ ေလ့လာလို႔ရေအာင္တင္ေပးလိုက္တာပါ ဒါနဲ႔ ေက်ာ္လည္း Beginner ေတ်ာက္ပါ :V
Apk က ရိုးရွင္းတဲ႔ Dialer ေလးပါ အျကမ္းေလးပဲ ေရးထားတာ ကုဒ္ေတြက ရိုးရွင္းပါတယ္ အာ့ေျကာင့္ ကုဒ္ေဒ ကို ရွင္းျပေတာ့ဘူး ကြကိုယ္ Try က်ိပါ နားလည္ေအာင္
မသိတဲ႕ အပိုင္းလည္းေမးေပါ့
apk မွာပါတဲ႔ Source Code ေတြေကာ Project ဖိုင္ပါ တင္ေပးပါမယ္ ဒီ Post က ဂယ္နားမလည္တဲ႔သူေဒ ကိုရည္ရြယ္ပါတယ္ တားမွာလည္း ဖုန္းစုတ္ေလးနဲ႔ ေရးရဒါ :'( ငိငိ BMP IDE Page မွာလည္း သိလိုတာေတြ ေမးလို႔ရတယ္ေနာ္ဒီ page က BMP IDE Page မဟုတ္ဘူး က်ေနာ္က ေလ့လာေနတဲ႔ သူေဒ အဆင္ေျပေအာင္ တတ္နိုင္သေလာက္ Support ေပးတာပါ
ေအာက္မွာေလ့လာပါ
Source Code
View Panel
=============
AddEditText("num",3%x, 6%y,90%x,8%y, "")
SetHint("num","Enter Phone Number . . .")
SetInputType("num",3)
AddButton("btn1",0%x,18%y,25%x,20%y, "")
SetText("btn1", "1")
AddButton("btn2",25%x,18%y,25%x,20%y, "")
SetText("btn2", "2")
AddButton("btn3",50%x,18%y,25%x,20%y, "")
SetText("btn3", "3")
AddButton("btn4",0%x,38%y,25%x,20%y, "")
SetText("btn4", "4")
AddButton("btn5",25%x,38%y,25%x,20%y, "")
SetText("btn5", "5")
AddButton("btn6",50%x,38%y,25%x,20%y, "")
SetText("btn6", "6")
AddButton("btn7",0%x,58%y,25%x,20%y, "")
SetText("btn7", "7")
AddButton("btn8",25%x,58%y,25%x,20%y, "")
SetText("btn8", "8")
AddButton("btn9",50%x,58%y,25%x,20%y, "")
SetText("btn9", "9")
AddButton("btn0",25%x,78%y,25%x,20%y, "")
SetText("btn0", "0")
AddButton("bs",0%x,78%y,25%x,20%y,"")
SetText("bs","*")
AddButton("bh",50%x,78%y,25%x,20%y,"")
SetText("bh","#")
AddButton("call",75%x,78%y,25%x,20%y, "")
SetText("call", "Call")
AddPanel("pnl",75%x,19%y,25%x,59%y, "")
SetColor("pnl",0,cYellow)
AddMenuItem("About")
====================
Event Panel
=============
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Button_Click(Who)
Select Who
Case "btn1"
SetText("num",GetText("num")& 1)
case "btn2"
SetText("num",GetText("num")& 2)
case "btn3"
SetText("num",GetText("num")& 3)
case "btn4"
SetText("num",GetText("num")& 4)
case "btn5"
SetText("num",GetText("num")& 5)
case "btn6"
SetText("num",GetText("num")& 6)
case "btn7"
SetText("num",GetText("num")& 7)
case "btn8"
SetText("num",GetText("num")& 8)
case "btn9"
SetText("num",GetText("num")& 9)
case "btn0"
SetText("num",GetText("num")& 0)
case "bs"
SetText("num",GetText("num")& "*")
case "bh"
SetText("num",GetText("num")& "#")
case "call"
c=GetText("num")
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 Menu_Click(Which)
a="Call Dialer Sample"&CRLF&"Coded by Min Min Thu"
MsgBox(a,"About!")
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
b=MessageBox("Do You Want to Exit??","EXIT!","OK","Cancel","")
If b=-1 Then
ActivityFinish
End If
Else If key=82 Then
OpenMenu
End If
End Sub
Sub Edit_Change(Who, Old, New)
End Sub
Sub Edit_enterpressed(who)
End Sub
=============
Project ကိုေဒါင္းျပီး မိမိ၏ BMP IDE Tool မွာ Import ျပီး Run က်ိပါ
Project ေဒါင္းရန္
>>> http://pc.cd/JrB7 <<<
ကြကိုယ္ ထပ္မံ၍ ခ်ဲ႕ထြင္ေရးသားက်ိပါ
က်ေနာ္လည္း ဆရာေတ်ာက္ေတာ့မဟုတ္ပါ က်ေနာ္ သိထားသေလာက္နဲ႔ BMP IDE 2.0 မွာ Try လို႔ ရသေလာက္ ျကိဳးစားျပီး Try ထားပါတယ္ :)
အဆင္ေျပက်ပါေစ~~~~
#Admin®MMT
ိ
No comments:
Links to this post
Powered by Blogger.
About Me
Posted via Blogaway
