[العيدروس]

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

[Zuhare]

PHP كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = Val(ComboBox1.Text) * 100
        ComboBox2_SelectedIndexChanged(Nothing, Nothing)
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        TextBox2.Text = Val(ComboBox1.Text * 10) & "." & Strings.StrDup(2, Val(ComboBox2.Text).ToString)
    End Sub 


[العيدروس]

شكرا جزيلا أخ Zuhare دائما سباق للخيرات بارك الله فيك
هي صحيح العمليات و الحسابات تطلع صحيحة لكن بالواقع لا يمكن الاعتماد على الضرب في عشرة أو في مئة أو في ألف
لأن الأرقام عبارة عن أرقام طبيعية و يمكن لها أن تتغير بيوم من الايام 
و انا وضعت الارقام 10.11 و 10.22 و 10.33 و 50.33 إلخ .. فقط لتسهيل التوضيح و تبسيط السؤال 
بارك الله فيك في كل الأحوال أخي Zuhare

[princelovelorn]

السلام عليكم ورحمة الله وبركاته

أخي العيدروس
ما فهمته من رد حضرتك الثاني 
انك تريد ربط الارقام في الكمبوبوكس 1 وكومبو بوكس 2
حتى وإن قمت بتغييرهم في المستقبل

إذا ما فهمته صحيح 
يمكنك تجربة الكود التالي 
وفكرته هي دمج ما هو موجود فقط في الاثنين كومبوبكس  بنفس الصيغة التي تريدها ظهورها كنتيجة

كود :

  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       Select Case ComboBox1.SelectedIndex
           Case 0
               TextBox1.Text = "100"
           Case 1
               TextBox1.Text = "200"
           Case 2
               TextBox1.Text = "300"
           Case 3
               TextBox1.Text = "400"
           Case 4
               TextBox1.Text = "500"
       End Select
  ComboBox2_SelectedIndexChanged(sender, e)
   End Sub

   Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
       Select Case ComboBox2.SelectedIndex
           Case 0
               TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text
           Case 1
               TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text
           Case 2
               TextBox2.Text = ComboBox1.Text & "0" & "." & ComboBox2.Text & ComboBox2.Text
       End Select
   End Sub

أما في حالة أني فهمت كلامك خطأ
فأرجو التوضيح أكثر لكي نستطيع مساعدتك

[العيدروس]

شكرا و بارك الله فيك اخي الكريم princelovelorn
بالنسبة للكومبوبوكس 1 فهي صحيحة مئة بالمئة تسلم اخي الفاضل
المشكلة المتبقية هي بالكومبوبوكس 2 و بالتاكست بكس رقم 2
انا شفتها معمولة بالفيجوال بيسك  6 منذ سنتين او ثلاثة و كانت عبارة عن مصفوفة Array لمن للاسف ضاع مني الملف لكي اضعه للفهم أكثر
انا شرحت اخي الفاضل بالملف بتعليقات الاكواد و هو عبارة عن جدول نقاط يمكن له ان يتغير بين سنة و أخرى لانه عبارة عن مكافآت للعمال انا شرحت بالملف و غذا ما فهمت علي اشرح لك اكثر ان شاء الله
بارك الله فيك مسبقا و ربنا يجازيك كل خير

[Zuhare]

PHP كود :

Public Class Form1


    Dim n1(5) As Integer
    Dim n2(5, 3) As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("1")
        ComboBox1.Items.Add("2")
        ComboBox1.Items.Add("3")
        ComboBox1.Items.Add("4")
        ComboBox1.Items.Add("5")

        n1(1) = 100
        n1(2) = 200
        n1(3) = 300
        n1(4) = 400
        n1(5) = 500


        ComboBox2.Items.Add("1")
        ComboBox2.Items.Add("2")
        ComboBox2.Items.Add("3")

        n2(1, 1) = 20
        n2(1, 2) = 40
        n2(1, 3) = 60

        n2(2, 1) = 22
        n2(2, 2) = 42
        n2(2, 3) = 62

        n2(3, 1) = 23
        n2(3, 2) = 44
        n2(3, 3) = 64

        n2(4, 1) = 27
        n2(4, 2) = 49
        n2(4, 3) = 75

        n2(5, 1) = 31
        n2(5, 2) = 55
        n2(5, 3) = 82

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex >= 0 Then
            TextBox1.Text = n1(ComboBox1.SelectedIndex + 1)
        End If
        ComboBox2_SelectedIndexChanged(Nothing, Nothing)
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox1.SelectedIndex >= 0 AndAlso ComboBox2.SelectedIndex >= 0 Then
            TextBox2.Text = n2(ComboBox1.SelectedIndex + 1, ComboBox2.SelectedIndex + 1)
        End If
    End Sub

End Class 


[العيدروس]

تسلم اخي الفاضل Zuhare
بارك الله فيك 
الهي يرزقك من حيث لا تحتسب ان شاء الله 
الان الملف مضبوط و كلو يشتغل تمام و الحمد لله
بقيت لي فقط نقطة و اسمحلي على تعبك معي حاولت اضبها لكنها ما ضبطت
قمت بوضع هذي السطور لكي عندما مباشرة اختار من الكومبوبوكس 2 تظهرلي رسالة بانه يجب أولا الاختيار من الكومبوبوكس 1
الرسالة تظهر صحيح لكن الكومبوبوكس رقم 2 ما تنمسح لا اعرف لماذا

كود :

   Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

       If ComboBox1.Text = "" Then
           MessageBox.Show("قم بالاختيار اولا من الكومبوبوكس 1")
           ComboBox2.Text = ""
           Return

       End If

       If ComboBox1.SelectedIndex >= 0 AndAlso ComboBox2.SelectedIndex >= 0 Then
           TextBox2.Text = n2(ComboBox1.SelectedIndex + 1, ComboBox2.SelectedIndex + 1)
       End If

   End Sub

[Zuhare]

ضع بدلامن ComboBox2.Text = ""

PHP كود :

ComboBox2.SelectedIndex = -1 


[العيدروس]

لماذا اخي Zuhare الرسالة تظهر مرتين و ليس مرة واحدة بارك الله فيك

[Zuhare]

غير الحدث من SelectedIndexChanged الى SelectionChangeCommitted

PHP كود :

Private Sub ComboBox2_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox2.SelectionChangeCommitted
        If ComboBox1.Text = "" Then
            MessageBox.Show("قم بالاختيار اولا من الكومبوبوكس 1")
            ComboBox2.SelectedIndex = -1
        End If

        If ComboBox1.SelectedIndex >= 0 AndAlso ComboBox2.SelectedIndex >= 0 Then
            TextBox2.Text = n2(ComboBox1.SelectedIndex + 1, ComboBox2.SelectedIndex + 1)
        End If

    End Sub 


---

لا تنسى السطر ComboBox2_SelectionChangeCommitted(Nothing, Nothing)