Than Tun Soe: BMP IDE ျဖင့္ Call Dialer ေရးသားျခင္း

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

ိ

aunt htoo at 6:34 PM

No comments:

Post a Comment

Links to this post