vb.net
هل يوجد خطأ فى هذا الكود
Dim lSeconds = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
lSeconds = lSeconds - 1
lblTime.Text = "Next Post After : " & Format(lSeconds, "00:00:00")
If lSeconds = 0 Then Timer1.Enabled = False
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
lSeconds = CInt(Tgroup.Interval) / 1000
Timer1.Start()
End Sub
عايز اعمل عد تنازلى لانترفال تايمر
يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية
عايز يظهر عد تنازلى فى اليبل من 20 لحد 0 وهكذا
(10-04-17, 12:55 AM)ابو ليلى كتب : [ -> ]اذا كنت ستعتمد ثواني حقيقية اجعل Interval=1000
و الكود
PHP كود :
Dim lSeconds = 20
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
lSeconds = lSeconds - 1
lblTime.Text = "Next Post After : " & Format(lSeconds, "00:00:00")
If lSeconds = 0 Then Timer1.Enabled = False
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
اخى الفاضل ابو ليلى
انت لم تغير شئ فى كودى سوى مسح كود الانترفال ووضع قيمة فى الثوانى
ولكن لم تفعل المطلوب بالظبط
تابع معى اخى
تنسيق العد التنازلى يكون 00:00:00
بمعنى لو انترفال التايمر = ساعة ونص و5 ثوانى مثلا
يبقا العد التنازلى = 01:30:05
وهكذا اتمنى تكون فهمت المطلوب
من اين تاتي بالقيمة الزمنية
(10-04-17, 02:04 AM)abdualla كتب : [ -> ]هل تقصد هذه الطريقة
PHP كود :
Dim h As Integer = 1
Dim m As Integer = 30
Dim s As Integer = 5
Dim totalSeconds As Integer = (h * 3600) + (m * 60) + (s)
Dim t As String = TimeSpan.FromSeconds(totalSeconds).ToString
MsgBox(t)
لا للاسف
تابع معى اخى
تنسيق العد التنازلى يكون 00:00:00
بمعنى لو انترفال التايمر = ساعة ونص و5 ثوانى مثلا
يبقا العد التنازلى = 01:30:05
عد تنازلى يعنى يفضل ينقص لحد ما يوصل ل 00:00:00
وهذا بداية من قيمة تايمر الى باسم tgroup
(10-04-17, 02:20 AM)abdualla كتب : [ -> ]هذا الموضوع حفيدك http://vb4arb.com/vb/showthread.php?tid=3073
انا فاتح من موبايل
ولا يوجد داعى للبحث فى موضوع اخر
لو لديك وقت اتمنى ان تقوم بتعديله لما يناسب طلبي مع العلم انى عايز اديله القيمة من قيمة تايمر الى باسم tgroup
لان المشكلة التى واجهتها هى اعطاءه القيمة من تايمر
وعندما اعطى القيمة رقميا يعمل كما اريد ولكن المشكلة الوحيدة هى اعطاء القيمة للعملية من انترفال تايمر الى باسم tgroup
اسف لك اخى ربما لم تفهم معنى كلامى فى ردى السابق
اعتذر منك على ذلك
لا داعي للاعتذار، انا اللي فهمت انك زعلت مني واعتذر منك
جرب هذا التعديل
PHP كود :
Dim lSeconds = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
lSeconds = lSeconds - 1
lblTime.Text = TimeSpan.FromSeconds(lSeconds).ToString
If lSeconds = 0 Then Timer1.Stop()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
lSeconds = CInt(Tgroup.Interval)
lblTime.Text = TimeSpan.FromSeconds(lSeconds).ToString
Timer1.Interval=1000
Timer1.Start()
End Sub
(10-04-17, 03:38 AM)abdualla كتب : [ -> ]لا داعي للاعتذار، انا اللي فهمت انك زعلت مني واعتذر منك
جرب هذا التعديل
PHP كود :
Dim lSeconds = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
lSeconds = lSeconds - 1
lblTime.Text = TimeSpan.FromSeconds(lSeconds).ToString
If lSeconds = 0 Then Timer1.Stop()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
lSeconds = CInt(Tgroup.Interval)
lblTime.Text = TimeSpan.FromSeconds(lSeconds).ToString
Timer1.Interval=1000
Timer1.Start()
End Sub
لا والله ابدا ما اقدر ازعل منك ولا من اى شخص نهائيا مهما حصل
ربما حدث سوء فهم فى الكلام مش اكتر
المهم
الطبيعي ان 60,000 / 1,000 = 60 ثانيه
انا كنت ناسى وكاتب 600000 عشان كدا ادانى 6 دقايق وفكرت الكود غلط
تبا 0 خلانى افتكر ن فى مشكلة فى كودى ههههههه
تبا البرمجة لحست عقلى
شكرا لك جدا اخى انت وابو ليلى وكل من حاول المساعدة