دوربین در دو پنل همزمان

[mohammade79 127]

سلام بچه ها جان من کمکم کنین یه پروژه فوق حرفه ای که باید دوربین در دو پنل همزمان در یک صفحه نشان داده بشه هر کاری میکنم نمیشه

اینم سورسم

Sub Globals

Dim camera1 As Camera

Dim Panel2 As Panel

Dim panel1 As Panel

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("1")

Panel2=panel1

End Sub

Sub Camera1_Ready (Success As Boolean)

camera1.StartPreview

End Sub

Sub Activity_Resume

' camera1.Initialize(Panel1, "Camera1")

camera1.Initialize(Panel2, "Camera1")

End Sub

Sub Activity_Pause (UserClosed As Boolean)

camera1.Release

End Sub

[Alireza.Ghafari 2,104]

آقا شما دقیقا میخوای چیکار کنی ؟ دوتا پنل برای هر پنل یه دوربین رو نشون بده ؟؟

فکر کنم میخوای یه نرم افزار بسازی طرف تو عکس 2تا باشه درسته ؟

[mohammade79 127]

نه می خوام یه چیزی مثل دوربین 3 بعدی بشه

مثل این عکس

[Alireza.Ghafari 2,104]

الان اینو خودت درست کردی یا میخوای مثل این درست کنی ؟؟

[mohammade79 127]

مثل این درست کنم

[jeqele 563]

فک کنم دوربین سه بعدی نیاز به دو تا دوربین داشته باشه ها.

[Alireza.Ghafari 2,104]

بیا داداش این رو واست درست کردم....

اولش دوتا عکس امد ولی یکم بعد عکس دوم نویز انداخت حالا شما هم تست کن ببین واسه شما هم اینطور میشه یا نه...

روی گوشی تست کن حتما .......

دانلود سورس » دانلود

پسورد : basic4android.org

[mohammade79 127]

دستت درد نکنه عملی نشد ولی بازم به خاطر اینکه به فکرم بودی دمت گرم

[sganji 678]

دستت درد نکنه عملی نشد ولی بازم به خاطر اینکه به فکرم بودی دمت گرم

برا چی عملی نشد؟

مشکل چیه؟

[mohammade79 127]

چون فقط یه دوربین رو نشون میده اون یکی یه پنل خالیه

[vahid_d_0101 31]

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

با advanc camera میخوام دوربین جلو را روشن کنم چه طوری باید این کار را بکنم ؟؟

[mohammade79 127]

سلام وحید جان بفرما اینم یه سورس مشتی برو حالشو ببر خخخخخخخخخخخخ

Sub Process_Globals	Private frontCamera As Boolean = FalseEnd Sub
Sub Globals	Private Panel1 As Panel	Private camEx As CameraExClassEnd Sub
Sub Activity_Create(FirstTime As Boolean)	Activity.LoadLayout("1")End Sub
Sub Activity_Resume	InitializeCameraEnd Sub
Private Sub InitializeCamera	camEx.Initialize(Panel1, frontCamera, Me, "Camera1")	frontCamera = camEx.FrontEnd Sub
Sub Activity_Pause (UserClosed As Boolean)	camEx.ReleaseEnd Sub
Sub Camera1_Ready (Success As Boolean)	If Success Then		camEx.StartPreview		camEx.SetJpegQuality(90)		camEx.CommitParameters	Else		ToastMessageShow("Cannot open camera.", True)	End IfEnd Sub
Sub btnTakePicture_Click	camEx.TakePictureEnd Sub
Sub Camera1_PictureTaken (Data() As Byte)	Dim filename As String = "1.jpg"	Dim dir As String = File.DirRootExternal		camEx.SavePictureToFile(Data, dir, filename)	camEx.StartPreview 'restart preview		'send a broadcast intent to the media scanner to force it to scan the saved file.	Dim Phone As Phone	Dim i As Intent	i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", _		"file://" & File.Combine(dir, filename))	Phone.SendBroadcastIntent(i)	ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(dir, filename), True)End Sub
Sub ChangeCamera_Click	camEx.Release	frontCamera = Not(frontCamera)	InitializeCameraEnd Sub
Sub btnEffect_Click	Dim effects As List = camEx.GetSupportedColorEffects	If effects.IsInitialized = False Then		ToastMessageShow("Effects not supported.", False)		Return	End If	Dim effect As String = effects.Get((effects.IndexOf(camEx.GetColorEffect) + 1) Mod effects.Size)	camEx.SetColorEffect(effect)	ToastMessageShow(effect, False)	camEx.CommitParametersEnd Sub
Sub btnFlash_Click	Dim flashModes As List = camEx.GetSupportedFlashModes	If flashModes.IsInitialized = False Then		ToastMessageShow("Flash not supported.", False)		Return	End If	Dim flash As String = flashModes.Get((flashModes.IndexOf(camEx.GetFlashMode) + 1) Mod flashModes.Size)	camEx.SetFlashMode(flash)	ToastMessageShow(flash, False)	camEx.CommitParameters	End SubSub btnPictureSize_Click	Dim pictureSizes() As CameraSize = camEx.GetSupportedPicturesSizes	Dim current As CameraSize = camEx.GetPictureSize	For i = 0 To pictureSizes.Length - 1		If pictureSizes(i).Width = current.Width AND pictureSizes(i).Height = current.Height Then Exit	Next	Dim ps As CameraSize = pictureSizes((i + 1) Mod pictureSizes.Length)	camEx.SetPictureSize(ps.Width, ps.Height)	ToastMessageShow(ps.Width & "x" & ps.Height, False)	camEx.CommitParameters		End Sub

یه کلاس ماژول هم درست میکنی

'Class module'version 1.01'See this page for the list of constants:'http://developer.android.com/intl/fr/reference/android/hardware/Camera.Parameters.html'Note that you should use the constant values instead of the names.Sub Class_Globals	Private nativeCam As Object	Private cam As Camera	Private r As Reflector	Private target As Object	Private event As String	Public Front As Boolean	Type CameraInfoAndId (CameraInfo As Object, Id As Int)	Type CameraSize (Width As Int, Height As Int)	Private parameters As ObjectEnd Sub
Public Sub Initialize (Panel1 As Panel, FrontCamera As Boolean, TargetModule As Object, EventName As String)	target = TargetModule	event = EventName	Front = FrontCamera	Dim id As Int	id = FindCamera(Front).id	If id = -1 Then		Front = Not(Front) 'try different camera		id = FindCamera(Front).id		If id = -1 Then			ToastMessageShow("No camera found.", True)			Return		End If	End If	cam.Initialize2(Panel1, "camera", id)End Sub
Private Sub FindCamera (frontCamera As Boolean) As CameraInfoAndId	Dim ci As CameraInfoAndId	Dim cameraInfo As Object	Dim cameraValue As Int	If frontCamera Then cameraValue = 1 Else cameraValue = 0	cameraInfo = r.CreateObject("android.hardware.Camera$CameraInfo")	Dim numberOfCameras As Int = r.RunStaticMethod("android.hardware.Camera", "getNumberOfCameras", Null, Null)	For i = 0 To numberOfCameras - 1		r.RunStaticMethod("android.hardware.Camera", "getCameraInfo", Array As Object(i, cameraInfo), _			Array As String("java.lang.int", "android.hardware.Camera$CameraInfo"))		r.target = cameraInfo		If r.GetField("facing") = cameraValue Then 			ci.cameraInfo = r.target			ci.Id = i			Return ci		End If	Next	ci.id = -1	Return ciEnd Sub
Private Sub SetDisplayOrientation	r.target = r.GetActivity	r.target = r.RunMethod("getWindowManager")	r.target = r.RunMethod("getDefaultDisplay")	r.target = r.RunMethod("getRotation")	Dim previewResult, result, degrees As Int = r.target * 90	Dim ci As CameraInfoAndId = FindCamera(Front)	r.target = ci.CameraInfo	Dim orientation As Int = r.GetField("orientation")	If Front Then		previewResult = (orientation + degrees) Mod 360		result = previewResult		previewResult = (360 - previewResult) Mod 360	Else		previewResult = (orientation - degrees + 360) Mod 360		result = previewResult		Log(previewResult)	End If	r.target = nativeCam	r.RunMethod2("setDisplayOrientation", previewResult, "java.lang.int")	r.target = parameters	r.RunMethod2("setRotation", result, "java.lang.int")	CommitParametersEnd Sub
Private Sub Camera_Ready (Success As Boolean)	If Success Then		r.target = cam		nativeCam = r.GetField("camera")		r.target = nativeCam		parameters = r.RunMethod("getParameters")		SetDisplayOrientation	End If	CallSub2(target, event & "_ready", Success)End Sub
Sub Camera_Preview (Data() As Byte)	If SubExists(target, event & "_preview") Then		CallSub2(target, event & "_preview", Data)	End IfEnd SubPublic Sub TakePicture	cam.TakePictureEnd Sub
Private Sub Camera_PictureTaken (Data() As Byte)	CallSub2(target, event & "_PictureTaken", Data)End Sub
Public Sub StartPreview	cam.StartPreviewEnd Sub
Public Sub StopPreview	cam.StopPreviewEnd Sub
Public Sub Release	cam.ReleaseEnd Sub
'Saves the data received from PictureTaken eventPublic Sub SavePictureToFile(Data() As Byte, Dir As String, FileName As String)	Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)	out.WriteBytes(Data, 0, Data.Length)	out.CloseEnd Sub
Public Sub SetParameter(Key As String, Value As String)	r.target = parameters	r.RunMethod3("set", Key, "java.lang.String", Value, "java.lang.String")End Sub
Public Sub GetParameter(Key As String) As String	r.target = parameters	Return r.RunMethod2("get", Key, "java.lang.String")End Sub
Public Sub CommitParameters	Try		r.target = nativeCam		r.RunMethod4("setParameters", Array As Object(parameters), Array As String("android.hardware.Camera$Parameters"))	Catch		ToastMessageShow("Error setting parameters.", True)		Log(LastException)	End TryEnd Sub
Public Sub GetColorEffect As String	Return GetParameter("effect")End Sub
Public Sub SetColorEffect(Effect As String)	SetParameter("effect", Effect)End Sub
Public Sub GetSupportedPicturesSizes As CameraSize()	r.target = parameters	Dim list1 As List = r.RunMethod("getSupportedPictureSizes")	Dim cs(list1.Size) As CameraSize	For i = 0 To list1.Size - 1		r.target = list1.Get(i)		cs(i).Width = r.GetField("width")		cs(i).Height = r.GetField("height")	Next	Return csEnd Sub
Public Sub SetPictureSize(Width As Int, Height As Int)	r.target = parameters	r.RunMethod3("setPictureSize", Width, "java.lang.int", Height, "java.lang.int")End Sub
Public Sub SetJpegQuality(Quality As Int)	r.target = parameters	r.RunMethod2("setJpegQuality", Quality, "java.lang.int")End Sub
Public Sub SetFlashMode(Mode As String)	r.target = parameters	r.RunMethod2("setFlashMode", Mode, "java.lang.String")End Sub
Public Sub GetFlashMode As String	r.target = parameters	Return r.RunMethod("getFlashMode")End Sub
Public Sub GetSupportedFlashModes As List	r.target = parameters	Return r.RunMethod("getSupportedFlashModes")End Sub
Public Sub GetSupportedColorEffects As List	r.target = parameters	Return r.RunMethod("getSupportedColorEffects")End Sub
Public Sub GetPictureSize As CameraSize	r.target = parameters	r.target = r.RunMethod("getPictureSize")	Dim cs As CameraSize	cs.Width = r.GetField("width")	cs.Height = r.GetField("height")	Return csEnd Sub
'Converts a preview image formatted in YUV format to JPEG.'Note that you should not save every preview image as it will slow down the whole process.Sub PreviewImageToJpeg(data() As Byte, quality As Int) As Byte()	Dim size, previewFormat As Object	r.target = parameters	size = r.RunMethod("getPreviewSize")	previewFormat = r.RunMethod("getPreviewFormat")	r.target = size	Dim width = r.GetField("width"), height = r.GetField("height") As Int	Dim yuvImage As Object = r.CreateObject2("android.graphics.YuvImage", _		Array As Object(data, previewFormat, width, height, Null), _		Array As String("[b", "java.lang.int", "java.lang.int", "java.lang.int", "[i"))	r.target = yuvImage	Dim rect1 As Rect	rect1.Initialize(0, 0, r.RunMethod("getWidth"), r.RunMethod("getHeight"))	Dim out As OutputStream	out.InitializeToBytesArray(100)	r.RunMethod4("compressToJpeg", Array As Object(rect1, quality, out), _		Array As String("android.graphics.Rect", "java.lang.int", "java.io.OutputStream")) 	Return out.ToBytesArrayEnd Sub

[mohammade79 127]

ای بابا جمع کنید با این نونه کد دادنتون(خخخخخخخخخخ الکی مثلا من شاکی ام)

چی جوری سورس اپبود کنم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[shahab1392 47]

بفرما عزیز اینم سورس دوربین

شاید بتونی از اون استفاده کنی

CameraEx.rar