ProgressBar

ProgressBar
ဒီေန View တခု ထက္တက္မယ္။
ဒါက ProgressBar သူက
ဥပမာ မိမိ app ထဲမွာ code တခု/Comand တခု/Project တခု Run ခိုင္းထားတဲ႕အခါမွာ ဒီတိုင္းထားတာမ်ိဳး မဟုတ္ပဲ မိမိ Program ပီးတဲ႕အထိ user ကို ေစာင့္ခိုင္းတဲ႕သေဘာမ်ိဳးအလွဆင္ထားတာလည္းပါတာေပါ့။ Progress bar ေလးကေျပးေနပီး 100ျပည့္ေတာ့ ရပ္ေပါ့။
အခု ProgressBar ကို ထည့္ဖို႕ Designer မွာ
ProgressBar တခုထည့္မယ္ Name ကို pgb လို႕ေပးပီး
Dim pgb As Progressbar နဲ႕ Generate လုပ္ထားပါ။
ပီးရင္ Label တခုထည့္ပီး Dim label1 As Label နဲ႕ Generateလုပ္ပါ။ 1 အမည္နဲ႕ layout ကို save ခဲ႕မယ္။
progressbar ရယ္ Labelက percent ျပတဲ႕ဂဏန္းအတြက္သံုးမွာဆိုေတာ့ Designer မွာကြကိုယ္ ၾကည့္ေကာင္းေအာင္ ေနရာခ်ေပါ့။ အခု IDE မွာ
Activity.LoadLayout("1") နဲ႕ Loadလုပ္ထားမယ္။
ဒါဆို စံုေနပီ ဒါေပမဲ႕ Progressbar ႀကီးကအေသရီးျဖစ္ေနမယ္။
ဒီေတာ့ Timer တခုထည့္ပီး သက္မွတ္ထားတဲ႕ Timer အခ်ိန္အတိုင္း Run ခိုင္းရမွာပါ။
Sub Process_Global ဆိုတဲ႕ Event ကိုေတြ႕လား
အာ့ထဲမွာ
Dim t As Timer
လို႕ generate လုပ္ခဲ႕လိုက္ပါ။
Sub Activity_Create ထဲမွာ t ကို Intialize လုပ္ရပါမယ္။
t.Intialize("t" , 200)
ဒါက 200 ဆိုတာ နမူနာပါ ႀကိဳက္သေလာက္ထားေပါ။
t.Enabled = True
ဒါက t.Enable = True လို႕ ေရးမွ ဒီ Timer က Run မွာပါ။ ျပန္ ရပ္ခ်င္ရင္
t.Enable = False ေပါ့။
အင္း ပီးရင္
Sub Globals ဆိုတဲ႕ Event ထဲမွာ pgb ရယ္ Label ရယ္ကို Generate လုပ္ထားတယ္ေနာ္ အာ့ေအာက္မွာ
Dim percent As Int လို႕ ထက္ေရးပါမယ္။
ဒါဆို t အတြက္ event ကို ေရးရမယ္။
Sub t_Tick
percent = percent + 1
pgb.progress = percent
Label1.Text = percent
If percent > 99 then
t.Enable= False
End If
End Sub
ဒလို ကြကိုယ္ေရးထည့္ရပါမယ္

t ဆိုတဲ႕ Timer က စ Run ပီ။
percent ဆိုတဲ႕ Int ကို + 1 ေပါင္းေပးထားေတာ့
Timer မရပ္မခ်င္း percent ဟာ တခုဆီတက္ေနမွာပါ။
1/2/3/4/5ဒလို အစဥ္လိုက္ပါ။
pgb.progress = percent ဆိုတာက အာ့လို တခုခ်င္းတက္ေနတဲ႕ percent နဲ႕လိုက္ပီး Progressbar ကို လိုက္ runခိုင္းတာ Label1 ရဲ႕ Text ကိုလည္းဒလိုပဲလိုက္တက္ခိုင္းထားတာေပါ့။
If percent > 99 then
t.Enabled = False
End If
ဒါက percent မွာတက္ေနတဲ႕ ဂဏန္းေတက 99 ထက္ႀကီးသြားရင္ timer ကို ရပ္ခိုင္းလိုက္တာေပါ့။
ဒါဆို 100 ေရာက္တာနဲ႕ Timer က ရပ္သြားပီ။
ဒီအကုန္ေပါင္းရင္ Code ေတက ဒလိုု
-----
.
Sub Process_Globals
Dim t As Timer
End Sub
.
Sub Globals
Dim pgb As Progressbar
Dim Label1 As Label
Dim percent As Int
End Sub
.
Sub Activity_Create(---------)
Activity.LoadLayout("1")
t.Intialize("t" , 200)
t.Enabled = True
End Sub
.
Sub t_Tick
percent = percent + 1
pgb.progress = percent
Label1.Text = percent
If percent > 99 then
t.Enable= False
End If
End Sub
------ ဒါပါ ပဲ လုပ္ၾကဘ့္ပါဦး ေျပာတာက ရွည္တာပါ။လုပ္ရတာက တိုတိုေလးရယ္။
မရ ရင္လည္း ဒါကို ေဒါင္းပီး စမ္းၾကည့္ပါ။
http://pc.cd/0kH7
မရေသးရင္ဒမာလာေမးပါ
https://m.facebook.com/groups/316136215260862