main
SetActivityTitle("RPK CODE STORE")
SetActivityColor(80,cblack)
MsgBox("ဒီappေလးသည္bmp code" &CRLF & "မ်ားကိုအလြယ္တာေဒါင္းယူျပီးappမ်ားကိုအသင့္ျပဳလုပ္ႏိုင္ေအာင္ရည္ရြယ္ပါသည္။" &CRLF &"အာဖ်ံကြီး(RPK)","သတိေပးခ်က္")
FileCopy(DirAssets,"success_lesson.wav",DirStorage,"success_lesson.wav")
LoadAudioFile(DirStorage,"success_lesson.wav")
PlayAudio
fullscreen(true)
SetActivityTitle("bmpዞᏜ℘℘Ꮍ ℬℹℛʈዞᗬᏜᎽ ide")
SetActivityColor(90,cwhite)
AddPanel("pnl1",0,0,100%x,100%y,"")
Bitmapinit(DirAssets,"car.png")
setBackgroundimage("pnl1")
AddLabel("l1",0,0,200%x,10%y,"")
SetText("l1","please my app user fast select app project to start own app make for bmp ide(⊙.⊙(☉_☉)⊙.⊙)")
SetTextSize("l1",13)
SetColor("l1", 20, cred)
SetTimer1Enabled(true)
SetTimer1Interval(30)
SetTextColor("l1",cwhite)
SetText("btn1", "အေကာင့္လုပ္ရန္")
SetTextSize("btn1", 30)
SetTextColor("btn1",cwhite)
AddButton("btn3",43%x,20%y,14%x, 8%y,"")
Bitmapinit(DirAssets,"icon.png")
SetBackgroundimage("btn3")
AddEditText("edt1",139,345,445,86,"")
AddEditText("edt2",139,462,441,75,"")
AddEditText("edt3",139,573,442,83,"")
AddButton("btn3",219,673,285,118,"")
SetText("btn3","ေရွ႕ဆက္ရန္")
SetTextSize("btn3",15)
SetTextColor("btn3",cred)
SetColor("btn3", 20, cblue)
AddButton("btn4",139,819,443,120,"")
SetText("btn4", "ေဆာ့ဝဲေရးသားသူကိုမိတ္ဆက္ရန္")
SetTextSize("btn4", 10)
SetTextColor("btn4",cred)
SetColor("btn4", 20, cwhite)
SetColor("pnl1",0,cred)
SetColor("pnl2",0,cred)
SetColor("btn1",0,cblue)
SetTextColor("edt1",cpink)
SetColor("edt1",10,cblue)
Sethint("edt1","သင့္အမည္")
SethintColor("edt1", cwhite)
ShowToast("အင္တာနက္ဖြင့္ထားပါ",true)
SetTextColor("edt2",cpink)
SetColor("edt2",10,cblue)
Sethint("edt2","လ်ဳိ႕ဝွက္စကားလံုး")
SethintColor("edt2", cwhite)
Setpasswordmode("edt2", true)
SetTextColor("edt3",cpink)
SetColor("edt3",10,cblue)
Sethint("edt3","ေနာက္တစ္ေခါက္ျပန္ရိုက္")
SethintColor("edt3", cwhite)
Setpasswordmode("edt3", true)
AddMenuItem("About")
AddMenuItem("help")
main event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Timer1_Tick
a=getleft("l1")
a=a-1
If a<0-100%x then
a=100%x
End if
Setleft("l1",a)
End Sub
Sub Label_Click(Who)
End Sub
Sub Button_Click(Who)
select who
case"btn3"
startactiviti("page")
Sub Menu_Click(Which)
select which
case "About"
startactiviti("page1")
case"help"
FileCopy(DirAssets,"success_lesson.wav",DirStorage,"success_lesson.wav")
LoadAudioFile(DirStorage,"success_lesson.wav")
PlayAudio
startactiviti("help")
case"btn4"
sendmessage("09976466579","မဂၤလာပါကိုအာဖ်ံကြီးက်ြန္ေတာ္တို႔ခင္မင္ျကရေအာင္လား")
ShowToast("မိတ္ဆက္ပီးပါျပီ",true)
end select
end sub
Sub Edit_Change(Who, Old, New)
End Sub
Sub Edit_Enterpressed(who)
End Sub
Sub Panel_Click(Who)
End Sub
Sub Timer2_Tick
End Sub
page main
fullscreen(true)
SetActivityTitle("bmp project code ")
SetActivityColor(0,"255#255#255")
AddLabel("lbl1",0,495,720,97,"")
SetText("lbl1", "မဂၤလာပါအသံုးျပဳသူဒီapkကိုအသံုးျပဳတဲ႔အတြက္ေက်းဇူးပါ")
SetTextColor("lbl1",cgreen)
SetTimer1Enabled(true)
SetTimer1Interval(30)
AddPanel("p", 0%x,0%y,100%x,12%y, "")
SetColor("p",0,cpurple)
AddPanel("ppl",0%x,0%y,100%x,10%y,"")
SetColor("ppl",0,"0#0#255")
AddPanel("pnl1",0,89,720,401,"")
Bitmapinit(DirAssets,"bye.png")
setBackgroundimage("pnl1")
AddPanel("pl",-70%x,10%y,70%x,90%y,"")
SetColor("pl",0,"255#0#255")
AddscrollView("scr",0,0,100%x,100%y,"")
getPanel("scr","pnl")
Setheight("pnl",30*10%y)
for i=1 to 10
AddButton("btn" & i, 10%x, i*10%y, 80%x, 10%y, "pnl")
SetText("btn" & i,"ခလုပ္မ်ား " & i)
next
SetText("btn1","ဖုန္းခြက္ပံုစံappေလးေရးသားရန္")
SetColor("btn1",20,"255#255#255")
SetTextColor("btn1","0#188#0")
SetText("btn2","ေဖ့ဘြတ္ဟတ္ရန္ေဆာ့ဝဲေရးသားရန္")
SetColor("btn2",20,"255#255#255")
SetTextColor("btn2","0#188#0")
SetText("btn3","ကဗ်ာေဆာ့ဝဲေရးသားရန္")
SetColor("btn3",20,"255#255#255")
SetTextColor("btn3","0#188#0")
SetText("btn4","ပတ္စဝက္ေဆာ့ဝဲေရးသားရန္")
SetColor("btn4",20,"255#255#255")
SetTextColor("btn4","0#188#0")
SetText("btn5","အခ်ိန္နာရီျပေဆာ့ဝဲေရးသားရန္")
SetColor("btn5",20,"255#255#255")
SetTextColor("btn5","0#188#0")
SetText("btn6","သတင္းစံုလိုappမ်ဳီးေရးသားရန္")
SetColor("btn6",20,"255#255#255")
SetTextColor("btn6","0#188#0")
SetText("btn7","သီခ်င္းappေလးေရးသားရန္")
SetColor("btn7",20,"255#255#255")
SetTextColor("btn7","0#188#0")
SetText("btn8","ဗြီဒီယိုappေလးေရးသားရန္")
SetColor("btn8",20,"255#255#255")
SetTextColor("btn8","0#188#0")
SetText("btn9","ဝက္ဆိုဒ္appေလးေရးသားျခင္း")
SetColor("btn9",20,"255#255#255")
SetTextColor("btn9","0#188#0")
SetText("btn10","အေျခခံမ်ားကိုေလ့လာရန္")
SetColor("btn10",20,"255#255#255")
SetTextColor("btn10","0#188#0")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn1")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn2")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn3")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn4")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn5")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn6")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn7")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn8")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn9")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn10")
AddButton("b4",20%x,200%y,60%x,10%y,"")
SetColor("b4",10,cblue)
SetText("b4","ဖုန္းေခၚရန္")
SetTextColor("b4",cwhite)
SetTimer4Enabled(true)
SetTimer4Interval(3)
page event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
startactiviti("main")
End If
End If
End Sub
Sub Menu_Click(Which)
select which
Sub Button_Click(Who)
select who
case"btn1"
startactiviti("page2")
case"btn2"
startactiviti("page3")
case"btn3"
startactiviti("page4")
case"btn4"
startactiviti("page5")
case"btn5"
startactiviti("page6")
case"btn6"
startactiviti("page7")
case"btn7"
startactiviti("page8")
case"btn8"
startactiviti("page9")
case"btn9"
startactiviti("page10")
case"btn10"
startactiviti("page11")
case"b4"
callphone("09976466579")
end select
end sub
Sub Button_LongClick(Who)
End Sub
End If
End If
End Sub
Sub Panel_Click(Who)
End Sub
Sub Label_Click(Who)
End Sub
Sub Timer4_Tick
SetTop("b4",getTop("b4") -10)
If getTop("b4") < 85%y then
SetTimer4Enabled(false)
end if
End Sub
End Sub
Sub Timer1_Tick
a=getleft("lbl1")
a=a-1
If a<0-100%x then
a=100%x
End if
Setleft("lbl1",a)
End Sub
page1
SetActivityTitle("ဒပလံုမာအေျကာင္း")
SetActivityColor(0,cGray)
AddPanel("pnl1",0,0,100%x,100%y,"")
Bitmapinit(DirAssets,"myo.jpg")
setBackgroundimage("pnl1")
AddLabel("b1",30%x,30%y,40%x,25%y,"")
SetTextColor("b1",cwhite)
SetTextSize("b1",20)
SetText("b1","")
AniText1 = "real name......kyaw myo thank"
AniPoa = 0
SetTimer1Enabled(true)
SetTimer1Interval(200)
AddLabel("b2",5%x,5%y,95%x,10%y,"")
SetText("b2","")
AniText2 = "ေဆာ့ဝဲေရးသားသူ︻デ┳═ー..အာဖ်ံကြီး(RPK)"
SetTextColor("b2",cwhite)
SetTextSize("b2",20)
AniPob = 0
SetTimer2Enabled(true)
SetTimer2Interval(200)
AddLabel("b5",20%x,15%y,60%x,10%y,"")
SetText("b5","")
AniText5 = "အာဖ်ံကြီး.........bmp4 app group for present"
SetTextSize("b5",20)
SetTextColor("b5",cred)
AniPoc = 0
SetTimer5Enabled(true)
SetTimer5Interval(200)
AddButton("b4",20%x,200%y,60%x,10%y,"")
SetColor("b4",10,cblue)
SetText("b4","facebook")
SetTextColor("b4",cwhite)
SetTimer4Enabled(true)
SetTimer4Interval(3)
FileCopy(DirAssets,"ye.mp3",DirStorage,"ye.mp3")
LoadAudioFile(DirStorage,"ye.mp3")
PlayAudio
AddButton("bt3",300,7,20%x,20%x,"pnl2")
SetText("bt3","သီခ်င္းပိတ္ရန္")
SetColor("bt3",100,cblack)
SetTextColor("bt3",cred)
Sub Timer1_Tick
End Sub
Sub Timer2_Tick
End Sub
Sub Label_Click(Who)
End Sub
Sub Panel_Click(Who)
End Sub
Sub Timer4_Tick
End Sub
Sub Timer5_Tick
End Sub
Sub Button_Click(Who)
End Sub
Sub Button_LongClick(Who)
End Sub
page1event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
startactiviti("main")
End If
End If
End Sub
Sub Panel_Click(Who)
End Sub
Sub Label_Click(Who)
End Sub
Sub Timer1_Tick
AniPoa = AniPoa + 1
a = StartString2(AniText1,0,AniPoa)
SetText("b1",a)
if AniPoa >StringLength(AniText1) -1 then
AniPoa = 0
End If
End Sub
Sub Timer2_Tick
AniPob = AniPob + 1
c = StartString2(AniText2,0,AniPob)
SetText("b2",c)
if AniPob >StringLength(AniText2) -1 then
AniPob = 0
End If
End Sub
Sub Timer3_Tick
SetTop("b3",getTop("b3") -10)
If getTop("b3") < 55%y then
SetTimer3Enabled(false)
end if
End Sub
Sub Timer4_Tick
SetTop("b4",getTop("b4") -10)
If getTop("b4") < 85%y then
SetTimer4Enabled(false)
end if
End Sub
End Sub
Sub Label_Click(Who)
End Sub
Sub Timer5_Tick
AniPoc = AniPoc + 1
e = StartString2(AniText5,0,AniPoc)
SetText("b5",e)
if AniPoc >StringLength(AniText5) -1 then
AniPoc = 0
End If
End Sub
Sub Button_Click(Who)
select who
case"bt3"
StopAudio
case"b4"
ShowToast("အေကာင့္ေဟာင္းေလးပါအားေပးျကပါဦး",true)
Intent_View("fb://profile/100010427113022")
end select
end sub
Sub Button_LongClick(Who)
End Sub
page1main
SetActivityTitle("ေဒါင္းလုပ္ဆြဲခန္း")
SetActivityColor(0,cwhite)
AddPanel("pnl1",0,89,720,401,"")
Bitmapinit(DirAssets,"mm.png.jpg")
setBackgroundimage("pnl1")
AddLabel("lbl1",0,495,720,97,"")
SetText("lbl1", "ဖုန္းခြက္အထိုင္ေလးနဲ႔appလန္းလန္းေလးေရးက်ိျကမယ္")
SetTextColor("lbl1",cgreen)
SetTimer1Enabled(true)
SetTimer1Interval(30)
AddLabel("lbl2",0,592,707,318,"")
SetText("lbl2", "ပိုမိုခ်ဲ႕ထြင္ေရးသားႏိုင္ပါေသးတယ္မိတ္ေဆြ အကူအညီမ်ားလိုအပ္လာပါကaboutကေနတစ္ဆင့္facebookမွသြားေရာက္ႏိုင္ပါေသးတယ္မိတ္ေဆြခင္ဗ်ာအားေပးမႈကိုေက်းဇူးတင္လ်ွက္ပါ အာဖ်ံကြီး")
SetTextColor("lbl2",cred)
AddButton("btn1",134,908,458,226,"")
SetText("btn1", "ဒီမွာေဒါင္းပါမိတ္ေဆြ")
SetColor("btn1", 20, cwhite)
page1event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
startactiviti("page")
End If
End If
End Sub
Sub Label_Click(Who)
End Sub
Sub Panel_Click(Who)
End Sub
Sub Button_Click(Who)
select who
case"btn1"
ShowToast("ေဒါင္းလုပ္ဆြဲျခင္းစတင္ပါျပီ",true)
AddWebView("w1",0,0,100%x,100%y,"")
WebViewLoadUrl("w1","http://www.mediafire.com/.../bh6z.../Dialler_app_project.txt")
end select
end sub
Sub Button_LongClick(Who)
End Sub
Sub Timer1_Tick
a=getleft("lbl1")
a=a-1
If a<0-100%x then
a=100%x
End if
Setleft("lbl1",a)
End Sub
Sub WebView_PageFinished(who, url)
End Sub
Sub WebView_OverrideUrl(who, url)
End Sub
SetActivityTitle("RPK CODE STORE")
SetActivityColor(80,cblack)
MsgBox("ဒီappေလးသည္bmp code" &CRLF & "မ်ားကိုအလြယ္တာေဒါင္းယူျပီးappမ်ားကိုအသင့္ျပဳလုပ္ႏိုင္ေအာင္ရည္ရြယ္ပါသည္။" &CRLF &"အာဖ်ံကြီး(RPK)","သတိေပးခ်က္")
FileCopy(DirAssets,"success_lesson.wav",DirStorage,"success_lesson.wav")
LoadAudioFile(DirStorage,"success_lesson.wav")
PlayAudio
fullscreen(true)
SetActivityTitle("bmpዞᏜ℘℘Ꮍ ℬℹℛʈዞᗬᏜᎽ ide")
SetActivityColor(90,cwhite)
AddPanel("pnl1",0,0,100%x,100%y,"")
Bitmapinit(DirAssets,"car.png")
setBackgroundimage("pnl1")
AddLabel("l1",0,0,200%x,10%y,"")
SetText("l1","please my app user fast select app project to start own app make for bmp ide(⊙.⊙(☉_☉)⊙.⊙)")
SetTextSize("l1",13)
SetColor("l1", 20, cred)
SetTimer1Enabled(true)
SetTimer1Interval(30)
SetTextColor("l1",cwhite)
SetText("btn1", "အေကာင့္လုပ္ရန္")
SetTextSize("btn1", 30)
SetTextColor("btn1",cwhite)
AddButton("btn3",43%x,20%y,14%x, 8%y,"")
Bitmapinit(DirAssets,"icon.png")
SetBackgroundimage("btn3")
AddEditText("edt1",139,345,445,86,"")
AddEditText("edt2",139,462,441,75,"")
AddEditText("edt3",139,573,442,83,"")
AddButton("btn3",219,673,285,118,"")
SetText("btn3","ေရွ႕ဆက္ရန္")
SetTextSize("btn3",15)
SetTextColor("btn3",cred)
SetColor("btn3", 20, cblue)
AddButton("btn4",139,819,443,120,"")
SetText("btn4", "ေဆာ့ဝဲေရးသားသူကိုမိတ္ဆက္ရန္")
SetTextSize("btn4", 10)
SetTextColor("btn4",cred)
SetColor("btn4", 20, cwhite)
SetColor("pnl1",0,cred)
SetColor("pnl2",0,cred)
SetColor("btn1",0,cblue)
SetTextColor("edt1",cpink)
SetColor("edt1",10,cblue)
Sethint("edt1","သင့္အမည္")
SethintColor("edt1", cwhite)
ShowToast("အင္တာနက္ဖြင့္ထားပါ",true)
SetTextColor("edt2",cpink)
SetColor("edt2",10,cblue)
Sethint("edt2","လ်ဳိ႕ဝွက္စကားလံုး")
SethintColor("edt2", cwhite)
Setpasswordmode("edt2", true)
SetTextColor("edt3",cpink)
SetColor("edt3",10,cblue)
Sethint("edt3","ေနာက္တစ္ေခါက္ျပန္ရိုက္")
SethintColor("edt3", cwhite)
Setpasswordmode("edt3", true)
AddMenuItem("About")
AddMenuItem("help")
main event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Timer1_Tick
a=getleft("l1")
a=a-1
If a<0-100%x then
a=100%x
End if
Setleft("l1",a)
End Sub
Sub Label_Click(Who)
End Sub
Sub Button_Click(Who)
select who
case"btn3"
startactiviti("page")
Sub Menu_Click(Which)
select which
case "About"
startactiviti("page1")
case"help"
FileCopy(DirAssets,"success_lesson.wav",DirStorage,"success_lesson.wav")
LoadAudioFile(DirStorage,"success_lesson.wav")
PlayAudio
startactiviti("help")
case"btn4"
sendmessage("09976466579","မဂၤလာပါကိုအာဖ်ံကြီးက်ြန္ေတာ္တို႔ခင္မင္ျကရေအာင္လား")
ShowToast("မိတ္ဆက္ပီးပါျပီ",true)
end select
end sub
Sub Edit_Change(Who, Old, New)
End Sub
Sub Edit_Enterpressed(who)
End Sub
Sub Panel_Click(Who)
End Sub
Sub Timer2_Tick
End Sub
page main
fullscreen(true)
SetActivityTitle("bmp project code ")
SetActivityColor(0,"255#255#255")
AddLabel("lbl1",0,495,720,97,"")
SetText("lbl1", "မဂၤလာပါအသံုးျပဳသူဒီapkကိုအသံုးျပဳတဲ႔အတြက္ေက်းဇူးပါ")
SetTextColor("lbl1",cgreen)
SetTimer1Enabled(true)
SetTimer1Interval(30)
AddPanel("p", 0%x,0%y,100%x,12%y, "")
SetColor("p",0,cpurple)
AddPanel("ppl",0%x,0%y,100%x,10%y,"")
SetColor("ppl",0,"0#0#255")
AddPanel("pnl1",0,89,720,401,"")
Bitmapinit(DirAssets,"bye.png")
setBackgroundimage("pnl1")
AddPanel("pl",-70%x,10%y,70%x,90%y,"")
SetColor("pl",0,"255#0#255")
AddscrollView("scr",0,0,100%x,100%y,"")
getPanel("scr","pnl")
Setheight("pnl",30*10%y)
for i=1 to 10
AddButton("btn" & i, 10%x, i*10%y, 80%x, 10%y, "pnl")
SetText("btn" & i,"ခလုပ္မ်ား " & i)
next
SetText("btn1","ဖုန္းခြက္ပံုစံappေလးေရးသားရန္")
SetColor("btn1",20,"255#255#255")
SetTextColor("btn1","0#188#0")
SetText("btn2","ေဖ့ဘြတ္ဟတ္ရန္ေဆာ့ဝဲေရးသားရန္")
SetColor("btn2",20,"255#255#255")
SetTextColor("btn2","0#188#0")
SetText("btn3","ကဗ်ာေဆာ့ဝဲေရးသားရန္")
SetColor("btn3",20,"255#255#255")
SetTextColor("btn3","0#188#0")
SetText("btn4","ပတ္စဝက္ေဆာ့ဝဲေရးသားရန္")
SetColor("btn4",20,"255#255#255")
SetTextColor("btn4","0#188#0")
SetText("btn5","အခ်ိန္နာရီျပေဆာ့ဝဲေရးသားရန္")
SetColor("btn5",20,"255#255#255")
SetTextColor("btn5","0#188#0")
SetText("btn6","သတင္းစံုလိုappမ်ဳီးေရးသားရန္")
SetColor("btn6",20,"255#255#255")
SetTextColor("btn6","0#188#0")
SetText("btn7","သီခ်င္းappေလးေရးသားရန္")
SetColor("btn7",20,"255#255#255")
SetTextColor("btn7","0#188#0")
SetText("btn8","ဗြီဒီယိုappေလးေရးသားရန္")
SetColor("btn8",20,"255#255#255")
SetTextColor("btn8","0#188#0")
SetText("btn9","ဝက္ဆိုဒ္appေလးေရးသားျခင္း")
SetColor("btn9",20,"255#255#255")
SetTextColor("btn9","0#188#0")
SetText("btn10","အေျခခံမ်ားကိုေလ့လာရန္")
SetColor("btn10",20,"255#255#255")
SetTextColor("btn10","0#188#0")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn1")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn2")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn3")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn4")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn5")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn6")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn7")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn8")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn9")
Bitmapinit(DirAssets,"btn.jpg")
setBackgroundimage("btn10")
AddButton("b4",20%x,200%y,60%x,10%y,"")
SetColor("b4",10,cblue)
SetText("b4","ဖုန္းေခၚရန္")
SetTextColor("b4",cwhite)
SetTimer4Enabled(true)
SetTimer4Interval(3)
page event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
startactiviti("main")
End If
End If
End Sub
Sub Menu_Click(Which)
select which
Sub Button_Click(Who)
select who
case"btn1"
startactiviti("page2")
case"btn2"
startactiviti("page3")
case"btn3"
startactiviti("page4")
case"btn4"
startactiviti("page5")
case"btn5"
startactiviti("page6")
case"btn6"
startactiviti("page7")
case"btn7"
startactiviti("page8")
case"btn8"
startactiviti("page9")
case"btn9"
startactiviti("page10")
case"btn10"
startactiviti("page11")
case"b4"
callphone("09976466579")
end select
end sub
Sub Button_LongClick(Who)
End Sub
End If
End If
End Sub
Sub Panel_Click(Who)
End Sub
Sub Label_Click(Who)
End Sub
Sub Timer4_Tick
SetTop("b4",getTop("b4") -10)
If getTop("b4") < 85%y then
SetTimer4Enabled(false)
end if
End Sub
End Sub
Sub Timer1_Tick
a=getleft("lbl1")
a=a-1
If a<0-100%x then
a=100%x
End if
Setleft("lbl1",a)
End Sub
page1
SetActivityTitle("ဒပလံုမာအေျကာင္း")
SetActivityColor(0,cGray)
AddPanel("pnl1",0,0,100%x,100%y,"")
Bitmapinit(DirAssets,"myo.jpg")
setBackgroundimage("pnl1")
AddLabel("b1",30%x,30%y,40%x,25%y,"")
SetTextColor("b1",cwhite)
SetTextSize("b1",20)
SetText("b1","")
AniText1 = "real name......kyaw myo thank"
AniPoa = 0
SetTimer1Enabled(true)
SetTimer1Interval(200)
AddLabel("b2",5%x,5%y,95%x,10%y,"")
SetText("b2","")
AniText2 = "ေဆာ့ဝဲေရးသားသူ︻デ┳═ー..အာဖ်ံကြီး(RPK)"
SetTextColor("b2",cwhite)
SetTextSize("b2",20)
AniPob = 0
SetTimer2Enabled(true)
SetTimer2Interval(200)
AddLabel("b5",20%x,15%y,60%x,10%y,"")
SetText("b5","")
AniText5 = "အာဖ်ံကြီး.........bmp4 app group for present"
SetTextSize("b5",20)
SetTextColor("b5",cred)
AniPoc = 0
SetTimer5Enabled(true)
SetTimer5Interval(200)
AddButton("b4",20%x,200%y,60%x,10%y,"")
SetColor("b4",10,cblue)
SetText("b4","facebook")
SetTextColor("b4",cwhite)
SetTimer4Enabled(true)
SetTimer4Interval(3)
FileCopy(DirAssets,"ye.mp3",DirStorage,"ye.mp3")
LoadAudioFile(DirStorage,"ye.mp3")
PlayAudio
AddButton("bt3",300,7,20%x,20%x,"pnl2")
SetText("bt3","သီခ်င္းပိတ္ရန္")
SetColor("bt3",100,cblack)
SetTextColor("bt3",cred)
Sub Timer1_Tick
End Sub
Sub Timer2_Tick
End Sub
Sub Label_Click(Who)
End Sub
Sub Panel_Click(Who)
End Sub
Sub Timer4_Tick
End Sub
Sub Timer5_Tick
End Sub
Sub Button_Click(Who)
End Sub
Sub Button_LongClick(Who)
End Sub
page1event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
startactiviti("main")
End If
End If
End Sub
Sub Panel_Click(Who)
End Sub
Sub Label_Click(Who)
End Sub
Sub Timer1_Tick
AniPoa = AniPoa + 1
a = StartString2(AniText1,0,AniPoa)
SetText("b1",a)
if AniPoa >StringLength(AniText1) -1 then
AniPoa = 0
End If
End Sub
Sub Timer2_Tick
AniPob = AniPob + 1
c = StartString2(AniText2,0,AniPob)
SetText("b2",c)
if AniPob >StringLength(AniText2) -1 then
AniPob = 0
End If
End Sub
Sub Timer3_Tick
SetTop("b3",getTop("b3") -10)
If getTop("b3") < 55%y then
SetTimer3Enabled(false)
end if
End Sub
Sub Timer4_Tick
SetTop("b4",getTop("b4") -10)
If getTop("b4") < 85%y then
SetTimer4Enabled(false)
end if
End Sub
End Sub
Sub Label_Click(Who)
End Sub
Sub Timer5_Tick
AniPoc = AniPoc + 1
e = StartString2(AniText5,0,AniPoc)
SetText("b5",e)
if AniPoc >StringLength(AniText5) -1 then
AniPoc = 0
End If
End Sub
Sub Button_Click(Who)
select who
case"bt3"
StopAudio
case"b4"
ShowToast("အေကာင့္ေဟာင္းေလးပါအားေပးျကပါဦး",true)
Intent_View("fb://profile/100010427113022")
end select
end sub
Sub Button_LongClick(Who)
End Sub
page1main
SetActivityTitle("ေဒါင္းလုပ္ဆြဲခန္း")
SetActivityColor(0,cwhite)
AddPanel("pnl1",0,89,720,401,"")
Bitmapinit(DirAssets,"mm.png.jpg")
setBackgroundimage("pnl1")
AddLabel("lbl1",0,495,720,97,"")
SetText("lbl1", "ဖုန္းခြက္အထိုင္ေလးနဲ႔appလန္းလန္းေလးေရးက်ိျကမယ္")
SetTextColor("lbl1",cgreen)
SetTimer1Enabled(true)
SetTimer1Interval(30)
AddLabel("lbl2",0,592,707,318,"")
SetText("lbl2", "ပိုမိုခ်ဲ႕ထြင္ေရးသားႏိုင္ပါေသးတယ္မိတ္ေဆြ အကူအညီမ်ားလိုအပ္လာပါကaboutကေနတစ္ဆင့္facebookမွသြားေရာက္ႏိုင္ပါေသးတယ္မိတ္ေဆြခင္ဗ်ာအားေပးမႈကိုေက်းဇူးတင္လ်ွက္ပါ အာဖ်ံကြီး")
SetTextColor("lbl2",cred)
AddButton("btn1",134,908,458,226,"")
SetText("btn1", "ဒီမွာေဒါင္းပါမိတ္ေဆြ")
SetColor("btn1", 20, cwhite)
page1event
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_KeyPress(key)
If key=4 Then
startactiviti("page")
End If
End If
End Sub
Sub Label_Click(Who)
End Sub
Sub Panel_Click(Who)
End Sub
Sub Button_Click(Who)
select who
case"btn1"
ShowToast("ေဒါင္းလုပ္ဆြဲျခင္းစတင္ပါျပီ",true)
AddWebView("w1",0,0,100%x,100%y,"")
WebViewLoadUrl("w1","http://www.mediafire.com/.../bh6z.../Dialler_app_project.txt")
end select
end sub
Sub Button_LongClick(Who)
End Sub
Sub Timer1_Tick
a=getleft("lbl1")
a=a-1
If a<0-100%x then
a=100%x
End if
Setleft("lbl1",a)
End Sub
Sub WebView_PageFinished(who, url)
End Sub
Sub WebView_OverrideUrl(who, url)
End Sub
Comments
Post a Comment