منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ممتع اتعبني حقاً - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ممتع اتعبني حقاً (/showthread.php?tid=1258)

ممتع اتعبني حقاً - محمد - 16-12-13

بسم الله الرحمن الرحيم
اولاً المعطيات :
لدينا 1 تيكست بوكس و1 بوتون و 2 ليست بوكس
طريقة العمل عند الضغط على البوتون يتم اضافة الرقم الذي في التكيست بوكس الى الليست بوكس1 وفي نفس الوقت يتم اضافة الرقم 1 الى الليست بوكس 2
وفي حال ادخال نفس الرقم الى الليست بوكس 1 يتم كتابة الرقم 2 في الليست بوكس 2
وهكذا في حال تكرر الرقم نفسة في الليست بوكس 1 يتم زيادة الرقم المقابل له في الليست بوكس 2
وشكراً لكم.

RE: ممتع اتعبني حقاً - Aly El-Haddad - 16-12-13

PHP كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myNum As Integer = TextBox1.Text
        ListBox1.Items.Add(myNum)
        Dim count As Integer = 0
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(I) = myNum Then
                count += 1
            End If
        Next
        ListBox2.Items.Add(count)
    End Sub
End Class 


RE: ممتع اتعبني حقاً - محمد - 16-12-13

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

اخي العزيز اتمنى مساعدتك

انا اريد: ان لاتظهر البيانات مكررة
مثلاً : عند اضافة الرقم 2 مرتين
يضهر في المرة الاولي في الليست بوكس 1 كارقم 2 وفي الليست بوكس 2 كارقم 1
وفي الاضافة الثانية يضهر في الليست بوكس رقم2 مرة اخرى وهذا ما لا اريدة ويضهر في الليست بوكس رقم 2 الرقم 2 وهذا فقط كا اريدة يضهر في الليت بوكس 2
بمعنى عند تكرار ادخال اي رقم في الليست رقم 1 يحتذف من الليست الرقم السابق لهذا الرقم والعدد المقابل لة من الليست رقم 2


اتمنى اكون وضحت لك الفكرة
والف شكر لك على كل حال

RE: ممتع اتعبني حقاً - Aly El-Haddad - 16-12-13

PHP كود :
Public Class Form1

    'Number , (Index, Count)'
    Private myList As New Dictionary(Of Integer, Integer())

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myNum As Integer = TextBox1.Text
        If ListBox1.Items.Contains(myNum) Then
            myList(myNum)(1) += 1
            ListBox2.Items(myList(myNum)(0)) = myList(myNum)(1)
        Else
            myList.Add(myNum, New Integer() {ListBox1.Items.Count, 1})
            ListBox1.Items.Add(myNum)
            ListBox2.Items.Add(myList(myNum)(1))
        End If
    End Sub
End Class 


RE: ممتع اتعبني حقاً - محمد - 19-12-13

(16-12-13, 09:27 PM)Aly El-Haddad كتب :
PHP كود :
Public Class Form1

    'Number , (Index, Count)'
    Private myList As New Dictionary(Of Integer, Integer())

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myNum As Integer = TextBox1.Text
        If ListBox1.Items.Contains(myNum) Then
            myList(myNum)(1) += 1
            ListBox2.Items(myList(myNum)(0)) = myList(myNum)(1)
        Else
            myList.Add(myNum, New Integer() {ListBox1.Items.Count, 1})
            ListBox1.Items.Add(myNum)
            ListBox2.Items.Add(myList(myNum)(1))
        End If
    End Sub
End Class 

اين اكتب هذا الكود يعني استبدلة بدل الكود السابق قصدك
شكراً لك اخي العزيز
الكود تمام 100%
الف شكر لك