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

 

 

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

إنقر هنا 

 

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

برنامج خوارزمية التنقيب في النصوص

 

بإستخدام قوانين التنقيب سنجد نسبة التشابهة

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

 

 

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

ادخال القيم وايجاد الناتج ومعرفة نسبة التشابهه 

كما بالمثال التالي 

 

 

سنذهب الان الى شفرة البرنامج

تعريف 3 متغيرات 




// الناتج الكلي



        double Result;



        



        //ناتج القسمة



        double[] sumqV1 = new double[5];



        



        //ناتج الجذر



        public static double sumSqert;




 



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







private void ResultVector(double Valu1, double Valu2, double Valu3, double Valu4, double Valu5)



        {



            sumSqert = Math.Sqrt(Math.Pow(Valu1, 2) + Math.Pow(Valu2, 2) + Math.Pow(Valu3, 2) + Math.Pow(Valu4, 2) + Math.Pow(Valu5, 2));



 



            sumqV1[0] = Valu1 / sumSqert;



            sumqV1[1] = Valu2 / sumSqert;



            sumqV1[2] = Valu3 / sumSqert;



            sumqV1[3] = Valu4 / sumSqert;



            sumqV1[4] = Valu5 / sumSqert;



 



 



            Result = Math.Round(sumSqert, 3);



        }





 



 



دالة إيجاد الناتج الكلي تقوم بضرب وجمع القيم 







double w = 0;



        private void ResultFinal()



        {



            



            try



            {



                w = Convert.ToDouble(listboxV1.Items[0]) * Convert.ToDouble(listboxV2.Items[0]) * Convert.ToDouble(listboxV3.Items[0]) + Convert.ToDouble(listboxV1.Items[1]) * Convert.ToDouble(listboxV2.Items[1]) * Convert.ToDouble(listboxV3.Items[1]) + Convert.ToDouble(listboxV1.Items[2]) * Convert.ToDouble(listboxV2.Items[2]) * Convert.ToDouble(listboxV3.Items[2]) + Convert.ToDouble(listboxV1.Items[3]) * Convert.ToDouble(listboxV2.Items[3]) * Convert.ToDouble(listboxV3.Items[3]) + Convert.ToDouble(listboxV1.Items[4]) * Convert.ToDouble(listboxV2.Items[4]) * Convert.ToDouble(listboxV3.Items[4]);



                Resultsss.Text = Math.Round(w, 3).ToString();



            }



            catch (Exception ex)



            {



                MessageBox.Show("قم بإدخال القيم أو تأكد من نوع البيانات المدخلة");



            }



 



        }





 



 



دالة لعرض القيم في Listbox 







private void ForEach(ListBox w)



        {



 



            foreach(double str in sumqV1)



            {



                //MsgBox(str)



                w.Items.Add(str);



            }



 



        }





 



 



شفرة الثلاثة البوتنات الاولى



استدعاء دالة ناتج الفيكتور وارسال القيم الموجودة في Textbox 



ثم استدعاء دالة التي تقوم بعرض البيانات في ListBox  



وتطبيقها على الثلاثة البوتنات الاولى 







1



private void Button1_Click(object sender, EventArgs e)



        {



            try



            {



                listboxV1.Items.Clear();



                ResultVector(Convert.ToDouble(V1.Text), Convert.ToDouble(V2.Text), Convert.ToDouble(V3.Text), Convert.ToDouble(V4.Text), Convert.ToDouble(V5.Text));



                ResultV1.Text = Result.ToString();



                ForEach(listboxV1);



 



            }



            catch (Exception ex)



            {



                MessageBox.Show("قم بإدخال القيم أو تأكد من نوع البيانات المدخلة");



            }



        }



 



 



2



        private void Button3_Click(object sender, EventArgs e)



        {



            try



            {



                listboxV2.Items.Clear();



                ResultVector(Convert.ToDouble(VV1.Text), Convert.ToDouble(VV2.Text), Convert.ToDouble(VV3.Text), Convert.ToDouble(VV4.Text), Convert.ToDouble(VV5.Text));



                ResultV2.Text = Result.ToString();



                ForEach(listboxV2);



            }



            catch (Exception ex)



            {



                MessageBox.Show("قم بإدخال القيم أو تأكد من نوع البيانات المدخلة");



            }



        }



 



 



3



        private void Button4_Click(object sender, EventArgs e)



        {



            try



            {



                listboxV3.Items.Clear();



                ResultVector(Convert.ToDouble(VVV1.Text), Convert.ToDouble(VVV2.Text), Convert.ToDouble(VVV3.Text), Convert.ToDouble(VVV4.Text), Convert.ToDouble(VVV5.Text));



 



                ResultV3.Text = Result.ToString();



                ForEach(listboxV3);



            }



            catch (Exception ex)



            {



                MessageBox.Show("قم بإدخال القيم أو تأكد من نوع البيانات المدخلة");



            }



        }





 



 



البوتن الرابع 



إستدعاء الدالة التي تقوم بضرب وجمع القيم 







private void Button2_Click(object sender, EventArgs e)



        {



            ResultFinal();



        }





 



 



البوتن الخامس الناتج النهائي 



القيمة النهائية - 1 







private void Button5_Click(object sender, EventArgs e)



        {



            Equal.Text = " 1 -";



 



           Label2.Text = Convert.ToString( 1 - Math.Round( w,3));



        }





 



 



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







 



 



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



 







 



 



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



إنقر هنا 



 



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



www.ITFY-Edu.com 



 



 











     
      
 























 		



























-: إخترنا لك












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














 



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


















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


















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


















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























يقترح لك النظام مشاهدة أيضاً










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








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








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








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








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













 		















تعليقات الاعضاء :- 





*



























يجب تسجيل الدخول أولاً للتمكن من الرد على الموضوع

 دخول 
 تسجيل 












 
























تغيير الاستايل :- 










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


    

  • 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