تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج - استخلاص اليوم والشهر والسنة من تاريخ محدد
#1
السلام عليكم ورحمة الله وبركاته

درس اليوم سهل وبسيط ، وهو استخلاص اليوم والشهر والسنة من التاريخ المعطى.

العمل
نفتح مشروعاً جديداً في لازاروس، ونخزنه.
على الفورم: نضع العنصر Calendar لاختيار التاريخ، وعدد 3 صناديق نصوص Edit، وزر واحد Button.
ننسق الفورم بحيث يصير مقبولاً

   

نذهب إلى محرر الكود، وتحت Private نعرف المتغيرات التالية:
 
كود :
private
    { private declarations }
  TheDay: word;
  TheMonth: word;
  TheYear: word;

حيث word هو أحد انواع اﻷعداد الصحيحة integer.

اﻵن في حدث النقر المفرد click للزر نكتب:

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
  DecodeDate(dtCalendar.DateTime, TheYear, TheMonth, TheDay);
  txtDay.Text:= inttostr(TheDay);
  txtMonth.Text:= inttostr(TheMonth);
  txtYear.Text:= inttostr(TheYear);
end;  


حيث dtCalendar هو الاسم البرمجي للتقويم.

استعملنا الإجراء DecodeDate لاستخلاص اليوم والشهر والسنة وتخزينها في المتغيرات المعطاة وهي TheYear وTheMonth وTheDay.
قمنا بعرض كل قيمة في الصندوق المخصص لها، واستعملنا الدالة IntToStr لتحويل القيمة الصحيحة إلى قيمة نصية.

نجرب التنفيد بالضغط على المفتاح F9 ثم نختار تاريخاً وننقر على الزر.
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , Ahmed_Mansoor , awidan76 , الوادي
#2
مبدع ما شاء الله عليك
تشكرررااات
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة: أبوبكر سويدان , awidan76 , الوادي , الوادي
#3
شكرا وبارك الله فيك
الرد }}}}
تم الشكر بواسطة: أبوبكر سويدان
#4
شكرا للمرور.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] برنامج تخزين الصور في قاعدة بيانات في Lazarus أبو ناصر 19 374 25-11-16, 09:39 PM
آخر رد: أبو ناصر
  [كود] برنامج إدارة الديون - مفتوح المصدر أبوبكر سويدان 4 296 03-10-16, 12:13 AM
آخر رد: أبوبكر سويدان
  [مثال] برنامج تشابه الصور abulayth 9 1,001 21-03-16, 12:54 PM
آخر رد: العيد1403
  برنامج لعرض التاريخ والوقت على Lable في فري باسكال أبوبكر سويدان 3 509 14-02-16, 01:21 PM
آخر رد: العيد1403
  برنامج - الـ ProgressBar أبوبكر سويدان 3 403 11-02-16, 05:44 PM
آخر رد: العيد1403
  برنامج - احسب عمرك بالثواني أبوبكر سويدان 3 364 11-02-16, 05:40 PM
آخر رد: العيد1403
  فيديو - برنامج جمع عددين في فري باسكال - بيئة لازاروس أبوبكر سويدان 1 376 05-07-15, 11:53 PM
آخر رد: Amir_alzubidy
  فيديو - تصميم أول برنامج بلغة فري باسكال - بيئة لازاروس أبوبكر سويدان 2 323 05-07-15, 11:41 PM
آخر رد: أبوبكر سويدان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم