چرخیدن دوربین

[amardia 18]

سلام 

من تو کار با دوربین همون اولش به مشکل خوردم 

Sub Globals
	Dim c1 As AdvancedCamera
	Private Panel1 As Panel
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	 Activity.LoadLayout("1")

End Sub

Sub Activity_resume 
	c1.Initialize(Panel1,"cam")
End Sub

Sub cam_Ready (Success As Boolean)
	If Success = True Then
	c1.StartPreview
	End If
End Sub

اونم اینه که همون اولش دوربین رو 90 درجه به چپ می چرخونه (تو همون preview ) 

ممنون می شم کمکم کنید 

 

 

پ.ن : از کتابخانه ی acl  استفاده کردم