منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Easy 4ever كتب :أضف مايلي :-
Button1 + Timer1 + Label1

في خصائص Timer1
أجعل خاصية Interval قيمتها 1000
واجعل خاصية Enabled إلى False

في خصائص Label1
في خاصية Text أحذف النص الي بداخله

الأن افتح نافذة الأكواد
ضع هذا الكود

كود :

[color=#0000ff]Dim[/color] i [color=#0000ff]As Integer[/color] = 3

تحت كلمة Public Class Form1 مباشرة



الأن عند حدث Button1_Click
ضع هذا الكود

كود :

Timer1.Enabled = [color=#0000ff]True[/color]

الأن في حدث Timer1_Tick
ضع الكود التالي

كود :

[b][SIZE=4][color=#0000ff]If[/color] I > -1 [COLOR=#0000ff]Then
[/COLOR][/SIZE][/b][b][SIZE=4]Label1.Text = I[/SIZE][/b]
[b][SIZE=4]I -= 1[/SIZE][/b]
[b][SIZE=4][color=#0000ff]Else[/color][/SIZE][/b]
[b][SIZE=4]Label1.Text = [color=#b22222]"تم الإنتهاء من العد التنازلي"[/color][/SIZE][/b]
[b][SIZE=4]I = 3[/SIZE][/b]
[b][SIZE=4]Timer1.Enabled = [color=#0000ff]False[/color][/SIZE][/b]
[b][SIZE=4][color=#0000ff]End If[/color][/SIZE][/b]

شغل البرنامج وشوف الناتج

أخوك