تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشغيل الكاميرا والتقاط الصوره في picturebox
#21
إقتباس :اتمنى تحاول معي حتى نصل للمطلوب ان شاء الله
ليه تتمنى اخي الكريمSad
احنا نساعد بعض قل "أرجو"
انت لا تضيف شيء ابد فقط  اضف الفورم من المثال الى مشروعك بعد ان تضيف ملف Directshow.dll  الى الـ REference في مشروعك ثم اعرف اسم الـ Namespace الذي كتبه في اعلى الفورم وعند التعامل مع هذا الفورم قم باستدعائه اولا قبل استدعاء الفورم
مثلا 
كود :
Namespace MyCam
mycam هذا اسم المشروع الخاص بي او قل اسم الـ Namespace للمشروع وعند تشغيل الفورم من فورم رئيسي اكتب بزر الامر
كود :
MyCam.Form2.Show()


كود :
       If CheckBox1.Checked Then
           Timer1.Start()
       End If

       MyCam.Form2.Show()

وروتين سحب صور متعددة هو هذا
كود :
Function GetScreenShoot(ByVal drawCursor As Boolean) As Image
       Dim bounds As Rectangle = Nothing
       Dim screenshot As System.Drawing.Bitmap = Nothing
       Dim g As Graphics = Nothing

       bounds = MyCam.Form2.Bounds 'Screen.PrimaryScreen.Bounds
       'screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
       screenshot = New System.Drawing.Bitmap(bounds.Width, My.Computer.Screen.WorkingArea.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)



       g = Graphics.FromImage(screenshot)
       g.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
       If DrawCursor Then
           Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))
       End If
       '***********************
       Dim pic As New PictureBox
       pic.Image = screenshot
       pic.SizeMode = PictureBoxSizeMode.StretchImage
       pic.Image.Save(TextBox1.Text & "p" & m2 & ".jpg")

       '*********************
       m2 += 1

       Return screenshot
   End Function
وفي التايمر
كود :
GetScreenShoot(False)
وهذا كود تخزين مسار الصور لحفظها
كود :
Dim fbd As New FolderBrowserDialog
       If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = fbd.SelectedPath
           If TextBox1.Text.EndsWith("\") = False Then
               TextBox1.Text = TextBox1.Text.Insert(TextBox1.TextLength, "\")
           End If
       End If
لو تحب ارفع اللي عندي خبرني

الرد }}}
تم الشكر بواسطة:
#22
تسلم ايدك
ارجو رفعه ان امكن حتى تضح الفكره كامله

بوركت اخي سعود
الرد }}}
تم الشكر بواسطة:
#23
المشروع مرفق وهو بـ vs2013
ويمكنك تشغيله بالطريقة المعروفة
https://www.youtube.com/watch?v=HI36kZbbNUc


الملفات المرفقة
.zip   MyCam.zip (الحجم : 159.36 ك ب / التحميلات : 413)
الرد }}}
تم الشكر بواسطة: Dr.Sherif Alazizi , alshandodi
#24
الله يعطيك العافيه اخي سعود

سلمت يمينك
الرد }}}
تم الشكر بواسطة:
#25
الاستاذ الفاضل سعود
كيف اجعل الكاميرا
1- تلتقط صورة واحدة فقط عند الضغط علي الزر
2-تشتغل فيديو
شكرا
الرد }}}
تم الشكر بواسطة:
#26
(13-02-15, 04:12 PM)atefkhalf2004 كتب : الاستاذ الفاضل سعود
كيف اجعل الكاميرا
1- تلتقط صورة واحدة فقط  عند الضغط  علي الزر
2-تشتغل فيديو
شكرا

اخي الكريم انت تعرف المؤقت صح او لا؟
يعني الكود اللي بالمؤقت قم بنسخه الى زر وبسSmile
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي
#27
السادة الافاضل :كيف اتحقق من توصيل الكاميرا ؟
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد }}}
تم الشكر بواسطة:
#28
السلام عليكم و رحمة الله و بركاته
الأخت الكريمة ..
شوفي قسم الأمثلة و المشاريع ستجدين مشروع .. أظن محتواه يدور حول صالونات الأفراح .. بإحدى محتوياته فورم خاص للتحقق من وجود الكاميرا و أخذ صورة بواسطتها
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 673 14-12-23, 12:07 PM
آخر رد: asmarsou
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 239 27-10-23, 04:05 PM
آخر رد: AhmedEissa
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  استفسار عن تشغيل قاعدة البيانات بالبرنامج عند العميل محمد ابوخليل 1 335 10-09-23, 07:09 PM
آخر رد: Asem2
  مساعده في تشغيل اكثرمن فورم في وقت واحد maherhaddaf 5 527 19-07-23, 03:28 PM
آخر رد: Taha Okla
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 510 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
Photo كيفيةة تشغيل المشروع ك ادمن administrator atefkhalf2004 5 593 12-04-23, 12:41 PM
آخر رد: atefkhalf2004
Photo كيفيةة تشغيل المشروع ك ادمن administrator 0 123 11-04-23, 03:31 AM
آخر رد: atefkhalf2004

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم