مرحباً :
هذا الموضوع بداية لسلسلة مواضيع لشرح دوال وانهجة vb.net , سوف احاول ان اشرح جميع الدوال او معظمها مع وضع مثال مبسط لاستخدام الدالة .
لمن لا يعرف ما هي الدالة البرمجة function او نهج المعالجة procedure , هي عبارة عن كتلة من السطور البرمجية تعمل بصورة مستقلة ونقوم بأستدعاها عند الحاجة , و من المستحيل تنفذيها بدون استدعاء , وهناك نوعين منهما :
1- الدوال القياسية ( وهي دوال مكتوبة من قبل مبرمجين للغة وموجودة دائماً ).
2- الدوال المكتوبة من قبل المبرمج .
ماهو الفرق بين الدالة ونهج المعالجة ؟
الدالة تحتوي على نوع بياني , بينما نهج المعالجة هو دالة اصلاً ولكن دون نوع بياني اي لا ترجع اي قيمة , وهناك بعض الامور لا يحبذ استخدامها من الدوال مثل طباعة النواتج بداخل الدالة بأستخدام عبارات الطباعة المختلفة ,, وهذا الكلام لا يخص لغة vb.net فقط وانما يخص جميع لغات البرمجة المهيكلة والشيئية ( الكائنية التوجه ) مثل C++ , Java , pascal , delphi وغيرها .
الجدول ادناه يوضح الدوال وعملها :
time عرض الوقت الحالي now عرض الوقت والتاريخ الحالي date عرض التاريخ الحالي (تحتوي الكثير من الخصائص) Day تاريخ اليوم الحالي فقط (مثلا 27 بالشهر) DayOfWeek تسلسل اليوم في الاسبوع (مثلا اليوم الرابع من الاسبوع) DayOfYear تسلسل اليوم في السنة (مثلاً اليوم 208 من السنة) Hour الساعة الحالية فقط (مثلا الساعة الثالثة 3) Second عرض الثواني الحالية فقط Minute عرض الدقائق الحالية فقط Month عرض الشهر الحالي (رقم الشهر فقط مثلا 7 ) Millisecond عرض الملي ثانية للوقت الحالي فقط TimeOfDay عرض الساعة الحالية والدقائق والثواني والتوقيت ليلا او صباحا Today عرض التاريخ فقط UtcNow يعرض الوقت والتاريخ الحالي للحاسوب حسب التنسيق العالمي utc Year عرض السنة فقط مثلا 2017 Month Name اسم الشهر الحالي (مثلا تموز )
كتبت مثال بسيط جدا وبعيد عن التعقيد واضفت له العديد من الـ Label وكل واحدة تقوم بعمل دالة معينة :
اتمنى لكم التوفيقكود PHP:Public Class Form1
Dim spy As Date = Now
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay()
Label2.Text = Now
Label3.Text = Date.UtcNow
Label4.Text = Month(Now)
Label5.Text = MonthName(Month(Now))
Label6.Text = spy.DayOfWeek
Label7.Text = spy.DayOfYear
Label8.Text = spy.ToString("%h tt")
Label9.Text = spy.Minute
Label10.Text = spy.Second
Label11.Text = spy.Millisecond
Label12.Text = spy.Date
Label13.Text = spy.Day
Label14.Text = spy.Year()
End Sub
End Class
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة NO OR
