تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية
#1
سلام عليكم
مصيبة عند تشغيل جميع التايمرات لاتعمل فما الحل؟
الاكواد
كود :
Dim timercount As Integer = 10
   Dim timercount2 As Integer = 11
   Dim timercount3 As Integer = 12
   Dim timercount4 As Integer = 13
   Dim timercount5 As Integer = 14
   Dim timercount6 As Integer = 15
PHP كود :
 Private Sub jo1_Tick(ByVal sender As System.ObjectByVal e As System.EventArgsHandles jo1.Tick
        Dim Rm 
As Resources.ResourceManager
        Rm 
= New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources"System.Reflection.Assembly.GetExecutingAssembly)
 
       Me.P1.Image Rm.GetObject("www")
 
       T1.Text timercount.ToString()
 
       If timercount 0 Then
            jo1
.Enabled False
            timercount 
10
            T1
.Text ""
 
           Me.emad1.Send(String.Concat(New String() {"<presence to='"Me.room.Text"@conference.nimbuzz.com/"Me.gaza1"'></presence>"}))
 
       Else
            timercount 
-= 1
        End 
If
 
   End Sub
    Private Sub jo2_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles jo2.Tick
        Dim Rm 
As Resources.ResourceManager
        Rm 
= New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources"System.Reflection.Assembly.GetExecutingAssembly)
 
       Me.P2.Image Rm.GetObject("www")
 
       T2.Text timercount2.ToString()
 
       If timercount2 0 Then
            jo2
.Enabled False
            timercount2 
11
            T2
.Text ""
 
           Me.emad2.Send(String.Concat(New String() {"<presence to='"Me.room.Text"@conference.nimbuzz.com/"Me.gaza2"'></presence>"}))
 
       Else
            timercount2 
-= 1
        End 
If
 
   End Sub
    Private Sub jo3_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles jo3.Tick
        Dim Rm 
As Resources.ResourceManager
        Rm 
= New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources"System.Reflection.Assembly.GetExecutingAssembly)
 
       Me.P3.Image Rm.GetObject("www")
 
       T3.Text timercount3.ToString()
 
       If timercount3 0 Then
            jo3
.Enabled False
            timercount3 
12
            T3
.Text ""
 
           Me.emad3.Send(String.Concat(New String() {"<presence to='"Me.room.Text"@conference.nimbuzz.com/"Me.gaza3"'></presence>"}))
 
       Else
            timercount3 
-= 1
        End 
If
 
   End Sub
    Private Sub jo4_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles jo4.Tick
        Dim Rm 
As Resources.ResourceManager
        Rm 
= New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources"System.Reflection.Assembly.GetExecutingAssembly)
 
       Me.P4.Image Rm.GetObject("www")
 
       T4.Text timercount4.ToString()
 
       If timercount4 0 Then
            jo1
.Enabled False
            timercount4 
13
            T4
.Text ""
 
           Me.emad4.Send(String.Concat(New String() {"<presence to='"Me.room.Text"@conference.nimbuzz.com/"Me.gaza4"'></presence>"}))
 
       Else
            timercount4 
-= 1
        End 
If
 
   End Sub
    Private Sub jo5_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles jo5.Tick
        Dim Rm 
As Resources.ResourceManager
        Rm 
= New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources"System.Reflection.Assembly.GetExecutingAssembly)
 
       Me.P5.Image Rm.GetObject("www")
 
       T5.Text timercount5.ToString()
 
       If timercount5 0 Then
            jo5
.Enabled False
            timercount5 
14
            T5
.Text ""
 
           Me.emad5.Send(String.Concat(New String() {"<presence to='"Me.room.Text"@conference.nimbuzz.com/"Me.gaza5"'></presence>"}))
 
       Else
            timercount5 
-= 1
        End 
If
 
   End Sub 
PHP كود :
 Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        jo1
.Enabled True
        jo2
.Enabled True
        jo3
.Enabled True
        jo4
.Enabled True
        jo5
.Enabled True
        jo6
.Enabled True
    End Sub 
الرد }}}
تم الشكر بواسطة:
#2
ما الاجراء الذي تقوم به تلك التايمرات .
هل يمكنك ارفاق المشروع للتعديل ..
الرد }}}
تم الشكر بواسطة:
#3
(20-05-17, 01:22 PM)Amir_alzubidy كتب : ما الاجراء الذي تقوم به تلك التايمرات .
هل يمكنك ارفاق المشروع للتعديل ..

تم اضافة المشروع


الملفات المرفقة
.rar   wo-1.rar (الحجم : 1.21 م ب / التحميلات : 37)
الرد }}}
تم الشكر بواسطة:
#4
اهلا بك اخي الكريم
لم افهم ما طبيعة الكود لكن على اي حال ،
بطبيعة الحال سيتم ضغط النظام من خلال التايمر
و هذا خطأ . .
يفضل وضعها في مصفوفة او في جملة تكرار Loop او جملة For
بحيث تستخدم بداخل جملة التكرار كلمة DateAdd لاضافة الوقت المحدد
بحيث تتم الزيادة بفارق الوقت الموجود في ComboBox1
و الله اعلم
الرد }}}
تم الشكر بواسطة: e-coder , e-coder
#5
مش فاهم يرجي توضيح كلامك بالاكواد
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم و رحمة الله 
انا ايضا لم افهم ما هي طبيعة عمل البرنامج 
لكن قمت ببناء المثال بناءً على ما تم فهمه 

   

مرفق مثال للتعديل 
بحيث يمكنك كتابة مصفوفة بداخل تايمر واحد فقط 
يبحث عن التوقيت المناسب و يقوم بتنفيذ الامر الذي تريده 

.rar   Time With Out Timer.rar (الحجم : 66.96 ك ب / التحميلات : 23)
الرد }}}
تم الشكر بواسطة: abiza , e-coder , e-coder


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 432 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 348 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 280 01-09-23, 05:56 AM
آخر رد: Ameenh
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 350 05-08-23, 02:29 PM
آخر رد: moh61

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


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