[VB.NET] مشكلة في ProgressBar - نسخة قابلة للطباعة

[VB.NET] مشكلة في ProgressBar - نسخة قابلة للطباعة

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

مشكلة في ProgressBar - 3asfa~mdmra - 03-03-17

السلام عليكم

بعد الصلاه على سيدنا محمد معلم البشرية

اود من المختصين التعديل ع هذا الكود

مايتناسب مع خبرتهم

طبيعه المشكلة هي :

عند انتهاء الكود من ازالة جميع الايميلات

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

لم يحدث انه تم ازلة جميع الايميلات اين المشكلة

الاكواد هي كتالي

كود :

 Private Sub LogInButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton5.Click

        If (emad.XmppConnectionState <> XmppConnectionState.SessionStarted) Then

            Interaction.MsgBox("Please login" & ChrW(10) & "قم بتسجيل الدخول اولا", MsgBoxStyle.Critical, "خطأ/" & ChrW(10) & "Error")

        Else

            ProgressBar1.Maximum = owner.Items.Count

            Timer1.Start()

            Timer1.Interval = 4000

        End If

    End Sub

الكود الثاني في التايمر

كود :

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

        Try

            Me.emad.Send(String.Concat(New String() {"<iq type='set' to='", room.Text, "@conference.nimbuzz.com'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='", Me.owner.Items.Item(0).ToString, "@nimbuzz.com' affiliation='outcast'/></query></iq>"}))

            Me.owner.Items.RemoveAt(0)

            Me.ProgressBar1.Value += 1

            Me.o.Visible = True

            Me.o.Text = Me.owner.Items.Count.ToString

        Catch ex As Exception

            MsgBox("انتهت ازالة الايميلات")

        End Try

    End Sub

وشكراً

RE: مشكلة في ProgressBar - 3asfa~mdmra - 04-03-17

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

RE: مشكلة في ProgressBar - thevirus - 04-03-17

حسب فهمي للسؤال انت تريد عندما ينتهي من الازالة تظهر رسالة انتهت الازالة لكن انت مسوي لها داخل Catch يعني م رح تطلع الرسالة الا اذا ظهر خطأ قم بوضعها قبل
Catch Ex As exception

RE: مشكلة في ProgressBar - 3asfa~mdmra - 04-03-17

اخي ولكن عند وضع
MsgBox("انتهت ازالة الايميلات")
Catch Ex As exception
حتطلع كل شوي
MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

يعني عند ازالة صف من لسته بوكس حتطلع رسالة
MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")
وهنا المشكلة

RE: مشكلة في ProgressBar - thevirus - 04-03-17

(04-03-17, 06:56 PM)3asfa~mdmra كتب : اخي ولكن عند وضع
MsgBox("انتهت ازالة الايميلات")
Catch Ex As exception
حتطلع كل شوي
MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

يعني عند ازالة صف من لسته بوكس حتطلع رسالة
MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")
وهنا المشكلة

تفضل التعديل

كود :

        Try

            Me.emad.Send(String.Concat(New String() {"<iq type='set' to='", room.Text, "@conference.nimbuzz.com'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='", Me.Owner.Items.Item(0).ToString, "@nimbuzz.com' affiliation='outcast'/></query></iq>"}))

            Me.Owner.Items.RemoveAt(0)

            Me.ProgressBar1.Value += 1

            Me.o.Visible = True

            Me.o.Text = Me.Owner.Items.Count.ToString

        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        Finally

            MsgBox("انتهت ازالة الايميلات")

        End Try

استخدم Finally لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ

RE: مشكلة في ProgressBar - 3asfa~mdmra - 04-03-17

(04-03-17, 07:38 PM)thevirus كتب :
(04-03-17, 06:56 PM)3asfa~mdmra كتب : اخي ولكن عند وضع
MsgBox("انتهت ازالة الايميلات")
Catch Ex As exception
حتطلع كل شوي
MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

يعني عند ازالة صف من لسته بوكس حتطلع رسالة
MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")

MsgBox("انتهت ازالة الايميلات")
وهنا المشكلة
تفضل التعديل

كود :

Try Me.emad.Send(String.Concat(New String() {"<iq type='set' to='", room.Text, "@conference.nimbuzz.com'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='", Me.Owner.Items.Item(0).ToString, "@nimbuzz.com' affiliation='outcast'/></query></iq>"})) Me.Owner.Items.RemoveAt(0) Me.ProgressBar1.Value += 1 Me.o.Visible = True Me.o.Text = Me.Owner.Items.Count.ToString Catch ex As Exception MsgBox(ex.Message.ToString) Finally MsgBox("انتهت ازالة الايميلات") End Try
استخدم Finally لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ

اخي طبقت ماتم ذكره من طرف وكانت نتيجة كالتالي

RE: مشكلة في ProgressBar - thevirus - 04-03-17

اخي العزيز انت واضعه بداخل Timer وبعدين انت مو مسوي شرط يوقف التايمر
إذا كنت مسوي شرط يوقف التايمر كـ Timer1.Stop()
قم بعمل الرسالة بعد Timer1.Stop() ( في حالة كان Timer1.Stop() خارج بلوك Timer1.Tick اما اذا كان في داخل Timer.Tick فقم بعمل الرسالة قبله تماماً
اساسا لا يوجد لزوم لعمل تايمر في الكود تبعك
قم بإرفاق المشروع وسوف نرى كيف نعالج المشكلة بإذن الله

RE: مشكلة في ProgressBar - 3asfa~mdmra - 05-03-17

(04-03-17, 11:31 PM)thevirus كتب : اخي العزيز انت واضعه بداخل Timer وبعدين انت مو مسوي شرط يوقف التايمر
إذا كنت مسوي شرط يوقف التايمر كـ Timer1.Stop()
قم بعمل الرسالة بعد Timer1.Stop() ( في حالة كان Timer1.Stop() خارج بلوك Timer1.Tick اما اذا كان في داخل Timer.Tick فقم بعمل الرسالة قبله تماماً
اساسا لا يوجد لزوم لعمل تايمر في الكود تبعك
قم بإرفاق المشروع وسوف نرى كيف نعالج المشكلة بإذن الله

تم ارفاق المشروع في المرفقات

وان لم ينجح التحميل اليك رابط التالي

http://up.top4top.net/downloadf-429rclyk1-rar.html

ملاحظة يوجد ايميل مشرف وباسة

كل ماعليك تسجيل الدخول وعمل

Get admin room

وبعدين

clear all admain

هنا حتظهر المشكلة

RE: مشكلة في ProgressBar - thevirus - 05-03-17

تم الحل [attachment=13410]
'اخي انا اسف لقد تم حذف جميع الادمنز لكن في سبيل حل مشكلة
'المشكلة هي في عدم وضع شرط بعد ليوقف التايمر
'شرط وقف التايمر هو ان نقوم بعمل شرط وهو عندما يصبح عدد العناصر في الليست بوكس 1 = 0 او اقل نقوم بوقف التايمر ثم نقوم بالخروج من السب

RE: مشكلة في ProgressBar - 3asfa~mdmra - 05-03-17

اخي انت احلا شب شفته بحياتي
لكم التقدير والاحترام