دوربین و فلش

[moh3n 16]

سلام

میشه بگید کجای این کد اشتباهه ؟

Sub GlobalsDim cam As Camera
Dim flash As AdvancedCamera
Dim btnTakePicture As Button
Dim Panel1 As Panel
Private Panel2 As Panel
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
cam.Initialize(Panel1,"cam")
cam.Release
flash.Initialize(Panel2, "flash")
flash.Release
Panel2.Visible=False
End Sub


Sub btnTakePicture_Click
cam.StartPreview
flash.FlashOn
End Sub

[نیما قبادی 246]

کدتون اشتباه هست

[نیما قبادی 246]

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

CameraExample.zip

[moh3n 16]

آقا دستت درد نکنه

فقط وقتی من روشن شدن فلش گوشیو به کدی که دادی اضافه میکنم برنامه ارور میده. چیکار باید بکنم ؟

[نیما قبادی 246]

فکر کنم کدتون اشتباه من الان که دارم تایپ میکنم با عجله هستش چون دارم میرم بیرون (تفریح *چشمک*) وگرنه خیلی دوست داشتم بتونم مشکلتونو حل کنم ....زود برگشتم که چشم پی گیر میشم *چشمک*

[moh3n 16]

*ناز2**ناز2**ناز2**ناز2**ناز2**ناز2*

[hossein92 74]

ی نگاه به این سورس ینداز

برای خودانجمنه

Flashlight+Source.rar