منتديات عرب رحيق الجنة

عزيزي الزائر / عزيزتي الزائرة
يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا

ادارة المنتدي

شاطر
اذهب الى الأسفل
avatar
EL M3LeM
عضو نشيط
عضو نشيط
عدد المساهمات : 82
نقاط : 202
تاريخ الميلاد : 09/04/1993
تاريخ التسجيل : 07/06/2010
العمر : 25
الموقع : الجيزة
http://www.net-ea.blogspot.com/

Calender لحساب في أي يوم قد ولدت

في الأحد ديسمبر 25, 2011 3:41 pm

يجب أن يكون البرنامج بهذا الشكل :-




شرح مبسط للكائنات الموجودة بالفورمة :-


Label4.caption="Sun Mon Tue Wed Thr Fri Sat"


Label1.TapIndex= 0 of 34
بحيث انه منسوخ 34 مرة (من 0 حتي 34)


Label2.caption = " Month"


Label3.caption = " Year"


و الأن نذهب للأكواد :-

__________

Option Explicit
Dim days As Long
Dim i As Integer


Private Sub cmdGenerate_Click()
On Error GoTo Error_handle 'On error, goto to end of function
days = 0
For i = 0 To 34
Label1(i).Caption = "" 'Clear all the labels
Next i


For i = 1900 To txtYear.Text - 1
If i Mod 4 = 0 Then 'If leap year then count 366 days
days = days + 366
Else 'else 365 days
days = days + 365
End If
Next i


For i = 1 To txtMonth.Text - 1
If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then '31 days
days = days + 31
ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then '30 days
days = days + 30
ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then ' 29 days
days = days + 29
Else '28 days
days = days + 28
End If
Next i


If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then
show_calender 31 'Show calender with 31 days
ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then
show_calender 30 'Show calender with 30 days
ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then
show_calender 29 'Show calender with 29 days
Else
show_calender 28 'Show calender with 28 days
End If
Error_handle:
End Sub


Private Function show_calender(n As Integer)
'//<- n stores the number of days to display
Dim i, k As Integer
'Divide days with 7, the remainder give the current day
k = days Mod 7
For i = 1 To n
'Display the number in calender format
Label1(k).Caption = i
k = k + 1
If k = 35 Then k = 0
Next i
End Function


__________

و للفهم أكثر قم بتحميل الكود من الرابط التالي :-

[url= 4shared.com/file/Oqu9N5Uk/Calender_Generator.html] 4shared.com/file/Oqu9N5Uk/Calender_Generator.html[/url]

المصدر الرئيسي لهذا الموضوع
http://al7yatdotcom.blogspot.com/2011/12/calender.html
__________
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى