منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز (/showthread.php?tid=19941)

الصفحات: 1 2

RE: عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز - aldery - 13-10-19

ممكن مشروع لطريقة عمل الكود بصراحة لم أفهم وانا بحاجة هذا الكود وشكراً لكم

RE: عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز - elgokr - 14-10-19

مرحباً اخى aldery

يمكنك تحميل السورس من المرفقات
السورس المرفق لاصدار 2015

الادوات المستخدمة فى السورس :
1- Label
2- Button
3- Timer

الكود الموجود بالسورس
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Label1.Text = 20
       Timer1.Interval = 1000
       Timer1.Start()
       Button1.Enabled = False
       Button1.Text = "is working..."
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Text -= 1
       If (Label1.Text <= 0) Then
           Timer1.Stop()
           Button1.Enabled = True
           Button1.Text = "start"
       End If
   End Sub

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