تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يعجز vb.net 2012 في تنفيذ هذا الامر البسيط في اقل من " 5 ثواني ؟"
#1
السلام عليكم و رحمة الله و بركاته


هل يعجز في تنفيذ هذا الكود في اقل من 5 ثواني ؟
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For XX = 0 To 1000000000

            TTX2.Text = XX

        Next
    End Sub
هل استطيع تنفيذ هذا الامر في اقل من 5 ثواني ؟

وشكرا Wink
الرد }}}}
تم الشكر بواسطة:
#2
مدري
SmileSmileSmile
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
كود اية دة ؟
الرد }}}}
تم الشكر بواسطة:
#4
انا متفأئل و عندي احساس راح يكون فيه حل ان شاء الله
///
طيب مافيه فنكشن او اي شيء لتفادي التعليق ؟ بحيث لا تتجاوز مدة التعليق ثانيتيين + لا تتجاوز مدة تنفيذ الكود 4 ثواني = 6 ثواني فقط
///
سعود شكرا لردك بس احسك تسرعت
\\\
hany gamal : حاليا الكود عباره عن العد من 1 الى 1000000000
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
جرب هذا الكود
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Enabled = False
        For XX = 0 To 1000000000
            TTX2.Text = XX
            Application.DoEvents()
        Next
        Button2.Enabled = True
    End Sub
الكود السابق سوف لن يعلق لكنه سيتأخر
بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#6
يا ظالم لماذا تريد أن تعرض القيمة في التكست بوكس ؟

إن كان ولا بد خليها في مسار تنفيذ ثاني
الرد }}}}
تم الشكر بواسطة:
#7
طريقة أفضل باستخدام BackgroundWorker

PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Control
.CheckForIllegalCrossThreadCalls False
        Me
.BackgroundWorker1.RunWorkerAsync()

    
End Sub

    
Private Sub BackgroundWorker1_DoWork(sender As ObjectAs System.ComponentModel.DoWorkEventArgsHandles BackgroundWorker1.DoWork
        
For XX 0 To 1000000000
            
If XX Mod 50000 0 Then
                TTX2
.Text XX
            End 
If

        
Next
    End Sub 

لاحظ اني لم اعرض كل قيمة للعداد xx لأنه يستغرق وقت في رسم النص ، اختصارا أعرض مضاعفات الـ 50000 وأنت حر
الرد }}}}
تم الشكر بواسطة:
#8
و اذا اردته اسرع اخفي الاداه التكست من الفورم حتى انتهاء العمليه ثم أظهره
الرد }}}}
تم الشكر بواسطة:
#9
أبو يعقوب كتب :يا ظالم لماذا تريد أن تعرض القيمة في التكست بوكس ؟

إن كان ولا بد خليها في مسار تنفيذ ثاني

تكفى قولي عن مسار التنفيذ المناسب + انا اصلا ما ابغى العدد يعرض في التكست او غيره
انا فقط ابغى استعلم عن قيمه تكون من 0 الى 9999999999
و اذا تحقق الشرط تظهر القيمه في التكست
لكي اسهل من الامر راح اخليه
for xx = 123456 To 9999999999 Step 2
/////
شكرا لكم + جزاكم الله الف خير
+
اتمنى الحل D:
الرد }}}}
تم الشكر بواسطة:
#10
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For XX = 0 To 1000000000
            If XX = 5000 Then ' إذا تحقق الشرط
                TextBox1.Text = XX ' يتم عرض المطلوب في مربع النص
                Exit For ' يتم الخروج من الحلقة
            End If
            Application.DoEvents()
        Next
    End Sub

هل هذا المطلوب ؟
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 56 21-11-16, 11:48 PM
آخر رد: السرور
  ربط قاعدة بيانات اكسس 2010 مع فيجوال 2012 diab4diab 2 98 15-11-16, 10:24 PM
آخر رد: thevirus
  [سؤال] طلب لمثال عن انشاء حماية للبرنامج في vb.net 2012 مع فكرة بحاجة للتطبيق M@GED 12 319 05-11-16, 10:49 AM
آخر رد: أبو عمر
  [VB.NET] تنفيذ إستعلام tifagreet 1 83 18-10-16, 08:55 PM
آخر رد: ابراهيم النعيمي
  كيف اجعل برنامجى المصمم بالفيجوال ستوديو 2012 يعمل على ويندوز 10 : 64 بيت nabil.1710 7 184 18-10-16, 03:15 AM
آخر رد: nabil.1710
  [VB.NET] إلغاء تنفيذ الكود tifagreet 5 222 07-10-16, 03:30 PM
آخر رد: tifagreet
  [VB.NET] خطأ أثناء تنفيذ كود الحفظ أسامة السالمي 0 115 10-08-16, 07:21 PM
آخر رد: أسامة السالمي
  ارجو المساعدة ربط قاعدة بيانات بفيجوال بيسك 2012 diab4diab 0 128 16-07-16, 04:43 AM
آخر رد: diab4diab
  [VB.NET] سؤال بخصوص ادات PictureBox في فيوجل باسيك (2012) mezri59 2 170 13-06-16, 11:29 PM
آخر رد: mezri59
  [كود] عمل امر بعد مرور 10 ثواني عبدالرحمن المكاوي 4 171 05-06-16, 03:04 PM
آخر رد: CLARO

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


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