[تنبيه - عنوان غير مناسب : ]مطلوب كود ساعة ديجيتال سريعا

السلام عليكم ورحمة الله

اليك هذا المثال البسيط الذي يظهر الساعة واليوم

الخطوات :

1- اضف علي الفورم Timer ومن خصائصة اجعل Interval=1000 و Enabled=True

2- اضف علي الفورم اربع Label

3-اكتب في حدث لTick الخاص بال Timer هذا الكود

	'Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		Label4.Text = Now.ToString("T")
	'End Sub

4- في حدث التحميل للفورم اكتب الكود التالي

'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Label4.Text = Now.ToString("T")
		Select Case Weekday(Now.ToString("d"))
			Case 1 : Label3.Text = "الاحد"
			Case 2 : Label3.Text = "الاثنين"
			Case 3 : Label3.Text = "الثلاثاء"
			Case 4 : Label3.Text = "الاربعاء"
			Case 5 : Label3.Text = "الخميس"
			Case 6 : Label3.Text = "الجمعة"
			Case 7 : Label3.Text = "السبت"
		End Select
	'End Sub

سوف تحصل ان شاء الله علي الصورة التالية

واليك المثال في المرفقات

WindowsApplication2.rar

العنوان غير مناسب

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

/index.php?showtopic=29343

هل قرأت قواعد المشاركة لقد خالفت الفقرة

اقتباس

ان لا يحتوي على عبارات مثيرة مثل " النجدة " ، "الحقونا " ، " سؤال إلى أهل الخبرة " ، " طلب برنامج "

ملاحظة للجميع ورد في قواعد المشاركة أيضا

اقتباس

و نرجو من الجميع عدم التفاعل مع المشاركات المخالفة و تركها بدون اجابة لحين حذفها ، فالالتزام بالقواعد ليس مطلبا مستحيلا ، و من يتجاهله لا تستحق مشاركته التفاعل.