الرئيسيةاليوميةمكتبة الصورس .و .جبحـثالتسجيلدخول
المواضيع الأخيرة
» دليل الهواتف فى بلدك
الإثنين 10 أكتوبر 2016, 6:09 pm من طرف زائر

» يا سلام : أحصل على شهادات Microsoft العالمية مجــــانــــا
السبت 28 مارس 2015, 8:30 pm من طرف fathi

» التخطيط الإستراتيجى الشخصـــى من كلية ولدنبرج الدولية
الخميس 01 نوفمبر 2012, 10:21 pm من طرف نهى و بس

» للبحث عن خريج من كلية ولدنبرج الدوليةو الحصول على بيانات الشهادة الحاصل عليها
الأحد 28 أكتوبر 2012, 11:20 pm من طرف نهى و بس

» مطلوب وكلاء لكلية ولدنبرج الدولية وشركة برايم ورلد وايد
الأربعاء 24 أكتوبر 2012, 9:50 pm من طرف نهى و بس

» Unity 3D (Designed for your game)
السبت 15 سبتمبر 2012, 8:20 pm من طرف fathi

» اكسب اموال من خلال النت
الجمعة 17 أغسطس 2012, 11:40 pm من طرف fathi

» العمل من المنزل
الجمعة 17 أغسطس 2012, 11:22 pm من طرف fathi

» العمل على النت
الجمعة 17 أغسطس 2012, 11:07 pm من طرف fathi

سحابة الكلمات الدلالية
عربى قاموس
المواضيع الأكثر نشاطاً
تحميل برنامج تسجيل الفيديو من كاميرا ويب Camersoft Webcam Capture Free
يا سلام : أحصل على شهادات Microsoft العالمية مجــــانــــا
القاموس المصور The Oxford Picture Dictionary-2nd Edition
English Today كورس لتعليم اللغة الإنجليزية
برنامج antiARP 2011
كيف تكتب خاطــرهـ
▐▐▐أشهر معارض للأثاث الكلاسيك 2009 في مصر ▐▐▐
تحميل كورسات تعليمية فى مختلف مجالات الحاسب الالى واللغات
اريد برنامج سوفت ريسيفر تورمان
مجاناً امتلك موقعك على الإنترنت بأحدث الأفكار
المتواجدون الآن ؟
ككل هناك 3 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 3 زائر :: 1 روبوت الفهرسة في محركات البحث

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 278 بتاريخ الأربعاء 16 مارس 2011, 4:43 pm
تسجيل صفحاتك المفضلة في مواقع خارجية
تسجيل صفحاتك المفضلة في مواقع خارجية Digg  تسجيل صفحاتك المفضلة في مواقع خارجية Delicious  تسجيل صفحاتك المفضلة في مواقع خارجية Reddit  تسجيل صفحاتك المفضلة في مواقع خارجية Stumbleupon  تسجيل صفحاتك المفضلة في مواقع خارجية Slashdot  تسجيل صفحاتك المفضلة في مواقع خارجية Yahoo  تسجيل صفحاتك المفضلة في مواقع خارجية Google  تسجيل صفحاتك المفضلة في مواقع خارجية Blinklist  تسجيل صفحاتك المفضلة في مواقع خارجية Blogmarks  تسجيل صفحاتك المفضلة في مواقع خارجية Technorati  

قم بحفض و مشاطرة الرابط منتدى حكايتنا على موقع حفض الصفحات

قم بحفض و مشاطرة الرابط arhr على موقع حفض الصفحات
google
hekayatna
welcome
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل Meridithni5 فمرحبا به


إرسال موضوع جديد   إرسال مساهمة في موضوع
شاطر | 
 

 الجديد اليوم أكواد مكتبة الأكواد

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
fathi
Admin
Admin


عدد المساهمات : 627
تاريخ التسجيل : 17/08/2009
العمر : 33

مُساهمةموضوع: الجديد اليوم أكواد مكتبة الأكواد    الأحد 27 نوفمبر 2011, 1:43 pm

الجديد اليوم أكواد مكتبة الأكواد









السلام عليكم

هذه أكواد مكتبة الأكواد 2009 للى ما اشتغلش البرنامج عندهم


القسم : التعامل مع الوقت


إظهار الوقت الحالي


رموز PHP:




MsgBox(TimeOfDay)








معرفة عدد أيام الشهر


رموز PHP:




Dim shtDayCount As Short

shtDayCount
= System.DateTime.DaysInMonth("2009", "3")

MessageBox.Show("There are " & shtDayCount.ToString & _

" days in that month")








الدالة DateSerial لأعطاء التاريخ


رموز PHP:




'هذه الدالة تعطيك التاريخ

MsgBox(DateSerial((Now.Year), (Now.Month), (Now.Day)))

'
أيضا لو أردت التاريخ بعد فترة معينة ولكتكن 1000 يوم

MsgBox
(DateSerial((Now.Year), (Now.Month), (Now.Day) + 1000))








إظهار تحية عند فتح البرنامج حسب الوقت


رموز PHP:




ضع هذا الكود في حدث تحميل الفورم

If TimeOfDay <= "11:30 AM" Then

MsgBox
("Good Morning YourNameHere!")

Exit
Sub

End
If



If
TimeOfDay > "11:30 AM" And TimeOfDay < "5:00 PM" Then

MsgBox
("Good Afternoon YourNameHere!")

Exit
Sub

End
If



If
TimeOfDay > "5:00 PM" Then

MsgBox
("Good Evening YourNameHere!")

Exit
Sub

End
If



If
TimeOfDay >= "12:01 AM" Then

MsgBox
("Good Morning YourNameHere!")

Exit
Sub

End
If









كيفية تحويل التاريخ من هجري إلى ميلادي


رموز PHP:




Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String

Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))

End Function

مثال على أستخدام الكود

Textbox1
.Text = ToHijra(Now, "d dddd, MMMM yyyy")








لحصول على الوقت والتاريخ


رموز PHP:




Dim localTime As Date = My.Computer.Clock.LocalTime

MsgBox
(localTime)








لتحويل قيمة رقمية إلى ساعات:دقائق:ثواني


رموز PHP:




Function ReturnDegreesMinutesSecondsFromDecimalDegrees(ByVal DecimalDegrees As Decimal) As String

Dim DecDegAbs
As Decimal = Math.Abs(DecimalDegrees)

Dim ReturnValue As String = "'"

Dim DegreeSymbol As String = "°"

Dim MinutesSymbol As String = "’"

Dim SecondsSymbol As String = """"

Dim Degrees As String = Math.Truncate(DecDegAbs) & DegreeSymbol

Dim MinutesDecimal
As Decimal = (DecDegAbs - Math.Truncate(DecDegAbs)) * 60

Dim SecondsDecimal
As Decimal = (MinutesDecimal - Math.Truncate(MinutesDecimal))

Dim Minutes As String = Math.Truncate(MinutesDecimal) & MinutesSymbol

Dim Seconds
As String = String.Format("{0:##.0000}", (SecondsDecimal * 60)) & SecondsSymbol

ReturnValue
= Degrees & " " & Minutes & " " & Seconds

Return ReturnValue

End
Function









لمعرفة ان كانت السنة كبيسة أم لا


رموز PHP:




If DateTime.IsLeapYear(السنة) = True Then

MsgBox
("السنة كبيسة")

Else

MsgBox("السنة غير كبيسة")

End If








للحصول على أكبر وأضغر تاريخ مضبوط بالنظام


رموز PHP:




'أكبرتاريخ

MsgBox(DateTime.MaxValue.ToString)

'
أصغر تاريخ

MsgBox
(DateTime.MinValue.ToString)








لاضافة ال Formats المختلفة


رموز PHP:




Dim dateTime As DateTime = New DateTime(Now.Year, Now.Month, Now.Day, Now.Hour, Now.Minute, Now.Second)

Dim d() As String = Nothing

d
= dateTime.GetDateTimeFormats()

ListBox1.Items.AddRange(d)









معرفة أذا كان النص المدخل تاريخ


رموز PHP:




Public Function IsDate(ByVal DateIn As String) As Boolean

Dim datDateTime
As DateTime

Dim blnIsDate
As Boolean = True

Try

' Attempt to parse date

datDateTime = DateTime.Parse(DateIn)

Catch e As FormatException

'
Error parsing, return False

blnIsDate
= False

End
Try

Return
blnIsDate

End
Function








إضافة أيام إلى تاريخ معين


رموز PHP:




Dim MyDate As DateTime

MyDate
= Now

MyDate
.AddDays(7) Change

MessageBox
.Show(MyDate)









وضع التاريخ مع الوقت


رموز PHP:




Me.Label.Text = My.Computer.Clock.LocalTime.ToString("MM/dd/yyyy hh:mm")


















****************************
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]






الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://arhr.roll.tv
 
الجديد اليوم أكواد مكتبة الأكواد
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:تستطيع الرد على المواضيع في هذا المنتدى
arhr :: منتدى البرمجة والانترنت-
إرسال موضوع جديد   إرسال مساهمة في موضوعانتقل الى: