تنظیمات VideoView

[alirezakazemizaroomi 437]

سلام من یه VideoView تو برنامم تعریف کردم مشکلم اینجاست که وقتی فیلمو پخش میکنه اگه حالت گوشی رو مثلا از حالت عمودی به افقی تغییر بدیم فیلم از اول پخش میشه من میخوام یه کاری کنم که اگه حالت گوشی رو تغییر دادیم از ادامه اش پخش کنه؟

[alirezakazemizaroomi 437]

 درست شد اینم سورسش:

  zaker1.rar   581.93K   0 تعداد دریافت ها

[alirezakazemizaroomi 437]

این کاری گفتین انجام دادم ولد نشد:

پژمان نیکروان در تاریخ 22 Jul 2015 - 11:52 صبح گفته است

سورستون رو پیوست کنید ببینم....

سورس:

  aparat.rar   461.85K   0 تعداد دریافت ها

 

[alirezakazemizaroomi 437]

تاپیک دیگه تون رو دیدم که در مورد فهمیدن اینکه عمودی هست یا افقی پرسیده بودین...

اگه اونجا به جواب نرسیدین ، اگه تونستم یه کتابخونه ساده اماده میکنم که بشه باهاش فهمید اسکرین عمودی هست یا افقی.

ممنون

تو اون تاپیک هنوز به جواب نرسیدم اگه بتونین کتابخونه اش و بسازین که خیلی عالی؟

[پژمان نیکروان 6,055]

ممنون

تو اون تاپیک هنوز به جواب نرسیدم اگه بتونین کتابخونه اش و بسازین که خیلی عالی؟

کار خاصی نمیخواد.

یه متغیر تعریف میکنیم:

Dim pp As PhoneAccelerometer

تو قسمت اکتیویتی کریت فعالش میکنیم:

	pp.StartListening("pp")

یه رویداد داره که میشه فهمید افقی شده یا عمودی:

Sub pp_AccelerometerChanged (X As Float, Y As Float, Z As Float)
	Dim xx As Int=X
	Dim yy As Int=Y
	If xx<4 Then
	ToastMessageShow("عمودی شد",False)
	else if yy<4 Then
	ToastMessageShow("افقی شد",False)
	End If
End Sub

به جای همون افقی شد هم میتونی بنویسی Position=pos تا از همونجا شروع بشه ویدیو.

[پژمان نیکروان 6,055]

سلام. جلوشو که نمیشه گرفت فکر کنم...

اما میشه یه کار دیگه کرد.

 

مگه فیلم که داره پخش میشه یه ثانیه یه ثانیه نمیره جلو؟؟

یا تایمر بذار و بذار یک ثانیه ای حرکت کنه. بعد تو رویداد این تایمر بنویس که مقدار سیک بارش رو بگیره ، یعنی همون جایی که فیلم هست رو بگیره مقدارشو.

یه متغیر تعریف کن بالا به نام pos مثلا ، بعد تو رویداد تایمر position ویدیو ویو رو اینجوری بگیر:

pos=vv.Position

بعد کافیه موقعی که داری میگی صفحه گوشی افقی شد اینم پایینش بنویسی که دوباره از همون مقدارش شروع کنه:

vv.Position=pos

[alirezakazemizaroomi 437]

 

سلام. جلوشو که نمیشه گرفت فکر کنم...

اما میشه یه کار دیگه کرد.

 

مگه فیلم که داره پخش میشه یه ثانیه یه ثانیه نمیره جلو؟؟

یا تایمر بذار و بذار یک ثانیه ای حرکت کنه. بعد تو رویداد این تایمر بنویس که مقدار سیک بارش رو بگیره ، یعنی همون جایی که فیلم هست رو بگیره مقدارشو.

یه متغیر تعریف کن بالا به نام pos مثلا ، بعد تو رویداد تایمر position ویدیو ویو رو اینجوری بگیر:

pos=vv.Position

بعد کافیه موقعی که داری میگی صفحه گوشی افقی شد اینم پایینش بنویسی که دوباره از همون مقدارش شروع کنه:

vv.Position=pos

 

دمت گرم 

ولی خیلی مبهم توضیح دادی متوجه نشدم میشه دقیق تر تو ضیح بدی؟

[پژمان نیکروان 6,055]

یه تایمر تعریف میکنی و initizle کن اینتروالش رو روی 1000 بذار:

time.Initialize("time",1000)

به محض اینکه ویدیو خودت رو پخش کردی ، تایمر رو هم فعال کن:

time.Enabled=True

یه متغیر به نام post قسمت sub Gloubals تعریف کن از نوع Int:

Sub Globals
Dim pos As Int
End Sub

تو رویداد تیک تایمر:

Sub time_tick
pos=vv.Position
End Sub

حالا فیلم که داره پخش میشه ، همینطور این مقدار حرکت پراسز فیلم داره داده میشه به pos .

 

کافیه ، وقتی داری صفحه رو افقی میکنی زیرش هم اینو بنویسی ، تا دوباره از ادامش شروع کنه:

vv.Position=pos

با کد توضیح دادم امیدوارم بفهمی.

خودتم یکم سعی کن میتونی...

[alirezakazemizaroomi 437]

این کاری گفتین انجام دادم ولد نشد:

پژمان نیکروان در تاریخ 22 Jul 2015 - 11:52 صبح گفته است

پژمان نیکروان در تاریخ 22 Jul 2015 - 11:52 صبح گفته است

سورستون رو پیوست کنید ببینم....

سورس:

  aparat.rar   461.85K   0 تعداد دریافت ها

 

آقا پژمان منتظرم؟  

[alirezakazemizaroomi 437]

یه تایمر تعریف میکنی و initizle کن اینتروالش رو روی 1000 بذار:

time.Initialize("time",1000)

به محض اینکه ویدیو خودت رو پخش کردی ، تایمر رو هم فعال کن:

time.Enabled=True

یه متغیر به نام post قسمت sub Gloubals تعریف کن از نوع Int:

Sub Globals
Dim pos As Int
End Sub

تو رویداد تیک تایمر:

Sub time_tick
pos=vv.Position
End Sub

حالا فیلم که داره پخش میشه ، همینطور این مقدار حرکت پراسز فیلم داره داده میشه به pos .

 

کافیه ، وقتی داری صفحه رو افقی میکنی زیرش هم اینو بنویسی ، تا دوباره از ادامش شروع کنه:

vv.Position=pos

با کد توضیح دادم امیدوارم بفهمی.

خودتم یکم سعی کن میتونی...

 

همشو متوجه شدم ولی اون قسمتی که قرمزش کردم متوجه نشدم؟یعنی چجوری بگیم که اگه گوشی افقی شد مثلا فلان کارو کن من با کد زیر انجام دادم ولی جواب نداد:

Sub Process_Globals
Dim time As Timer
End Sub
Sub Globals
Dim pos As Int
Dim vw As VideoView
Dim dw As PhoneIntents
Private Panel1 As Panel
End Sub


Sub Activity_Create(FirstTime As Boolean)
time.Initialize("time",1000)
Activity.LoadLayout("ll")
vw.Initialize("vw")
If Activity.Height<Activity.Width Then
vw.Position=pos
Dim pd As Phone
pd.SetScreenOrientation(0)
End If
Activity.AddView(vw,1%x, 1%y, 99%x, 60%y)
  vw.MediaControllerEnabled=True   
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub




''''کد پخش آنلاین از آپارات
Sub Button1_Click
vw.LoadVideo("http","http://hn12.asset.aparat.com/aparat-video/7551d1524b282973bed3239f0625c0ed1959854__31339.mp4")
time.Enabled=True
ToastMessageShow("درحال بارگزاری فیلم",True)
vw.Play


End Sub
Sub time_tick
pos=vw.Position
End Sub
''''کد دانلود از آپارات
Sub Button2_Click
StartActivity(dw.OpenBrowser("http://hn12.asset.aparat.com/aparat-video/7551d1524b282973bed3239f0625c0ed1959854__31339.mp4"))


End Sub
Sub Button3_Click
Msgbox("created by shahab.msb for basic4android Forum","basic4android.org")
End Sub

[پژمان نیکروان 6,055]

تاپیک دیگه تون رو دیدم که در مورد فهمیدن اینکه عمودی هست یا افقی پرسیده بودین...

اگه اونجا به جواب نرسیدین ، اگه تونستم یه کتابخونه ساده اماده میکنم که بشه باهاش فهمید اسکرین عمودی هست یا افقی.