تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممتع اتعبني حقاً
#1
Thumbs Down 
بسم الله الرحمن الرحيم
اولاً المعطيات :
لدينا 1 تيكست بوكس و1 بوتون و 2 ليست بوكس
طريقة العمل عند الضغط على البوتون يتم اضافة الرقم الذي في التكيست بوكس الى الليست بوكس1 وفي نفس الوقت يتم اضافة الرقم 1 الى الليست بوكس 2
وفي حال ادخال نفس الرقم الى الليست بوكس 1 يتم كتابة الرقم 2 في الليست بوكس 2
وهكذا في حال تكرر الرقم نفسة في الليست بوكس 1 يتم زيادة الرقم المقابل له في الليست بوكس 2
وشكراً لكم.
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim myNum 
As Integer TextBox1.Text
        ListBox1
.Items.Add(myNum)
        
Dim count As Integer 0
        
For 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 
الرد }}}}
تم الشكر بواسطة: الشاكي لله , محمد , Sajad , hoob computer
#3
بارك الله فيك اخي العزيز
بالفعل انت عملت الي كنت بجد اريدة
ولكن انا بصراحة ماعملت السؤال بالكامل
لاجل احاول اعتمد ع نفسي شوية بس بصراجة
ماقدر اكمل باقي الحل

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

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


اتمنى اكون وضحت لك الفكرة
والف شكر لك على كل حال
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:
#4
PHP كود :
Public Class Form1

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

    Private 
Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim myNum 
As Integer TextBox1.Text
        
If ListBox1.Items.Contains(myNumThen
            myList
(myNum)(1) += 1
            ListBox2
.Items(myList(myNum)(0)) = myList(myNum)(1)
        Else
            
myList.Add(myNum, New Integer() {ListBox1.Items.Count1})
            
ListBox1.Items.Add(myNum)
            
ListBox2.Items.Add(myList(myNum)(1))
        
End If
    
End Sub
End 
Class 
الرد }}}}
تم الشكر بواسطة: Abu Ehab , محمد , الشاكي لله
#5
(16-12-13, 09:27 PM)Aly El-Haddad كتب :
PHP كود :
Public Class Form1

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

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

اين اكتب هذا الكود يعني استبدلة بدل الكود السابق قصدك

شكراً لك اخي العزيز
الكود تمام 100%
الف شكر لك
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Down سؤال سهل اتعبني محمد 3 692 02-12-13, 11:08 AM
آخر رد: hoob computer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم