الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن شرح لهذه الشفره؟؟؟

بدأه techinque في 7 يوليو 2009 · 1 رد · 933 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

Protected devices() As WebCamLib.Device

Protected flag As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If flag = False Then

flag = True

devices = WebCamLib.DeviceManager.GetAllDevices()

devices(0).ShowWindow(Me.PictureBox1)

Button1.Text = "إيقاف"

Else

flag = False

devices(0).Stop()

Button1.Text = "تشغيل"

End If

End Sub

تستخدم لتشغيل الكاميرا

لكن اريد فهم ولو شرح مبسط عن عمل المكتبات

Protected devices() As WebCamLib.Device

devices = WebCamLib.DeviceManager.GetAllDevices()

devices(0).ShowWindow(Me.PictureBox1)

حيث انني اريد استخدامها لتشغيل كاميرا لاسلكيه لكن هذه الشفره لم تشغل لي سوا كاميره الاب توب ؟؟؟

#2

السلام عليكم

كما قلت هذه الشيفرة تقوم بتشغيل webcam

وذلك باستخدام كبسة واحدة للتشغيل والايقاف

ولكنني اعتقد انها تشغل الكاميرا وتأخد صورة واحدة وتتوقف

devices = WebCamLib.DeviceManager.GetAllDevices()

تستخدم للتعرف على كل الكاميرات المرتبطة بالكمبيوتر

devices(0).ShowWindow(Me.PictureBox1)

تقوم بعرض الصورة التابعة لل devices(0) في PictureBox1

devices(0).Stop()

تقوم بتوقيف الكاميرا

Protected devices() As WebCamLib.Device

تعريف devices() من نوع WebCamLib.Device

devices = WebCamLib.DeviceManager.GetAllDevices()

نقل جميع تعاريف الكاميرات ووضعهم في devices

devices(0).ShowWindow(Me.PictureBox1)

كما ذكرت لعرض صورة واحدة داخل PictureBox1

ان هذا الكود لا ينفع الا للwebcam فقط وليس لل wireless camera or ip camera او اي نوع آخر

ولذلك لم يعمل لديك

هذا ما اعلمه ولكن يرجى الملاحظة انني غير متأكد لانك لم تضع البرنامج كاملا

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…