تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل هذا الكود يعمل على فريم ورك 4
#1
السلام عليكم ورحمة الله وبركاته
إوتى لدى كود لكنه لا يعمل على اصدار فريم ورك 4 يعمل فقط على ما فوقه
وانا اعمل حاليا على الفيجيوال بيسك 2010 لانها خفيفة نوعا ما على جهازى
الله يكرمكم الموضوع مهم جدا..

كود :
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Await Task.Delay(5000)
الاوامر هنا
   End Sub
وما أعنيه هو هذا Await Task.Delay(5000) وهو كود انتظار وقت احدده انا

وجزاكم الله كل خير
الرد }}}
تم الشكر بواسطة:
#2
كود :
Public Sub Delay(millisecondsDelay As Integer)
   Dim sw As New Stopwatch : sw.Start()
   While sw.ElapsedMilliseconds < millisecondsDelay
       Application.DoEvents()
   End While
End Sub
الرد }}}
تم الشكر بواسطة: ابو روضة
#3
(25-09-18, 06:57 AM)911 كتب :
كود :
Public Sub Delay(millisecondsDelay As Integer)
   Dim sw As New Stopwatch : sw.Start()
   While sw.ElapsedMilliseconds < millisecondsDelay
       Application.DoEvents()
   End While
End Sub

جزاك الله كل خير اخى..
لكن عذرا هو نفع بدل كود ولم ينفع مع أخر انظر الصورة




#s3gt_translate_tooltip_mini { display: none !important; }
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاته
هو بما انك تريد انتظار مدة ما ليتم استكمال الكود يمكنك من طرق عديدة
اما ان تكون عن طريق كود تحقق مع goto والتحقق ده للقيمة سيتم اخذها من تايمر
وما غير ذلك كثير 

على اى حال جرب هذا الكود لعله يعمل معك على الاصدار الفريم
كود :
System.Threading.Thread.Sleep(5)

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#5
(25-09-18, 11:30 AM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته
هو بما انك تريد انتظار مدة ما ليتم استكمال الكود يمكنك من طرق عديدة
اما ان تكون عن طريق كود تحقق مع goto والتحقق ده للقيمة سيتم اخذها من تايمر
وما غير ذلك كثير 

على اى حال جرب هذا الكود لعله يعمل معك على الاصدار الفريم
كود :
System.Threading.Thread.Sleep(5)

تحياتى لك
وتمنياتى لك التوفيق

لكن هذا الكود حبيبى بيوقف البرنامج خالص لانى جربته من قبل كتير جدا.

فياريت كود التحقق الأخر تبع التايمر أجربه لو تسمح
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#6
لا عليك اخى ابو روضة

فى هذه الحالة خلينى اوضح لك كيفية اتمام المطلوب بصورة صحيحة
وهنا انت لا تحتاج الى كود انتظار لاتمام تنفيذ كود

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

اولاً لنقول ان لدينا الكود كالتالى كمثال
كود :
MsgBox("Welcome...")
MsgBox("Now Ok.")

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

اولاً قم بانشاء اداء Timer واجعل الوقت الخاص به 5000 ولا تقوم بتفعيله اجعله False

ثانياً ناتى على كزد تنفيذ حدث الزر وليتحول الكود الى هذا الشكل
كود :
       MsgBox("Welcome...")
       Timer1.Start()

الان ناتى فى حدث الـ Timer ونقوم باضافة الكود الثاني وهو
كود :
       MsgBox("Now Ok :).")
       Timer1.Stop()

وبكده تكون طبقت المطلوب بدون عناء وبدون اى مشكلة

الان انت لديك الفكرة يمكنك تطويرها ببعض اللمسات زى عمل Sub وما شبه
بحيث يمكنك استفادة من الامر لنفس الـ Timer الى اكثر من مكان وليس لهذا الجزء فقط

اتمنى ان اكون سهلت عليك الامر
وان الان اصبح الامور ابسط مما كنت تريد فعله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة
#7
(25-09-18, 11:09 PM)elgokr كتب :
لا عليك اخى ابو روضة

فى هذه الحالة خلينى اوضح لك كيفية اتمام المطلوب بصورة صحيحة
وهنا انت لا تحتاج الى كود انتظار لاتمام تنفيذ كود

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

اولاً لنقول ان لدينا الكود كالتالى كمثال
كود :
MsgBox("Welcome...")
MsgBox("Now Ok.")

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

اولاً قم بانشاء اداء Timer واجعل الوقت الخاص به 5000 ولا تقوم بتفعيله اجعله False

ثانياً ناتى على كزد تنفيذ حدث الزر وليتحول الكود الى هذا الشكل
كود :
       MsgBox("Welcome...")
       Timer1.Start()

الان ناتى فى حدث الـ Timer ونقوم باضافة الكود الثاني وهو
كود :
       MsgBox("Now Ok :).")
       Timer1.Stop()

وبكده تكون طبقت المطلوب بدون عناء وبدون اى مشكلة

الان انت لديك الفكرة يمكنك تطويرها ببعض اللمسات زى عمل Sub وما شبه
بحيث يمكنك استفادة من الامر لنفس الـ Timer الى اكثر من مكان وليس لهذا الجزء فقط

اتمنى ان اكون سهلت عليك الامر
وان الان اصبح الامور ابسط مما كنت تريد فعله

تحياتى لك
وتمنياتى لك التوفيق



وانا أثق فى تفكيرك أخى وحبيبى جوكر وربنا يجزيك كل الخيرات والبركات.


دائما تقف بجوارى وبجوار الجميع...

 روح يا شيخ اللهى يعطيك أكثر مما تتمنى
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 227 03-03-24, 08:45 PM
آخر رد: new_programer
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
Exclamation [VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟ أبو خالد الشكري 5 417 09-11-23, 02:25 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit

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


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