ITFY-Edu
  • *
  • *
  • دخول
  • نسيت كلمة السر؟
  • تسجيل
  • الرئيسية
  • اتصل بنا
  • من نحن
  • طلب مشروع
  • منتجاتنا
  • الموقع الرسمي
  • آخر أعمالنا
  • دخول
تم نشر الموضوع من قبل :-
صدام حسين العواضي
برنامج الكيمرة بلغة VB.NET , C#.Net

 

لتحميل المثال 

إنقر هنا 

 

بسم الله الرحمن الرحيم 

برنامج فتح الكيمرات المتصلة بالجهاز واخذ لقطة 

كما بالصورة التالية 

قم بإضافة 

1 - pictureBox

1 - comboBox

4 - Button

 

 

الان نذهب الى كود البرنامج 

(قم بإضافة مكاتب الكيمرة (سأضعها مع البرنامج في التحميل 

من قائمة Project ثم Add reference ثم Browse ثم إضافة 

كما بالشكل التالي 

 

 

بعد بعد ذلك ضيف  namespace التالي

مكاتب الكيمره
using AForge.Video;
using AForge.Video.DirectShow;
 
مكاتب حفظ الصورة
using System.Runtime.InteropServices;
using System.Drawing.Imaging;

 

قم بإستخدام اداتين من مكاتب الكيمره واستدعاء المكاتب التي قمنا بإضافتهن من Add reference 

private FilterInfoCollection videoCaptureDevices;
        private VideoCaptureDevice FinalVideo;
 
        [DllImport("user32.dll")]
        private static extern IntPtr GetSystemMenu(IntPtr HWNDValue, bool isRevert);
 
        [DllImport("user32.dll")]
        private static extern int EnableMenuItem(IntPtr tMenu, int targetItem, int targetStatus);

 

 

في حدث Lodo الخاص بالفورم قم بإضافة هذا الكود 

دوارة تقوم بالتشييك على الكيمرات المتصلة بالجهاز واضافتهن الى أداة ComboBox

private void frmCamera_Load(object sender, EventArgs e)
        {
            videoCaptureDevices = new FilterInfoCollection(FilterCategory.VideoInputDevice);
            foreach (FilterInfo videoCaptureDevice in videoCaptureDevices)
            {
                comboBox1.Items.Add(videoCaptureDevice.Name);
 
            }
            comboBox1.SelectedIndex = 0;
 
            // Close Button Code in API
            int CloseButton_Code = 0xF060;
 
            // get the IntPtr of the form
            IntPtr ptr = GetSystemMenu(this.Handle, false);
 
            // Pass the Ptr and Disable the button 
            EnableMenuItem(ptr, CloseButton_Code, 1);
        }

 

 

الان في زر تشغيل الكيمره قم يإضافة هذا الكود الذي يقوم بتشغيل الكيمره 

private void button1_Click(object sender, EventArgs e)
        {
            FinalVideo = new VideoCaptureDevice(videoCaptureDevices[comboBox1.SelectedIndex].MonikerString);
            FinalVideo.NewFrame += new NewFrameEventHandler(FinalVideo_NewFrame);
            FinalVideo.Start();
        }
 
 
دالة تقوم بتشغيل الكيمره في اداة pictureBox1
        void FinalVideo_NewFrame(object sender, NewFrameEventArgs eventArgs)
        {
            Bitmap Video = (Bitmap)eventArgs.Frame.Clone();
            pictureBox1.Image = Video;
        }

 

 

في زر اخذ لقطة قم بإضافة هذا الكود 

يقوم بإيقاف الكيمره بلقطة معينة لكي نستطيع حفظها 

private void button3_Click(object sender, EventArgs e)
        {
            try
            {
                if (FinalVideo.IsRunning)
                {
                    FinalVideo.Stop();
                }
            }
            catch
            {
                return;
            }
        }

 

 

في زر الحفظ قم بإضافة هذا الكود 

اداة SaveFileDialog تقوم بإظهار نافذه لتحدبد مسار الحفظ 

ثم إظهار رسالة بانه تم الحفظ 

private void button5_Click(object sender, EventArgs e)
        {
            SaveFileDialog sfd = new SaveFileDialog();
            sfd.Filter = "Images|*.png;*.bmp;*.jpg";
            ImageFormat format = ImageFormat.Png;
            if (sfd.ShowDialog() == System.Windows.Forms.DialogResult.OK)
            {
                string ext = System.IO.Path.GetExtension(sfd.FileName);
                switch (ext)
                {
                    case ".jpg":
                        format = ImageFormat.Jpeg;
                        break;
                    case ".bmp":
                        format = ImageFormat.Bmp;
                        break;
                }
                pictureBox1.Image.Save(sfd.FileName, format);
            }
 
            MessageBox.Show("تم حفظ الصورة بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information);
        }

 

 

في زر الخروج قم بإضافة هذا الكود 

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

private void button2_Click(object sender, EventArgs e)
        {
 
            this.Close();
            try
            {
                if (FinalVideo.IsRunning)
                {
                    FinalVideo.Stop();
                }
                this.Close();
            }
            catch
            {
                return;
            }
        }

 

 

هذه صورة للبرنامج بلغة VB.Net 

 

 

لمشاهدة الشرح فيديو 

 

 

لتحميل المثال 

إنقر هنا 

 

شكراً لزيارتكم موقعنا 

www.ITFY-Edu.com 

 

 
              
 

-: إخترنا لك

..... برنامج الكيمرة بلغة VB.NET , C

..... برنامج التشفير وفك التشفير بلغ

..... برنامج إرسال إيميل ومرفقات بلغ

..... برنامج تشفير وفك تشفير الملفات

..... برنامج خوارزمية الجار الاقرب V

يقترح لك النظام مشاهدة أيضاً
..... برنامج الكيمرة بلغة VB.NET , C
..... برنامج التشفير وفك التشفير بلغ
..... برنامج إرسال إيميل ومرفقات بلغ
..... برنامج تشفير وفك تشفير الملفات
..... برنامج خوارزمية الجار الاقرب V
 
تعليقات الاعضاء :-
*
يجب تسجيل الدخول أولاً للتمكن من الرد على الموضوع دخول تسجيل
تغيير الاستايل :-

طريق الاتصال بتقنية المعلومات لاجلك

  • www.ITFY-Edu.com:الويب
  • [email protected]:بريد الكتروني
  • الموقع : اليمن , صنعاء
  • +واتساب : 967771106838
  • إرسل لنا نموذج

منتديات تقنية المعلومات لاجلك

  • قسم أعمال الموقع
  • مشاريع تخرج VB.Net,#C,Asp.Net
  • قسم منتديات VB.Net
  • قسم منتديات C#.Net
  • قسم منتديات Asp.Net
  • قسم منتديات SqlServer

تعرف على تقنية المعلومات لاجلك

  • الصفحة الرئيسية للمنتدي
  • صفحة الموقع الرسمي
  • آخر أعمال الموقع
  • صفحة من نحن
  • خريطة الموقع

© Copyright www.ITFY-Edu.net 2018 All rights reserved