SeekBar နဲ႕ Audio Player ကို ခ်ိတ္ဆက္ပံု
'=======Main Code Selection=======
AddSeekBar("SB",0,20%y,100%x,7%y,"")
LoadAudioFile(DirAssets,"abc.mp3")
SetTimer1Interval(100)
SetTimer1Enabled(True)
PlayAudio
'======== Event Selection =======
Sub Timer1_Tick
a = (100/AudioDuration)*GetAudioPosition
SetValue("SB", a )
End Sub
Sub SeekBar_ValueChanged(who, Value, uchange)
If uChange = True Then
a = (AudioDuration/100) * Value
SetAudioPosition( a)
End If
End Sub
Seekbar တခုထည့္မဟ္
Audio ကို Laod file လုပ္မယ္
Timer တခု run ခိုင္းမယ္
Timer ထဲကေန Seekbar ရဲ႕ တန္ဖိုးကို Change ေပးပါမယ္။
Seekbar ရဲ႕ Max တန္ဖိုးက 100
ဒါေပမဲ႕ audio ဖိုင္ရဲ႕ Duration ကေတာ့ မတူညီပါဘူး
ဒါေၾကာင့္ 100 ကို audioDuration နဲ႕စားပီး ရလာတဲ႕ တန္ဖိုးကိုမွ Audioplayer ရဲ႕ Current position နဲ႕ေျမွာက္ရင္ 100 ေပၚမ အေျခံပီး Percent ခ်ႏိုင္မွာပါ၊
Seekbar Value ခ်ိန္းတဲ႕အခါ လည္း ဒီသေဘာပါပဲ။
No comments:
Post a Comment