post မတင္တာ နည္းနည္းၾကာသြားပီ
ဆယ္တန္းေျဖျပီးတည္းက volunteer ဝင္လုပ္ေနလို႔ပါဂ်ာ ခု
timer call ေလးတင္ေပးမယ္ သိတဲ့လူေတလည္းရွိမွာပါ basic pj မို႔လို႔
သတ္မွတ္ထားတဲ့အခ်ိန္မွာ သတ္မွတ္ထားတဲ့ဖုန္းကိုေခၚေပးမယ့္ဟာေလးပါ တစ္ခုပဲ ႀကိဳ သတ္မွတ္မယ့္အခ်ိန္ကို စကၠန္႔နဲ႔ တြက္ေပးပါေနာ္ အ့အခ်ိန္ျပည့္ရင္ဖုန္းကို auto ေခၚေပးပါတယ္
ဆယ္တန္းေျဖျပီးတည္းက volunteer ဝင္လုပ္ေနလို႔ပါဂ်ာ ခု
timer call ေလးတင္ေပးမယ္ သိတဲ့လူေတလည္းရွိမွာပါ basic pj မို႔လို႔
သတ္မွတ္ထားတဲ့အခ်ိန္မွာ သတ္မွတ္ထားတဲ့ဖုန္းကိုေခၚေပးမယ့္ဟာေလးပါ တစ္ခုပဲ ႀကိဳ သတ္မွတ္မယ့္အခ်ိန္ကို စကၠန္႔နဲ႔ တြက္ေပးပါေနာ္ အ့အခ်ိန္ျပည့္ရင္ဖုန္းကို auto ေခၚေပးပါတယ္
SetActivityTitle("Hello World")
AddPanel("pnl",0,0,100%x,100%y,"")
BitmapInit(DirAssets,"nar.jpg")
SetBackgroundImage("pnl")
AddPanel("pnl",0,0,100%x,100%y,"")
BitmapInit(DirAssets,"nar.jpg")
SetBackgroundImage("pnl")
AddEditText("haw",10%x,10%y,80%x,8%y,"")
SetHint("haw","Enter PhoneNumber")
SetHintColor("haw",cWhite)
SetInputType("haw",2)
SetHint("haw","Enter PhoneNumber")
SetHintColor("haw",cWhite)
SetInputType("haw",2)
AddEditText("mkk",10%x,30%y,80%x,8%y,"")
SetHint("mkk","Enter Time")
SetHintColor("mkk",cWhite)
SetInputType("mkk",2)
SetHint("mkk","Enter Time")
SetHintColor("mkk",cWhite)
SetInputType("mkk",2)
AddButton("nne",10%x,60%y,80%x,10%y,"")
SetText("nne","Call Phone")
SetColor("nne",10,cGold)
SetText("nne","Call Phone")
SetColor("nne",10,cGold)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Activity_Pause(UserClosed)
End Sub
End Sub
Sub Activity_Resume
End Sub
End Sub
Sub Edit_Change(Who, Old, New)
End Sub
End Sub
Sub Edit_Enterpressed(who)
End Sub
End Sub
Sub Button_Click(Who)
Select Who
Case "nne"
b=GetText("mkk") & "000"
SetTimer1Interval(b)
SetTimer1Enabled(true)
ProgressShow("Please wait..")
Select Who
Case "nne"
b=GetText("mkk") & "000"
SetTimer1Interval(b)
SetTimer1Enabled(true)
ProgressShow("Please wait..")
End Select
End Sub
End Sub
Sub Button_LongClick(Who)
End Sub
End Sub
Sub Timer1_Tick
CallPhone(GetText("haw"))
ActivityFinish
End Sub
CallPhone(GetText("haw"))
ActivityFinish
End Sub
Sub Panel_Click(Who)
End Sub
End Sub
Sub Label_Click(Who)
End Sub
End Sub
Sub Menu_Click(Which)
End Sub
End Sub
-------------------------------------------------
ခလုပ္ေလးေတနာမည္က လက္သရမ္းထားတာပါ
သည္းခံပါေနာ္
ခလုပ္ေလးေတနာမည္က လက္သရမ္းထားတာပါ
သည္းခံပါေနာ္
Comments
Post a Comment