تقنية المعلومات لاجلك - برنامج خوارزمية الجار الاقرب VB.Net,C#.Net

تم نشر الموضوع من قبل :-

صدام حسين العواضي

برنامج خوارزمية الجار الاقرب VB.Net,C#.Net

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

إنقر هنا

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

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

سنفوم بطبيق البرنامج على المثال التالي

بتطبيق القيم الاساسية على الثلاث القيم الموجودة بالجدول الظاهر امامك باستخدام قانون الجار الاقرب

سيظهر لنا ناتج القيم الثلاث

أصغر قيمة تعتبر الحار الاقرب

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

بالشكل التالي قم بإدخال القيم الاساسية والقيم المراد تطبيق القانون عليها

سيقوم البرنامج بإيجاد الجار الاقرب

الان نذهب الى الكود

قمت بإستدعاء مكتبة Math

وتعريف متغيرات كما بالشكل التالي

Imports System.Math

'تعريف متغير لطباعة ناتج الخوارزمية

    Dim Resualt As Double

    'تعريف مصفوفة لطباعة ناتج الطرح
    Dim ResultMainas(3) As Double

    'تعريف مصفوفة لطباعة ناتج الاس
    Dim PowA(3) As Double

بعد ذلك إنشاء دالة تقوم بتطبيق القانون

بعد ذلك في كل من الاربعة البوتنات التالية

قم بكتابة الاكواد التالية ليقوم بإستدعاء الدالة وتنفيذها على القيم

Private Sub BtnSumation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSumation.Click
        Try
            'دالة A
            ResultKNN(Val(A1.Text.Trim), Val(A2.Text.Trim), Val(A3.Text.Trim), Val(A4.Text.Trim))
            Sum1.Text = Resualt
        Catch ex As Exception
            MessageBox.Show("يرجى تعبئة جميع القيم أو أنك قمت بإدخال قيم غير صحيحة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

2
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            'دالة B
            ResultKNN(Val(B1.Text.Trim), Val(B2.Text.Trim), Val(B3.Text.Trim), Val(B4.Text.Trim))
            Sum2.Text = Resualt

        Catch ex As Exception
            MessageBox.Show("يرجى تعبئة جميع القيم أو أنك قمت بإدخال قيم غير صحيحة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

3
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            'دالة C
            ResultKNN(Val(C1.Text.Trim), Val(C2.Text.Trim), Val(C3.Text.Trim), Val(C4.Text.Trim))
            Sum3.Text = Resualt

        Catch ex As Exception
            MessageBox.Show("يرجى تعبئة جميع القيم أو أنك قمت بإدخال قيم غير صحيحة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

4
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            'دالة A
            ResultKNN(Val(D1.Text.Trim), Val(D2.Text.Trim), Val(D3.Text.Trim), Val(D4.Text.Trim))
            Sum4.Text = Resualt

        Catch ex As Exception
            MessageBox.Show("يرجى تعبئة جميع القيم أو أنك قمت بإدخال قيم غير صحيحة", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

بعد ذلك كود دالة ترتيب الناتج ترتيب من الاصغر الى الاكبر

اخر شي كود عمل رست

وهذة صورة للمثال بلغة C#