منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تشغيل الكاميرا والتقاط الصوره في picturebox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تشغيل الكاميرا والتقاط الصوره في picturebox (/showthread.php?tid=11348)

الصفحات: 1 2 3

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - سعود - 13-02-15

إقتباس :اتمنى تحاول معي حتى نصل للمطلوب ان شاء الله
ليه تتمنى اخي الكريم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
لو تحب ارفع اللي عندي خبرني


RE: تشغيل الكاميرا والتقاط الصوره في picturebox - Dr.Sherif Alazizi - 13-02-15

تسلم ايدك
ارجو رفعه ان امكن حتى تضح الفكره كامله

بوركت اخي سعود

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - سعود - 13-02-15

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

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - Dr.Sherif Alazizi - 13-02-15

الله يعطيك العافيه اخي سعود

سلمت يمينك

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - atefkhalf2004 - 13-02-15

الاستاذ الفاضل سعود
كيف اجعل الكاميرا
1- تلتقط صورة واحدة فقط عند الضغط علي الزر
2-تشتغل فيديو
شكرا

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - سعود - 13-02-15

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

اخي الكريم انت تعرف المؤقت صح او لا؟
يعني الكود اللي بالمؤقت قم بنسخه الى زر وبسSmile

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - samira20 - 12-12-19

السادة الافاضل :كيف اتحقق من توصيل الكاميرا ؟

RE: تشغيل الكاميرا والتقاط الصوره في picturebox - عبد العزيز البسكري - 13-12-19

السلام عليكم و رحمة الله و بركاته
الأخت الكريمة ..
شوفي قسم الأمثلة و المشاريع ستجدين مشروع .. أظن محتواه يدور حول صالونات الأفراح .. بإحدى محتوياته فورم خاص للتحقق من وجود الكاميرا و أخذ صورة بواسطتها
تحياتي