عکس گرفتن با دوربین گوشی

[آرمین رمضانی 381]

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

 

دانلود سورس

پسورد فایل : basic4android.org

[biglost 10]

به نام خدا

اینم سورس عکس گرفتن با گوشی

پسورد فایل : basic4android.org

سلام اگه بخوایم هر عکسی رو که میگیره با یک اسم متفاوت ذخیره کنه باید چیکار کنیم ؟

این برنامه تمام عکس هایی که میگیریم رو به یک نام ذخیره میکنه و در نتیجه فقط یک عکس نشون داده میشه *hoho*

مثلا عکس اول :1.jpg

عکس دوم : 2.jpg

و...

تشکر *tashvigh*

[biglost 10]

کسی نیست مشکل ما تازه واردها رو حل کنه :|

[مجید آرتا 5,870]

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

Dim GetRandomNum As Int=Rnd(10000,99999)

[shahab1392 47]

کسی نیست مشکل ما تازه واردها رو حل کنه :|

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

Sub Camera1_PictureTaken (Data() As Byte)
   camera1.StartPreview
       Dim random As Int
   random= Rnd(0,99999)
   File.MakeDir(File.DirRootExternal,"Ph/pic")
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal,"Ph/pic" & random & ".jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
   ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, ".jpg"), True)
   btnTakePicture.Enabled = True
End Sub

[esmaeil76 135]

اگه میشه راهنمایی کنید تا با دوربین جلو کار کنه.ممنون از زحمات شما

[shahab1392 47]

با سلام خدمت دوستان گرامی

دوستان من میخوام بدونم چطور برای ذخیره عکس بارندوم ولی بصورتی که نام ذخیره شده با تاریخ و ساعت همراه باشه

مثلا 20140503-2030 باشه

نمیخوام از رندوم شماره استفاده کنم

454633676

یه راهنمایی کنید

[مجید آرتا 5,870]

رندوم تاریخ و ساعت؟

خب اگه قصد رندوم کردن تاریخ و ساعتو دارید خب بازم میشه مثاله بالا*مکار*

اگه میخوایید کنار اسم تاریخم زده بشه من کد بالا رو واست تغییر دادم:

Sub Camera1_PictureTaken (Data() As Byte)    
camera1.StartPreview
       Dim random As Int
   random= Rnd(0,99999)
    Dim Spliter() As String
   Spliter = Regex.Split("/", DateTime.Date(DateTime.Now))
   File.MakeDir(File.DirRootExternal,"Ph/pic")
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal,"Ph/pic" & random &"_"&Spliter(0)&Spliter(1)&Spliter(2)&".jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
   ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, ".jpg"), True)
   btnTakePicture.Enabled = True
End Sub

[مهدی ایزدی 9,201]

در کل به نظر من نیازی به رندم نداره اصلا. شما که نمیتونید توی یک ثانیه دو تا عکس بگیرید. اون تاریخ و زمان دقیق رو برای نام ذخیره شده استفاده کنید *همینه*

××××××××××××××××××××××××××

حرف های استاد آرتا رو گوش کنید به سعادت برنامه نویسی خواهید رسید *مکار*

[shahab1392 47]

رندوم تاریخ و ساعت؟

خب اگه قصد رندوم کردن تاریخ و ساعتو دارید خب بازم میشه مثاله بالا*مکار*

اگه میخوایید کنار اسم تاریخم زده بشه من کد بالا رو واست تغییر دادم:

Sub Camera1_PictureTaken (Data() As Byte)    
camera1.StartPreview
       Dim random As Int
   random= Rnd(0,99999)
    Dim Spliter() As String
   Spliter = Regex.Split("/", DateTime.Date(DateTime.Now))
   File.MakeDir(File.DirRootExternal,"Ph/pic")
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal,"Ph/pic" & random &"_"&Spliter(0)&Spliter(1)&Spliter(2)&".jpg", False)
   out.WriteBytes(Data, 0, Data.Length)
   out.Close
   ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, ".jpg"), True)
   btnTakePicture.Enabled = True
End Sub

ممنون عزیز

ولی واسه ساعت چطوره ... که دقیقا ساعت و دقیقه و ثانیه رو بزنه ؟

[مجید آرتا 5,870]

کافیه این کد رو بنویسید و باز هم جدا کنید:

Dim TimeSpliter() As String
TimeSpliter = Regex.Split(":",DateTime.Time(DateTime.Now))

[baset 10]

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

[milad19 113]

سلام

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

[1234 51]

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

ممنون می شم*herher*

[Alireza.Ghafari 2,104]

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

ممنون می شم*herher*

درود از این روش استفاده فرمایید

Sub img_profile_Click
   Dim cc As ContentChooser
   cc.Initialize("Imagechooser")
    cc.Show("image/*","انتخاب تصویر")    
End Sub 

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

Sub Imagechooser_Result(Success As Boolean, Dir As String, FileName As String)
رویداد بعد از انتخاب تصویر ...
End sub 

[arm 1]

سلام 

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

[elysium1368 19]

به نام خدا اینم سورس عکس گرفتن با گوشی  Camera.rar   339.18K   1532 تعداد دریافت ها

سلام. یا من اشتباه میکنم یا این سورس مربوط به نمودارهاست؟؟!! 

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

سلام. یا من اشتباه میکنم یا این سورس مربوط به نمودارهاست؟؟!! 

سلام.

 این سورس عکس گرفتن با دوربین گوشی با کتابخانه Camera هستش.

لینک پست اول ویرایش شد ، فکر کنم مشکل داشت.

[hamid12 1]

سلام

چطوری کیفیت عکس رو بالا ببریم

عکس گرفته شده اصلا کیفیت نداره

[hamid12 1]

به نظرم اگه از  کتابخونهEZCAMERA  استفاده کنی بهتره اگه عکس با کیفیت میخوای 

 دوربین خود گوشی رو صدا میزند 

اما من باهاش یه مشکل دارم و اینه که تو بعضی از گوشی ها  کار نمیده

سورسش  رو تو گوگل اگه سرچ کنی  راحت پیدا میشه

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

ag_hamid@yahoo.com