رفتن به مطلب

ارسال های توصیه شده

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

 

دانلود سورس

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 3 ماه بعد...
به نام خدا

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

attachment.php?attachmentid=200&stc=1

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

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

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

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

عکس دوم : 2.jpg

و...

تشکر *tashvigh*

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

Dim GetRandomNum As Int=Rnd(10000,99999)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 1 ماه بعد...
  • 2 هفته بعد...

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

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

مثلا 20140503-2030 باشه

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

454633676

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

ممنون عزیز

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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


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


لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 ماه بعد...
  • 1 ماه بعد...
اگه ممکنه سورس انتخاب عکس از گالری هم بزارینم

ممنون می شم*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 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

سلام.

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 8 ماه بعد...
  • 5 ماه بعد...

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

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

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

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

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

ag_hamid@yahoo.com 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...