[ابو روضة]

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

اريد تنفيذ كود للعناصر التى عليها  Checked داخل ال CheckedListBox

ليس التى اللى عليها   SelectedItem ويكون بوقت بمعنى أخر

داخل ال CheckedListBox مثلا 20 عنصر وانا عملت Checked فقط على أربع عناصر

وليكن اسماء اى أسماء فأريد من البرنامج ان يعمل حلقة تكرارية بوقت معين أحدده أنا ليظهر لى رسالة بحسب الوقت على هذه العناصر الاربع فقط

ويتجاهل الباقى وشكرا لكم

[سعود]

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckedListBox1.CheckedItems.Count < 1 Then Exit Sub
        For r As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            ListBox1.Items.Add(CheckedListBox1.CheckedItems(r).ToString)
        Next
    End Sub 


[ابو روضة]

(17-03-18, 02:58 AM)سعود كتب :

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckedListBox1.CheckedItems.Count < 1 Then Exit Sub
        For r As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            ListBox1.Items.Add(CheckedListBox1.CheckedItems(r).ToString)
        Next
    End Sub 


شكرا لك اخى سعود فعلا نجحت لكن انا اريدها بوقت محدد احدده انا
يعنى مثلا كل دقيقة يُضاف عنصر لليست بوكس الى ان ينتهو العناصر اللى داخلCheckedListBox وينتقلو لليست بوكس لانهم بيضافو كلهم مرة واحدة لما حطتهم داخل تايمر
وانا اريدهم يضافو عنصر عنصر
الله يكرم أصلك

[silverlight]

تحتاج تضيف تايمر للمشروع
وتكتب الكود بالشكل التالي
طبعا يمكنك التعديل علي الكود ليناسب احتياجاتك بخصوص المدة الزمنية
لكن دي هي الفكرة عموما ...... يجب طبعا مراعاة ان بعض Items في CheckedListBox تم عمل Check لها حتي لا يحدث أخطاء

PHP كود :

Public Class Form1

    Private i As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Timer1.Start()
        Me.Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim item As Object = CheckedListBox1.CheckedItems(i Mod CheckedListBox1.CheckedItems.Count)
        ListBox1.Items.Add(item.ToString)
        Me.i += 1
        If i >= CheckedListBox1.CheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub

End Class 


[ابو روضة]

(17-03-18, 10:30 AM)silverlight كتب : تحتاج تضيف تايمر للمشروع
وتكتب الكود بالشكل التالي
طبعا يمكنك التعديل علي الكود ليناسب احتياجاتك بخصوص المدة الزمنية
لكن دي هي الفكرة عموما ...... يجب طبعا مراعاة ان بعض Items في CheckedListBox تم عمل Check لها حتي لا يحدث أخطاء

PHP كود :

Public Class Form1

    Private i As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Timer1.Start()
        Me.Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim item As Object = CheckedListBox1.CheckedItems(i Mod CheckedListBox1.CheckedItems.Count)
        ListBox1.Items.Add(item.ToString)
        Me.i += 1
        If i >= CheckedListBox1.CheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub

End Class 


الله يكرم أصلك أستاذى العزيز الغالى فعلا نجحت مائة فى المائة...
لكن المشكلة اننا أريد توظيف هذا الكود فى برنامجى لكن صراحة مش عارف
لآنه يقوم بتشغيل كل العناصر وانا اريده تماما مثل ما حضرتك فعلت الان يشغل
الى عليه cheked فقط وهذا هو الكود لو تتكرم اللى مغلبنى

PHP كود :

Dim xFacebook As New FacebookClient(TextBox6.Text)
        Dim upload As New Dictionary(Of String, Object)
        upload.Add("message", TextBox1.Text)
        upload.Add("link", TextBox2.Text)
        upload.Add("name", TextBox3.Text)
        upload.Add("description", TextBox4.Text)
        upload.Add("picture", TextBox5.Text)
        Dim xBack = xFacebook.Post(CheckedListBox1.SelectedItem & "/feed", upload) 


[silverlight]

هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟

[ابو روضة]

(17-03-18, 11:06 AM)silverlight كتب : هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟

نعم اخى ويكون وقت التايمر من خلال NumericUpDown بالثوانى
وجزاك الله كل الخيرات

[silverlight]

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

PHP كود :

Public Class Form1

    Private index As Integer = 0

    Private Function GetUploadDisctionary() As Dictionary(Of String, Object)
        Dim upload As New Dictionary(Of String, Object)
        upload.Add("message", TextBox1.Text)
        upload.Add("link", TextBox2.Text)
        upload.Add("name", TextBox3.Text)
        upload.Add("description", TextBox4.Text)
        upload.Add("picture", TextBox5.Text)

        Return upload
    End Function

    Private Function GetcheckedItems() As List(Of String)
        Dim resut As List(Of String) = New List(Of String)()
        Dim i As Integer = 0
        While i < CheckedListBox1.CheckedItems.Count
            Dim item As Object = CheckedListBox1.CheckedItems(i)
            resut.Add(item.ToString)
            i += 1
        End While
        Return resut
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim s As String = GetcheckedItems(Me.index Mod Me.GetcheckedItems.Count)

        Dim xBack = xFacebook.Post(s + "/feed", GetUploadDisctionary())
        Me.index += 1
        If Me.index >= GetcheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub
End Class 


[ابو روضة]

(17-03-18, 11:33 AM)silverlight كتب : مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا 
لكن الفكرة المفروض تكون هكذا

PHP كود :

Public Class Form1

    Private index As Integer = 0

    Private Function GetUploadDisctionary() As Dictionary(Of String, Object)
        Dim upload As New Dictionary(Of String, Object)
        upload.Add("message", TextBox1.Text)
        upload.Add("link", TextBox2.Text)
        upload.Add("name", TextBox3.Text)
        upload.Add("description", TextBox4.Text)
        upload.Add("picture", TextBox5.Text)

        Return upload
    End Function

    Private Function GetcheckedItems() As List(Of String)
        Dim resut As List(Of String) = New List(Of String)()
        Dim i As Integer = 0
        While i < CheckedListBox1.CheckedItems.Count
            Dim item As Object = CheckedListBox1.CheckedItems(i)
            resut.Add(item.ToString)
            i += 1
        End While
        Return resut
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim s As String = GetcheckedItems(Me.index Mod Me.GetcheckedItems.Count)

        Dim xBack = xFacebook.Post(s + "/feed", GetUploadDisctionary())
        Me.index += 1
        If Me.index >= GetcheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub
End Class 


الله يسعد قلبك اخى ويبارك بعمرك
هناك فقط خطأ

[silverlight]

بما أنك تتعامل مع اكثر من مصفوفة
عليك أن تتأكد أن UploadDisctionary ليس خاليا 
عليك أن تضبط' القيمة s + "/feed"
عليك ان تتاكد ان checkedItems ليست خالية
اخيرا عليك ان تتاكد ان الكلاس الخاص بالفيسبوك يقبل المدخلات بالشكل الصحيح

عموما فكرة استخدام التايمر هي مثل ما سبق و اوضحته لك سابقا

لا تنسي تعريف الفيسبوك Client لانه واضح ان ذلك هو سبب الخطأ تقريبا